Skocz do zawartości

  • 👋 Witaj na MPCForum!

    Przeglądasz forum jako gość, co oznacza, że wiele świetnych funkcji jest jeszcze przed Tobą! 😎

    • ✅ Pełny dostęp do działów i ukrytych treści
    • ✅ Możliwość pisania i odpowiadania w tematach
    • ✅ System prywatnych wiadomości
    • ✅ Zbieranie reputacji i rozwijanie swojego profilu
    • ✅ Członkostwo w jednej z największych społeczności graczy

    👉 Dołączenie zajmie Ci mniej niż minutę – a zyskasz znacznie więcej!

    Zarejestruj się teraz

Rekomendowane odpowiedzi

OmgLolNoob^^ Bywalec

OmgLolNoob^^

Opublikowano
Bywalec

OmgLolNoob^^

Opublikowano

Witam. Czy jest jakiś loader multiclient do ZSZC?

 

Chciałbym sobie drugą postać podtaxić, a nie mam multiclienta :/

 

Od razu mówię, że private_server_loader odpada bo tam window mode nie działa. Jest jakiś inny? Jest jakiś sposób na window mode?

Y U NO LEIK MEH?!

TROLOLOLOLLOLOLOLOLOLOL!

Daj +

BulaPL13 Budowniczy

BulaPL13

Opublikowano
Budowniczy

BulaPL13

Opublikowano

Witam. Czy jest jakiś loader multiclient do ZSZC?

 

Chciałbym sobie drugą postać podtaxić, a nie mam multiclienta :/

 

Od razu mówię, że private_server_loader odpada bo tam window mode nie działa. Jest jakiś inny? Jest jakiś sposób na window mode?

 

Jak odpalisz grę naciśnij kombinacje ALT+ ENTER .

Wtedy powinno się wrzucić na window mode :)

14sfk87.jpg

Hemp Gru <3 diil <3

BulaPL13 Budowniczy

BulaPL13

Opublikowano
Budowniczy

BulaPL13

Opublikowano

Moglby ktos mi dac linka do dzialajacego private server loader? Dam +

 

http://lolkop.kilu.info/private_server_loader.exe

oraz Source w spoilerze.

 

#NoTrayIcon

#Region ;**** Directives created by AutoIt3Wrapper_GUI ****

#AutoIt3Wrapper_Compression=4

#AutoIt3Wrapper_Run_Tidy=y

#AutoIt3Wrapper_Tidy_Stop_OnError=n

#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****

Dim $hwnd, $sw = False, $ec = False, $my = False, $ot = False, $zc = 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

memreplace($mid, 0x6325BC, '75', 'EB', 'ec')

memreplace($mid, 0x632550, '75', 'EB', 'ec')

;SWSRO

memreplace($mid, 0x633180, '75', 'EB', 'sw')

memreplace($mid, 0x6331EC, '75', 'EB', 'sw')

;SJSRO/MYSRO

memreplace($mid, 0x5E2506, '75', 'EB', 'my')

memreplace($mid, 0x5E2578, '75', 'EB', 'my')

;Other

memreplace($mid, 0x633030, '75', 'EB', 'ot')

memreplace($mid, 0x63309C, '75', 'EB', 'ot')

;ZSCZ

memreplace($mid, 0x633D6C, '75', 'EB', 'zc')

memreplace($mid, 0x633D00, '75', 'EB', 'zc')

;english as language

If GUICtrlRead($english) = 1 Then

;ECSRO

memreplace($mid, 0x632631, '833D', 'E88A36E6FFC7803801000001000000' & nop(38), 'ec')

memreplace($mid, 0x645877, '7516', 'EB', 'ec')

memreplace($mid, 0x64591D, '7516', nop(2), 'ec')

;SWSRO

memreplace($mid, 0x633261, '833D', 'E8BA36E6FFC7803801000001000000' & nop(38), 'sw')

memreplace($mid, 0x6464A7, '7516', 'EB', 'sw')

memreplace($mid, 0x64654D, '7516', nop(2), 'sw')

;Other

memreplace($mid, 0x633111, '833D', 'E8AA2BE6FFC7803801000001000000' & nop(38), 'ot')

memreplace($mid, 0x642407, '7516', 'EB', 'ot')

memreplace($mid, 0x6424AD, '7516', nop(2), 'ot')

;ZSCZ

memreplace($mid, 0x633DE1, '833D', 'E83A2BE6FF83B83801000001000000' & nop(38), 'zc')

memreplace($mid, 0x647187, '7516', 'EB', 'zc')

memreplace($mid, 0x64722D, '7516', nop(2), 'zc')

EndIf

;nodc

If GUICtrlRead($nodc) = 1 Then

;ECSRO

memreplace($mid, 0x65F33C, '84C0', '8B0D5C79D3008B118B4214FFD05F83C410C3', 'ec')

;SWSRO

memreplace($mid, 0x65FF6C, '84C0', '8B0D4879D3008B118B4214FFD05F83C410C3', 'sw')

;Other

memreplace($mid, 0x65BF5C, '84C0', '8B0D5C69D3008B118B4214FFD05F83C410C3', 'ot')

;ZSCZ

memreplace($mid, 0x660C4C, '84C0', '8B0D4899D3008B118B4214FFD05F83C410C3', 'zc')

EndIf

;zoomhack

If GUICtrlRead($zoom) = 1 Then

;ECSRO

memreplace($mid, 0x5B8091, '7A', 'EB', 'ec')

memreplace($mid, 0x5B806B, '74', 'EB', 'ec')

;SWSRO

memreplace($mid, 0x5B8CC1, '7A', 'EB', 'sw')

memreplace($mid, 0x5B8CAE, '74', 'EB', 'sw')

;MYSRO/SJSRO

memreplace($mid, 0x4E530D, '7A', 'EB', 'my')

memreplace($mid, 0x4E5336, '74', 'EB', 'my')

;Other

memreplace($mid, 0x5B8901, '7A', 'EB', 'ot')

memreplace($mid, 0x5B88EE, '74', 'EB', 'ot')

;ZSCZ

memreplace($mid, 0x5B9531, '7A', 'EB', 'zc')

memreplace($mid, 0x5B951E, '74', 'EB', 'zc')

EndIf

;swear filter

If GUICtrlRead($swear) = 1 Then

;ECSRO

memreplace($mid, 0x4B746A, '74', 'EB', 'ec')

memreplace($mid, 0x4DB7F4, '74', 'EB', 'ec')

memreplace($mid, 0x5E1673, '74', 'EB', 'ec')

memreplace($mid, 0x5FCA6B, '0F', 'E9BF00000090', 'ec')

;SWSRO

memreplace($mid, 0x4B809A, '74', 'EB', 'sw')

memreplace($mid, 0x4DC424, '74', 'EB', 'sw')

memreplace($mid, 0x5E22A3, '74', 'EB', 'sw')

memreplace($mid, 0x5FD69B, '0F', 'E9BF00000090', 'sw')

;MYSRO/SJSRO

memreplace($mid, 0x429678, '74', 'EB', 'my')

memreplace($mid, 0x50ED06, '0F', 'E9BA00000090', 'my')

memreplace($mid, 0x52EF55, '0F', 'E9BB00000090', 'my')

;Other

memreplace($mid, 0x4B746A, '74', 'EB', 'ot')

memreplace($mid, 0x4DB7F4, '74', 'EB', 'ot')

memreplace($mid, 0x5E1E73, '74', 'EB', 'ot')

memreplace($mid, 0x5FD26B, '0F', 'E9BF00000090', 'ot')

;ZCSZ

memreplace($mid, 0x4B809A, '74', 'EB', 'zc')

memreplace($mid, 0x4DC424, '74', 'EB', 'zc')

memreplace($mid, 0x5E2B23, '74', 'EB', 'zc')

memreplace($mid, 0x5FDF1B, '0F', 'E9BF00000090', 'zc')

EndIf

;nude patch

If GUICtrlRead($nude) = 1 Then

;ECSRO

memreplace($mid, 0x7B1F5D, '0F', 'E9E800000090', 'ec')

;SWSRO

memreplace($mid, 0x7B2C7D, '0F', 'E9E800000090', 'sw')

;MYSRO/SJSRO

memreplace($mid, 0x6C1B3B, '0F', 'E9EB00000090', 'my')

;Other

memreplace($mid, 0x7B0ECD, '0F', 'E9E800000090', 'ot')

;ZSCZ

memreplace($mid, 0x7B463D, '0F', 'E9E800000090', 'zc')

EndIf

;illegal name filter

;ECSRO

memreplace($mid, 0x64B324, '75', 'EB', 'ec')

memreplace($mid, 0x64F234, '75', 'EB', 'ec')

memreplace($mid, 0x65411A, '75', 'EB', 'ec')

;SWSRO

memreplace($mid, 0x64BF54, '75', 'EB', 'sw')

memreplace($mid, 0x64FE64, '75', 'EB', 'sw')

memreplace($mid, 0x654D4A, '75', 'EB', 'sw')

;MYSRO/SJSRO

memreplace($mid, 0x581AD3, '75', 'EB', 'my')

memreplace($mid, 0x585DF3, '75', 'EB', 'my')

memreplace($mid, 0x592186, '75', 'EB', 'my')

;Other

memreplace($mid, 0x647F44, '75', 'EB', 'ot')

memreplace($mid, 0x64BE54, '75', 'EB', 'ot')

memreplace($mid, 0x650D3A, '75', 'EB', 'ot')

;ZSCZ

memreplace($mid, 0x64CC34, '75', 'EB', 'zc')

memreplace($mid, 0x650B44, '75', 'EB', 'zc')

memreplace($mid, 0x655A2A, '75', 'EB', 'zc')

;startup logo remove

If GUICtrlRead($logo) = 1 Then

;ECSRO

memreplace($mid, 0x65DBCD, '75', 'EB', 'ec')

;SWSRO

memreplace($mid, 0x65E7FD, '75', 'EB', 'sw')

;MYSRO/SJSRO

memreplace($mid, 0x59334E, '75', 'EB', 'my')

;Other

memreplace($mid, 0x65A7ED, '75', 'EB', 'ot')

;ZSCZ

memreplace($mid, 0x65F4DD, '75', 'EB', 'zc')

EndIf

;autoselect/grab range

If GUICtrlRead($select) = 1 Then

;ECSRO

memreplace($mid, 0x9F4850, '00008C42', ReverseHex(FloatToHex(5000)), 'ec')

;SWSRO

memreplace($mid, 0x9F48C0, '00008C42', ReverseHex(FloatToHex(5000)), 'sw')

;MYSRO/SJSRO

memreplace($mid, 0x655934, '00008C42', ReverseHex(FloatToHex(5000)), 'my')

;Other

memreplace($mid, 0x9F39C0, '00008C42', ReverseHex(FloatToHex(5000)), 'ot')

;ZSCZ

memreplace($mid, 0x9F6A70, '00008C42', ReverseHex(FloatToHex(5000)), 'zc')

EndIf

If GUICtrlRead($grap) = 1 Then

;ECSRO

memreplace($mid, 0x9CA078, '00004842', ReverseHex(FloatToHex(5000)), 'ec')

;SWSRO

memreplace($mid, 0x9CA070, '00004842', ReverseHex(FloatToHex(5000)), 'sw')

;MYSRO/SJSRO

memreplace($mid, 0x661C04, '00004842', ReverseHex(FloatToHex(5000)), 'my')

;Other

memreplace($mid, 0x9C9078, '00004842', ReverseHex(FloatToHex(5000)), 'ot')

;ZSCZ

memreplace($mid, 0x9CC070, '00004842', ReverseHex(FloatToHex(5000)), 'zc')

EndIf

GUIDelete($gui)

IniWrite('loader.ini', 'chars', $_id, $_pw)

 

If $sw Or $ec Or $ot Or $zc Then

If $zc Then

$base = 0xAA0E44

$name = 0xA9FB98

$logged = $name - 0x2D14

ElseIf $ot Then

$base = 0xA9DE64

$name = 0xA9CBB8

$logged = $name - 0x2D14

ElseIf $sw Then

$base = 0xA9EE44

$name = 0xA9DB98

$logged = $name - 0x2D14

ElseIf $ec Then

$base = 0xA9EE64

$name = 0xA9DBB8

$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)

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 And Not $ot 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 =)')

EndIf

;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 memreplace($mid, $adress, $old, $new, $type)

If memread($mid, $adress, 'byte[' & StringLen($old) / 2 & ']') = '0x' & $old Then

memwrite($mid, $adress, $new)

Assign($type, True, 2)

EndIf

EndFunc ;==>memreplace

 

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

 

14sfk87.jpg

Hemp Gru <3 diil <3

OmgLolNoob^^ Bywalec

OmgLolNoob^^

Opublikowano
Bywalec

OmgLolNoob^^

  • Autor
Opublikowano

Line 33 (File "C:\Users\X\Desktop\ZSZCClient\private_server_loader.exe"):

 

 

Error: Subscript used with non-Array variable.

Y U NO LEIK MEH?!

TROLOLOLOLLOLOLOLOLOLOL!

Daj +

Jeśli chcesz dodać odpowiedź, zaloguj się lub zarejestruj nowe konto

Jedynie zarejestrowani użytkownicy mogą komentować zawartość tej strony.

Zarejestruj nowe konto

Załóż nowe konto. To bardzo proste!

Zarejestruj się

Zaloguj się

Zaloguj się poniżej.

Zaloguj się
 Udostępnij
Tematy
×
×
  • Dodaj nową pozycję...