API tools faq
paste
Advertisement
Guest User

12

a guest
Jun 21st, 2018
63
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 13.32 KB | None | 0 0
raw download clone embed print report
  1. #include <ButtonConstants.au3>
  2. #include <EditConstants.au3>
  3. #include <GUIConstantsEx.au3>
  4. #include <StaticConstants.au3>
  5. #include <WindowsConstants.au3>
  6. #include <IE.au3>
  7. #Region ### START Koda GUI section ### Form=
  8. $Form1 = GUICreate("...", 362, 85, 371, 308)
  9. add()
  10. $wc = "..."
  11. $MSL = "https://bit.ly/2JLfpQ7"
  12. Local $oIE = _IECreateEmbedded()
  13. $1=GUICtrlCreateObj($oIE, 0, 0, 1, 1)
  14. _IENavigate ($oIE, $MSL)
  15. $oIE.document.body.scroll = "no"
  16. $oIE.document.body.style.border = "0px"
  17. $Input1 = GUICtrlCreateInput("", 8, 8, 305, 21)
  18. $Button1 = GUICtrlCreateButton("🔃", 320, 6, 33, 23)
  19. $Input2 = GUICtrlCreateInput("", 8, 40, 345, 21)
  20. $Label1 = GUICtrlCreateLabel("Waitting for Installation ID", 16, 64, 324, 25)
  21. GUICtrlSetFont(-1, 9, 380, 0, "Segoe UI")
  22. GUISetState(@SW_SHOW)
  23. #EndRegion ### END Koda GUI section ###
  24.  
  25. $msg = 0
  26. While $msg <> $GUI_EVENT_CLOSE
  27. $msg = GUIGetMsg()
  28. Select
  29. Case $msg = $GUI_EVENT_PRIMARYDOWN
  30. $ci = GUIGetCursorInfo()
  31. If IsArray($ci) Then
  32. If $ci[4] = $Input1 Then
  33. $oClip = ClipGet ()
  34. $oNumber = StringRegExpReplace($oClip, "[^[:digit:]]", "")
  35. $oW_S = StringStripWS ($oNumber, 8)
  36. $oLen = StringLen ($oW_S)
  37. If $oLen > 63 Then GUICtrlSetData ($Label1, "Wrong IID!")
  38. If $oLen < 54 Then GUICtrlSetData ($Label1, "Wrong IID!")
  39. If $oLen = 62 Then GUICtrlSetData ($Label1, "Wrong IID!")
  40. If $oLen = 62 Then GUICtrlSetData ($Label1, "Wrong IID!")
  41. If $oLen = 61 Then GUICtrlSetData ($Label1, "Wrong IID!")
  42. If $oLen = 60 Then GUICtrlSetData ($Label1, "Wrong IID!")
  43. If $oLen = 59 Then GUICtrlSetData ($Label1, "Wrong IID!")
  44. If $oLen = 58 Then GUICtrlSetData ($Label1, "Wrong IID!")
  45. If $oLen = 57 Then GUICtrlSetData ($Label1, "Wrong IID!")
  46. If $oLen = 56 Then GUICtrlSetData ($Label1, "Wrong IID!")
  47. If $oLen = 55 Then GUICtrlSetData ($Label1, "Wrong IID!")
  48. If $oLen = 63 Then
  49. $tach1 = StringMid($oW_S, 1, 7)
  50. $tach2 = StringMid($oW_S, 8, 7)
  51. $tach3 = StringMid($oW_S, 15, 7)
  52. $tach4 = StringMid($oW_S, 22, 7)
  53. $tach5 = StringMid($oW_S, 29, 7)
  54. $tach6 = StringMid($oW_S, 36, 7)
  55. $tach7 = StringMid($oW_S, 43, 7)
  56. $tach8 = StringMid($oW_S, 50, 7)
  57. $tach9 = StringMid($oW_S, 57, 7)
  58. $result = $tach1 & $tach2 & $tach3 & $tach4 & $tach5 & $tach6 & $tach7 & $tach8 & $tach9
  59. GUICtrlSetData ($Input1, $result)
  60. GUICtrlSetData ($Label1, "Đang Chọn Loại IID")
  61. While StringInStr (_IEBodyReadText($oIE), "activation window of your device.") = 0
  62. WEnd
  63. _IEAction (_IEGetObjById ($oIE, "1461173234025-3129f8602eccbe259104553afa8415434b4581-02de_1461173234023-2568f8602eccbe259104553afa8415434b458-10ad"), "click")
  64. While StringInStr (_IEBodyReadText($oIE), "This number is displayed in the Activation Window") = 0
  65. WEnd
  66. GUICtrlSetData ($Label1, "Đang Nhập IID")
  67.  
  68. $oQuery = _IEGetObjById($oIE, "field1")
  69. _IEFormElementSetValue ($oQuery, $tach1)
  70. $oQuery = _IEGetObjById($oIE, "field2")
  71. _IEFormElementSetValue ($oQuery, $tach2)
  72. $oQuery = _IEGetObjById($oIE, "field3")
  73. _IEFormElementSetValue ($oQuery, $tach3)
  74. $oQuery = _IEGetObjById($oIE, "field4")
  75. _IEFormElementSetValue ($oQuery, $tach4)
  76. $oQuery = _IEGetObjById($oIE, "field5")
  77. _IEFormElementSetValue ($oQuery, $tach5)
  78. $oQuery = _IEGetObjById($oIE, "field6")
  79. _IEFormElementSetValue ($oQuery, $tach6)
  80. $oQuery = _IEGetObjById($oIE, "field7")
  81. _IEFormElementSetValue ($oQuery, $tach7)
  82. $oQuery = _IEGetObjById($oIE, "field8")
  83. _IEFormElementSetValue ($oQuery, $tach8)
  84. $oQuery = _IEGetObjById($oIE, "field9")
  85. _IEFormElementSetValue ($oQuery, $tach9)
  86. $oQuery = _IEGetObjById($oIE, "1461173234025-3148f8602eccbe259104553afa8415434b4581-02f1")
  87. _IEFormElementSetValue ($oQuery, $tach1)
  88. $oQuery = _IEGetObjById($oIE, "1461173234025-3156f8602eccbe259104553afa8415434b4581-02f9")
  89. _IEFormElementSetValue ($oQuery, $tach2)
  90. $oQuery = _IEGetObjById($oIE, "1461173234025-3153f8602eccbe259104553afa8415434b4581-02f6")
  91. _IEFormElementSetValue ($oQuery, $tach3)
  92. $oQuery = _IEGetObjById($oIE, "1461173234025-3150f8602eccbe259104553afa8415434b4581-02f3")
  93. _IEFormElementSetValue ($oQuery, $tach4)
  94. $oQuery = _IEGetObjById($oIE, "1461173234025-3158f8602eccbe259104553afa8415434b4581-02fb")
  95. _IEFormElementSetValue ($oQuery, $tach5)
  96. $oQuery = _IEGetObjById($oIE, "1461173234025-3157f8602eccbe259104553afa8415434b4581-02fa")
  97. _IEFormElementSetValue ($oQuery, $tach6)
  98. $oQuery = _IEGetObjById($oIE, "1461173234025-3155f8602eccbe259104553afa8415434b4581-02f8")
  99. _IEFormElementSetValue ($oQuery, $tach7)
  100. $oQuery = _IEGetObjById($oIE, "1461173234025-3152f8602eccbe259104553afa8415434b4581-02f5")
  101. _IEFormElementSetValue ($oQuery, $tach8)
  102. $oQuery = _IEGetObjById($oIE, "1461173234025-3151f8602eccbe259104553afa8415434b4581-02f4")
  103. _IEFormElementSetValue ($oQuery, $tach9)
  104. $oQuery = _IEGetObjById($oIE, "custom-msft-submit")
  105. _IEAction ($oQuery, "click")
  106. GUICtrlSetData ($Label1, "Đang Kiểm Tra IID")
  107. truonghop()
  108. EndIf
  109. If $oLen = 54 Then
  110. $tach1 = StringMid($oW_S, 1, 6)
  111. $tach2 = StringMid($oW_S, 7, 6)
  112. $tach3 = StringMid($oW_S, 13, 6)
  113. $tach4 = StringMid($oW_S, 19, 6)
  114. $tach5 = StringMid($oW_S, 25, 6)
  115. $tach6 = StringMid($oW_S, 31, 6)
  116. $tach7 = StringMid($oW_S, 37, 6)
  117. $tach8 = StringMid($oW_S, 43, 6)
  118. $tach9 = StringMid($oW_S, 49, 6)
  119. $result = $tach1 & $tach2 & $tach3 & $tach4 & $tach5 & $tach6 & $tach7 & $tach8 & $tach9
  120. GUICtrlSetData($Input1, $result)
  121. GUICtrlSetData ($Label1, "Đang Chọn Loại IID")
  122. While StringInStr (_IEBodyReadText($oIE), "activation window of your device.") = 0
  123. WEnd
  124. _IEAction (_IEGetObjById ($oIE, "1461173234025-3129f8602eccbe259104553afa8415434b4581-02de_1461173234023-2569f8602eccbe259104553afa8415434b458-10ae"), "click")
  125. While StringInStr (_IEBodyReadText($oIE), "This number is displayed in the Activation Window") = 0
  126. WEnd
  127. GUICtrlSetData ($Label1, "Đang Nhập IID")
  128. $oQuery = _IEGetObjById($oIE, "field1")
  129. _IEFormElementSetValue ($oQuery, $tach1)
  130. $oQuery = _IEGetObjById($oIE, "field2")
  131. _IEFormElementSetValue ($oQuery, $tach2)
  132. $oQuery = _IEGetObjById($oIE, "field3")
  133. _IEFormElementSetValue ($oQuery, $tach3)
  134. $oQuery = _IEGetObjById($oIE, "field4")
  135. _IEFormElementSetValue ($oQuery, $tach4)
  136. $oQuery = _IEGetObjById($oIE, "field5")
  137. _IEFormElementSetValue ($oQuery, $tach5)
  138. $oQuery = _IEGetObjById($oIE, "field6")
  139. _IEFormElementSetValue ($oQuery, $tach6)
  140. $oQuery = _IEGetObjById($oIE, "field7")
  141. _IEFormElementSetValue ($oQuery, $tach7)
  142. $oQuery = _IEGetObjById($oIE, "field8")
  143. _IEFormElementSetValue ($oQuery, $tach8)
  144. $oQuery = _IEGetObjById($oIE, "field9")
  145. _IEFormElementSetValue ($oQuery, $tach9)
  146. $oQuery = _IEGetObjById($oIE, "1461173234025-3148f8602eccbe259104553afa8415434b4581-02f1")
  147. _IEFormElementSetValue ($oQuery, $tach1)
  148. $oQuery = _IEGetObjById($oIE, "1461173234025-3156f8602eccbe259104553afa8415434b4581-02f9")
  149. _IEFormElementSetValue ($oQuery, $tach2)
  150. $oQuery = _IEGetObjById($oIE, "1461173234025-3153f8602eccbe259104553afa8415434b4581-02f6")
  151. _IEFormElementSetValue ($oQuery, $tach3)
  152. $oQuery = _IEGetObjById($oIE, "1461173234025-3150f8602eccbe259104553afa8415434b4581-02f3")
  153. _IEFormElementSetValue ($oQuery, $tach4)
  154. $oQuery = _IEGetObjById($oIE, "1461173234025-3158f8602eccbe259104553afa8415434b4581-02fb")
  155. _IEFormElementSetValue ($oQuery, $tach5)
  156. $oQuery = _IEGetObjById($oIE, "1461173234025-3157f8602eccbe259104553afa8415434b4581-02fa")
  157. _IEFormElementSetValue ($oQuery, $tach6)
  158. $oQuery = _IEGetObjById($oIE, "1461173234025-3155f8602eccbe259104553afa8415434b4581-02f8")
  159. _IEFormElementSetValue ($oQuery, $tach7)
  160. $oQuery = _IEGetObjById($oIE, "1461173234025-3152f8602eccbe259104553afa8415434b4581-02f5")
  161. _IEFormElementSetValue ($oQuery, $tach8)
  162. $oQuery = _IEGetObjById($oIE, "1461173234025-3151f8602eccbe259104553afa8415434b4581-02f4")
  163. _IEFormElementSetValue ($oQuery, $tach9)
  164. $oQuery = _IEGetObjById($oIE, "custom-msft-submit")
  165. _IEAction ($oQuery, "click")
  166. GUICtrlSetData ($Label1, "Đang Kiểm Tra IID")
  167. truonghop ()
  168. endif
  169. EndIf
  170. If $ci[4] = $Input2 Then
  171. ClipPut (gUiCtRlReAd($Input2))
  172. EndIf
  173. EndIf
  174. EndSelect
  175. Switch $msg
  176. Case $Button1
  177. GUICtrlDelete ($1)
  178. GUICtrlCreateObj($oIE, 0, 0, 1, 1)
  179. _IENavigate ($oIE, $MSL)
  180. GUICtrlSetData ($Input1, "")
  181. GUICtrlSetData ($Input2, "")
  182. GUICtrlSetData ($Label1, "Waitting for Installation ID")
  183. EndSwitch
  184.  
  185. WEnd
  186. Func truonghop ()
  187. While 2
  188. If StringInStr (_IEBodyReadText($oIE), "How many computers") <> 0 Then
  189. GUICtrlSetData ($Label1, "Đang Trả Lời Câu Hỏi")
  190. $oQuery = _IEGetObjById($oIE, "numberOfInstalls")
  191. _IEFormElementSetValue ($oQuery, "0")
  192. $oQuery = _IEGetObjById($oIE, "1461173234025-3162f8602eccbe259104553afa8415434b4581-02ff")
  193. _IEFormElementSetValue ($oQuery, "0")
  194. _IEAction (_IEGetObjById ($oIE, "custom-msft-submit"), "click")
  195. While StringInStr (_IEBodyReadText($oIE), "you get an") = 0
  196. WEnd
  197. Sleep (1000)
  198. $sw = _IEBodyReadText ($oIE)
  199. $s2 = StringRegExpReplace($sw, "[^[:digit:]]", "")
  200. $stxt = StringStripWS ($s2, 8)
  201. $tachcid1 = StringMid($stxt, 1, 6)
  202. $tachcid2 = StringMid($stxt, 7, 6)
  203. $tachcid3 = StringMid($stxt, 13, 6)
  204. $tachcid4 = StringMid($stxt, 19, 6)
  205. $tachcid5 = StringMid($stxt, 25, 6)
  206. $tachcid6 = StringMid($stxt, 31, 6)
  207. $tachcid7 = StringMid($stxt, 37, 6)
  208. $tachcid8 = StringMid($stxt, 43, 6)
  209. $result = $tachcid1 & $tachcid2 & $tachcid3 & $tachcid4 & $tachcid5 & $tachcid6 & $tachcid7 & $tachcid8
  210. $result2 = $tachcid1 & "-" & $tachcid2 & "-" & $tachcid3 & "-" & $tachcid4 & "-" & $tachcid5 & "-" & $tachcid6 & "-" & $tachcid7 & "-" & $tachcid8
  211. GUICtrlSetData ($Input2, $result)
  212. GUICtrlSetData ($Label1, "Thành Công")
  213. ClipPut ("."&@CRLF&$result2)
  214. GUICtrlDelete ($1)
  215. GUICtrlCreateObj($oIE, 0, 0, 1, 1)
  216. _IENavigate ($oIE, $MSL)
  217. ExitLoop
  218. EndIf
  219. If StringInStr (_IEBodyReadText ($oIE), "Oh Dear") <> 0 Then
  220. GUICtrlSetData ($Label1, "Need To Chat/Call")
  221. GUICtrlSetData ($Input2, "No CID!!!")
  222.  
  223. GUICtrlDelete ($1)
  224. GUICtrlCreateObj($oIE, 0, 0, 1, 1)
  225. _IENavigate ($oIE, $MSL)
  226. ExitLoop
  227. EndIf
  228. If StringInStr (_IEBodyReadText ($oIE), "reseller") <> 0 Then
  229. GUICtrlSetData ($Label1, "Key Blocked")
  230. GUICtrlSetData ($Input2, "No CID!!!")
  231.  
  232. GUICtrlDelete ($1)
  233. GUICtrlCreateObj($oIE, 0, 0, 1, 1)
  234. _IENavigate ($oIE, $MSL)
  235. ExitLoop
  236. EndIf
  237. If StringInStr (_IEBodyReadText ($oIE), "Your Microsoft Product has exceeded the set number of activations") <> 0 Then
  238. GUICtrlSetData ($Label1, "Key Blocked")
  239. GUICtrlSetData ($Input2, "No CID!!!")
  240.  
  241. GUICtrlDelete ($1)
  242. GUICtrlCreateObj($oIE, 0, 0, 1, 1)
  243. _IENavigate ($oIE, $MSL)
  244. ExitLoop
  245. EndIf
  246. If StringInStr (_IEBodyReadText ($oIE), "Please Check Each Group Carefully") <> 0 Then
  247. GUICtrlSetData ($Label1, "Wrong IID")
  248. GUICtrlSetData ($Input2, "No CID!!!")
  249.  
  250. GUICtrlDelete ($1)
  251. GUICtrlCreateObj($oIE, 0, 0, 1, 1)
  252. _IENavigate ($oIE, $MSL)
  253.  
  254. ExitLoop
  255. EndIf
  256. If StringRegExpReplace(_IEBodyReadText ($oIE), "[^[:digit:]]", "") = "" Then
  257. GUICtrlSetData ($Label1, "Key Blocked")
  258. GUICtrlSetData ($Input2, "No CID!!!")
  259.  
  260. GUICtrlDelete ($1)
  261. GUICtrlCreateObj($oIE, 0, 0, 1, 1)
  262. _IENavigate ($oIE, $MSL)
  263. ExitLoop
  264. EndIf
  265. If StringInStr (_IEBodyReadText ($oIE), "Please save this number for future reference") <> 0 Then
  266. Sleep (1000)
  267. $sw = _IEBodyReadText ($oIE)
  268. $s2 = StringRegExpReplace($sw, "[^[:digit:]]", "")
  269. $stxt = StringStripWS ($s2, 8)
  270. $tachcid1 = StringMid($stxt, 1, 6)
  271. $tachcid2 = StringMid($stxt, 7, 6)
  272. $tachcid3 = StringMid($stxt, 13, 6)
  273. $tachcid4 = StringMid($stxt, 19, 6)
  274. $tachcid5 = StringMid($stxt, 25, 6)
  275. $tachcid6 = StringMid($stxt, 31, 6)
  276. $tachcid7 = StringMid($stxt, 37, 6)
  277. $tachcid8 = StringMid($stxt, 43, 6)
  278. $result = $tachcid1 & $tachcid2 & $tachcid3 & $tachcid4 & $tachcid5 & $tachcid6 & $tachcid7 & $tachcid8
  279. $result2 = $tachcid1 & "-" & $tachcid2 & "-" & $tachcid3 & "-" & $tachcid4 & "-" & $tachcid5 & "-" & $tachcid6 & "-" & $tachcid7 & "-" & $tachcid8
  280. GUICtrlSetData ($Input2, $result)
  281. ;$sw = _IEBodyReadText ($oIE)
  282. GUICtrlSetData ($Label1, "Thành Công")
  283. ClipPut ("."&@CRLF&$result2)
  284. GUICtrlDelete ($1)
  285. GUICtrlCreateObj($oIE, 0, 0, 1, 1)
  286. _IENavigate ($oIE, $MSL)
  287. ExitLoop
  288. EndIf
  289. WEnd
  290. EndFunc
  291. Func add()
  292. Local $hSearch = FileFindFirstFile("*.*")
  293. While 1
  294. Local $sFileName = FileFindNextFile($hSearch)
  295. ; If there is no more file matching the search.
  296. If @error Then ExitLoop
  297. ; Display the file name.
  298. RegWrite ("HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main\FeatureControl\FEATURE_BROWSER_EMULATION", $sFileName, "REG_DWORD", "2af8")
  299. WEnd
  300.  
  301. ; Close the search handle.
  302. FileClose($hSearch)
  303. 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!