Sooo.. also hier mal der Drachen Arena Abklatsch von meinem RA Bot.. deswegen bitte ich darum den Part mit den Zkeys etc. zu ignorieren und nicht auf den Namen zu achten :rolleyes:
Neue Exe ist drin! & Neuer Scan auch!
Einfach Koordinaten von Kampf Betreten in die Settings.ini reinschreiben, und ggf. den Fensternamen ändern.
HotKeys:
Ende/End: Bot Beenden
Pause/Pause: Bot Pausieren
Pfeil Runter: Stealth = 1 (GW verstecken)
Pfeil Hoch: Stealth = 0 (GW hochziehen)
Hier der Code:
Hier der Scan (Wovon dieser Autorun Mist kommt weiß ich nicht [UPX?!!!] )
Neue Exe ist drin! & Neuer Scan auch!
Einfach Koordinaten von Kampf Betreten in die Settings.ini reinschreiben, und ggf. den Fensternamen ändern.
HotKeys:
Ende/End: Bot Beenden
Pause/Pause: Bot Pausieren
Pfeil Runter: Stealth = 1 (GW verstecken)
Pfeil Hoch: Stealth = 0 (GW hochziehen)
Hier der Code:
PHP Code:
#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Icon=data\Zerstörerkern.ico
#AutoIt3Wrapper_Run_Obfuscator=y
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#cs ----------------------------------------------------------------------------
Funktionen Part zum Callen im MainPart
#ce-----------------------------------------------------------------------------
#include <Process.au3>
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants2.au3>
#include <NomadMemory.au3>
#include-once
HotKeySet("{End}", "_End")
HotKeySet("{Pause}", "_Pause")
HotKeySet("{Up}", "_Show")
HotKeySet("{Down}", "_Hide")
Global $inifile = @ScriptDir & "/data/Settings.ini"
Global $client = IniRead($inifile, "Misc", "Fenstername", "Guild Wars")
$hWnd = WinGetHandle($client)
Global $Paused, $runs = 0, $min, $max, $next = 0
$PID = WinGetProcess($hWnd)
Global $hprocess = _MemoryOpen($PID)
Const $memx = IniRead(@ScriptDir & "/data/update.ini", "SECTION D", "POSX", "Not found") ; position x
Const $memy = IniRead(@ScriptDir & "/data/update.ini", "SECTION D", "POSY", "Not found") ; position y
Const $check_map = IniRead(@ScriptDir & "/data/update.ini", "SECTION D", "CHECK_MAP", "Not found") ;- (0 => Stadt, 1 => Instanz, 2 => Laden)
Const $memdeath = IniRead(@ScriptDir & "/data/update.ini", "SECTION 9-A", "DEATH", "Not found") ;- 1 Wenn Tot / 0 Wenn Lebt
$LogFile = FileOpen(@ScriptDir & "/data/Verlauf.log", 1)
$x_join = IniRead($inifile, "XY", "x_betreten", "Not Found")
$y_join = IniRead($inifile, "XY", "y_betreten", "Not Found")
;-Beendet Bot und Schreibt in Verlauf.log Datei rein, wann Bot beendet wurde
Func _End()
FileWrite($LogFile, "---" & @CRLF & "Beendet:" & @CRLF & @MDAY & "/" & @MON & "/" & @YEAR & @CRLF & @HOUR & ":" & @MIN & ":" & @SEC & @CRLF & "----------------------------------" & @CRLF & @CRLF)
FileClose($LogFile)
Exit
EndFunc ;==>_End
;-Schreibt in Verlauf.log Datei rein, Wann Bot gestartet wurde
Func _Hide()
WinSetState($hWnd, "", @SW_HIDE)
EndFunc ;==>_Hide
Func _Show()
WinSetState($hWnd, "", @SW_SHOW)
EndFunc ;==>_Show
Func _Run()
If $LogFile = -1 Then
MsgBox(0, "Not Found", "No file called <Verlauf.log> found")
Exit
EndIf
FileWrite($LogFile, "-----Datum & Uhrzeit-----" & @CRLF & "Gestartet:" & @CRLF & @MDAY & "/" & @MON & "/" & @YEAR & @CRLF & @HOUR & ":" & @MIN & ":" & @SEC & @CRLF)
EndFunc ;==>_Run
Func RS($min, $max)
Sleep(Random($min, $max))
EndFunc ;==>RS
;-Lässt Bot auf AN/AUS Hotkey Pausieren
Func _Pause()
$Paused = Not $Paused
While $Paused
Sleep(100)
ToolTip('Script is "Paused"', 0, 0)
WEnd
ToolTip("Script is running")
If Not WinActivate("Guild Wars") Then
WinActivate("Guild Wars")
EndIf
Sleep(2000)
EndFunc ;==>_Pause
Func _VisitUs()
_RunDOS("start http://www.elitepvpers.com/forum/guild-wars/")
EndFunc ;==>_VisitUs
Func _Hilfe()
(@ScriptDir & "Help.txt")
EndFunc ;==>_Hilfe
Func _Anpassen()
WinMove($hWnd, "", 0, 0, 1440, 900)
EndFunc ;==>_Anpassen
Func _Update()
InetGet("http://nbarena.bplaced.net/tools/Tools%20von%20Dunham/update.ini", @ScriptDir & "/data/update.ini")
While @InetGetActive
TrayTip("Downloading", "Bytes = " & @InetGetBytesRead, 10, 16)
Sleep(250)
WEnd
MsgBox(0, "Bytes read", @InetGetBytesRead)
MsgBox(0, "Update", "Update erfolgreich durchgeführt")
EndFunc ;==>_Update
Func KeySend($inkey, $evt = "pressed", $kdown = 50)
$user32 = DllOpen("user32.dll")
If $user32 = -1 Then
ConsoleWrite("KeySend: cannot open user32.dll")
Exit
EndIf
$WM_KEYDOWN = 0x100
$WM_KEYUP = 0x101
$WM_CHAR = 0x102
; handling for special keys
If StringUpper($inkey) = "RETURN" Then
$skey = 0x0D
$ret = DllCall($user32, "int", "MapVirtualKey", "int", $skey, "int", 0)
$lparam = BitShift($ret[0], -16)
$lparam = BitOR($lparam, 1)
DllCall($user32, "int", "PostMessage", "hwnd", $hWnd, "int", $WM_KEYDOWN, "int", $skey, "int", $lparam)
Sleep($kdown)
DllCall($user32, "int", "PostMessage", "hwnd", $hWnd, "int", $WM_KEYUP, "int", $skey, "int", BitOR($lparam, 0xC0000000))
ElseIf StringUpper($inkey) = "SPACE" Then
$skey = 0x20
$ret = DllCall($user32, "int", "MapVirtualKey", "int", $skey, "int", 0)
$lparam = BitShift($ret[0], -16)
$lparam = BitOR($lparam, 1)
DllCall($user32, "int", "PostMessage", "hwnd", $hWnd, "int", $WM_KEYDOWN, "int", $skey, "int", $lparam)
Sleep($kdown)
DllCall($user32, "int", "PostMessage", "hwnd", $hWnd, "int", $WM_KEYUP, "int", $skey, "int", BitOR($lparam, 0xC0000000))
ElseIf StringUpper($inkey) = "TAB" Then
$skey = 0x09
$ret = DllCall($user32, "int", "MapVirtualKey", "int", $skey, "int", 0)
$lparam = BitShift($ret[0], -16)
$lparam = BitOR($lparam, 1)
DllCall($user32, "int", "PostMessage", "hwnd", $hWnd, "int", $WM_KEYDOWN, "int", $skey, "int", $lparam)
Sleep($kdown)
DllCall($user32, "int", "PostMessage", "hwnd", $hWnd, "int", $WM_KEYUP, "int", $skey, "int", BitOR($lparam, 0xC0000000))
ElseIf StringUpper($inkey) = "@" Then
$skey = 0x40
$lparam = 0x00100001
DllCall($user32, "int", "PostMessage", "hwnd", $hWnd, "int", $WM_KEYDOWN, "int", 0x71, "int", $lparam)
DllCall($user32, "int", "PostMessage", "hwnd", $hWnd, "int", $WM_CHAR, "int", $skey, "int", $lparam)
Sleep(20)
DllCall($user32, "int", "PostMessage", "hwnd", $hWnd, "int", $WM_KEYUP, "int", 0x71, "int", BitOR($lparam, 0xC0000000))
Else ; default lower case key handling
$key = DllCall($user32, "int", "VkKeyScan", "int", Asc(StringLower($inkey)))
$skey = $key[0]
$ret = DllCall($user32, "int", "MapVirtualKey", "int", $skey, "int", 0)
$lparam = BitShift($ret[0], -16)
$lparam = BitOR($lparam, 1)
Select
Case $evt = "pressed"
DllCall($user32, "int", "PostMessage", "hwnd", $hWnd, "int", $WM_KEYDOWN, "int", $skey, "int", $lparam)
Sleep($kdown)
DllCall($user32, "int", "PostMessage", "hwnd", $hWnd, "int", $WM_KEYUP, "int", $skey, "int", BitOR($lparam, 0xC0000000))
Case $evt = "down"
DllCall($user32, "int", "PostMessage", "hwnd", $hWnd, "int", $WM_KEYDOWN, "int", $skey, "int", $lparam)
Case $evt = "up"
DllCall($user32, "int", "PostMessage", "hwnd", $hWnd, "int", $WM_KEYUP, "int", $skey, "int", BitOR($lparam, 0xC0000000))
EndSelect
EndIf
DllClose($user32)
EndFunc ;==>KeySend
Func _Cast()
KeySend("1")
RS(2400, 3100)
EndFunc ;==>_Cast
Func _Rein()
ControlClick($hWnd, "", "", "left", 1, $x_join, $y_join)
EndFunc ;==>_Rein
#cs-----------------------------------------------------------------------------
GUI
#ce-----------------------------------------------------------------------------
$Form1_1 = GUICreate("uLtra raNdom aReNa boT v2.1 by Itami & aLasca Coorp 09", 523, 375, 320, 218)
GUISetBkColor(0xA6CAF0)
$Pic1 = GUICtrlCreatePic("C:\Dokumente und Einstellungen\Felix\Desktop\_\data\header.jpg", 0, 0, 521, 92, BitOR($SS_NOTIFY, $WS_GROUP, $WS_CLIPSIBLINGS))
$Ja_Radio = GUICtrlCreateRadio("Ja", 8, 288, 113, 17)
$Nein_Radio = GUICtrlCreateRadio("Nein", 8, 312, 113, 17)
$TauschRadiaLabel = GUICtrlCreateLabel("Sollen Balthasar Punkte gegen ", 8, 240, 153, 17)
$Start = GUICtrlCreateButton("Ich bin soweit!", 176, 336, 185, 33, 0)
$Btn_Update = GUICtrlCreateButton("Update!", 416, 96, 105, 25, 0)
$Label1 = GUICtrlCreateLabel(@IPAddress1, 456, 352, 63, 17)
$Btn_1440x900 = GUICtrlCreateButton("Anpassen", 416, 128, 105, 25, 0)
$Edit1 = GUICtrlCreateEdit("", 0, 96, 169, 129)
GUICtrlSetData(-1, StringFormat("HotKeys:\r\n\r\nEnde/End: Bot Beenden\r\nPause/Pause: Bot Pausieren\r\n\r\nViel Spaß mit dem Bot!\r\n"))
GUICtrlSetState(-1, $GUI_DISABLE)
$Label2 = GUICtrlCreateLabel("gegen Zaishen Schlüssel getauscht werden?", 8, 264, 217, 17)
$Btn_Visit_Us = GUICtrlCreateButton("Visit Us!!!", 416, 160, 105, 25, 0)
GUISetState(@SW_SHOW)
_Run()
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
_End()
Case $Btn_Visit_Us
_VisitUs()
Case $Btn_1440x900
_Anpassen()
Case $Btn_Update
_Update()
Case $Start
While True
_Start()
WEnd
EndSwitch
WEnd
#cs-----------------------------------------------------------------------------
Main Part of Bot / Hauptteil vom Bot
#ce-----------------------------------------------------------------------------
Func _Start()
ControlClick($hWnd, "", "", "left", 1, $x_join, $y_join)
AdlibEnable("_Rein", 10000)
;-Warten bis er in der Arena Drin ist
While _memoryread($check_map, $hprocess) <> 1
Sleep(500)
WEnd
Sleep(5000)
ControlSend($hWnd, "", "", "{w down}")
Sleep(2000)
ControlSend($hWnd, "", "", "{w up}")
Sleep(50000)
For $i = 1 To 5
KeySend("ä")
Sleep(100)
KeySend("space")
Sleep(3000)
If _memoryread($memdeath, $hprocess) <> 0 Then
MsgBox(0x40, "Error", "Button nicht getroffen, Bitte koordinaten richtig angeben!")
ExitLoop
EndIf
Next
While _memoryread($check_map, $hprocess) <> 2
KeySend("c")
RS(100, 300)
KeySend("1")
RS(1000, 1600)
KeySend("3")
RS(1000, 1600)
KeySend("1")
RS(1000, 2000)
WEnd
Sleep(10000)
If _memoryread($check_map, $hprocess) <> 0 Or 1 Then
AdlibDisable()
Else ;-error
MsgBox(0, "Error", "Disconnected.. Bot_Shutdown...")
Sleep(5000)
Exit
EndIf
;-Restart
EndFunc ;==>_Start
[Only registered and activated users can see links. Click Here To Register...]Quote:
a-squared 4.0.0.93 2009.01.31 -
AhnLab-V3 5.0.0.2 2009.01.30 -
AntiVir 7.9.0.60 2009.01.30 -
Authentium 5.1.0.4 2009.01.31 -
Avast 4.8.1281.0 2009.01.30 -
AVG 8.0.0.229 2009.01.30 -
BitDefender 7.2 2009.01.31 -
CAT-QuickHeal 10.00 2009.01.31 -
ClamAV 0.94.1 2009.01.31 -
Comodo 954 2009.01.30 -
DrWeb 4.44.0.09170 2009.01.31 -
eSafe 7.0.17.0 2009.01.29 Suspicious File
eTrust-Vet 31.6.6335 2009.01.29 -
F-Prot 4.4.4.56 2009.01.30 -
F-Secure 8.0.14470.0 2009.01.31 -
Fortinet 3.117.0.0 2009.01.31 -
GData 19 2009.01.31 -
Ikarus T3.1.1.45.0 2009.01.31 -
K7AntiVirus 7.10.611 2009.01.30 -
Kaspersky 7.0.0.125 2009.01.31 -
McAfee 5511 2009.01.30 W32/Autorun.worm.zf.gen
McAfee+Artemis 5511 2009.01.30 W32/Autorun.worm.zf.gen
Microsoft 1.4306 2009.01.31 -
NOD32 3815 2009.01.31 -
Norman 6.00.02 2009.01.30 -
nProtect 2009.1.8.0 2009.01.30 -
Panda 9.5.1.2 2009.01.31 -
PCTools 4.4.2.0 2009.01.31 -
Prevx1 V2 2009.01.31 -
Rising 21.13.42.00 2009.01.23 -
SecureWeb-Gateway 6.7.6 2009.01.30 -
Sophos 4.38.0 2009.01.31 -
Sunbelt 3.2.1835.2 2009.01.16 -
Symantec 10 2009.01.31 -
TheHacker 6.3.1.5.241 2009.01.31 -
TrendMicro 8.700.0.1004 2009.01.30 -
VBA32 3.12.8.12 2009.01.30 -
ViRobot 2009.1.31.1583 2009.01.31 -
VirusBuster 4.5.11.0 2009.01.30 -
