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:
Código: Private Declare Function GetAsyncKeyState Lib "user32" Alias "GetAsyncKeyState" (ByVal vKey As Long) As Integer |