Auto-Relogin + Bot AutoIt

[jakeey]

kan mir wer bitte kurz erklären wie das prog funkt ? und was ich beachten msus in deutsch kommesh nicht ganz klar so wie ichs gern hät ^^

[ananhvu]

No one can do this ? T_T Help me please T_T
I need scrip bot for autoIT

[xcode3x]

i can't send key into a game but in notepad it's work
tell me ....
bacause i try to write script by this idea.

[ananhvu]

This is my script but it's doesn't work . I don't know why , can anybody help me fix it ? T_T

Global Const $GUI_EVENT_CLOSE = -3
Global Const $GUI_CHECKED = 1
Global Const $GUI_UNCHECKED = 4


Const $HP_Color = 0xF98466
Const $MOB_Color = 0xD43218
Const $COMBO_Color = 0xFFC6C6
Const $COMBO_EMPTY_X = 436
Const $COMBO_EMPTY_Y = 45
Const $MOB_EMPTY_X = 355
Const $MOB_EMPTY_Y = 18
Const $HP_EMPTY_X = 54
Const $HP_EMPTY_Y = 29
Const $short_key = "1|2|3|4|5|6|7|8|9|0| |"
Const $short_key_HP = "1|2|3|4|5|6|7|8|9|0| |"
Const $short_key_COMBO = "1|2|3|4|5|6|7|8|9|0| |"
Const $short_key_attack = "1|2|3|4|5|6|7|8|9|0| |"

Dim $startIT = False
Dim $auto_HP = True
Dim $auto_COMBO = False
Dim $auto_attack = False
Dim $SKILL_ATT_1 = 1
Dim $SKILL_ATT_2 = 2
Dim $SKILL_ATT_3 = 3
Dim $SKILL_ATT_4 = 4
Dim $SKILL_COMBO_1 = 1
Dim $SKILL_COMBO_2 = 2
Dim $SKILL_COMBO_3 = 3
Dim $SKILL_COMBO_4 = 4
Dim $keyHP = 5
Dim $HPdeg = 70
Dim $HPlength = 144

Func setKeys()
HotKeySet("{F5}","startIt")
HotKeySet("{F6}","stopIt")
HotKeySet("{F7}","stopcombo")
EndFunc

Func startIt()
$startIT = True
ToolTip("Bat dau Auto",0,0)
EndFunc
Func stopIt()
$auto_HP = False
$auto_COMBO = False
$auto_attack = False
$startIt = False
ToolTip("Dung Auto",0,0)
EndFunc

Func stopcombo()
$auto_COMBo = False
ToolTip("Dung Combo",0,0)
EndFunc

Func terminateIt()
Exit 0
EndFunc

Func CheckMobSelected()

$color_mob = PixelGetColor($MOB_EMPTY_X, $MOB_EMPTY_Y)

If $color_mob = $MOB_COLOR Then
Return True
Else
Return False
EndIf

EndFunc

;Func CheckComboSelected()

; $color_combo = PixelGetColor($COMBO_EMPTY_X, $COMBO_EMPTY_Y)

; If $color_combo = $COMBO_COLOR Then
; Return True
; Else
; Return False
; EndIf
;EndFunc

Func showGUI()
Local $gui_hWnd = GUICreate("Tu buff Cabal v1.01",265,230)

GuiCtrlCreateTab(0, 0, 265, 200)
GuiCtrlCreateTabItem("Auto HP")

Local $gui_HP_check = GUICtrlCreateCheckbox("Auto HP",20,65)
If ($auto_HP == True) Then
GUICtrlSetState($gui_HP_check,$GUI_CHECKED)
Else
GUICtrlSetState($gui_HP_check,$GUI_UNCHECKED)
EndIf


GUICtrlCreateLabel("Tu dong bom mau:",10,90)
GUICtrlCreateLabel("Phim tat:",10,105)
Local $gui_key_HP = GUICtrlCreateCombo($keyHP,10,120,40)
GUICtrlSetData($gui_key_HP,$short_key_HP,$keyHP)

GUICtrlCreateLabel("% mau <",70,105)
Local $gui_input_HP = GUICtrlCreateInput ($HPdeg,70,120,40)
Local $gui_deg_HP = GUICtrlCreateUpdown($gui_input_HP)


GuiCtrlCreateTabItem("Auto Skill")

Local $gui_attack_check = GUICtrlCreateCheckbox("Auto Skill",50,25)
If ($auto_attack == True) Then
GUICtrlSetState($gui_attack_check,$GUI_CHECKED)
Else
GUICtrlSetState($gui_attack_check,$GUI_UNCHECKED)
EndIf

GUICtrlCreateLabel("Skill 1 :",50,55)
GUICtrlCreateLabel("Phim tat:",130,55)
Local $gui_attack_phep1 = GUICtrlCreateCombo($SKILL_ATT_1,180,50,30)
GUICtrlSetData($gui_attack_phep1,$short_key_attack ,$SKILL_ATT_1)

GUICtrlCreateLabel("Skill 2:",50,85)
GUICtrlCreateLabel("phim tat:",130,85)
Local $gui_attack_phep2 = GUICtrlCreateCombo($SKILL_ATT_2,180,80,30)
GUICtrlSetData($gui_attack_phep2,$short_key_attack ,$SKILL_ATT_2)

GUICtrlCreateLabel("Skill 3:",50,115)
GUICtrlCreateLabel("phim tat:",130,115)
Local $gui_attack_phep3 = GUICtrlCreateCombo($SKILL_ATT_3,180,110,30)
GUICtrlSetData($gui_attack_phep3,$short_key_attack ,$SKILL_ATT_3)

GUICtrlCreateLabel("Skill 4:",50,145)
GUICtrlCreateLabel("phim tat:",130,145)
Local $gui_attack_phep4 = GUICtrlCreateCombo($SKILL_ATT_4,180,140,30)
GUICtrlSetData($gui_attack_phep4,$short_key_attack ,$SKILL_ATT_4)


GuiCtrlCreateTabItem("Auto Combo")

Local $gui_auto_combo_check = GUICtrlCreateCheckbox("Auto Combo",70,30)
If ($auto_combo == True) Then
GUICtrlSetState($gui_auto_combo_check,$GUI_CHECKED )
Else
GUICtrlSetState($gui_auto_combo_check,$GUI_UNCHECK ED)
EndIf

GUICtrlCreateLabel("Phep 1:",50,70)
GUICtrlCreateLabel("phim tat:",110,70)
Local $gui_key_skill1 = GUICtrlCreateCombo($SKILL_COMBO_1,170,65,30)
GUICtrlSetData($gui_key_skill1,$short_key,$SKILL_C OMBO_1)

GUICtrlCreateLabel("Phep 2:",50,100)
GUICtrlCreateLabel("phim tat:",110,100)
Local $gui_key_skill2 = GUICtrlCreateCombo($SKILL_COMBO_2,170,95,30)
GUICtrlSetData($gui_key_skill2,$short_key,$SKILL_C OMBO_2)

GUICtrlCreateLabel("Phep 3:",50,130)
GUICtrlCreateLabel("phim tat:",110,130)
Local $gui_key_skill3 = GUICtrlCreateCombo($SKILL_COMBO_3,170,125,30)
GUICtrlSetData($gui_key_skill3,$short_key,$SKILL_C OMBO_3)

GUICtrlCreateLabel("Phep 4:",50,160)
GUICtrlCreateLabel("phim tat:",110,160)
Local $gui_key_skill4 = GUICtrlCreateCombo($SKILL_COMBO_4,170,155,30)
GUICtrlSetData($gui_key_skill4,$short_key,$SKILL_C OMBO_4)


GuiCtrlCreateTabItem("")
Local $gui_save_data = GUICtrlCreateButton("SAVE",0,200,265,30)

GuiSetState(@SW_SHOW)

While (1)


$msg = GUIGetMsg()
Select
Case $msg = $gui_save_data
If (GUICtrlRead($gui_HP_check)==$GUI_UNCHECKED) Then
$auto_HP = False
Else
$auto_HP = True
EndIf

If (GUICtrlRead($gui_attack_check)==$GUI_UNCHECKED) Then
$auto_attack = False
Else
$auto_attack = True
EndIf
If (GUICtrlRead($gui_auto_combo_check)==$GUI_UNCHECKE D) Then
$auto_combo = False
Else
$auto_combo = True
EndIf
$keyHP = GUICtrlRead($gui_key_HP)
$HPdeg = GUICtrlRead($gui_input_HP)
$SKILL_ATT_1 = GUICtrlRead($gui_attack_phep1)
$SKILL_ATT_2 = GUICtrlRead($gui_attack_phep2)
$SKILL_ATT_3 = GUICtrlRead($gui_attack_phep3)
$SKILL_ATT_4 = GUICtrlRead($gui_attack_phep4)
$SKILL_COMBO_1 = GUICtrlRead($gui_key_skill1)
$SKILL_COMBO_2 = GUICtrlRead($gui_key_skill2)
$SKILL_COMBO_3 = GUICtrlRead($gui_key_skill3)
$SKILL_COMBO_4 = GUICtrlRead($gui_key_skill4)


Case $msg = $GUI_EVENT_CLOSE
terminateIt()
ExitLoop
EndSelect


If ($startIt == True) Then
If ($auto_attack == True) Then
AutoAtt()
EndIf
If ($auto_HP == True) Then
$HP_Color_Now = PixelGetColor($HP_EMPTY_X + $HPlength*$HPdeg/100 , $HP_EMPTY_Y)
If Not ($HP_Color_Now == $HP_Color) Then
ControlSend("CABAL","","" ,$keyHP)
Sleep(5)
EndIf
EndIf

;If ($auto_COMBO == True) Then
; If CheckComboSelected() Then AutoCombo()
;EndIf

EndIf

WEnd
GUIDelete()
terminateIt()


EndFunc


Func AutoAtt()
If ($auto_attack == True) Then
ControlSend("CABAL","","" ,$SKILL_ATT_1)
Opt("SendKeyDelay", 5)
ControlSend("CABAL","","" ,$SKILL_ATT_2)
Opt("SendKeyDelay", 5)
ControlSend("CABAL","","",$SKILL_ATT_3)
Opt("SendKeyDelay", 5)
ControlSend("CABAL","","" ,$SKILL_ATT_4)
Sleep(5)
EndIf
EndFunc

Func AutoCombo()
;If ($auto_COMBO == True) Then
; Send($SKILL_COMBO_1)
; Opt("SendKeyDelay", 5)
; Send($SKILL_COMBO_2)
; Opt("SendKeyDelay", 5)
; Send($SKILL_COMBO_3)
; Opt("SendKeyDelay", 5)
; Send($SKILL_COMBO_4)
; Sleep(5)
;EndIf
EndFunc




setKeys()
showGUI()

[ananhvu]

1. It can't find colour in Client ==> AUTOIT can't find and see it
2. Send KEY got problem . Send 1, 2,3 ,4 nothing happend T_T

[xcode3x]

yes i too,but i can send one key only or one series key

examle
1 fire skill 1
2 fire skill 2
3 fire skill 3
4 fire skill 4
---- after this it not happend


who is know with is case?
tell mee
and how to send the key ?

[koonami]

anh vu tui cung la nguoi viet nam ne` ban co' ban? auto bot autoit a ban. co the huong dan minh su dung no duoc ko . yahoo : mienbanggia_us thanks

[koonami]

cho minh cai bo script nha tu tim muc tieu danh

[St!gmata]

koonami this is an english thread... when will you check it? >.<

[ananhvu]

Originally Posted by St!gmata

koonami this is an english thread... when will you check it? >.<

Help me pls I don't know why script not work T_T

[bestwishes]

autoit cant be use because X-Trap blocked, dont try anymore .except u can bypass xtrap.
I need a program to target mod, anybody know ??

[whity555]

**** WE DONT HAVE ANY BYPASS FOR YOUR **** XTRAP AND NOW GO TO HELL >.<
You are suxx so many. I HATE YOU ALL **** n4ps -.- AHHHHHHHHHHHHHRRRRRR
I hope you understand it...

[St!gmata]

*sigh* whity i think u missunderstood it...
he searchs a programm to target a mob. and he already knows that x-trap blocks hacks...
i mean he searchs something like joy2key. an undetected prog.

@bestwishes: yea i´m searching such a programm to combine it with joy2key.

[whity555]

they all are gay... and now blub!

[ananhvu]

WTF why's you guys say that ?
With this script , i can send key 2-3 in cabal and X-trap don't block it

Dim $StartIt = False
Dim $AutoAtt = False
Dim $start

Sleep(2000)
ControlClick("CABAL", "" , "" , "right" , 1 ,90 ,690 )
Sleep(590)
do
AutoAtt()
Until 0


Func AutoAtt()
Sleep(886)
ControlClick("CABAL","","","right", 1 , 130 , 690 )
Sleep(886)
ControlClick("CABAL", "" , "" , "right" , 1 ,170 ,690 )
Sleep(886)
ControlClick("CABAL","","","right", 1 , 130 , 690 )
Sleep(886)
ControlClick("CABAL", "" , "" , "right" , 1 ,170 ,690 )
Sleep(886)
ControlClick("CABAL","","","right", 1 , 130 , 690 )
Sleep(886)
ControlClick("CABAL", "" , "" , "right" , 1 ,170 ,690 )
Sleep(886)
ControlClick("CABAL","","","right", 1 , 130 , 690 )
Sleep(886)
ControlClick("CABAL", "" , "" , "right" , 1 ,170 ,690 )
Sleep(886)
ControlClick("CABAL","","","right", 1 , 130 , 690 )
Sleep(886)
ControlClick("CABAL", "" , "" , "right" , 1 ,170 ,690 )
Sleep(886)
ControlClick("CABAL","","","right", 1 , 130 , 690 )
Sleep(886)
ControlClick("CABAL", "" , "" , "right" , 1 ,170 ,690 )
Sleep(886)
ControlClick("CABAL","","","right", 1 , 130 , 690 )
Sleep(886)
ControlClick("CABAL", "" , "" , "right" , 1 ,170 ,690 )
Sleep(886)
ControlClick("CABAL","","","right", 1 , 130 , 690 )
Sleep(886)
ControlClick("CABAL", "" , "" , "right" , 1 ,170 ,690 )
Sleep(886)
ControlClick("CABAL","","","right", 1 , 130 , 690 )
Sleep(886)
ControlClick("CABAL", "" , "" , "right" , 1 ,170 ,690 )
Sleep(886)
ControlClick("CABAL","","","right", 1 , 130 , 690 )
Sleep(886)
ControlClick("CABAL", "" , "" , "right" , 1 ,170 ,690 )
Sleep(886)
ControlClick("CABAL","","","right", 1 , 130 , 690 )
Sleep(886)
ControlClick("CABAL", "" , "" , "right" , 1 ,170 ,690 )
Sleep(886)
ControlClick("CABAL","","","right", 1 , 130 , 690 )
Sleep(886)
ControlClick("CABAL", "" , "" , "right" , 1 ,170 ,690 )
Sleep(886)
ControlClick("CABAL","","","right", 1 , 130 , 690 )
Sleep(886)
ControlClick("CABAL", "" , "" , "right" , 1 ,170 ,690 )
Sleep(886)
ControlClick("CABAL","","","right", 1 , 130 , 690 )
Sleep(886)
ControlClick("CABAL", "" , "" , "right" , 1 ,170 ,690 )
Sleep(886)
ControlClick("CABAL","","","right", 1 , 130 , 690 )
Sleep(886)
ControlClick("CABAL", "" , "" , "right" , 1 ,170 ,690 )
Sleep(886)
ControlClick("CABAL","","","right", 1 , 130 , 690 )
Sleep(886)
ControlClick("CABAL", "" , "" , "right" , 1 ,170 ,690 )
Sleep(886)
ControlClick("CABAL","","","right", 1 , 130 , 690 )
Sleep(886)
ControlClick("CABAL", "" , "" , "right" , 1 ,170 ,690 )
Sleep(886)
ControlClick("CABAL","","","right", 1 , 130 , 690 )
Sleep(886)
ControlClick("CABAL", "" , "" , "right" , 1 ,170 ,690 )
Sleep(886)
ControlClick("CABAL","","","right", 1 , 130 , 690 )
Sleep(886)
ControlClick("CABAL", "" , "" , "right" , 1 ,170 ,690 )
Sleep(886)
ControlClick("CABAL","","","right", 1 , 130 , 690 )
Sleep(886)
ControlClick("CABAL", "" , "" , "right" , 1 ,170 ,690 )
Sleep(886)
ControlClick("CABAL","","","right", 1 , 130 , 690 )
Sleep(886)
ControlClick("CABAL", "" , "" , "right" , 1 ,170 ,690 )
Sleep(886)
ControlClick("CABAL","","","right", 1 , 130 , 690 )
Sleep(886)
ControlClick("CABAL", "" , "" , "right" , 1 ,170 ,690 )
Sleep(886)
ControlClick("CABAL","","","right", 1 , 130 , 690 )
Sleep(886)
ControlClick("CABAL", "" , "" , "right" , 1 ,170 ,690 )
Sleep(886)
ControlClick("CABAL","","","right", 1 , 130 , 690 )
Sleep(886)
ControlClick("CABAL", "" , "" , "right" , 1 ,170 ,690 )
Sleep(886)
ControlClick("CABAL","","","right", 1 , 130 , 690 )
Sleep(886)
ControlClick("CABAL", "" , "" , "right" , 1 ,170 ,690 )
Sleep(886)
ControlClick("CABAL","","","right", 1 , 130 , 690 )
Sleep(886)
ControlClick("CABAL", "" , "" , "right" , 1 ,170 ,690 )
Sleep(886)
ControlClick("CABAL","","","right", 1 , 130 , 690 )
Sleep(886)
ControlClick("CABAL", "" , "" , "right" , 1 ,170 ,690 )
Sleep(886)
ControlClick("CABAL","","","right", 1 , 130 , 690 )
Sleep(886)
ControlClick("CABAL", "" , "" , "right" , 1 ,170 ,690 )
Sleep(886)
ControlClick("CABAL","","","right", 1 , 130 , 690 )
Sleep(886)
ControlClick("CABAL", "" , "" , "right" , 1 ,170 ,690 )
Sleep(886)
ControlClick("CABAL","","","right", 1 , 130 , 690 )
Sleep(886)
ControlClick("CABAL", "" , "" , "right" , 1 ,170 ,690 )
Sleep(886)
ControlClick("CABAL","","","right", 1 , 130 , 690 )
Sleep(886)
ControlClick("CABAL", "" , "" , "right" , 1 ,170 ,690 )
Sleep(886)
ControlClick("CABAL","","","right", 1 , 130 , 690 )
Sleep(886)
ControlClick("CABAL", "" , "" , "right" , 1 ,170 ,690 )
Sleep(886)
ControlClick("CABAL","","","right", 1 , 130 , 690 )
Sleep(886)
ControlClick("CABAL", "" , "" , "right" , 1 ,170 ,690 )
Sleep(886)
ControlClick("CABAL","","","right", 1 , 130 , 690 )
Sleep(886)
ControlClick("CABAL", "" , "" , "right" , 1 ,170 ,690 )
Sleep(886)
ControlClick("CABAL","","","right", 1 , 130 , 690 )
Sleep(886)
ControlClick("CABAL", "" , "" , "right" , 1 ,170 ,690 )
Sleep(886)
ControlClick("CABAL","","","right", 1 , 130 , 690 )
Sleep(886)
ControlClick("CABAL", "" , "" , "right" , 1 ,170 ,690 )
Sleep(886)
ControlClick("CABAL","","","right", 1 , 130 , 690 )
Sleep(886)
ControlClick("CABAL", "" , "" , "right" , 1 ,170 ,690 )
Sleep(886)
ControlClick("CABAL","","","right", 1 , 130 , 690 )
Sleep(886)
ControlClick("CABAL", "" , "" , "right" , 1 ,170 ,690 )
Sleep(886)
ControlClick("CABAL","","","right", 1 , 130 , 690 )
Sleep(886)
ControlClick("CABAL", "" , "" , "right" , 1 ,170 ,690 )
Sleep(886)
ControlClick("CABAL","","","right", 1 , 130 , 690 )
Sleep(886)
ControlClick("CABAL", "" , "" , "right" , 1 ,170 ,690 )
Sleep(886)
ControlClick("CABAL","","","right", 1 , 130 , 690 )
Sleep(886)
ControlClick("CABAL", "" , "" , "right" , 1 ,170 ,690 )
Sleep(886)
ControlClick("CABAL","","","right", 1 , 130 , 690 )
Sleep(886)
ControlClick("CABAL", "" , "" , "right" , 1 ,170 ,690 )
Sleep(886)
ControlClick("CABAL","","","right", 1 , 130 , 690 )
Sleep(886)
ControlClick("CABAL", "" , "" , "right" , 1 ,170 ,690 )
Sleep(886)
ControlClick("CABAL","","","right", 1 , 130 , 690 )
Sleep(886)
ControlClick("CABAL", "" , "" , "right" , 1 ,170 ,690 )



EndFunc