Arka Planda Çalışan Bot ve AutoPot (Petlere pot basar)
2 posters
Author
Message
silkroadlife
Subject: Arka Planda Çalışan Bot ve AutoPot (Petlere pot basar) Thu Sep 10, 2009 8:31 pm
Burdaki tüm programlar arka planda çalışır Bot seri kasar buff basar fakat yerden bişey toplamaz AutoPot chara Pot Pill basar ve petlere binek hayvanlarına pot basar
Arka Planda Çalışan Bot Tüm yaziyi Görmek için Buraya Tıklayin
lolkop finalini yaptı buglardan arınmış tüm özellikleri eklenmiş botu bizlerin hizmetine sundu (Sunworld ve ecsroda çalışır)
While 1 Switch GUIGetMsg() Case -3 Exit Case $buf_add $child = GUICreate("Add Buff", 100, 150, -1, -1, 0x10000000, 0x88) GUICtrlCreateLabel("Belt:", 5, 13) $child_belt = GUICtrlCreateCombo("", 45, 10, 40, -1, 3) GUICtrlSetData(-1, "F1|F2|F3|F4", "F1") GUICtrlCreateLabel("Slot:", 5, 43) $child_slot = GUICtrlCreateCombo("", 45, 40, 40, -1, 3) GUICtrlSetData(-1, "0|1|2|3|4|5|6|7|8|9", 1) GUICtrlCreateLabel("Delay:", 5, 73) $child_delay = GUICtrlCreateInput(100, 45, 70, 40) $child_buf_ok = GUICtrlCreateButton("OK", 5, 100, 85, 20, 1) Case $child_buf_ok GUICtrlCreateListViewItem(GUICtrlRead($child_belt) &"|"&GUICtrlRead($child_slot)&"|"&GUICtrlRead($chi ld_delay), $buf) GUIDelete($child) Case $buf_del _GUICtrlListView_DeleteItemsSelected($buf) Case $atk_add $child = GUICreate("Add Attack Skill", 100, 120, -1, -1, 0x10000000, 0x88) GUICtrlCreateLabel("Belt:", 5, 13) $child_belt = GUICtrlCreateCombo("", 45, 10, 40, -1, 3) GUICtrlSetData(-1, "F1|F2|F3|F4", "F1") GUICtrlCreateLabel("Slot:", 5, 43) $child_slot = GUICtrlCreateCombo("", 45, 40, 40, -1, 3) GUICtrlSetData(-1, "0|1|2|3|4|5|6|7|8|9", 1) $child_atk_ok = GUICtrlCreateButton("OK", 5, 70, 85, 20, 1) Case $child_atk_ok GUICtrlCreateListViewItem(GUICtrlRead($child_belt) &"|"&GUICtrlRead($child_slot), $atk) GUIDelete($child) Case $atk_del _GUICtrlListView_DeleteItemsSelected($atk) Case $refresh CharList() ini() Case $start FileDelete(GUICtrlRead($char)&".ini") For $i=0 To _GUICtrlListView_GetItemCount($atk)-1 IniWrite(GUICtrlRead($char)&".ini", "atk_skill", $i+1, _GUICtrlListView_GetItemTextString($atk, $i)) Next For $i=0 To _GUICtrlListView_GetItemCount($buf)-1 IniWrite(GUICtrlRead($char)&".ini", "buf_skill", $i+1, _GUICtrlListView_GetItemTextString($buf, $i)) Next $run = True Case $stop $run = False Case $char ini() Case Else If $run Then bot(GUICtrlRead($char)) EndSwitch Switch TrayGetMsg() Case - 13 Tray() EndSwitch WEnd
Func bot($charname) $buff_skill = IniReadSection($charname&".ini", "buf_skill") If IsArray($buff_skill) And $buff_skill[0][0]<>0 Then For $i=1 To $buff_skill[0][0] $string = StringSplit($buff_skill[$i][1], "|") Buff($charname, $string[1], $string[2], $string[3]) Next EndIf $attack_skill = IniReadSection($charname&".ini", "atk_skill") If IsArray($attack_skill) And $attack_skill[0][0]<>0 Then For $i=1 To $attack_skill[0][0] $string = StringSplit($attack_skill[$i][1], "|") Skill($charname, $string[1], $string[2]) Next EndIf EndFunc
Func CharList() $list = WinList("[CLASS:CLIENT]") For $i=1 To $list[0][0] Local $mid = memopen(WinGetProcess($list[$i][1])) Local $name = memread($mid, $swsroCharname, 'char[12]') If $name<>'' Then GUICtrlSetData($char, $name, $name) Local $name = memread($mid, $ecsroCharname, 'char[12]') If $name<>'' Then GUICtrlSetData($char, $name, $name) memclose($mid) Next EndFunc
Func GetHandle($charname) Local $list = WinList("[CLASS:CLIENT]") For $i=1 To $list[0][0] Local $mid = memopen(WinGetProcess($list[$i][1])) Local $name = memread($mid, $swsroCharname, 'char[12]') If $name = $charname Then memclose($mid) Return $list[$i][1] EndIf Local $name = memread($mid, $ecsroCharname, 'char[12]') If $name = $charname Then memclose($mid) Return $list[$i][1] EndIf memclose($mid) Next EndFunc
Func SendSro($handle, $key) Switch $key Case "F1" $k = 0x70 Case "F2" $k = 0x71 Case "F3" $k = 0x72 Case "F4" $k = 0x73 Case Else $k = 0x30+$key EndSwitch For $i=1 To 5 DllCall("User32.dll", "int", "PostMessageA", "hwnd", $handle, "int", 0x100, "int", $k, "int", 0) DllCall("User32.dll", "int", "PostMessageA", "hwnd", $handle, "int", 0x101, "int", $k, "int", 0) Next EndFunc
Func ini() _GUICtrlListView_DeleteAllItems($atk) _GUICtrlListView_DeleteAllItems($buf) If FileExists(GUICtrlRead($char)&".ini") Then $section = IniReadSection(GUICtrlRead($char)&".ini", "atk_skill") For $i=1 To $section[0][0] GUICtrlCreateListViewItem($section[$i][1], $atk) Next $section = IniReadSection(GUICtrlRead($char)&".ini", "buf_skill") For $i=1 To $section[0][0] GUICtrlCreateListViewItem($section[$i][1], $buf) Next EndIf EndFunc
Subject: Arka Planda Çalışan Bot ve AutoPot (Petlere pot basar) 
