API tools faq
paste
Advertisement
Guest User

Untitled

a guest
Jan 29th, 2016
76
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 10.78 KB | None | 0 0
raw download clone embed print report
  1. #RequireAdmin
  2. #include <ButtonConstants.au3>
  3. #include <EditConstants.au3>
  4. #include <GUIConstantsEx.au3>
  5. #include <GuiStatusBar.au3>
  6. #include <StaticConstants.au3>
  7. #include <WindowsConstants.au3>
  8. #include <ComboConstants.au3>
  9. #include <TabConstants.au3>
  10. #include <IE.au3>
  11. #include <String.au3>
  12. #include <Misc.au3>
  13. #include <WinAPIFiles.au3>
  14. #include <Inet.au3>
  15.  
  16. ;~ CHECK CHUONG TRÌNH ÐANG CH?Y
  17. If _singleton1(@ScriptName&"_Setup", 1) = 0 Then Exit MsgBox(0,"Thông báo", "CHUONG TRÌNH ÐANG CH?Y!")
  18. Func _singleton1($soccurencename, $iflag = 0)
  19. Local Const $error_already_exists = 183
  20. Local Const $security_descriptor_revision = 1
  21. Local $tsecurityattributes = 0
  22. If BitAND($iflag, 2) Then
  23. Local $tsecuritydescriptor = DllStructCreate("byte;byte;word;ptr[4]")
  24. Local $aret = DllCall("advapi32.dll", "bool", "InitializeSecurityDescriptor", "struct*", $tsecuritydescriptor, "dword", $security_descriptor_revision)
  25. If @error Then Return SetError(@error, @extended, 0)
  26. If $aret[0] Then
  27. $aret = DllCall("advapi32.dll", "bool", "SetSecurityDescriptorDacl", "struct*", $tsecuritydescriptor, "bool", 1, "ptr", 0, "bool", 0)
  28. If @error Then Return SetError(@error, @extended, 0)
  29. If $aret[0] Then
  30. $tsecurityattributes = DllStructCreate($tagsecurity_attributes)
  31. DllStructSetData($tsecurityattributes, 1, DllStructGetSize($tsecurityattributes))
  32. DllStructSetData($tsecurityattributes, 2, DllStructGetPtr($tsecuritydescriptor))
  33. DllStructSetData($tsecurityattributes, 3, 0)
  34. EndIf
  35. EndIf
  36. EndIf
  37. Local $handle = DllCall("kernel32.dll", "handle", "CreateMutexW", "struct*", $tsecurityattributes, "bool", 1, "wstr", $soccurencename)
  38. If @error Then Return SetError(@error, @extended, 0)
  39. Local $lasterror = DllCall("kernel32.dll", "dword", "GetLastError")
  40. If @error Then Return SetError(@error, @extended, 0)
  41. If $lasterror[0] = $error_already_exists Then
  42. If BitAND($iflag, 1) Then
  43. Return SetError($lasterror[0], $lasterror[0], 0)
  44. Else
  45. Exit -1
  46. EndIf
  47. EndIf
  48. Return $handle[0]
  49. EndFunc
  50.  
  51. $dirdata = @AppDataDir & '\iBOT\BoL\'
  52. DirRemove ($dirdata,1)
  53. Sleep(100)
  54. DirCreate(@AppDataDir & '\iBOT\BoL\img\',1)
  55. DirCreate(@AppDataDir & '\iBOT\BoL\Script Manager\',1)
  56. DirCreate(@AppDataDir & '\iBOT\BoL\BolVIP\',1)
  57. Sleep(100)
  58. ProgressOn("", "UPDATE DATA...", "0%")
  59. FileInstall('data\DevComponents.DotNetBar2.dll', $dirdata & 'Script Manager\DevComponents.DotNetBar2.dll')
  60. ProgressSet(10, '10%')
  61. FileInstall('data\Setup.exe', $dirdata & 'Setup.exe')
  62. ProgressSet(20, '20%')
  63. FileInstall('data\SampleFix.exe', $dirdata & 'SampleFix.exe')
  64. ProgressSet(30, '30')
  65. FileInstall('data\Script Manager.exe', $dirdata & 'Script Manager\Script Manager.exe')
  66. ProgressSet(40, '40%')
  67. FileInstall('data\Scripts.ini', $dirdata & 'Script Manager\Scripts.ini')
  68. ProgressSet(50, '50%')
  69. FileInstall('data\AntiBan.exe', $dirdata & 'Antiban.exe')
  70. ProgressSet(60, '60%')
  71. FileInstall('data\BolVIP.exe', $dirdata & 'BolVIP\BolVIP.exe')
  72. ProgressSet(70, '70%')
  73. FileInstall('data\BolVIP.ini', $dirdata & 'BolVIP\BolVIP.ini')
  74. ProgressSet(80, '80%')
  75. FileInstall('data\icon.ico', $dirdata & 'img\icon.ico')
  76. ProgressSet(90, '90%')
  77. FileInstall('data\logo.jpg', $dirdata & 'img\logo.jpg')
  78. FileInstall('data\blogin.ico', $dirdata & 'img\blogin.ico')
  79. ProgressSet(100, "Done, Complete", "100%")
  80. ProgressOff()
  81. Sleep(100)
  82.  
  83. Global $HSEVER1 = "http://ibotvn.com/bol/"
  84. Global $HKEY1 = BinaryToString(InetRead($hsever1 & 'key.php'), $SB_UTF8)
  85. Global $HVERSION1 = BinaryToString(InetRead($hsever1 & 'vesion.php'), $SB_UTF8)
  86. Global $HNEWS1 = BinaryToString(InetRead($hsever1 & 'news.php'), $SB_UTF8)
  87. Global $HNOTE1 = BinaryToString(InetRead($hsever1 & 'note.php'), $SB_UTF8)
  88. Global $HHELLO1 = BinaryToString(InetRead($hsever1 & 'hello.php'), $SB_UTF8)
  89. Global $HUSREG1 = BinaryToString(InetRead($hsever1 & 'usreg.php'), $SB_UTF8)
  90. Global $HPASSREG1 = BinaryToString(InetRead($hsever1 & 'passreg.php'), $SB_UTF8)
  91. Global $MSG_CRACK1 = 'Bắt đầu crack.' &@CRLF
  92. Global $MSG_CRACK2 = 'Xin hãy đợi cho quá trình hoàn tất.' &@CRLF
  93. Global $MSG_CRACK3 = 'Crack thành công.' &@CRLF
  94. Global $MSG_CLEANER1 = 'Bắt đầu dọn dẹp hệ thống.' &@CRLF
  95. Global $MSG_CLEANER2 = 'Xin hãy đợi cho quá trình dọn dẹp hoàn tất.' &@CRLF
  96. Global $MSG_CLEANER3 = 'Dọn dẹp hệ thống hoàn thành.' &@CRLF
  97. Global $MSG_ANTIBAN1 = 'Bypas thành công.' &@CRLF
  98. Global $MSG_LOG1 = '- Homepage: http://ibotvn.com'&@CRLF
  99. Global $GETIP1 = _GetIP()
  100.  
  101.  
  102. #Region ### START Koda GUI section ###
  103. $LOGIN1 = GUICreate("LOGIN iBOT", 253, 216, 357, 199)
  104. $LOGO1 = GUICtrlCreatePic($dirdata & 'img\logo.jpg', 24, 8, 196, 89)
  105. $IPUSER1 = GUICtrlCreateInput("Username", 19, 112, 142, 21)
  106. $IPPASS1 = GUICtrlCreateInput("Password", 19, 146, 142, 21, BitOR($GUI_SS_DEFAULT_INPUT,$ES_PASSWORD))
  107. $BLOGIN1 = GUICtrlCreateButton("Button1", 176, 112, 59, 57, BitOR($BS_DEFPUSHBUTTON,$BS_ICON))
  108. GUICtrlSetImage(-1, $dirdata & 'img\blogin.ico', 1)
  109. $HOMEPAGE1 = GUICtrlCreateLabel("http://toolbot.tk", 112, 72, 94, 20)
  110. $StatusBar1 = _GUICtrlStatusBar_Create($LOGIN1)
  111. $cCheckbox1 = GUICtrlCreateCheckbox("Nhớ mật khẩu", 19, 168, 97, 17)
  112. GUICtrlSetState($cCheckbox1,$GUI_CHECKED)
  113. GUISetState(@SW_SHOW)
  114. #EndRegion ### END Koda GUI section ###
  115.  
  116. #Region ### START Koda GUI section ###
  117. $IBOT2 = GUICreate("iBOT AUTO LOL", 407, 367, 646, 57)
  118. $Tab1 = GUICtrlCreateTab(17, 85, 373, 248)
  119. $TabSheet2 = GUICtrlCreateTabItem(" NEWS ")
  120. $Group5 = GUICtrlCreateGroup("", 31, 114, 341, 201)
  121. $NEWS2 = GUICtrlCreateLabel("HNEWS1", 41, 129, 321, 176)
  122. GUICtrlCreateGroup("", -99, -99, 1, 1)
  123. $TabSheet3 = GUICtrlCreateTabItem(" MENU ")
  124. $CRACK2 = GUICtrlCreateButton("CRACK", 31, 162, 59, 59)
  125. $ANTIBAN2 = GUICtrlCreateButton("Anti Ban", 145, 122, 68, 25)
  126. $CLEANER2 = GUICtrlCreateButton("Cleaner", 226, 122, 67, 25)
  127. $ADDSCRIPT2 = GUICtrlCreateButton("Add Script", 305, 122, 67, 25)
  128. $LOG2 = GUICtrlCreateEdit("", 31, 238, 339, 81, BitOR($ES_AUTOVSCROLL,$ES_AUTOHSCROLL,$ES_WANTRETURN,$WS_VSCROLL))
  129. GUICtrlSetData(-1, "MSG_LOG1")
  130. $NOTE2 = GUICtrlCreateLabel("HNOTE1", 101, 162, 270, 57)
  131. $Combo1 = GUICtrlCreateCombo("Combo1", 33, 124, 97, 25, BitOR($CBS_DROPDOWN,$CBS_AUTOHSCROLL))
  132. $TabSheet4 = GUICtrlCreateTabItem(" OTHER ")
  133. $Group2 = GUICtrlCreateGroup("Leage Of Legend", 31, 130, 201, 65)
  134. $NA2 = GUICtrlCreateButton("NA", 40, 154, 83, 25)
  135. $VN2 = GUICtrlCreateButton("VN", 135, 154, 83, 25)
  136. GUICtrlCreateGroup("", -99, -99, 1, 1)
  137. $Group3 = GUICtrlCreateGroup("Tool", 31, 210, 201, 105)
  138. $UPDATELYBRARY3 = GUICtrlCreateButton("Update Lybrary", 40, 234, 83, 25)
  139. $INTALLSOFT3 = GUICtrlCreateButton("Intall Soft", 40, 274, 83, 25)
  140. $SCRIPTMANAGER3 = GUICtrlCreateButton("Script Manager", 135, 234, 83, 25)
  141. $SAMPLEFIX3 = GUICtrlCreateButton("SampleFix", 135, 274, 83, 25)
  142. GUICtrlCreateGroup("", -99, -99, 1, 1)
  143. $Group4 = GUICtrlCreateGroup("Custom Intall", 251, 130, 121, 185)
  144. $DX4 = GUICtrlCreateButton("DirectX", 269, 154, 83, 25)
  145. $NET4524 = GUICtrlCreateButton(".NET 4.5.2", 269, 194, 83, 25)
  146. $NET44 = GUICtrlCreateButton(".NET 4", 269, 234, 83, 25)
  147. $CX864 = GUICtrlCreateButton("MSVC 2010 C++", 269, 274, 83, 25)
  148. GUICtrlCreateGroup("", -99, -99, 1, 1)
  149. $TabSheet1 = GUICtrlCreateTabItem(" ABOUT ")
  150. $Group6 = GUICtrlCreateGroup("", 32, 117, 341, 201)
  151. $Label4 = GUICtrlCreateLabel("Version: HVERSION1", 90, 175, 212, 26, $SS_CENTERIMAGE)
  152. $Label3 = GUICtrlCreateLabel("Product Name: iBOT AUTO LOL", 90, 143, 214, 26, $SS_CENTERIMAGE)
  153. $Label5 = GUICtrlCreateLabel("2015 TOOLBOT.TK", 90, 207, 223, 26, $SS_CENTERIMAGE)
  154. $HOMEPAGE4 = GUICtrlCreateLabel("Home Page: http://toolbot.tk", 90, 239, 199, 26, $SS_CENTERIMAGE)
  155. $FB4 = GUICtrlCreateLabel("FB:fb.com/groups/1069405449765859", 90, 271, 253, 26, $SS_CENTERIMAGE)
  156. GUICtrlCreateGroup("", -99, -99, 1, 1)
  157. GUICtrlCreateTabItem("")
  158. $LOGO2 = GUICtrlCreatePic("E:\New folder\New folder (2)\data\logo.jpg", 16, 8, 148, 68)
  159. $Group1 = GUICtrlCreateGroup("", 180, 0, 208, 73)
  160. $INFO2 = GUICtrlCreateLabel("", 188, 16, 192, 49)
  161. GUICtrlCreateGroup("", -99, -99, 1, 1)
  162. $HOMEPAGE2 = GUICtrlCreateLabel("http://toolbot.tk", 80, 56, 86, 20)
  163. $StatusBar2 = _GUICtrlStatusBar_Create($IBOT2)
  164. GUISetState(@SW_HIDE)
  165. #EndRegion ### END Koda GUI section ###
  166.  
  167.  
  168. While 1
  169. If ProcessExists("regedit.exe") Then
  170. _EXIT()
  171. ElseIf ProcessExists("TweakingRegistryBackup.exe") Then
  172. _EXIT()
  173. EndIf
  174. $nMsg = GUIGetMsg()
  175. Switch $nMsg
  176. Case $GUI_EVENT_CLOSE
  177. _EXIT()
  178. Exit
  179. Case $BLOGIN1
  180. _BLOGIN1()
  181. EndSwitch
  182. WEnd
  183.  
  184. Func _BLOGIN1()
  185. $user = GUICtrlRead($IPUSER1)
  186. $pass = GUICtrlRead($IPPASS1)
  187. If ($user == "") Then
  188. MsgBox(0, "", "Tài khoản trống!")
  189. ElseIf ($pass == "") Then
  190. MsgBox(0, "", "Mật khẩu trống!")
  191. EndIf
  192. If $user == '' Or $pass == '' Then Return -1
  193. $oIE = _IECreate('http://ibotvn.com/forum/login', 0, 0)
  194. _GUICtrlStatusBar_SetText($StatusBar1, ' > Đang đăng nhập ...')
  195. $oForm = _IEGetObjById($oIE, 'pageLogin')
  196. $oUser = _IEGetObjByName($oIE, 'login')
  197. $oPass = _IEGetObjByName($oIE, 'password')
  198. _IEFormElementSetValue($oUser, $user)
  199. _IEFormElementSetValue($oPass, $pass)
  200. _IEFormSubmit($oForm)
  201. _GUICtrlStatusBar_SetText($StatusBar1, ' > Kiểm tra tài khoản ...')
  202. $PageSource = _IEBodyReadHTML($oIE)
  203. $PageText = _IEBodyReadText($oIE)
  204. If StringInStr($PageText, 'Shoutbox') > 0 Then
  205. TrayTip("iBOT", "Đăng nhập thành công!", 0)
  206. Local $RIPUSER1 = GUICtrlRead($IPUSER1)
  207. GUICtrlSetData ($INFO2,'Xin Chào: ' & $RIPUSER1 & @CRLF & 'IP: ' & $GETIP1)
  208. GUISetState(@SW_HIDE, $LOGIN1)
  209. GUISetState(@SW_SHOW, $IBOT2)
  210. $logout = _StringBetween($PageSource, 'href="logout/', '"')[0]
  211. _IENavigate ($oIE,'http://ibotvn.com/forum/logout/'&$logout )
  212. _IEQuit($oIE)
  213. Else
  214. MsgBox(0, "", "Đăng nhập thất bại")
  215. EndIf
  216. EndFunc
  217.  
  218.  
  219. Func _EXIT()
  220. RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\BoL", "user", "REG_SZ", "")
  221. RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\BoL", "pass", "REG_SZ", "")
  222. RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Wow6432Node\BoL", "user", "REG_SZ", "")
  223. RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Wow6432Node\BoL", "pass", "REG_SZ", "")
  224. ProcessClose ("Hijacker.exe")
  225. ProcessClose ("BolVIP.exe")
  226. ProcessClose ("BoL Studio.exe")
  227. ProcessClose ('AntiBan.exe')
  228. Exit
  229. EndFunc
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement
Public Pastes
Advertisement
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!