Quote:
Originally Posted by kknb
ja kommt automatisch nachdem sich der keylogger installiert hat.
|
Hast du EINEN EINZIGEN BEWEIS für einen Keylogger? :rolleyes:
Hier die einzige Funktion die was mit Internet zu tun hat.
Code:
$Vers = 1.72
If _INetGetSource ("http://dr123bb.dr.funpic.de/GuildWars/Dragon/Version.txt") > $Vers Then
GUICreate("New Version", 200, 60)
GUISetStyle (-1, $WS_EX_TOOLWINDOW)
GUICtrlCreateLabel("A new Version is aviable!", 15, 5, 190, 33)
GUICtrlSetFont(-1, 11)
$Update = GUICtrlCreateButton("Download!", 5, 30, 190)
GUISetState()
While 1
$nmsg = GUIGetMsg ()
Switch $nmsg
Case $Update
GUICtrlSetState($Update, $GUI_DISABLE)
GUICtrlSetData($Update, "Downloading...")
Sleep (200)
$DL = InetGet("http://dr123bb.dr.funpic.de/GuildWars/Dragon/Dragon.rar", @ScriptDir & "\Dragon.rar", 1)
GUIDelete()
Sleep(50)
MsgBox(64,"Complete", "Update Complete!" & @CRLF & "You'll find the Dragon.rar in" & @CRLF & @ScriptDir & @crlf & @CRLF & "V." & _INetGetSource ("http://dr123bb.dr.funpic.de/GuildWars/Dragon/Version.txt") & " Changes:" & @CRLF & _INetGetSource("http://dr123bb.dr.funpic.de/GuildWars/Dragon/ChangeLog.txt"), 150000)
Exit
Case -3
GUIDelete()
Exit
EndSwitch
WEnd
EndIf
$a = _INetGetSource ("http://dr123bb.dr.funpic.de/GuildWars/Dragon/Check.txt")
If $a <> "Enabled" Then
MsgBox (64, "", "This bot isn't free anymore.")
Exit
EndIf
@Heikofant: Wo siehst du eine Mailto funktion -.- Dann gib uns doch die Accdaten von meinem Mailaccount wenn in meinem Script irgendeine Mailtofunktion vorhanden ist!
Es macht mir echt keinen Spaß einen Bot zu machen und weiter zuentwickeln, wenn ihr mir noch etwas vorwürft, ohne es zu beweisen.
Falls ihr wünscht, werde ich keine weiteren Bots oder sonstiges hier anbieten.
MfG Daniel