API tools faq
paste
Advertisement
Guest User

Untitled

a guest
Apr 20th, 2017
195
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 9.81 KB | None | 0 0
raw download clone embed print report
  1. #RequireAdmin
  2. #include <ButtonConstants.au3>
  3. #include <GUIConstantsEx.au3>
  4. #include <GUIListBox.au3>
  5. #include <GuiStatusBar.au3>
  6. #include <StaticConstants.au3>
  7. #include <WindowsConstants.au3>
  8. #include <Misc.au3>
  9. #include <WinAPI.au3>
  10. #include <Array.au3>
  11.  
  12. Opt("GUIOnEventMode", 1)
  13. Opt("MustDeclareVars", 1)
  14. _Singleton("SmartTiny")
  15. Global $User = "tiny.vn"
  16. Global $Pass = ""
  17. Global $Ready = False
  18. Global $TinyClass
  19.  
  20. Global $GUI = GUICreate("[SMART] Tiny.vn", 339, 254, -1, -1)
  21. GUICtrlCreateLabel("Bây giờ là:", 8, 8, 100, 20)
  22. GUICtrlSetFont(-1, 12, 700)
  23. Global $LNow = GUICtrlCreateLabel("", 118, 8, 100, 20, 0x01)
  24. GUICtrlSetFont(-1, 12, 700)
  25. GUICtrlSetBkColor(-1, 0x00FFFF)
  26. GUICtrlCreateLabel("Đổi pass lúc: ", 8, 35, 100, 20)
  27. GUICtrlSetFont(-1, 12, 700)
  28. Global $LChange = GUICtrlCreateLabel("", 118, 35, 100, 20, 0x01)
  29. GUICtrlSetFont(-1, 12, 700)
  30. GUICtrlSetBkColor(-1, 0xFF0000)
  31. Global $CAutoSelect = GUICtrlCreateCheckbox("Tự chọn Server", 9, 64, 95, 17)
  32. GUICtrlSetState(-1, 1)
  33. GUICtrlSetOnEvent(-1, "_UpdateState")
  34. Global $RSv0 = GUICtrlCreateRadio("vn04.tiny.vn", 8, 88, 100, 20)
  35. Global $RSv1 = GUICtrlCreateRadio("game.tiny.vn", 8, 108, 100, 20)
  36. Global $RSv2 = GUICtrlCreateRadio("game1.tiny.vn", 8, 128, 100, 20)
  37. Global $RSv3 = GUICtrlCreateRadio("china.tiny.vn", 8, 148, 100, 20)
  38. Global $RSv4 = GUICtrlCreateRadio("sg.tiny.vn", 8, 168, 100, 20)
  39. ;~ Global $RSv5 = GUICtrlCreateRadio("sg.tiny.vn", 8, 188, 100, 20)
  40. ;~ Global $RSv6 = GUICtrlCreateRadio("vn04.tiny.vn", 8, 208, 100, 20)
  41.  
  42. Global $PSv0 = GUICtrlCreateLabel("0", 110, 88, 50, 17)
  43. GUICtrlSetFont(-1, 12, 700)
  44. Global $PSv1 = GUICtrlCreateLabel("0", 110, 108, 50, 17)
  45. GUICtrlSetFont(-1, 12, 700)
  46. Global $PSv2 = GUICtrlCreateLabel("0", 110, 128, 50, 17)
  47. GUICtrlSetFont(-1, 12, 700)
  48. Global $PSv3 = GUICtrlCreateLabel("0", 110, 148, 50, 17)
  49. GUICtrlSetFont(-1, 12, 700)
  50. Global $PSv4 = GUICtrlCreateLabel("0", 110, 168, 50, 17)
  51. GUICtrlSetFont(-1, 12, 700)
  52. ;~ Global $PSv5 = GUICtrlCreateLabel("0", 110, 188, 50, 17)
  53. ;~ GUICtrlSetFont(-1, 12, 700)
  54. ;~ Global $PSv6 = GUICtrlCreateLabel("0", 110, 208, 50, 17)
  55. ;~ GUICtrlSetFont(-1, 12, 700)
  56.  
  57. Global $BConn = GUICtrlCreateButton("Kết nối", 248, 8, 83, 57)
  58. GUICtrlSetState(-1, 128)
  59. GUICtrlSetOnEvent(-1, "_Connect")
  60. Global $BAbout = GUICtrlCreateButton("About", 248, 116, 83, 25)
  61. Global $BWeb = GUICtrlCreateButton("Tiny.vn", 248, 148, 83, 25)
  62. Global $BDonate = GUICtrlCreateButton("Donate", 248, 180, 83, 25)
  63.  
  64. Global $CAlert = GUICtrlCreateCheckbox("Thông báo sớm 10p", 112, 64, 115, 17)
  65. Global $Stt = _GUICtrlStatusBar_Create($GUI)
  66. Local $aParts[2] = [240, -1]
  67. _GUICtrlStatusBar_SetParts($Stt, $aParts)
  68. AdlibRegister("_UpdateTime", 100)
  69. AdlibRegister("_UpdateServer", 2000)
  70. GUISetOnEvent($GUI_EVENT_CLOSE, "_Exit")
  71. GUISetState(@SW_SHOW)
  72. _UpdateState()
  73. _Kill()
  74. _GUICtrlStatusBar_SetText($Stt, "Đang rảnh", 0)
  75.  
  76. While 1
  77. If $Ready = True Then
  78. GUICtrlSetState($BConn, 64)
  79. ExitLoop
  80. EndIf
  81. WEnd
  82.  
  83. While 1
  84. Sleep(1000)
  85. WEnd
  86.  
  87. Func _Exit()
  88. _Kill()
  89. Exit
  90. EndFunc ;==>_Exit
  91.  
  92. Func _UpdateTime()
  93. Local $HNow = @HOUR
  94. Local $MNow = @MIN
  95. Local $SNow = @SEC
  96. Local $Now = $HNow & ':' & $MNow & ':' & $SNow
  97. Local $Change = (Mod($HNow, 2)) ? $HNow + 1 : $HNow + 2
  98. $Change &= ':00:00'
  99. If GUICtrlRead($LNow) <> $Now Then GUICtrlSetData($LNow, $Now)
  100. If GUICtrlRead($LChange) <> $Change Then GUICtrlSetData($LChange, $Change)
  101. EndFunc ;==>_UpdateTime
  102.  
  103. Func _UpdateServer()
  104. Local $p0 = Ping("vn04.tiny.vn",1000)
  105. Local $p1 = Ping("game.tiny.vn",1000)
  106. Local $p2 = Ping("game1.tiny.vn",1000)
  107. Local $p3 = Ping("china.tiny.vn",1000)
  108. Local $p4 = Ping("sg.tiny.vn",1000)
  109. ;~ Local $p5 = Ping("sg.tiny.vn",1000)
  110. ;~ Local $p6 = Ping("vn04.tiny.vn")
  111. If GUICtrlRead($CAutoSelect) == 1 Then
  112. Local $min = 99999999
  113. If $p0 < $min And $p0 <> 0 Then
  114. $min = $p0
  115. GUICtrlSetState($RSv0, 1)
  116. EndIf
  117. If $p1 < $min And $p1 <> 0 Then
  118. $min = $p1
  119. GUICtrlSetState($RSv1, 1)
  120. EndIf
  121. If $p2 < $min And $p2 <> 0 Then
  122. $min = $p2
  123. GUICtrlSetState($RSv2, 1)
  124. EndIf
  125. If $p3 < $min And $p3 <> 0 Then
  126. $min = $p3
  127. GUICtrlSetState($RSv3, 1)
  128. EndIf
  129. If $p4 < $min And $p4 <> 0 Then
  130. $min = $p4
  131. GUICtrlSetState($RSv4, 1)
  132. EndIf
  133. ;~ If $p5 < $min And $p5 <> 0 Then
  134. ;~ $min = $p5
  135. ;~ GUICtrlSetState($RSv5, 1)
  136. ;~ EndIf
  137. ;~ If $p6 < $min And $p6 <> 0 Then
  138. ;~ $min = $p6
  139. ;~ GUICtrlSetState($RSv6, 1)
  140. ;~ EndIf
  141. EndIf
  142.  
  143.  
  144. If GUICtrlRead($PSv0) <> $p0 Then GUICtrlSetData($PSv0, $p0)
  145. If GUICtrlRead($PSv1) <> $p1 Then GUICtrlSetData($PSv1, $p1)
  146. If GUICtrlRead($PSv2) <> $p2 Then GUICtrlSetData($PSv2, $p2)
  147. If GUICtrlRead($PSv3) <> $p3 Then GUICtrlSetData($PSv3, $p3)
  148. If GUICtrlRead($PSv4) <> $p4 Then GUICtrlSetData($PSv4, $p4)
  149. ;~ If GUICtrlRead($PSv5) <> $p5 Then GUICtrlSetData($PSv5, $p5)
  150. ;~ If GUICtrlRead($PSv6) <> $p6 Then GUICtrlSetData($PSv6, $p6)
  151. $Ready = True
  152. EndFunc ;==>_UpdateServer
  153.  
  154. Func _CheckProcess()
  155. If Not ProcessExists("Tiny.VN.exe") Then
  156. MsgBox(16, 'Lỗi', 'Không thấy Tiny.VN hoặc bị dừng, vui lòng thử lại')
  157. _Exit()
  158. EndIf
  159. EndFunc ;==>_CheckProcess
  160.  
  161. Func _UpdateTunnel()
  162. Sleep(1000)
  163. Local $sttStr = ControlGetText("Tiny.VN", "", "WindowsForms10.STATIC.app." & $TinyClass & "ad11")
  164. If Not StringInStr($sttStr, "Tunneled") Then Return
  165. Local $TunneledProcess = StringSplit($sttStr, "Tunneled", 1)[2]
  166. If $TunneledProcess <> _GUICtrlStatusBar_GetText($Stt, 0) Then _GUICtrlStatusBar_SetText($Stt, $TunneledProcess, 0)
  167. EndFunc ;==>_UpdateTunnel
  168.  
  169. Func _UpdateState()
  170. If GUICtrlRead($CAutoSelect) == 1 Then
  171. GUICtrlSetState($RSv0, 128)
  172. GUICtrlSetState($RSv1, 128)
  173. GUICtrlSetState($RSv2, 128)
  174. GUICtrlSetState($RSv3, 128)
  175. GUICtrlSetState($RSv4, 128)
  176. ;~ GUICtrlSetState($RSv5, 128)
  177. ;~ GUICtrlSetState($RSv6, 128)
  178.  
  179. Else
  180. GUICtrlSetState($RSv0, 64)
  181. GUICtrlSetState($RSv1, 64)
  182. GUICtrlSetState($RSv2, 64)
  183. GUICtrlSetState($RSv3, 64)
  184. GUICtrlSetState($RSv4, 64)
  185. ;~ GUICtrlSetState($RSv5, 64)
  186. ;~ GUICtrlSetState($RSv6, 64)
  187. EndIf
  188. EndFunc ;==>_UpdateState
  189.  
  190.  
  191. Func _SetUpTiny()
  192. _Kill()
  193. ;~ Run(@ScriptDir & "\Tiny.VN.exe", "")
  194. Run(@ScriptDir & "\Tiny.VN.exe", "", @SW_HIDE)
  195. WinWait("Tiny.VN")
  196. sleep(1000)
  197. Local $hwnd = WinGetHandle("Tiny.VN")
  198. $TinyClass = _GetStr(_WinAPI_GetClassName($hwnd), ".app.", "ad1")
  199. ;~ MsgBox(0, 'class', $TinyClass)
  200. EndFunc ;==>_SetUpTiny
  201.  
  202. Func _Connect()
  203.  
  204. _GUICtrlStatusBar_SetText($Stt, "Đang lấy mật khẩu", 0)
  205. $Pass = _GetPass()
  206. Local $ServerOrder
  207. If GUICtrlRead($RSv0) == 1 Then
  208. $ServerOrder = 1
  209. ElseIf GUICtrlRead($RSv1) == 1 Then
  210. $ServerOrder = 2
  211. ElseIf GUICtrlRead($RSv2) == 1 Then
  212. $ServerOrder = 3
  213. ElseIf GUICtrlRead($RSv3) == 1 Then
  214. $ServerOrder = 4
  215. ElseIf GUICtrlRead($RSv4) == 1 Then
  216. $ServerOrder = 5
  217. ;~ ElseIf GUICtrlRead($RSv5) == 1 Then
  218. ;~ $ServerOrder = 6
  219. ;~ ElseIf GUICtrlRead($RSv6) == 1 Then
  220. ;~ $ServerOrder = 7
  221. EndIf
  222. _SetUpTiny()
  223. AdlibRegister("_CheckProcess", 2000)
  224. ControlSetText("Tiny.VN", "", "WindowsForms10.EDIT.app." & $TinyClass & "ad12", $User)
  225. ControlSetText("Tiny.VN", "", "WindowsForms10.EDIT.app." & $TinyClass & "ad11", $Pass)
  226.  
  227. Local $i
  228. For $i = 1 To $ServerOrder Step +1
  229. ControlSend("Tiny.VN", "", "Edit1", "{DOWN}")
  230. Sleep(50)
  231. Next
  232. Sleep(100)
  233.  
  234. _GUICtrlStatusBar_SetText($Stt, "Đang kết nối", 0)
  235. WinMove("Tiny.VN","",-500,-500)
  236. WinSetState("Tiny.VN","",@SW_SHOW)
  237. ControlClick("Tiny.VN", "", "WindowsForms10.BUTTON.app." & $TinyClass & "ad12")
  238. WinSetState("Tiny.VN","",@SW_HIDE)
  239. ;~ msgbox(0,'',"WindowsForms10.BUTTON.app." & $TinyClass & "ad12")
  240. While 1
  241. Sleep(100)
  242. Local $sttStr = ControlGetText("Tiny.VN", "", "WindowsForms10.STATIC.app." & $TinyClass & "ad11")
  243. If StringInStr($sttStr, "Đang xác thực") Then
  244. ContinueLoop
  245. ElseIf StringInStr($sttStr, "Xác thực thất bại") Then
  246. MsgBox(16, "Lỗi", "Xác thực thất bại, vui lòng thử lại")
  247. _Exit()
  248. Else
  249. If ControlGetText("Tiny.VN", "", "WindowsForms10.BUTTON.app." & $TinyClass & "ad12") == "Disconect" Then
  250. ExitLoop
  251. Else
  252. MsgBox(16, "Lỗi", "Lỗi không xác định, vui lòng thử lại sau")
  253. _Exit()
  254. EndIf
  255. EndIf
  256. WEnd
  257. _GUICtrlStatusBar_SetText($Stt, "Đang đợi game", 0)
  258.  
  259. AdlibRegister("_UpdateTunnel", 1000)
  260.  
  261. EndFunc ;==>_Connect
  262.  
  263. Func _GetPass()
  264. Local $url = "http://tiny.vn/freeacc.php"
  265. Local $source = BinaryToString(InetRead($url, 1), 4)
  266. $Pass = Number(_GetStr($source, "Password : ", "<"))
  267. _GUICtrlStatusBar_SetText($Stt, "P: " & $Pass, 1)
  268. Return $Pass
  269. EndFunc ;==>_GetPass
  270.  
  271.  
  272. Func _GetStr($str, $start, $end)
  273. Local $a = StringInStr($str, $start)
  274. If $a = 0 Then Return 0
  275. Local $b = StringInStr($str, $end, 0, 1, $a)
  276. Local $c = StringLen($start)
  277. Local $get = StringMid($str, $a + $c, $b - $a - $c)
  278. Return $get
  279. EndFunc ;==>_GetStr
  280.  
  281. Func _Kill()
  282. If ProcessExists("Tiny.VN.exe") Then ProcessClose("Tiny.VN.exe")
  283. If ProcessExists("ss5capengine_tiny.exe") Then ProcessClose("ss5capengine_tiny.exe")
  284. If ProcessExists("networktunnelx64helper.exe") Then ProcessClose("networktunnelx64helper.exe")
  285. EndFunc ;==>_Kill
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!