Locker-z Forum

Salve a tutti MI potreste aiutare a creare delle hotkeys tramite visual basic 2010 Per Un autofill Di lockerz ? Ho trovato tante guide ma fungono Solo su visual basic 2008 :@

Inserisci questo all'inizio prima del Form1_Load: CODICE Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vkey As Long) As Integer Quindi poi metti questo dove vuoi che il codice si esegua (esempio per F2) CODICE If GetAsyncKeyState(Keys.F2) Then Tuo codice End If

Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vkey As Long) As Integer Lo devo mettere Prima Di: Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load ? Così Anche: If GetAsyncKeyState(Keys.F2) Then Tuo codice End If Ps: Tuo codice sarebbe quello che voglio fare scrivere Giusto?

Allora, la dichiarazione va messa la prima di tutte. Poi l'altro lo devi mettere dove vuoi tu, ad esempio nel timer.

Allora questa è la mia stringa: Public Class Form1 Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) End Sub Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click MessageBox.Show("Hotkeys Disattivate ") End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click MessageBox.Show("Hotkeys Attivate ") End Sub Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click End Sub Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click MessageBox.Show("Lo script è stato creato da andreoskit con l'aiuto dell'utente eeewindows7 ") End Sub End Class Dove devo inserire I codici che mi hai detto? O.o Inolte io vorrei fare una cosa che tu metti nome cognome ecc Attivi e poi premi Pulsanti e quello Li mette... Si può fare? Ps: se mi aiuti ti metto i crediti

P.S: Guarda che devi importare le librerie per utilizzare quei comandi

Infatti Mi dice che nella libreria 32 non è presente getasynckeystate.. Ora devo rifare da capo? o Basta che le importo?

io non ho capito a cosa serve questo: Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vkey As Long) As Integer

Perfetto raga che serva a tutti! questa è la stringa migliroe se vi da il problema del DLL: Declare Auto Function GetAsyncKeyState Lib "user32.dll" (ByVal vKey As Int32) As Int16

andreo prova questa Private Declare Function GetAsyncKeyState Lib "user32" Alias "GetAsyncKeyState" (ByVal vbKey As Keys) As Integer

Quella Postata Sopra è quella Giusta

sisi, ma prova anche quella che ho scritto io, forse è vb 2010 che da problemi

Topic dei nabbi

Ehm.. Non Intervenire Postando msg inutili..Grazie

andreoskit ma proprio in visual basic ? ma che dispiacere.... meno male anche te usi ubuntu

Si visual basic è molto Incasinato.. Era meglio se lo facevo In html.. O.o raga visual basic è uscito pazzo ora se faccio il test Debug mi clicca tutti i campi e se scrivo una lettera la riscrive 10000 Volte in tutti I campi O.o Vedete anche voi se trovate intoppi SPOILER ( clicca per visualizzare ) Public Class Form1 Private Property llenar As Integer Private Property ilenar As Integer Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) End Sub Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click MessageBox.Show("Hotkeys Disattivate ") End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click MessageBox.Show("Hotkeys Attivate ") End Sub Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click End Sub Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click MessageBox.Show("Lo script è stato creato da andreoskit con l'aiuto del forum -Lockerz italia forum- ") End Sub Private Sub GroupBox1_Enter(ByVal sender As System.Object, ByVal e As System.EventArgs) End Sub Private Sub TextBox4_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) End Sub Declare Auto Function GetAsyncKeyState Lib "user32.dll" (ByVal vKey As Int32) As Int16 Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick Dim llenar As Boolean llenar = GetAsyncKeyState(Keys.Escape) If llenar = True Then End If SendKeys.Send(login.Text) SendKeys.Send("{TAB}") SendKeys.Send(pass.Text) SendKeys.Send("{TAB}") SendKeys.Send(categoria.Text) SendKeys.Send("{TAB}") End Sub Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) End Sub Private Sub TextBox1_TextChanged_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles categoria.TextChanged End Sub Private Declare Function GetAsyncKeyState Lib "user32" Alias "GetAsyncKeyState" (ByVal vbKey As Keys) As Integer Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick Dim llenar As Boolean llenar = GetAsyncKeyState(Keys.Cancel) If llenar = True Then End If SendKeys.Send(nome.Text) SendKeys.Send("{TAB}") SendKeys.Send(cognome.Text) SendKeys.Send("{TAB}") SendKeys.Send(via1.Text) SendKeys.Send("{TAB}") SendKeys.Send(via2.Text) SendKeys.Send("{TAB}") SendKeys.Send(città.Text) SendKeys.Send("{TAB}") SendKeys.Send(stato.Text) SendKeys.Send("{TAB}") SendKeys.Send(codice.Text) SendKeys.Send("{TAB}") SendKeys.Send(telefono.Text) SendKeys.Send("{TAB}") End Sub Private Sub D_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles D.Click End Sub End Class

facciamo html ? xd io conosco un po di xml tu ?

Vuoi fare tipo SendKeys di VB in HTML? LOL Se vuoi fare qualcosa dove si usa il mouse o la tastiera, imparati AutoIT

Vuoi aiutarmi A crearlo qualcosa l'ho imparata ma mi servirebbe ulteriore aiuto.. comunque se la mia proposta ti interesas fammi Sapereee

non vincerai mai su lockerz perdi solo tempo cosi

ahahahhahahahhahah scusa perch├® hai resuscitato un topic di un anno fa? :/ lol e poi non vincerai mai su lockerz? :/ ben ora...