Register for your free account! | Forgot your password?

You last visited: Today at 21:06

  • Please register to post and access all features, it's quick, easy and FREE!

Advertisement


[SWSRO][ZSZC] LOADER/BOT/AUTOPOT

Discussion on [SWSRO][ZSZC] LOADER/BOT/AUTOPOT within the SRO PServer Guides & Releases forum part of the SRO Private Server category.

Closed Thread
 
Old 01/05/2010, 13:08   #706
 
elite*gold: 0
Join Date: Jul 2009
Posts: 541
Received Thanks: 157
Quote:
Originally Posted by Zoloft View Post
The mp autopot (F4-0) doesnt work for me...

The client crashing all the way.
The problem is still the same..
Zoloft is offline  
Old 01/05/2010, 13:14   #707
 
elite*gold: 280
Join Date: May 2007
Posts: 2,818
Received Thanks: 3,483
Quote:
Originally Posted by Zoloft View Post
The problem is still the same..
maybe i get some time this evening. got to do my homework all the time and learn (exams soon) :/
lolkop is offline  
Old 01/05/2010, 14:18   #708
 
elite*gold: 0
Join Date: Dec 2007
Posts: 23
Received Thanks: 2
Maybe u will make command /alarm on private and /alarm on unique, most people writing to me bot and make screen.

Sry for bad english.
Epuls is offline  
Old 01/06/2010, 02:36   #709
 
elite*gold: 0
Join Date: Jan 2008
Posts: 371
Received Thanks: 69
Will you work on updating this to the new ecsro client please when u get a chance? That is if you have not already done that.
chris61292 is offline  
Old 01/06/2010, 07:46   #710
 
elite*gold: 280
Join Date: May 2007
Posts: 2,818
Received Thanks: 3,483
Quote:
Originally Posted by chris61292 View Post
Will you work on updating this to the new ecsro client please when u get a chance? That is if you have not already done that.
use the autoit loader till i've got silkmod updated (the autoit tools are still working)
lolkop is offline  
Old 01/06/2010, 10:17   #711
 
elite*gold: 0
Join Date: Dec 2008
Posts: 17
Received Thanks: 0
the autoloader doenst work on ECSRO patch from last night. 1.157 i thought... any1 has a asolution
Nieles is offline  
Old 01/06/2010, 10:32   #712
 
elite*gold: 0
Join Date: Jun 2007
Posts: 1,323
Received Thanks: 409
A suggestion to bot: disable bot when you get a pm
moderiz11 is offline  
Old 01/06/2010, 10:34   #713
 
elite*gold: 0
Join Date: Dec 2008
Posts: 17
Received Thanks: 0
well that doenst solve my problem!
Nieles is offline  
Old 01/06/2010, 11:47   #714
 
elite*gold: 0
Join Date: May 2008
Posts: 17
Received Thanks: 1
Quote:
#NoTrayIcon
Dim $hwnd, $sw=False, $ec=False, $my=False
$kernel32 = DllOpen('kernel32.dll')
$gui = GUICreate('Loader', 200, 255, -1, -1, 0x100A0000)
$nodc = GUICtrlCreateCheckbox('NoDC', 10, 10)
GUICtrlSetState(-1, 1)
$zoom = GUICtrlCreateCheckbox('Zoomhack', 10, 40)
GUICtrlSetState(-1, 1)
$swear = GUICtrlCreateCheckbox('Swearfilter', 10, 70)
GUICtrlSetState(-1, 1)
$select = GUICtrlCreateCheckbox('Select Range', 10, 100)
GUICtrlSetState(-1, 1)
$nude = GUICtrlCreateCheckbox('Nude', 100, 10)
GUICtrlSetState(-1, 1)
$english = GUICtrlCreateCheckbox('English Patch', 100, 40)
GUICtrlSetState(-1, 1)
$logo = GUICtrlCreateCheckbox('Logo Remove', 100, 70)
GUICtrlSetState(-1, 1)
$grap = GUICtrlCreateCheckbox('Grap Range', 100, 100)
GUICtrlSetState(-1, 1)
$id = GUICtrlCreateCombo('ID', 10, 130, 80)
$pw = GUICtrlCreateCombo('PW', 100, 130, 80)
$server = GUICtrlCreateCombo('Division1', 10, 160, 170, -1, 7)
GUICtrlSetData(-1, 'Division2|Division3|Division4')
$go = GUICtrlCreateButton('Launch', 200 / 2 - 75 / 2, 190, 70, 25)

If FileExists('loader.ini') Then
$logindata = IniReadSection('loader.ini', 'chars')
For $i = 1 To $logindata[0][0]
GUICtrlSetData($id, $logindata[$i][0])
GUICtrlSetData($pw, $logindata[$i][1])
Next
EndIf

While 1
Switch GUIGetMsg()
Case - 3
Exit
Case $go
go()
Exit
Case $id
If FileExists('loader.ini') Then
$logindata = IniReadSection('loader.ini', 'chars')
For $i = 1 To $logindata[0][0]
If GUICtrlRead($id) = $logindata[$i][0] Then GUICtrlSetData($pw, $logindata[$i][1])
Next
EndIf
EndSwitch
WEnd

Func go()
$_id = GUICtrlRead($id)
$_pw = GUICtrlRead($pw)
If GUICtrlRead($server) = 'Division1' Then
$pid = Run(@ScriptDir & '\sro_client.exe ' & '0 /4 0 0')
ElseIf GUICtrlRead($server) = 'Division2' Then
$pid = Run(@ScriptDir & '\sro_client.exe ' & '0 /4 1 0')
ElseIf GUICtrlRead($server) = 'Division3' Then
$pid = Run(@ScriptDir & '\sro_client.exe ' & '0 /4 2 0')
ElseIf GUICtrlRead($server) = 'Division4' Then
$pid = Run(@ScriptDir & '\sro_client.exe ' & '0 /4 3 0')
EndIf
;open memory handle
$mid = memopen($pid)
;mc
;ECSRO
If memread($mid, 0x633D00, 'byte[2]') = '0x7547' Then
memwrite($mid, 0x633D00, 'EB')
$ec=True
EndIf
If memread($mid, 0x633D6C, 'byte[2]') = '0x751F' Then
memwrite($mid, 0x633D6C, 'EB')
$ec=True
EndIf
;SWSRO
If memread($mid, 0x633180, 'byte[2]') = '0x7547' Then
memwrite($mid, 0x633180, 'EB')
$sw=True
EndIf
If memread($mid, 0x6331EC, 'byte[2]') = '0x751F' Then
memwrite($mid, 0x6331EC, 'EB')
$sw=True
EndIf
;SJSRO/MYSRO
If memread($mid, 0x5E2506, 'byte[2]') = '0x754A' Then
memwrite($mid, 0x5E2506, "EB")
$my=True
EndIf
If memread($mid, 0x5E2578, 'byte[2]') = '0x7522' Then
memwrite($mid, 0x5E2578, "EB")
$my=True
EndIf
;english as language
If GUICtrlRead($english) = 1 Then
;ECSRO
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))
;SWSRO
If memread($mid, 0x633261, 'byte[2]') = '0x833D' Then memwrite($mid, 0x633261, 'E8BA36E6FFC7803801000001000000' & nop(38))
If memread($mid, 0x6464A7, 'byte[2]') = '0x7516' Then memwrite($mid, 0x6464A7, 'EB')
If memread($mid, 0x64654D, 'byte[2]') = '0x7516' Then memwrite($mid, 0x64654D, nop(2))
EndIf
;nodc
If GUICtrlRead($nodc) = 1 Then
;ECSRO
If memread($mid, 0x660C4C, 'byte[2]') = '0x84C0' Then memwrite($mid, 0x660C4C, '8B0D4899D3008B118B4214FFD05F83C410C3')
;SWSRO
If memread($mid, 0x65FF6C, 'byte[2]') = '0x84C0' Then memwrite($mid, 0x65FF6C, '8B0D4879D3008B118B4214FFD05F83C410C3')
EndIf
;zoomhack
If GUICtrlRead($zoom) = 1 Then
;ECSRO
If memread($mid, 0x5B9531, 'byte[2]') = '0x7A08' Then memwrite($mid, 0x5B9531, 'EB')
If memread($mid, 0x5B951E, 'byte[2]') = '0x741D' Then memwrite($mid, 0x5B951E, 'EB')
;SWSRO
If memread($mid, 0x5B8CC1, 'byte[2]') = '0x7A08' Then memwrite($mid, 0x5B8CC1, 'EB')
If memread($mid, 0x5B8CAE, 'byte[2]') = '0x741D' Then memwrite($mid, 0x5B8CAE, 'EB')
;MYSRO/SJSRO
If memread($mid, 0x4E530D, 'byte[2]') = '0x7A0A' Then memwrite($mid, 0x4E530D, "EB")
If memread($mid, 0x4E5336, 'byte[2]') = '0x750A' Then memwrite($mid, 0x4E5336, "EB")
EndIf
;swear filter
If GUICtrlRead($swear) = 1 Then
;ECSRO
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')
;SWSRO
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, 0x5E22A3, 'byte[2]') = '0x7436' Then memwrite($mid, 0x5E22A3, 'EB')
If memread($mid, 0x5FD69B, 'byte[2]') = '0x0F84' Then memwrite($mid, 0x5FD69B, 'E9BF00000090')
;MYSRO/SJSRO
If memread($mid, 0x429678, 'byte[2]') = '0x7436' Then memwrite($mid, 0x429678, "EB")
If memread($mid, 0x50ED06, 'byte[2]') = '0x0F84' Then memwrite($mid, 0x50ED06, "E9BA00000090")
If memread($mid, 0x52EF55, 'byte[2]') = '0x0F84' Then memwrite($mid, 0x52EF55, "E9BB00000090")
EndIf
;nude patch
If GUICtrlRead($nude) = 1 Then
;ECSRO
If memread($mid, 0x7B463D, 'byte[2]') = '0x0F85' Then memwrite($mid, 0x7B463D, 'E9E800000090')
;SWSRO
If memread($mid, 0x7B2C7D, 'byte[2]') = '0x0F85' Then memwrite($mid, 0x7B2C7D, 'E9E800000090')
;MYSRO/SJSRO
If memread($mid, 0x6C1B3B, 'byte[2]') = '0x0F85' Then memwrite($mid, 0x6C1B3B, "E9EB00000090")
EndIf
;illegal name filter
;ECSRO
If memread($mid, 0x64CC34, 'byte[2]') = '0x7520' Then
memwrite($mid, 0x64CC34, 'EB')
$ec=True
EndIf
If memread($mid, 0x650B44, 'byte[2]') = '0x7520' Then
memwrite($mid, 0x650B44, 'EB')
$ec=True
EndIf
If memread($mid, 0x655A2A, 'byte[2]') = '0x7524' Then
memwrite($mid, 0x655A2A, 'EB')
$ec=True
EndIf
;SWSRO
If memread($mid, 0x64BF54, 'byte[2]') = '0x7520' Then
memwrite($mid, 0x64BF54, 'EB')
$sw=True
EndIf
If memread($mid, 0x64FE64, 'byte[2]') = '0x7520' Then
memwrite($mid, 0x64FE64, 'EB')
$sw=True
EndIf
If memread($mid, 0x654D4A, 'byte[2]') = '0x7524' Then
memwrite($mid, 0x654D4A, 'EB')
$sw=True
EndIf
;MYSRO/SJSRO
If memread($mid, 0x581AD3, 'byte[2]') = '0x7561' Then
memwrite($mid, 0x581AD3, "EB")
$my=True
EndIf
If memread($mid, 0x585DF3, 'byte[2]') = '0x7561' Then
memwrite($mid, 0x585DF3, "EB")
$my=True
EndIf
If memread($mid, 0x592186, 'byte[2]') = '0x7565' Then
memwrite($mid, 0x592186, "EB")
$my=True
EndIf
;startup logo remove
If GUICtrlRead($logo) = 1 Then
;ECSRO
If memread($mid, 0x65F4DD, 'byte[2]') = '0x7572' Then memwrite($mid, 0x65F4DD, 'EB')
;SWSRO
If memread($mid, 0x65E7FD, 'byte[2]') = '0x7572' Then memwrite($mid, 0x65E7FD, 'EB')
;MYSRO/SJSRO
If memread($mid, 0x59334E, 'byte[2]') = '0x756B' Then memwrite($mid, 0x59334E, 'EB')
EndIf
;autoselect/grab range
If GUICtrlRead($select) = 1 Then
;ECSRO
If memread($mid, 0x9F6A70, 'byte[4]') = '0x00008C42' Then memwrite($mid, 0x9F6A70, ReverseHex(FloatToHex(5000)))
;SWSRO
If memread($mid, 0x9F48C0, 'byte[4]') = '0x00008C42' Then memwrite($mid, 0x9F48C0, ReverseHex(FloatToHex(5000)))
;MYSRO/SJSRO
If memread($mid, 0x655934, 'byte[4]') = '0x00008C42' Then memwrite($mid, 0x655934, ReverseHex(FloatToHex(5000)))
EndIf
If GUICtrlRead($grap) = 1 Then
;ECSRO
If memread($mid, 0x9CC070, 'byte[4]') = '0x00004842' Then
memwrite($mid, 0x9CC070, ReverseHex(FloatToHex(5000)))
$ec=True
EndIf
;SWSRO
If memread($mid, 0x9CA070, 'byte[4]') = '0x00004842' Then
memwrite($mid, 0x9CA070, ReverseHex(FloatToHex(5000)))
$sw=True
EndIf
;MYSRO/SJSRO
If memread($mid, 0x661C04, 'byte[4]') = '0x00004842' Then
memwrite($mid, 0x661C04, ReverseHex(FloatToHex(5000)))
$my=True
EndIf
EndIf
GUIDelete($gui)
IniWrite('loader.ini', 'chars', $_id, $_pw)

If $sw Or $ec Then
If $ec Then
$base = 0xAA0E44
$name = 0xA9FB98
$logged = $name-0x2D14
ElseIf $sw Then
$base = 0xA9EE44
$name = 0xA9DB98
$logged = $name-0x2D14
EndIf
Do
$list = WinList('[CLASS:CLIENT]')
For $i = 1 To $list[0][0]
If Not IsArray($list) Then Exit
If WinGetProcess($list[$i][1]) = $pid Then $hwnd = $list[$i][1]
Next
Sleep(10)
Until $hwnd <> ''

Do
$size = WinGetClientSize($hwnd)
If Not IsArray($size) Then Exit
Sleep(10)
Until $size[0] = 400
Do
$nsize = WinGetClientSize($hwnd)
If Not IsArray($nsize) Then Exit
Sleep(10)
Until $nsize[0] <> $size[0]

Sleep(2000)
If $_id <> 'ID' And $_id <> '' Then
DllCall('User32.dll', 'int', 'PostMessageA', 'hwnd', ControlGetHandle($hwnd, '', ''), 'int', 0x100, 'int', 0x09, 'int', 0)
DllCall('User32.dll', 'int', 'PostMessageA', 'hwnd', ControlGetHandle($hwnd, '', ''), 'int', 0x100, 'int', 0x09, 'int', 0)
PostText($hwnd, $_id)
DllCall('User32.dll', 'int', 'PostMessageA', 'hwnd', ControlGetHandle($hwnd, '', ''), 'int', 0x100, 'int', 0x09, 'int', 0)
PostText($hwnd, $_pw)
Sleep(500)
WinSetState($hwnd, '', @SW_MINIMIZE)

Do
enter($hwnd)
Sleep(1000)
Until memread($mid, $logged) = 1 Or Not WinExists($hwnd) Or Not ProcessExists($pid)

WinSetState($hwnd, '', @SW_MAXIMIZE)
EndIf

Do
$base_val = memread($mid, $base)
Sleep(1000)
ConsoleWrite($base_val&@CRLF)
Until $base_val <> 0 Or Not WinExists($hwnd) Or Not ProcessExists($pid)

WinSetTitle($hwnd, '', memread($mid, $name, 'char[12]'))
EndIf
If Not $ec And Not $sw And Not $my Then MsgBox(16, 'Error', 'The Client You are using is not supported.'&@CRLF&'Would be nice if you could pn me in epvpers or cpg forums with your verion of sro =)')
;close handle
memclose($mid)
DllClose($kernel32)
EndFunc ;==>go

Func enter($hwnd)
DllCall('User32.dll', 'int', 'PostMessage', 'hwnd', ControlGetHandle($hwnd, '', ''), 'int', 0x100, 'int', 0x0D, 'int', 0)
EndFunc ;==>enter

Func memopen($pid)
Local $mid = DllCall($kernel32, '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, '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, 'int', 'VirtualProtectEx', 'int', $mid, 'ptr', $adress, 'int', DllStructGetSize($struct), 'dword', 0x40, 'dword*', 0)
DllCall($kernel32, 'int', 'WriteProcessMemory', 'int', $mid, 'int', $adress, 'ptr', DllStructGetPtr($struct), 'int', DllStructGetSize($struct), 'int', 0)
DllCall($kernel32, 'int', 'VirtualProtectEx', 'int', $mid, 'ptr', $adress, 'int', DllStructGetSize($struct), 'dword', $x[5], 'dword*', 0)
EndFunc ;==>memwrite

Func memclose($mid)
DllCall($kernel32, '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, '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 PostText($hwnd, $string)
$key = StringSplit(StringUpper($string), '')
For $i = 1 To $key[0]
DllCall('User32.dll', 'int', 'PostMessage', 'hwnd', ControlGetHandle($hwnd, '', ''), 'int', 0x100, 'int', AscW($key[$i]), 'int', 0)
Next
EndFunc ;==>PostText
this is the new source code form ********* :-) i hope someone can compile it to .exe
mauce is offline  
Old 01/06/2010, 13:09   #715
 
elite*gold: 0
Join Date: Apr 2009
Posts: 642
Received Thanks: 377
Quote:
Originally Posted by mauce View Post
this is the new source code form ********* :-) i hope someone can compile it to .exe
How kind of you to post a f*cking long source code -.-

Learn2Link
Epic_Rage is offline  
Old 01/06/2010, 13:16   #716
 
elite*gold: 0
Join Date: Aug 2009
Posts: 101
Received Thanks: 91
hey lolkop
is there a new bot ver for 1.157 ?
hemahema12 is offline  
Old 01/06/2010, 13:21   #717
 
elite*gold: 280
Join Date: May 2007
Posts: 2,818
Received Thanks: 3,483
Quote:
Originally Posted by hemahema12 View Post
hey lolkop
is there a new bot ver for 1.157 ?
use the tools posted in the first post.
lolkop is offline  
Old 01/06/2010, 13:31   #718
 
elite*gold: 0
Join Date: Feb 2008
Posts: 5
Received Thanks: 0
lolkop ur awesome!
nekarometas is offline  
Old 01/06/2010, 13:39   #719
 
elite*gold: 0
Join Date: Jun 2008
Posts: 12
Received Thanks: 1
Quote:
Originally Posted by lolkop View Post
use the tools posted in the first post.
the tools from the first post aren't working ..
wOkeN is offline  
Old 01/06/2010, 13:59   #720
 
elite*gold: 0
Join Date: Feb 2008
Posts: 12
Received Thanks: 0
For me they're working.
xX_ArnE_Xx is offline  

Powered by vBulletin®
Copyright ©2000 - 2021, Jelsoft Enterprises Ltd.
SEO by vBSEO ©2011, Crawlability, Inc.
This site is protected by reCAPTCHA and the Google Privacy Policy and Terms of Service apply.

Support | Contact Us | FAQ | Advertising | Privacy Policy | Terms of Service | Abuse
Copyright ©2021 elitepvpers All Rights Reserved.