present for all x64

11/20/2011 15:12 Cyberghost77#1
have fun with my bot .. its still working

Code:
_GDIPlus_Startup()
Dim $STOP = True
HotKeySet("{F10}", "START1")
HotKeySet("{F11}", "STOP1")
GUICreate("3000 zeilen bot", 250, 300)
Opt("GUIOnEventMode", 1)
GUICtrlCreateButton("load", 170, 10)
GUICtrlCreateButton("load", 200, 10)
GUISetOnEvent($GUI_EVENT_CLOSE, "exit1")
GUICtrlCreateLabel("mobs", 10, 30)
$BG = GUICtrlCreateRadio("bg ? ", 50, 30)
$NORMAL = GUICtrlCreateRadio("normal ? ", 110, 30)
GUICtrlCreateLabel("Attackbar1", 10, 50)
$B_B1_1 = GUICtrlCreateCheckbox("atk1", 10, 70)
$B_B1_2 = GUICtrlCreateCheckbox("atk2", 10, 90)
$B_B1_3 = GUICtrlCreateCheckbox("atk3", 10, 110)
$B_B1_4 = GUICtrlCreateCheckbox("atk4", 10, 130)
$B_B1_5 = GUICtrlCreateCheckbox("atk5", 10, 150)
$B_B1_6 = GUICtrlCreateCheckbox("atk6", 10, 170)
$B_B1_7 = GUICtrlCreateCheckbox("atk7", 10, 190)
$B_B1_8 = GUICtrlCreateCheckbox("atk8", 10, 210)
$B_B1_9 = GUICtrlCreateCheckbox("atk9", 10, 230)
$B_B1_10 = GUICtrlCreateCheckbox("atk10", 10, 250)
GUICtrlCreateLabel("Buffbar1", 70, 50)
$B_B2_1 = GUICtrlCreateCheckbox("Buff1", 70, 70)
$B_B2_2 = GUICtrlCreateCheckbox("Buff2", 70, 90)
$B_B2_3 = GUICtrlCreateCheckbox("Buff3", 70, 110)
$B_B2_4 = GUICtrlCreateCheckbox("Buff4", 70, 130)
$B_B2_5 = GUICtrlCreateCheckbox("Buff5", 70, 150)
$B_B2_6 = GUICtrlCreateCheckbox("Buff6", 70, 170)
$B_B2_7 = GUICtrlCreateCheckbox("Buff7", 70, 190)
$B_B2_8 = GUICtrlCreateCheckbox("Buff8", 70, 210)
$B_B2_9 = GUICtrlCreateCheckbox("Buff9", 70, 230)
$B_B2_10 = GUICtrlCreateCheckbox("Buff10", 70, 250)
GUICtrlCreateLabel("Buffbar2", 130, 50)
$B_B3_1 = GUICtrlCreateCheckbox("Buff1", 130, 70)
$B_B3_2 = GUICtrlCreateCheckbox("Buff2", 130, 90)
$B_B3_3 = GUICtrlCreateCheckbox("Buff3", 130, 110)
$B_B3_4 = GUICtrlCreateCheckbox("Buff4", 130, 130)
$B_B3_5 = GUICtrlCreateCheckbox("Buff5", 130, 150)
$B_B3_6 = GUICtrlCreateCheckbox("Buff6", 130, 170)
$B_B3_7 = GUICtrlCreateCheckbox("Buff7", 130, 190)
$B_B3_8 = GUICtrlCreateCheckbox("Buff8", 130, 210)
$B_B3_9 = GUICtrlCreateCheckbox("Buff9", 130, 230)
$B_B3_10 = GUICtrlCreateCheckbox("Buff10", 130, 250)
GUICtrlCreateLabel("Buffbar3", 190, 50)
$B_B4_1 = GUICtrlCreateCheckbox("Buff1", 190, 70)
$B_B4_2 = GUICtrlCreateCheckbox("Buff2", 190, 90)
$B_B4_3 = GUICtrlCreateCheckbox("Buff3", 190, 110)
$B_B4_4 = GUICtrlCreateCheckbox("Buff4", 190, 130)
$B_B4_5 = GUICtrlCreateCheckbox("Buff5", 190, 150)
$B_B4_6 = GUICtrlCreateCheckbox("Buff6", 190, 170)
$B_B4_7 = GUICtrlCreateCheckbox("Buff7", 190, 190)
$B_B4_8 = GUICtrlCreateCheckbox("Buff8", 190, 210)
$B_B4_9 = GUICtrlCreateCheckbox("Buff9", 190, 230)
$B_B4_10 = GUICtrlCreateCheckbox("Buff10", 190, 250)
GUICtrlCreateLabel("F10 - Start Bot", 10, 10)
GUICtrlCreateLabel("F11 - Stop Bot", 90, 10)
Opt("SendKeyDelay", 10)
Opt("SendKeyDownDelay", 105)
GUISetState()
Func START1()
	$STOP = False
	If (WinExists("[CLASS:RwAppClass]")) Then
		WinMove("[CLASS:RwAppClass]", "", 0, 0)
		ControlSend("[CLASS:RwAppClass]", "", "", "{TAB}")
		WinSetTitle("[CLASS:RwAppClass]", "", "Archlord Bot gestartet")
		Call("SUCHEN")
	EndIf
EndFunc
Func SUCHEN()
	MsgBox(4096, "Info", "Bot gestartet", 1)
	While $STOP = False
		$SIZE = WinGetPos("[CLASS:RwAppClass]")
		_ScreenCapture_Capture("C:\Users\Public\a.png", 419, 58, 449, 88)
		_ScreenCapture_Capture("C:\Users\Public\b.png", 410, 40, 430, 60)
		GUISetState()
		$A = _GDIPlus_ImageLoadFromFile("C:\Users\Public\a.png")
		$B = _GDIPlus_ImageLoadFromFile("C:\Users\Public\b.png")
		If (GUICtrlRead($BG) = 1) Then
			If Call("_GDIPLUS_GETPIXEL", $B, 8, 9) = 4287862933 Then
				Call("ZIELEN")
			EndIf
		EndIf
		If (GUICtrlRead($NORMAL) = 1) Then
			If Call("_GDIPLUS_GETPIXEL", $A, 15, 15) = 4280030996 Then
				If Call("_GDIPLUS_GETPIXEL", $A, 10, 10) = 4281219384 Then
					If Call("_GDIPLUS_GETPIXEL", $A, 11, 11) = 4280758577 Then
						If Call("_GDIPLUS_GETPIXEL", $A, 12, 12) = 4280956212 Then
							Call("ZIELEN")
						EndIf
					EndIf
				EndIf
			EndIf
		EndIf
		_GDIPlus_ImageDispose($A)
		_GDIPlus_ImageDispose($B)
		If (GUICtrlRead($B_B1_1) = 1) Then
			ControlSend("[CLASS:RwAppClass]", "", "", "{3}")
		EndIf
		If (GUICtrlRead($B_B1_2) = 1) Then
			ControlSend("[CLASS:RwAppClass]", "", "", "{4}")
		EndIf
		If (GUICtrlRead($B_B1_3) = 1) Then
			ControlSend("[CLASS:RwAppClass]", "", "", "{5}")
		EndIf
		If (GUICtrlRead($B_B1_4) = 1) Then
			ControlSend("[CLASS:RwAppClass]", "", "", "{6}")
		EndIf
		If (GUICtrlRead($B_B1_5) = 1) Then
			ControlSend("[CLASS:RwAppClass]", "", "", "{7}")
		EndIf
		If (GUICtrlRead($B_B1_6) = 1) Then
			ControlSend("[CLASS:RwAppClass]", "", "", "{8}")
		EndIf
		If (GUICtrlRead($B_B1_7) = 1) Then
			ControlSend("[CLASS:RwAppClass]", "", "", "{9}")
		EndIf
		If (GUICtrlRead($B_B1_8) = 1) Then
			ControlSend("[CLASS:RwAppClass]", "", "", "{0}")
		EndIf
		If (GUICtrlRead($B_B1_9) = 1) Then
			ControlSend("[CLASS:RwAppClass]", "", "", "{ß}")
		EndIf
		If (GUICtrlRead($B_B1_10) = 1) Then
			ControlSend("[CLASS:RwAppClass]", "", "", "{´}")
		EndIf
	WEnd
EndFunc
Func ZIELEN()
	ControlSend("[CLASS:RwAppClass]", "", "", "{^}")
	$BAR = 1
	If (GUICtrlRead($B_B2_1) = 1) Then
		ControlSend("[CLASS:RwAppClass]", "", "", "{3}")
	EndIf
	If (GUICtrlRead($B_B2_2) = 1) Then
		ControlSend("[CLASS:RwAppClass]", "", "", "{4}")
	EndIf
	If (GUICtrlRead($B_B2_3) = 1) Then
		ControlSend("[CLASS:RwAppClass]", "", "", "{5}")
	EndIf
	If (GUICtrlRead($B_B2_4) = 1) Then
		ControlSend("[CLASS:RwAppClass]", "", "", "{6}")
	EndIf
	If (GUICtrlRead($B_B2_5) = 1) Then
		ControlSend("[CLASS:RwAppClass]", "", "", "{7}")
	EndIf
	If (GUICtrlRead($B_B2_6) = 1) Then
		ControlSend("[CLASS:RwAppClass]", "", "", "{8}")
	EndIf
	If (GUICtrlRead($B_B2_7) = 1) Then
		ControlSend("[CLASS:RwAppClass]", "", "", "{9}")
	EndIf
	If (GUICtrlRead($B_B2_8) = 1) Then
		ControlSend("[CLASS:RwAppClass]", "", "", "{0}")
	EndIf
	If (GUICtrlRead($B_B2_9) = 1) Then
		ControlSend("[CLASS:RwAppClass]", "", "", "{ß}")
	EndIf
	If (GUICtrlRead($B_B2_10) = 1) Then
		ControlSend("[CLASS:RwAppClass]", "", "", "{´}")
	EndIf
	ControlSend("[CLASS:RwAppClass]", "", "", "{^}")
	$BAR = 2
	If (GUICtrlRead($B_B3_1) = 1) Then
		ControlSend("[CLASS:RwAppClass]", "", "", "{3}")
	EndIf
	If (GUICtrlRead($B_B3_2) = 1) Then
		ControlSend("[CLASS:RwAppClass]", "", "", "{4}")
	EndIf
	If (GUICtrlRead($B_B3_3) = 1) Then
		ControlSend("[CLASS:RwAppClass]", "", "", "{5}")
	EndIf
	If (GUICtrlRead($B_B3_4) = 1) Then
		ControlSend("[CLASS:RwAppClass]", "", "", "{6}")
	EndIf
	If (GUICtrlRead($B_B3_5) = 1) Then
		ControlSend("[CLASS:RwAppClass]", "", "", "{7}")
	EndIf
	If (GUICtrlRead($B_B3_6) = 1) Then
		ControlSend("[CLASS:RwAppClass]", "", "", "{8}")
	EndIf
	If (GUICtrlRead($B_B3_7) = 1) Then
		ControlSend("[CLASS:RwAppClass]", "", "", "{9}")
	EndIf
	If (GUICtrlRead($B_B3_8) = 1) Then
		ControlSend("[CLASS:RwAppClass]", "", "", "{0}")
	EndIf
	If (GUICtrlRead($B_B3_9) = 1) Then
		ControlSend("[CLASS:RwAppClass]", "", "", "{ß}")
	EndIf
	If (GUICtrlRead($B_B3_10) = 1) Then
		ControlSend("[CLASS:RwAppClass]", "", "", "{´}")
	EndIf
	ControlSend("[CLASS:RwAppClass]", "", "", "{^}")
	$BAR = 3
	If (GUICtrlRead($B_B4_1) = 1) Then
		ControlSend("[CLASS:RwAppClass]", "", "", "{3}")
	EndIf
	If (GUICtrlRead($B_B4_2) = 1) Then
		ControlSend("[CLASS:RwAppClass]", "", "", "{4}")
	EndIf
	If (GUICtrlRead($B_B4_3) = 1) Then
		ControlSend("[CLASS:RwAppClass]", "", "", "{5}")
	EndIf
	If (GUICtrlRead($B_B4_4) = 1) Then
		ControlSend("[CLASS:RwAppClass]", "", "", "{6}")
	EndIf
	If (GUICtrlRead($B_B4_5) = 1) Then
		ControlSend("[CLASS:RwAppClass]", "", "", "{7}")
	EndIf
	If (GUICtrlRead($B_B4_6) = 1) Then
		ControlSend("[CLASS:RwAppClass]", "", "", "{8}")
	EndIf
	If (GUICtrlRead($B_B4_7) = 1) Then
		ControlSend("[CLASS:RwAppClass]", "", "", "{9}")
	EndIf
	If (GUICtrlRead($B_B4_8) = 1) Then
		ControlSend("[CLASS:RwAppClass]", "", "", "{0}")
	EndIf
	If (GUICtrlRead($B_B4_9) = 1) Then
		ControlSend("[CLASS:RwAppClass]", "", "", "{ß}")
	EndIf
	If (GUICtrlRead($B_B4_10) = 1) Then
		ControlSend("[CLASS:RwAppClass]", "", "", "{´}")
	EndIf
	ControlSend("[CLASS:RwAppClass]", "", "", "{^}")
	$BAR = 4
	ControlSend("[CLASS:RwAppClass]", "", "", "{TAB}")
EndFunc
Func STOP1()
	WinSetTitle("[CLASS:RwAppClass]", "", "Archlord Bot paused")
	MsgBox(4096, "Info", "Bot gestoppt", 1)
	If ($BAR = 2) Then
		ControlSend("[CLASS:RwAppClass]", "", "", "{^}")
		ControlSend("[CLASS:RwAppClass]", "", "", "{^}")
		ControlSend("[CLASS:RwAppClass]", "", "", "{^}")
		$BAR = 1
	EndIf
	If ($BAR = 3) Then
		ControlSend("[CLASS:RwAppClass]", "", "", "{^}")
		ControlSend("[CLASS:RwAppClass]", "", "", "{^}")
		$BAR = 1
	EndIf
	If ($BAR = 4) Then
		ControlSend("[CLASS:RwAppClass]", "", "", "{^}")
		$BAR = 1
	EndIf
	$STOP = True
	$COUNTER = 0
EndFunc
Func EXIT1()
	_GDIPlus_GraphicsDispose($A)
	_GDIPlus_Shutdown()
	FileDelete("C:\Users\Public\a.png")
	Exit
EndFunc
While 1
	Sleep(100)
WEnd
11/20/2011 17:50 kingkevin96#2
Yousay have fun with my bot and you give us a code to a bot...

C'mon m8 such a little liar you are. But one thing is good. No leechers will try it out cause most of the lechers are to retarded to understand what that is :) But GJ m8

#//approved
11/25/2011 21:00 Cyberghost77#3
'mon m8 such a little liar you are.

mad ? idot -.- whats wrong ?