potar

dajcie mi kod to ukończe...

Ja właśnie kończe swojego ;p Działa w 100% bez ani jednego błędu może pracować 24/7 i można odpalić do 10 multikont. Takiego systemu bota jeszcze nikt nie pisał oprócz mnie. Pseudo boty które tworzyli działały na zasadzie _IE / _FF czyli wymagały przeglądarki a moja nic z tych rzeczy. Wysyła pakiety danych wprost poprzez program i w 1/2 sek sie luguje i np trenuje calość trwa jakieś 2 sekundy Nibawem opublikuję ale nie mam kodów, tak jak napisałem w poprzednim temacie moim ;p w tym dziale.

Znalazłem troche skryptów na kompie ze starych czasów, tego pisałem dla e***pvpers.de działa jako patcher + autologin. Nie mam co z nimi zrobić dlatego zamieszczam je tutaj Dla zielonych mogą tu znaleźć dość ciekawe rozwiązania i przykłady mem load / send (write) oraz dość ciekawe GUI. Jak działa? Odpalasz silkroad grę paczujesz ją przyciskiem Patch oraz wpsiujesz passy klikasz autologin który sam klika co chyba 3 sekundy enter ;p Patch: NoDC Swearfilter Zoomhack English - dla chińskich wersji Nudepatch - zrobiłem dla jaj Range Patchowanie działa zarówno na prywatach jak i na globalu ;p Dobrej zabawy, Potar #Region ;**** Directives created by AutoIt3Wrapper_GUI **** #AutoIt3Wrapper_Compression=4 #AutoIt3Wrapper_Res_Comment=Silkroad Tool #AutoIt3Wrapper_Res_Description=Silkroad Online Tool #AutoIt3Wrapper_Res_Fileversion=1.0.0.0 #AutoIt3Wrapper_Res_LegalCopyright=Potar (Potarski) Boty24.pl #AutoIt3Wrapper_Run_Tidy=y #AutoIt3Wrapper_Run_Obfuscator=y #EndRegion ;**** Directives created by AutoIt3Wrapper_GUI **** #include <ButtonConstants.au3> #include <EditConstants.au3> #include <GUIConstantsEx.au3> #include <StaticConstants.au3> #include <WindowsConstants.au3> #include <NomadMemory.au3> #include <WindowsConstants.au3> #Region ### START Koda GUI section ### Form= $Form1_1 = GUICreate("Silkroad Tool v.1.00 by Potar", 554, 197, 304, 583) GUISetBkColor(0xFFFFFF) $Group1 = GUICtrlCreateGroup("Silkroad Patcher", 8, 8, 161, 177) $nodc = GUICtrlCreateCheckbox("No DC Patch", 16, 80, 97, 17) GUICtrlSetState(-1, 1) GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif") $noswear = GUICtrlCreateCheckbox("Swear Filter", 16, 96, 105, 17) GUICtrlSetState(-1, 1) GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif") $zoomhack = GUICtrlCreateCheckbox("Zoom Hack", 16, 112, 97, 17) GUICtrlSetState(-1, 1) GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif") $english = GUICtrlCreateCheckbox("English Patch", 16, 128, 113, 17) GUICtrlSetState(-1, 1) GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif") $nudepatch = GUICtrlCreateCheckbox("Nude Patch", 16, 144, 105, 17) GUICtrlSetState(-1, 1) GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif") $range = GUICtrlCreateCheckbox("Range Patch", 16, 160, 113, 17) GUICtrlSetState(-1, 1) GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif") $Button1 = GUICtrlCreateButton("Patch", 16, 32, 139, 41, $WS_GROUP) GUICtrlSetFont(-1, 17, 400, 0, "MS Sans Serif") GUICtrlCreateGroup("", -99, -99, 1, 1) $Edit1 = GUICtrlCreateList("", 184, 16, 185, 169) $Group2 = GUICtrlCreateGroup("Silkroad Auto Login", 384, 8, 161, 129) $Button2 = GUICtrlCreateButton("Start", 392, 32, 139, 41, $WS_GROUP) GUICtrlSetFont(-1, 17, 400, 0, "MS Sans Serif") $exitt = GUICtrlCreateButton("Exit", 392, 80, 139, 41, $WS_GROUP) GUICtrlSetFont(-1, 17, 400, 0, "MS Sans Serif") GUICtrlCreateGroup("", -99, -99, 1, 1) $about = GUICtrlCreateButton("About Silkroad Tool", 392, 144, 139, 41, $WS_GROUP) GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif") GUISetState(@SW_SHOW) #EndRegion ### END Koda GUI section ### Global $client = "SRO_Client" $PID = WinGetProcess($client) Global $hprocess = _MemoryOpen($PID) Global $hwnd = WinGetHandle($client) While 1 $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE Exit Case $exitt GUICtrlSetData($Edit1, "You are close silkroad tool bye.") Sleep(2000) Exit Case $about #Region --- CodeWizard generated code Start --- ;MsgBox features: Title=Yes, Text=Yes, Buttons=OK, Icon=Info MsgBox(64, "About Silkroad Tool", "Silkroad Pather (Process Pather) by Potar modyfication by lolkop" & @CRLF & @CRLF & "Silkroad Auto Login (Auto Connect) by Potar" & @CRLF & @CRLF & "Desing by Potar" & @CRLF & @CRLF & "Created for elitepvpers.de") #EndRegion --- CodeWizard generated code Start --- Case $Button2 GUICtrlSetData($Edit1, @HOUR & ":" & @MIN & ":" & @SEC & " AutoLogin Is Running Now!") Sleep(2000) GUISetState(@SW_HIDE) TrayTip("Silkroad Tool", "If you need to pause autologin please press here!", 10, 4) Login() Case $Button1 $silkroad_exe = ProcessExists('sro_client.exe') If $silkroad_exe Then $list = ProcessList('sro_client.exe') For $I = 1 To $list[0][0] $mid = memopen($list[$I][1]) If GUICtrlRead($nodc) = 1 Then NoDC() If GUICtrlRead($noswear) = 1 Then Swearfilter() If GUICtrlRead($zoomhack) = 1 Then Zoomhack() If GUICtrlRead($english) = 1 Then English() If GUICtrlRead($nudepatch) = 1 Then Nudepatch() If GUICtrlRead($range) = 1 Then Range() If memread($mid, 0x65DBCD, 'byte[2]') = '0x7572' Then memwrite($mid, 0x65DBCD, 'EB') If memread($mid, 0x6325BC, 'byte[2]') = '0x751F' Then memwrite($mid, 0x6325BC, 'EB') If memread($mid, 0x632550, 'byte[2]') = '0x7547' Then memwrite($mid, 0x632550, 'EB') memclose($mid) Next $s = ProcessExists('silkroad.exe') If $s Then $mid = memopen($silkroad_exe) If memread($mid, 0x437E20, 'byte[2]') = '0x755E' Then memwrite($mid, 0x437E20, 'EB') If memread($mid, 0x437E9B, 'byte[2]') = '0x7566' Then memwrite($mid, 0x437E9B, 'EB') memclose($mid) EndIf GUICtrlSetData($Edit1, @HOUR & ":" & @MIN & ":" & @SEC & " Client has been patched!") Else GUICtrlSetData($Edit1, @HOUR & ":" & @MIN & ":" & @SEC & " Client not found!") EndIf EndSwitch WEnd Func Login() While 1 KeySend("RETURN") Sleep(4000) WEnd EndFunc ;==>Login Func NoDC() If memread($mid, 0x660C4C, 'byte[2]') = '0x84C0' Then memwrite($mid, 0x660C4C, '8B0D4899D3008B118B4214FFD05F83C410C3') EndFunc ;==>NoDC Func Swearfilter() If memread($mid, 0x4B809A, 'byte[2]') = '0x742F' Then memwrite($mid, 0x4B809A, 'EB') If memread($mid, 0x4DC424, 'byte[2]') = '0x744D' Then memwrite($mid, 0x4DC424, 'EB') If memread($mid, 0x5E2B23, 'byte[2]') = '0x7436' Then memwrite($mid, 0x5E2B23, 'EB') If memread($mid, 0x5FDF1B, 'byte[2]') = '0x0F84' Then memwrite($mid, 0x5FDF1B, 'E9BF00000090') EndFunc ;==>Swearfilter Func Zoomhack() If memread($mid, 0x5B9531, 'byte[2]') = '0x7A08' Then memwrite($mid, 0x5B9531, 'EB') If memread($mid, 0x5B951E, 'byte[2]') = '0x741D' Then memwrite($mid, 0x5B951E, 'EB') EndFunc ;==>Zoomhack Func English() If memread($mid, 0x633DE1, 'byte[2]') = '0x833D' Then memwrite($mid, 0x633DE1, 'E83A2BE6FFC7803801000001000000' & nop(38)) If memread($mid, 0x647187, 'byte[2]') = '0x7516' Then memwrite($mid, 0x647187, 'EB') If memread($mid, 0x64722D, 'byte[2]') = '0x7516' Then memwrite($mid, 0x64722D, nop(2)) EndFunc ;==>English Func Nudepatch() If memread($mid, 0x7B463D, 'byte[2]') = '0x0F85' Then memwrite($mid, 0x7B463D, 'E9E800000090') EndFunc ;==>Nudepatch Func Range() If memread($mid, 0x9F6A70, 'byte[4]') = '0x00008C42' Then memwrite($mid, 0x9F6A70, ReverseHex(FloatToHex(5000))) If memread($mid, 0x9CA078, 'byte[4]') = '0x00004842' Then memwrite($mid, 0x9CA078, ReverseHex(FloatToHex(5000))) EndFunc ;==>Range Func memopen($PID) Local $mid = DllCall('kernel32.dll', 'int', 'OpenProcess', 'int', 0x1F0FFF, 'int', 1, 'int', $PID) Return $mid[0] EndFunc ;==>memopen Func memread($mid, $adress, $type = 'dword') Local $struct = DllStructCreate($type) DllCall('kernel32.dll', 'int', 'ReadProcessMemory', 'int', $mid, 'int', $adress, 'ptr', DllStructGetPtr($struct), 'int', DllStructGetSize($struct), 'int', '') Return DllStructGetData($struct, 1) EndFunc ;==>memread Func memwrite($mid, $adress, $hex) Local $struct = DllStructCreate('byte[' & BinaryLen('0x' & $hex) & ']') For $I = DllStructGetSize($struct) To 1 Step -1 DllStructSetData($struct, 1, BinaryMid('0x' & $hex, $I, 1), $I) Next Local $x = DllCall('kernel32.dll', 'int', 'VirtualProtectEx', 'int', $mid, 'ptr', $adress, 'int', DllStructGetSize($struct), 'dword', 0x40, 'dword*', 0) DllCall('kernel32.dll', 'int', 'WriteProcessMemory', 'int', $mid, 'int', $adress, 'ptr', DllStructGetPtr($struct), 'int', DllStructGetSize($struct), 'int', 0) DllCall('kernel32.dll', 'int', 'VirtualProtectEx', 'int', $mid, 'ptr', $adress, 'int', DllStructGetSize($struct), 'dword', $x[5], 'dword*', 0) EndFunc ;==>memwrite Func memclose($mid) DllCall('kernel32.dll', 'int', 'CloseHandle', 'int', $mid) EndFunc ;==>memclose Func nop($nr) Local $nop For $I = 1 To $nr $nop &= 90 Next Return $nop EndFunc ;==>nop Func FloatToHex($float) Local $a = DllCall('kernel32.dll', 'int', 'MulDiv', 'Float', $float, 'int', 1, 'int', 1) Return Hex($a[0]) EndFunc ;==>FloatToHex Func ReverseHex($hex) Local $x For $I = StringLen($hex) + 1 To 1 Step -2 $x &= StringMid($hex, $I, 2) Next Return $x EndFunc ;==>ReverseHex Func KeySend($inkey, $evt = "pressed", $kdown = 50) $user32 = DllOpen("user32.dll") If $user32 = -1 Then ConsoleWrite("KeySend: cannot open user32.dll") Exit EndIf ; handling for special keys Switch StringUpper($inkey) Case "@" $skey = 0x40 $lparam = 0x00100001 DllCall($user32, "int", "PostMessage", "hwnd", $hwnd, "int", $WM_KEYDOWN, "int", 0x71, "long", $lparam) DllCall($user32, "int", "PostMessage", "hwnd", $hwnd, "int", $WM_CHAR, "int", $skey, "long", $lparam) Sleep(20) DllCall($user32, "int", "PostMessage", "hwnd", $hwnd, "int", $WM_KEYUP, "int", 0x71, "long", BitOR($lparam, 0xC0000000)) Case "F1", "F2", "F3", "F4", "F5", "F6", "F7", "F8", "F9", "F10", "F11", "F12" $skey = 0x6f + Int(StringMid($inkey, 2)) ContinueCase Case "NUM0", "NUM1", "NUM2", "NUM3", "NUM4", "NUM5", "NUM6", "NUM7", "NUM8", "NUM9" If StringUpper(StringLeft($inkey, 3)) = "NUM" Then $skey = 0x60 + Int(StringMid($inkey, 4)) EndIf ContinueCase Case "RETURN", "SPACE", "TAB", "BACK", "END", "HOME", "SNAPSHOT", "INSERT", "DELETE", "LEFT", "RIGHT", "UP", "DOWN" Switch StringUpper($inkey) Case "RETURN" $skey = 0x0D EndSwitch $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, "long", $lparam) Sleep($kdown) DllCall($user32, "int", "PostMessage", "hwnd", $hwnd, "int", $WM_KEYUP, "int", $skey, "long", BitOR($lparam, 0xC0000000)) Case 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, "long", $lparam) Sleep($kdown) DllCall($user32, "int", "PostMessage", "hwnd", $hwnd, "int", $WM_KEYUP, "int", $skey, "long", BitOR($lparam, 0xC0000000)) Case $evt = "down" DllCall($user32, "int", "PostMessage", "hwnd", $hwnd, "int", $WM_KEYDOWN, "int", $skey, "long", $lparam) Case $evt = "up" DllCall($user32, "int", "PostMessage", "hwnd", $hwnd, "int", $WM_KEYUP, "int", $skey, "long", BitOR($lparam, 0xC0000000)) EndSelect EndSwitch DllClose($user32) EndFunc ;==>KeySend

NEW: 01:30 - 8:00 - wbijanie za 1 - 3 razem 9:00 - 11:00 - około 5-10min (albo pierwsze kliknięcia ;p mi sie czasem udaje i o 20:00 za 1 razem wbić) 12:00 - 19:00 - od 1 kliknięcia do 1h 20:00 - 01:00 - 5-30min

http://www.mpcforum.pl/topic/100370-tutkompilator/

Witam Jak w temacie szukam bota pod SJSRO gdyż nie działa np. sibiBot znaczy nie zaznacza potworów a wszystko inne robi, prosze nie mówić poszukaj sobie na forum gdzieś jest albo google się kłania gdyż to wszystki już sprawdziłem i nic nie działa albo bot albo virus, ogólnie tragedia. Szukam kogoś kto tam gra bądź grał a nie zobaczył tylko po temacie [sJRO itp] Bot i zara da linka że działa bo jak wspomniałem to juz sprawdzaiłem. Pozdro

Witam jak w temacie szukam odpowiedzi na to wg mnie trudne pytanie, gdyż niewiem co robić miałem już 1miesiąc srokinga i byłem zadowolony ale słysze ciągle że sbot jest lepszy. Proszę o uzasadnianie dlaczego akurat sbot jest lepszy, co ma takiego czego nie ma sroking i odwrotnie.Proszę powiedzieć w czym jest lepszy sbot bo neiwiem czy kupować konto OLD CUSTOMER. Do Moderatorów: Pozwoliłem sobie założyć temat w tym dziale gdyż nie będę umieszczał osobno w sroking i sbocie.

Off top I reklama serwisu. :P Poza tym ja się tu pytam o curla chłopcze i skończyłem już z Twoim tematem więc wydorośnij wkońcu... I to nie jest miesjce na takie sprawy to jest forum odpisz na gadu a nie tu na forum kozaczysz. @Topic To jak zna ktoś odp na mój pierwszy i drugi post? Czy jak wyznaczyło cookie to znaczy że niby pobrał sesje i się zalogował?

Dobra nie ja kradne pkt swoim zaśmieciałym botem <lol2> Poazatym nawt nie wiem o czym piszesz bo póki co nie mam strony <lol2> dopiero mam zamiar kupić domene chłopcze. Poza jego postem dam skrypta i może ktoś widzi jakiś błąd? Ja akurat błędu nie widze ale się poprostu nie loguje (wniosuje po dacie ostatniej wizyty x gracza) <?php $postFields['login'] = 'x'; $postFields['password'] = 'x'; $postFields['log_in'] = '1'; $ch = curl_init(); curl_setopt($ch, CURLOPT_URL, 'http://prisonwars.pl/index.php'); curl_setopt($ch, CURLOPT_USERAGENT, 'Opera/9.80 (Windows NT 5.1; U; pl) Presto/2.5.24 Version/10.53' ); curl_setopt ($ch, CURLOPT_POST, true); curl_setopt ($ch, CURLOPT_POSTFIELDS, $postFields); curl_setopt($ch, CURLOPT_COOKIEFILE, './'.$login.'.txt'); curl_setopt($ch, CURLOPT_COOKIEJAR,'./'.$login.'.txt'); curl_setopt ($ch, CURLOPT_RETURNTRANSFER, 1); $store = curl_exec ($ch); echo $store; //test ?> Chyba że się loguje ale nie wiem bo w cookie mam raport: # Netscape HTTP Cookie File # http://curl.haxx.se/rfc/cookie_spec.html # This file was generated by libcurl! Edit at your own risk. .prisonwars.pl TRUE / FALSE 0 PHPSESSID 940cd0d21gf0f57e21d8aefa75fd1e6c A matiszon jak masz na myśli ten skrypt kokosza to coś nie działa $loginstring = 'login=xxx&password=xxxxx&log_in=1'; $ch = curl_init(); curl_setopt($ch, CURLOPT_URL, 'http://www.prisonwars.pl'); curl_setopt ($ch, CURLOPT_POST, 1); curl_setopt ($ch, CURLOPT_POSTFIELDS, $loginstring); curl_setopt ($ch, CURLOPT_COOKIEJAR, dirname(__FILE__). "/tmp/".$login); curl_setopt($ch, CURLOPT_COOKIEFILE, dirname(__FILE__)."/tmp/".$login); curl_setopt ($ch, CURLOPT_RETURNTRANSFER, 1); $store = curl_exec ($ch); A propo Curl to wiem do czego jest a o wpisywanie wartości to sprawdziłem jak wpisuje: $store = curl_exec ($ch); echo $store; //test

Jak w temacie mam problem bo mój curl wprowadza dane tam gdzie nie trzeba. Gdyby rejestracja i logowanie były na oddzielnych stronach to by nie było problemu a takto niestety. Do tego chcę wprowadzać: <input type='text' name='login' class='loginForm' /> A do tego się wprowadza: <input type='text' name='login' class='registerForm' onChange='check' value=''> I przy skrpcie: $postFields['login'] = 'xxxxxxx'; curl_setopt ($ch, CURLOPT_POSTFIELDS, $postFields); Wprowadza do rejestracji a nie do loginu.

Proszę o usunięcie.

skasuj curl_close($curl); i dopisz poprostu Nie jestem pewien ale chyba zadziała Przykład: curl_setopt($curl, CURLOPT_URL, "podstrona"); curl_setopt( $curl, CURLOPT_USERAGENT, 'Opera/9.80 (Windows NT 5.1; U; pl) Presto/2.5.24 Version/10.53)' ); curl_setopt($ch, CURLOPT_COOKIEFILE, './cookie.txt'); curl_setopt($ch, CURLOPT_COOKIEJAR,'./cookie.txt'); curl_setopt ($curl, CURLOPT_RETURNTRANSFER, 1); curl_setopt ($curl, CURLOPT_POST, 1); curl_setopt ($curl, CURLOPT_POSTFIELDS, $string2); curl_close($curl);

xxx

xxx

Siema jak zrobić liste aby do wyboru były dwa słowa? Dwa słowa do wyboru? Drugi problem nie działa wybieranie Dymków ;/ Wlaczy czy nie a i tak pokazuje bocik. W gui: W pętli: W funkcjach: A Trzeci problem co mam tu nie tak? Ze nie działa Reszta jest dobrze czyli Petla główna, Gui (Checkbox).