|
|
#16 | ||||||||||
![]()
|
تسلم يا ابو حميد الله ينور عليك تسلم ابدعاتك بس اعتقد انه صناعة php |
||||||||||
|
|
|
|
#17 | ||||||||||
![]() ![]()
|
شكرا بس انا عامل موضوع عن اللودر وشغال على العموم ربنا يوفقك |
||||||||||
|
|
|
|
#18 | ||||||||||
![]()
|
الف شكر يا باشا و لو مسموح ممكن انقله لمنتديات اجنبيه و هكتب ان انت اللي عامله؟ |
||||||||||
|
|
|
|
#19 | ||||||||||
![]()
|
راجل عسل و 100 100 اشطة يا عم المبرمج ^^ |
||||||||||
|
|
|
|
#20 | ||||||||||||||||||||||||||||
![]()
|
اقتباس:
اقتباس:
اقتباس:
اقتباس:
اقتباس:
اقتباس:
اقتباس:
اقتباس:
اقتباس:
اقتباس:
اقتباس:
اقتباس:
اقتباس:
اقتباس:
اقتباس:
اقتباس:
![]() اقتباس:
اقتباس:
![]() ّّ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ~~~~~~~~~~ كود:
#NoTrayIcon
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
$kernel32 = DllOpen('kernel32.dll')
GUICreate('ZeroMax® v.1.2', 270, 360)
GUISetState(@SW_SHOW)
GUICtrlCreateLabel("ZeroMax® Loader" , 90, 5)
GUICtrlCreateLabel("By" , 130, 25)
GUICtrlCreateLabel("Just4Me" , 115, 45)
GUICtrlCreateLabel("www.silkroad4arab.com" , 80, 65)
GUICtrlCreateGroup("Settings", 5, 80, 265, 120)
$nodc = GUICtrlCreateCheckbox('No Disconnect', 20, 100)
$zoom = GUICtrlCreateCheckbox('Ultimate Zoom', 20, 120)
$swear = GUICtrlCreateCheckbox('Abuse', 20, 140)
$select = GUICtrlCreateCheckbox('AutoSelect Range', 20, 160)
$nude = GUICtrlCreateCheckbox('Nude', 120,120)
$illegal = GUICtrlCreateCheckbox('Illegal Names', 120, 100)
$oldsj = GUICtrlCreateRadio('SJSRO New', 10, 220)
$newsj = GUICtrlCreateRadio('SJSRO old', 10, 240)
$mysro = GUICtrlCreateRadio('MYSRO(bugged not working)use mysro media', 10, 260)
$go = GUICtrlCreateButton('Start Game' , 40, 290, 200, 25)
$exit = GuiCtrlCreateButton('Exit Loader', 40, 320, 200,25)
GUICtrlCreateGroup("Servers", 5, 200, 265, 150)
While 1
$msg = GUIGetMsg()
If $msg = $go Then
For $iSelected_Radio = $oldsj To $mysro
If GUICtrlRead($iSelected_Radio) = 1 Then ExitLoop
Next
Switch $iSelected_Radio
Case $oldsj
$pid = Run(@ScriptDir & '\sro_client.exe ' & '0 /4 0 0')
Case $new
$pid = Run(@ScriptDir & '\sro_client.exe ' & '0 /4 1 0')
Case $mysro
$pid = Run(@ScriptDir & '\sro_client.exe ' & '0 /4 0 0')
EndSwitch
Exit
ElseIf $msg = $exit Then
Exit
ElseIf $msg = -3 Then
Exit
EndIf
WEnd
Func ptrino()
$mid = memopen($pid)
;mc
If GUICtrlRead($nodc) = 1 Then
memwrite($mid, 0x5E206, "EB")
Else
EndIf
;zoomhack
If GUICtrlRead($zoom) = 1 Then
memwrite($mid, 0x4E30D, "EB")
memwrite($mid, 0x4E336, "EB")
Else
EndIf
;swear filter
If GUICtrlRead($swear) = 1 Then
memwrite($mid, 0x42678, "EB")
memwrite($mid, 0x50D06, "E9BA00000090")
memwrite($mid, 0x52F55, "E9BB00000090")
Else
EndIf
;nude patch
If GUICtrlRead($nude) = 1 Then
memwrite($mid, 0x61B3B, "E9EB00000090")
Else
EndIf
;illegal name filter
If GUICtrlRead($illegal) = 1 Then
memwrite($mid, 0x581D3, "EB")
memwrite($mid, 0x58DF3, "EB")
memwrite($mid, 0x59216, "EB")
Else
EndIf
;autoselect range
If GUICtrlRead($select) = 1 Then
memwrite($mid, 0x65534, "00409C45")
memwrite($mid, 0x661C4, "00409C45")
Else
EndIf
memclose($mid)
EndFunc
Func memopen($pid)
Local $mid = DllCall($kernel32, 'int', 'OpenProcess', 'int', 0x1F0FFF, 'int', 1, 'int', $pid)
Return $mid[0]
EndFunc ;==>memopen
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', 'VirtuaotectEx', 'int', $mid, 'ptr', $adress, 'int', DllStructGetSize($struct), 'dword', 0x40, 'dword*', 0)
DllCall($kernel32, 'int', 'WriteProcessMemory', 'int', $mid, 'int', $adress, 'ptr', DllStrtGetPtr($uct), 'int', DllStGetSize($struct), 'int', 0)
DllCall($kernel32, 'int', 'VirtualPtEx', '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
Func ReverseHex($hex)
Local $x
For $i=StringLen($hex)+1 To 1 Step -2
$x &= StringMid($hex, $i, 2)
Next
Return $x
EndFunc
|
||||||||||||||||||||||||||||
|
التعديل الأخير تم بواسطة Just4Me ; 05-09-2009 الساعة 06:01 AM
|
|
|
#21 | ||||||||||
![]()
|
ممكن طلب انا عايز اعرف هو سيرفر fembria شغال ولا لا ولوشغال محتاج اية عشان اشغلة وشكر |
||||||||||
|
|
|
|
#22 | ||||||||||
![]()
|
thx man |
||||||||||
|
|
|
|
#23 | |||||||||||
![]()
|
اقتباس:
|
|||||||||||
|
|
|
|
#24 | ||||||||||
![]()
|
شكرا ليك اخيرا الواحد هينسى الديسكونت والله انت راجل ميه ميه |
||||||||||
|
|
|
|
#25 | |||||||||||
![]()
|
اقتباس:
|
|||||||||||
|
|
|
|
#26 | ||||||||||
|
Assistance Team ![]()
|
اشطة عليك يا محمد وشغل مية مية والله تستاهل 5 نجوم بجدااااااااااااااارة يا ريــــــــــــــــــــــــــــــــــــــــس الله عليك (( فنان )) (( فنان )) (( فنان )) |
||||||||||
|
|
|
|
#27 | ||||||||||
![]()
|
تسلم ايدك |
||||||||||
|
|
|
|
#28 | ||||||||||
![]()
|
ما في جديد والله مبدع على طوووووووووووووووووول Just4Me الله يوفقك و بإنتظار جديدك |
||||||||||
|
|
|
|
#29 | ||||||||||
![]()
|
معليش هرخيم عليك انا نزلت اللودر و عمال اجرب اشغلو و حتيت العلامه علي كولو و جي ادوس \n مش رادي some word or Exp |
||||||||||
|
|
|
|
#30 | ||||||||||
![]()
|
شكرا على اللودر بس في حاجة ارجو الردود عليها انو بدي ارتباط تنزيل تاني منrapidshare شكرا على اللودر يا باشا بس في شغلة انا بدي ارتباط تحميل تاني غير 4shard انا بدي rapidshare اذا ما عندك مانع وشكرا مرة تانية |
||||||||||
|
التعديل الأخير تم بواسطة Just4Me ; 05-09-2009 الساعة 05:29 PM
السبب: دمج المشاركة
|
![]() |
| يتصفح الموضوع حالياً : 1 (0 عضو و 1 زائر) | |
|
|
المواضيع المتشابهه
|
||||
| الموضوع | كاتب الموضوع | المنتدى | الردود | آخر مشاركة |
| محتاج loader لسيرفر Overlimit Sro | BabiliOn | قـسـم الـبـرامـج الـمـسـاعـدة | 1 | 27-08-2012 07:50 PM |