API tools faq
paste
Advertisement
Guest User

Auto Zing Me v1.5

a guest
Jul 5th, 2015
378
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 23.14 KB | None | 0 0
raw download clone embed print report
  1. #include <ButtonConstants.au3>
  2. #include <ComboConstants.au3>
  3. #include <EditConstants.au3>
  4. #include <GUIConstantsEx.au3>
  5. #include <ProgressConstants.au3>
  6. #include <StaticConstants.au3>
  7. #include <TabConstants.au3>
  8. #include <WindowsConstants.au3>
  9. #include <WinHttp.au3>
  10. #include <String.au3>
  11. #include <GuiListView.au3>
  12. #Region ### START Koda GUI section ### Form=
  13. Global $Form1 = GUICreate("Auto K2T Group", 412, 282, 432, 198)
  14. GUISetFont(8, 400, 0, "Arial")
  15. Global $Tab1 = GUICtrlCreateTab(0, 0, 409, 281)
  16. GUICtrlSetFont(-1, 11, 400, 0, "Arial")
  17. Global $TabSheet1 = GUICtrlCreateTabItem("Flower")
  18. GUICtrlCreateLabel("TK:", 8, 48, 29, 23)
  19. GUICtrlSetFont(-1, 13, 400, 0, "Arial")
  20. GUICtrlCreateLabel("MK:", 8, 112, 33, 23)
  21. GUICtrlSetFont(-1, 13, 400, 0, "Arial")
  22. Global $id = GUICtrlCreateInput(FileReadLine("C:\Auto K2T Group\user.txt",1), 72, 48, 177, 26)
  23. GUICtrlSetFont(-1, 12, 400, 0, "Arial")
  24. Global $pass = GUICtrlCreateInput(FileReadLine("C:\Auto K2T Group\user.txt",2), 72, 111, 177, 26, BitOR($GUI_SS_DEFAULT_INPUT,$ES_PASSWORD))
  25. GUICtrlSetFont(-1, 12, 400, 0, "Arial")
  26. Global $stt = GUICtrlCreateLabel("(Chưa xác thực...)", 256, 160, 136, 23)
  27. GUICtrlSetFont(-1, 13, 400, 0, "Arial")
  28. GUICtrlSetColor(-1, 0x0000FF)
  29. Global $btnlogin = GUICtrlCreateButton("Đăng Nhập", 264, 64, 129, 41)
  30. GUICtrlSetFont(-1, 13, 400, 0, "Arial")
  31. GUICtrlSetCursor (-1, 0)
  32. Global $btnflower = GUICtrlCreateButton("Chăm Hoa", 112, 152, 137, 41)
  33. GUICtrlSetFont(-1, 13, 400, 0, "Arial")
  34. GUICtrlSetState(-1, $GUI_DISABLE)
  35. GUICtrlSetCursor (-1, 0)
  36. Global $Progress1 = GUICtrlCreateProgress(8, 208, 393, 33)
  37. Global $Label2 = GUICtrlCreateLabel("", 8, 248, 143, 23)
  38. GUICtrlSetState(-1,$GUI_HIDE)
  39. GUICtrlSetFont(-1, 13, 400, 0, "Arial")
  40. Global $TabSheet2 = GUICtrlCreateTabItem("Up View")
  41. GUICtrlCreateLabel("Nhập ID Zing cần Up View:", 8, 40, 202, 23)
  42. GUICtrlSetFont(-1, 13, 400, 0, "Arial")
  43. Global $idview = GUICtrlCreateInput("", 8, 72, 201, 27)
  44. GUICtrlSendMsg($idview, $EM_SETCUEBANNER, True, "ID Zing muốn Up View...")
  45. GUICtrlSetFont(-1, 13, 400, 0, "Arial")
  46. Global $btnview = GUICtrlCreateButton("START VIEW", 8, 112, 201, 33)
  47. GUICtrlSetFont(-1, 13, 400, 0, "Arial")
  48. GUICtrlSetState(-1, $GUI_DISABLE)
  49. GUICtrlSetCursor (-1, 0)
  50. Global $btnstop = GUICtrlCreateButton("STOP VIEW", 8, 160, 201, 33)
  51. GUICtrlSetFont(-1, 13, 400, 0, "Arial")
  52. GUICtrlSetState(-1, $GUI_DISABLE)
  53. GUICtrlSetCursor (-1, 0)
  54. Global $view = GUICtrlCreateLabel("Your View:", 8, 216, 200, 23)
  55. GUICtrlSetState(-1,$GUI_HIDE)
  56. GUICtrlSetFont(-1, 13, 400, 0, "Arial")
  57. GUICtrlCreateLabel("<- Nhập ID muốn Up ", 224, 71, 160, 23)
  58. GUICtrlSetFont(-1, 13, 400, 0, "Arial")
  59. GUICtrlSetColor(-1, 0xFF0000)
  60. GUICtrlCreateLabel("<- Ấn để bắt đầu Up", 224, 120, 152, 23)
  61. GUICtrlSetFont(-1, 13, 400, 0, "Arial")
  62. GUICtrlSetColor(-1, 0x0000FF)
  63. GUICtrlCreateLabel("<- Ấn để dừng Up View", 224, 166, 174, 23)
  64. GUICtrlSetFont(-1, 13, 400, 0, "Arial")
  65. GUICtrlSetColor(-1, 0x800080)
  66. Global $TabSheet3 = GUICtrlCreateTabItem("Post Status")
  67. GUICtrlCreateLabel("Nhập nội dung:", 8, 104, 115, 23)
  68. GUICtrlSetFont(-1, 13, 400, 0, "Arial")
  69. Global $Combo1 = GUICtrlCreateCombo("Gái gú là phù du, tiền mới là vĩnh cửu =]]", 128, 104, 273, 25, BitOR($CBS_DROPDOWN,$CBS_AUTOHSCROLL))
  70. GUICtrlSetData(-1, "Tớ rất thích đi dưới trời mưa vì tớ có thể đái ra quần mà không ai hay biết|Bà Rịa kết hợp với Hà Nội để thành tỉnh ... Bà Nội|Người yêu không yêu mình , hãy nói "&Chr(39)&""&Chr(39)&"Không yêu trả dép bố về"&Chr(39)&""&Chr(39)&"|Mình khuyên các bạn đừng bao giờ để nước đến chân rồi mới nhảy ... để nó đến cổ rồi ta bơi lun =))|Tin đồn thường không đúng,nói cách khác là đồn lầm hoặc đồn sai lè,giải pháp khắc phục tin đồn sai là nên đồn lại =))|Sức khoẻ là vô giá. Hột xoàn mới có giá|Muốn thắng trong điền kinh thì tốt nhất là vừa chạy vừa ....rải đinh|Mỗi ngày tôi chọn một niềm vui, đi tới đi lui là hết 1 ngày =]]|Người iêu không tự sinh ra và cũng không tự mất đi, mà ''nó'' chỉ chuyển từ tay thằng này sang tay thằng khác|Hãy sống để được chết một lần|Chỉ có đàn ông mới đem lại hạnh phúc cho nhau|Ta sẵn sàng tốt đối với ai xem ta là bạn. Nhưng cũng sẵn sàng ném 'lựu đạn' đối với ai dám 'Khốn nạn' với ta|Nhất cóp, nhì quay, tam xoay , tứ giở :D")
  71. GUICtrlSetFont(-1, 12, 400, 0, "Arial")
  72. Global $Checkbox1 = GUICtrlCreateCheckbox("Post lên Wall nhà mình", 8, 72, 185, 17)
  73. GUICtrlSetFont(-1, 12, 400, 0, "Arial")
  74. Global $Checkbox2 = GUICtrlCreateCheckbox("Post Wall tất cả bạn bè", 8, 136, 185, 17)
  75. GUICtrlSetFont(-1, 12, 400, 0, "Arial")
  76. Global $btnpost = GUICtrlCreateButton("START POST", 120, 208, 145, 41)
  77. GUICtrlSetState(-1, $GUI_DISABLE)
  78. GUICtrlSetFont(-1, 13, 400, 0, "Arial")
  79. GUICtrlSetCursor (-1, 0)
  80. Global $Checkbox3 = GUICtrlCreateCheckbox("Kết hợp Up Level ?", 8, 40, 161, 17)
  81. GUICtrlSetState(-1, $GUI_CHECKED)
  82. GUICtrlSetFont(-1, 13, 400, 0, "Arial")
  83. GUICtrlCreateLabel("Nhập nội dung:", 8, 168, 115, 23)
  84. GUICtrlSetFont(-1, 13, 400, 0, "Arial")
  85. Global $Input2 = GUICtrlCreateInput("", 128, 168, 273, 26)
  86. GUICtrlSetFont(-1, 12, 400, 0, "Arial")
  87. Global $TabSheet4 = GUICtrlCreateTabItem("Download")
  88. GUICtrlCreateLabel("Nhập vào Link nhạc từ Zing MP3 muốn Download:", 16, 48, 366, 23)
  89. GUICtrlSetFont(-1, 13, 400, 0, "Arial")
  90. Global $nhac = GUICtrlCreateInput("", 16, 80, 369, 26)
  91. GUICtrlSetFont(-1, 12, 400, 0, "Arial")
  92. Global $Button2 = GUICtrlCreateButton("Start Download", 128, 168, 145, 41)
  93. GUICtrlSetFont(-1, 13, 400, 0, "Arial")
  94. GUICtrlSetCursor (-1, 0)
  95. GUICtrlCreateLabel("- Mặc định nhạc sẽ nằm cùng với nơi chứa Auto", 8, 224, 389, 23)
  96. GUICtrlSetFont(-1, 13, 400, 0, "Arial")
  97. GUICtrlCreateLabel("Tên bài hát:", 16, 128, 90, 23)
  98. GUICtrlSetFont(-1, 13, 400, 0, "Arial")
  99. Global $name = GUICtrlCreateInput("", 128, 127, 145, 26)
  100. GUICtrlSetFont(-1, 12, 400, 0, "Arial")
  101. Global $TabSheet5 = GUICtrlCreateTabItem("About")
  102. GUICtrlCreateLabel("- Auto xây dựng bởi: K2T TeaM. Phiên bản hiện tại: v1.2", 8, 40, 360, 21)
  103. GUICtrlSetFont(-1, 11, 400, 0, "Arial")
  104. GUICtrlCreateLabel("Nếu bạn gặp lỗi, hãy thử tắt đi và chờ 5~10 phút rồi bật lại.", 8, 72, 376, 21)
  105. GUICtrlSetFont(-1, 11, 400, 0, "Arial")
  106. GUICtrlCreateLabel("Nếu vẫn gặp lỗi, vui lòng báo cho tác giả của Auto để tư vấn", 8, 104, 387, 21)
  107. GUICtrlSetFont(-1, 11, 400, 0, "Arial")
  108. GUICtrlCreateLabel("Bạn thấy Auto hay, hãy Share Auto này bằng cách ấn nút", 8, 136, 371, 21)
  109. GUICtrlSetFont(-1, 11, 400, 0, "Arial")
  110. GUICtrlCreateLabel("dưới để Share tự động cho bạn bè để tác giả có thêm động", 8, 168, 382, 21)
  111. GUICtrlSetFont(-1, 11, 400, 0, "Arial")
  112. GUICtrlCreateLabel("lực viết thêm Auto và Update", 8, 200, 188, 21)
  113. GUICtrlSetFont(-1, 11, 400, 0, "Arial")
  114. Global $btnshare = GUICtrlCreateButton("Share cho bạn bè", 112, 232, 153, 33)
  115. GUICtrlSetState(-1, $GUI_DISABLE)
  116. GUICtrlSetFont(-1, 13, 400, 0, "Arial")
  117. GUICtrlSetCursor (-1, 0)
  118. GUICtrlCreateTabItem("")
  119. GUISetState(@SW_SHOW)
  120. #EndRegion ### END Koda GUI section ###
  121. Global $flagv
  122. Global $cookie, $k
  123. Global $stt
  124. Global $ffullid[2400]
  125. Opt("TrayMenuMode", 1)
  126. $hien = TrayCreateItem("Hiện Auto")
  127. $an = TrayCreateItem("Ẩn Auto")
  128. $thoat = TrayCreateItem("Thoát")
  129. GUIRegisterMsg($WM_COMMAND,"_WM_COMMAND")
  130. While 1
  131. $nMsg = GUIGetMsg()
  132. Switch $nMsg
  133. Case $GUI_EVENT_CLOSE
  134. DirCreate("C:\Auto K2T Group")
  135. $hFile = FileOpen("C:\Auto K2T Group\user.txt",130)
  136. FileWrite($hFile,GuiCtrlRead($id) & @CRLF & GuiCtrlRead($pass))
  137. FileClose($hFile)
  138. Exit
  139. Case $btnlogin
  140. login()
  141. Case $btnflower
  142. chamhoa()
  143. Case $btnview
  144. upview()
  145. Case $btnpost
  146. checkpost()
  147. Case $Checkbox3
  148. If GuiCtrlRead($Checkbox3) = $GUI_CHECKED Then
  149. GUICtrlSetState($Checkbox1,$GUI_ENABLE)
  150. GUICtrlSetState($Checkbox2,$GUI_ENABLE)
  151. GUICtrlSetState($Combo1,$GUI_ENABLE)
  152. GUICtrlSetState($Input2,$GUI_ENABLE)
  153. GUICtrlSetState($btnpost,$GUI_ENABLE)
  154. Else
  155. GUICtrlSetState($Checkbox1,$GUI_DISABLE)
  156. GUICtrlSetState($Checkbox2,$GUI_DISABLE)
  157. GUICtrlSetState($Combo1,$GUI_DISABLE)
  158. GUICtrlSetState($Input2,$GUI_DISABLE)
  159. GUICtrlSetState($btnpost,$GUI_DISABLE)
  160. EndIf
  161. Case $Button2
  162. If StringInStr(GuiCtrlRead($name),".mp3") Then
  163. MsgBox(16,"Error","Tên bài hát không được có đuôi.")
  164. Else
  165. download()
  166. EndIf
  167. Case $btnshare
  168. share()
  169. EndSwitch
  170. $traymsg = TrayGetMsg()
  171. Switch $traymsg
  172. Case $thoat
  173. Exit
  174. Case $hien
  175. GUISetState(@SW_SHOW)
  176. Case $an
  177. GUISetState(@SW_HIDE)
  178. EndSwitch
  179. WEnd
  180.  
  181. Func _wm_command($hwnd, $msg, $wparam, $lparam)
  182. If BitAND($wparam, 65535) = $btnstop Then $flagv = 0
  183. Return $gui_rundefmsg
  184. EndFunc
  185.  
  186. Func login()
  187. Local $rs = loginzm(GUICtrlRead($id), GUICtrlRead($pass))
  188. Switch $rs
  189. Case -2
  190. MsgBox(16,"Login","Tài khoản này đang bị khóa.")
  191. Return 1
  192. Case 0
  193. MsgBox(48,"Login","Sai tài khoản hoặc mật khẩu ?")
  194. Return 1
  195. Case -1
  196. MsgBox(16, "Login","Đăng nhập quá nhiều lần ! Vui lòng đăng nhập lại sau")
  197. Return 1
  198. Case 1
  199. GUICtrlSetState($btnlogin, $GUI_DISABLE)
  200. GUICtrlSetState($id, $GUI_DISABLE)
  201. GUICtrlSetState($pass, $GUI_DISABLE)
  202. GUICtrlSetState($btnflower,$GUI_ENABLE)
  203. GUICtrlSetState($btnpost,$GUI_ENABLE)
  204. GUICtrlSetState($btnshare,$GUI_ENABLE)
  205. GUICtrlSetData($btnlogin,"LOGINED")
  206. GUICtrlSetData($stt,"(Đã xác thực)")
  207. getlist(getuid(GUICtrlRead($id)))
  208. EndSwitch
  209. EndFunc
  210.  
  211. Func loginzm($id, $pass)
  212. Local $data = httprequest("https://sso3.zing.vn/login", "pid=25&u1=http%3A%2F%2Flogin.me.zing.vn%2Flogin%2Fsuccess&fp=http%3A%2F%2Flogin.me.zing.vn%2Flogin%2Ffail&u=" & $id & "&p=" & $pass & "&bntlogin=", "", "", 3)
  213. If StringInStr($data, "err=2001") Then
  214. Return 0
  215. ElseIf StringInStr($data, "mess=succ") Then
  216. Global $cookie = getcookielogin($data)
  217. $data = httprequest("http://login.me.zing.vn/login/success?mess=succ&u=" & $id, "", $cookie, "", 3)
  218. If StringInStr($data, "banacc") Then
  219. Return -2
  220. EndIf
  221. $cookie &= getcookielogin2($data)
  222. Return 1
  223. ElseIf StringInStr($data, "err=2005") Then
  224. Return -1
  225. EndIf
  226. EndFunc
  227.  
  228. Func getcookielogin($data)
  229. Local $_vngauth = _stringbetween($data, "vngauth=", "Path=/;")
  230. Local $_acn = _stringbetween($data, "acn=", "Path=/;")
  231. Local $_uin = _stringbetween($data, "uin=", "Path=/;")
  232. Local $_otp = _stringbetween($data, "otp=", "Path=/;")
  233. Local $cookie = "vngauth=" & $_vngauth[0] & "acn=" & $_acn[0] & "uin=" & $_uin[0] & "otp=" & $_otp[0]
  234. Return $cookie
  235. EndFunc
  236.  
  237. Func getcookielogin2($data)
  238. Dim $zauth = _stringbetween($data, "ZAUTH=", "Path=/;")
  239. Dim $zmes = _stringbetween($data, "ZMES=", "Path=/;")
  240. Local $cookie = "ZAUTH=" & $zauth[0] & "ZMES=" & $zmes[0]
  241. Return $cookie
  242. EndFunc
  243.  
  244. Func httprequest($url, $data2send = "", $cookie = "", $sreferrer = "", $a535eb21015 = "")
  245. Dim $sdata
  246. If StringInStr($url, "https") Then
  247. $port = 443
  248. Else
  249. $port = 80
  250. EndIf
  251. $url = StringReplace($url, "http://", "")
  252. $url = StringReplace($url, "https://", "")
  253. $a328c710a22 = StringInStr($url, "/")
  254. $sservername = StringMid($url, 1, $a328c710a22 - 1)
  255. $sobjectname = StringMid($url, $a328c710a22 + 1)
  256. $hopen = _winhttpopen("Mozilla/5.0 (Windows NT 5.1) AppleWebKit/535.11 (KHTML, like Gecko) Chrome/17.0.963.56 Safari/535.11")
  257. $hconnect = _winhttpconnect($hopen, $sservername, $port)
  258. If $port = 443 Then
  259. Dim $iflags = 8388608
  260. Else
  261. Dim $iflags = ""
  262. EndIf
  263. If $data2send = "" Then
  264. $hrequest = _winhttpopenrequest($hconnect, "GET", $sobjectname, "HTTP/1.1", $sreferrer, "text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8", $iflags)
  265. Else
  266. $hrequest = _winhttpopenrequest($hconnect, "POST", $sobjectname, "HTTP/1.1", $sreferrer, "text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8", $iflags)
  267. _winhttpaddrequestheaders($hrequest, "Content-Type: application/x-www-form-urlencoded")
  268. EndIf
  269. If $cookie <> "" Then _winhttpaddrequestheaders($hrequest, "Cookie:" & $cookie)
  270. If $a535eb21015 <> 4 AND $a535eb21015 <> 5 Then _winhttpaddrequestheaders($hrequest, "Accept-Encoding: deflate")
  271. _winhttpaddrequestheaders($hrequest, "Accept-Language: vi-VN,vi;q=0.8,fr-FR;q=0.6,fr;q=0.4,en-US;q=0.2,en;q=0.2")
  272. If $a535eb21015 <> 4 AND $a535eb21015 <> 5 Then _winhttpaddrequestheaders($hrequest, "Accept-Charset: windows-1258,utf-8;q=0.7,*;q=0.3")
  273. If $a535eb21015 = 3 Then _winhttpsetoption($hrequest, 63, 2)
  274. _winhttpsendrequest($hrequest, "", $data2send)
  275. _winhttpreceiveresponse($hrequest)
  276. Switch $a535eb21015
  277. Case 1, 4
  278. $sdata = ""
  279. Do
  280. $sdata &= _Winhttpreaddata($hrequest)
  281. Until @error OR NOT @extended
  282. Case 2, 5
  283. $sdata = Binary("")
  284. Do
  285. $sdata &= _Winhttpreaddata($hrequest, 2)
  286. Until @error OR NOT @extended
  287. Case 3
  288. $sdata = _Winhttpqueryheaders($hrequest)
  289. EndSwitch
  290. _Winhttpclosehandle($hrequest)
  291. _Winhttpclosehandle($hconnect)
  292. _Winhttpclosehandle($hopen)
  293. Return $sdata
  294. EndFunc
  295.  
  296. Func getlist($uid)
  297. Dim $ds[510]
  298. $data = httprequest("http://friend.me.zing.vn/fr/list", "", $cookie, "", 1)
  299. $nf = _stringbetween($data, "<strong>", "</strong>")
  300. If IsArray($nf) Then
  301. $k = -1
  302. $a = _stringbetween($data, '</span><a href="http://me.zing.vn/fr/', "/ownerf")
  303. For $i = 0 To UBound($a) - 1
  304. $k += 1
  305. $ffullid[$k] = $a[$i]
  306. Next
  307. For $i = 1 To Int(($nf[0] - 1) / 10)
  308. $ds[$i] = httprequest("http://friend.me.zing.vn/widget/friend/list?offset=" & 10 * $i, "", $cookie, "", 1)
  309. $datafid = _stringbetween($ds[$i], '"uname":"', '",')
  310. For $j = 0 To UBound($datafid) - 3
  311. $k += 1
  312. $ffullid[$k] = $datafid[$j]
  313. Next
  314. Next
  315. EndIf
  316. GUICtrlSetState($btnview, $GUI_ENABLE)
  317. GUICtrlSetState($btnstop, $GUI_ENABLE)
  318. EndFunc
  319.  
  320. Func getuid($id)
  321. Local $data = httprequest("http://widget.me.zing.vn/api/minip?method=getMini&uname=" & $id, "", "", "", 1)
  322. Local $uid = _stringbetween($data, '"uid":', ',"displayName":')
  323. If @error Then Return 0
  324. Return $uid[0]
  325. EndFunc
  326.  
  327. Func chamhoa()
  328. Dim $tk
  329. Dim $myid = GUICtrlRead($id)
  330. For $j = 0 To $k
  331. GUICtrlSetState($Label2,$GUI_SHOW)
  332. GUICtrlSetData($Label2,$j & " / " & $k)
  333. $tk = httprequest("http://me.zing.vn/u/" & $ffullid[$j], "", $cookie, "", 1)
  334. $nf = _stringbetween($tk, 'tk="', '"')
  335. If IsArray($nf) Then
  336. $data = httprequest("http://flower.apps.zing.vn/FlowerServer/FlowerServ?viewerName=" & $myid & "&ownerName=" & $ffullid[$j] & "&cmd=care&token=" & $nf[0] & "&callback=zmCore.js164526", "", $cookie, "", 1)
  337. GUICtrlSetData($progress1, ($j / $k) * 100)
  338. EndIf
  339. Sleep(100)
  340. Next
  341. GUICtrlSetState($Label2, $GUI_HIDE)
  342. MsgBox(64, "Chăm hoa","Đã chăm hoa xong cho "&$k &" bạn.")
  343. GUICtrlSetData($Progress1,0)
  344. EndFunc
  345.  
  346. Func upview()
  347. $flagv = 1
  348. GUICtrlSetState($btnflower, $GUI_DISABLE)
  349. GUICtrlSetState($btnview, $GUI_DISABLE)
  350. GUICtrlSetState($btnpost, $GUI_DISABLE)
  351. GUICtrlSetState($idview, $GUI_DISABLE)
  352. GUICtrlSetState($btnstop, $GUI_ENABLE)
  353. Local $tk = GUICtrlRead($idview)
  354. If getuid($tk) == 0 Then
  355. MsgBox(48,"Thông báo","ID này không tồn tại")
  356. Else
  357. Local $data = httprequest("http://me.zing.vn/u/" & $tk, "", $cookie, "", 1)
  358. Local $lin = _stringbetween($data, 'zm.getJSON("', '", {},')
  359. If @error Then MsgBox(16,"Thông báo","Lỗi Up View !")
  360. Local $link = $lin[0] & "&callback=zmCore.js99103"
  361. While $flagv
  362. $data = httprequest($link, "", $cookie, "", 1)
  363. If $data = "" Then ContinueLoop
  364. $countv = _stringbetween($data, "(", ")")
  365. GUICtrlSetState($view,$GUI_SHOW)
  366. GUICtrlSetData($view,"Your View: " & $countv[0])
  367. Sleep(1000)
  368. WEnd
  369. EndIf
  370. GUICtrlSetState($view,$GUI_HIDE)
  371. GUICtrlSetState($btnpost, $GUI_ENABLE)
  372. GUICtrlSetState($btnview, $GUI_ENABLE)
  373. GUICtrlSetState($idview, $GUI_ENABLE)
  374. GUICtrlSetState($btnstop, $GUI_DISABLE)
  375. GUICtrlSetState($btnflower, $GUI_ENABLE)
  376. EndFunc
  377.  
  378. Func checkpost()
  379. If GuiCtrlRead($Checkbox2) = $GUI_UNCHECKED And GuiCtrlRead($Checkbox1) = $GUI_UNCHECKED Then
  380. MsgBox(16,"Error","Vui lòng chọn 1 chức năng để Post.")
  381. Return 1
  382. EndIf
  383. If GuiCtrlRead($Checkbox1) = $GUI_CHECKED Then
  384. postme()
  385. EndIf
  386. If GuiCtrlRead($Checkbox2) = $GUI_CHECKED Then
  387. postall()
  388. EndIf
  389. EndFunc
  390.  
  391. Func postme()
  392. GUICtrlSetState($btnpost,$GUI_DISABLE)
  393. GUICtrlSetData($btnpost,"ĐANG POST...")
  394. $flagv2 = 1
  395. Global $tk
  396. Global $myid = GUICtrlRead($id)
  397. $mess = GuiCtrlRead($Combo1)
  398. For $j = 0 To $k Step 1
  399. $tk = httprequest("http://me.zing.vn/u/" & $ffullid[$j], "", $cookie, "", 1)
  400. Next
  401. writewallme($tk, $ffullid[$j], $mess)
  402. EndFunc
  403.  
  404. Func writewallme($a, $id_joker, $mess_joker)
  405. $time = _stringbetween($a, 'time: "', '",')
  406. If @error Then Return 0
  407. $key = _stringbetween($a, 'signkey: "', '",')
  408. If @error Then Return 0
  409. $a = httprequest("http://me.zing.vn/u/ajx/updatestatus/"& $myid &"?status=" & _uriencode($mess_joker) & "&fromtracking=po&signkey=" & $key[0] & "&time=" & $time[0] & "&timepost=" & $time[0], "", $cookie, "", 1)
  410. If StringInStr($a, '"isUpdatePoint":1') Then
  411. GUICtrlSetState($btnpost,$GUI_ENABLE)
  412. GUICtrlSetData($btnpost,"START POST")
  413. MsgBox(64,"Post Status","Post Status thành công!")
  414. Return 1
  415. Else
  416. GUICtrlSetState($btnpost,$GUI_ENABLE)
  417. GUICtrlSetData($btnpost,"START POST")
  418. MsgBox(16,"Post Status","Post Status thất bại!")
  419. Return 0
  420. EndIf
  421. EndFunc
  422.  
  423. Func postall()
  424. $flagv2 = 1
  425. Dim $tk
  426. Dim $myid = GUICtrlRead($id)
  427. $guif = GUICreate("Post Status", 300, 500, -1, -1, BitOR($ws_caption, $ws_popup, $ws_sysmenu), $ws_ex_dlgmodalframe, $form1)
  428. $ilvstyle = BitOR($lvs_report, $lvs_showselalways)
  429. $ilvextstyle = BitOR($ws_ex_clientedge, $lvs_ex_gridlines, $lvs_ex_fullrowselect)
  430. $lv1 = GUICtrlCreateListView("STT|ID Zing|Tình trạng", 0, 0, 300, 537, $ilvstyle, $ilvextstyle)
  431. GUICtrlSendMsg(-1, $lvm_setcolumnwidth, 0, 35)
  432. GUICtrlSendMsg(-1, $lvm_setcolumnwidth, 1, 145)
  433. GUICtrlSendMsg(-1, $lvm_setcolumnwidth, 2, 120)
  434. GUISetState(@SW_SHOW)
  435. For $i = 0 To $k Step 1
  436. _guictrllistview_additem($lv1, $i + 1)
  437. _guictrllistview_addsubitem($lv1, _guictrllistview_getitemcount($lv1) - 1, $ffullid[$i], 1)
  438. Next
  439. For $j = 0 To $k Step 1
  440. _guictrllistview_addsubitem($lv1, $j, "Đang chăm", 2)
  441. $tk = httprequest("http://me.zing.vn/u/" & $ffullid[$j], "", $cookie, "", 1)
  442. $nf = _stringbetween($tk, 'tk="', '"')
  443. If IsArray($nf) Then
  444. $data = httprequest("http://flower.apps.zing.vn/FlowerServer/FlowerServ?viewerName=" & $myid & "&ownerName=" & $ffullid[$j] & "&cmd=care&token=" & $nf[0] & "&callback=zmCore.js164526", "", $cookie, "", 1)
  445. EndIf
  446. If $flagv2 == 0 Then
  447. $flagv2 = 1
  448. EndIf
  449. _guictrllistview_setitemtext($lv1, $j, "ghi lời nhắn..", 2)
  450. $mess = StringReplace(GUICtrlRead($Input2), "@hx", "@" & $ffullid[$j])
  451. If writewallall($tk, $ffullid[$j], $mess) Then
  452. _guictrllistview_setitemtext($lv1, $j, "ghi thành công", 2)
  453. Else
  454. _guictrllistview_setitemtext($lv1, $j, "ghi thất bại", 2)
  455. EndIf
  456. Switch GUIGetMsg()
  457. Case $gui_event_close
  458. GUIDelete($guif)
  459. EndSwitch
  460. Next
  461. GUICtrlSetState($btnpost,$GUI_ENABLE)
  462. MsgBox(0,"Post Status","Đã Post thành công cho " & $k + 1 & " bạn!")
  463. GUIDelete($guif)
  464. EndFunc
  465.  
  466. Func writewallall($a, $id_joker, $mess_joker)
  467. $time = _stringbetween($a, 'time: "', '",')
  468. If @error Then Return 0
  469. $key = _stringbetween($a, 'signkey: "', '",')
  470. If @error Then Return 0
  471. $c = httprequest("http://me.zing.vn/u/ajx/joke/" & $id_joker & "?cboPoke=" & _uriencode($mess_joker) & "&chkview=undefined&isPost=true&signkey=" & $key[0] & "&time=" & $time[0] & "&timepost=" & $time[0], "", $cookie, "", 1)
  472. If StringInStr($c, '"poke_success"') Then
  473. Return 1
  474. Else
  475. Return 0
  476. EndIf
  477. EndFunc
  478.  
  479. Func _uriencode($sdata)
  480. Local $adata = StringSplit(BinaryToString(StringToBinary($sdata, 4), 1), "")
  481. Local $nchar
  482. $sdata = ""
  483. For $i = 1 To $adata[0]
  484. $nchar = Asc($adata[$i])
  485. Switch $nchar
  486. Case 45, 46, 48 To 57, 65 To 90, 95, 97 To 122, 126
  487. $sdata &= $adata[$i]
  488. Case 32
  489. $sdata &= "+"
  490. Case Else
  491. $sdata &= "%" & Hex($nchar, 2)
  492. EndSwitch
  493. Next
  494. Return $sdata
  495. EndFunc
  496.  
  497. Func download()
  498. $link = GUICtrlRead($nhac)
  499. If NOT StringInStr($link, "bai-hat") Then
  500. MsgBox(48,"Thông báo","Lỗi Download nhạc !"&@CRLF &"Vui lòng nhập chính xác link bài hát.")
  501. GUICtrlSetData($nhac, "")
  502. Return 1
  503. EndIf
  504. $code = StringRegExp($link, "(?:http:\/\/|)(?:mp3\.zing\.vn|)(?:\/bai\-hat\/|)(?:[^/]+|)(?:/|)([A-Z0-9]{8})(?:\.html|)", 1)
  505. $link = "http://v3.mp3.zing.vn/download/vip/song/"&$code[0] & ".html"
  506. InetGet($link,@ScriptDir & "\" & GuiCtrlRead($name) &".mp3")
  507. GUICtrlSetData($nhac, "")
  508. MsgBox(64,"Download","Nhạc đã được tải về thành công với chất lượng 320kbps.")
  509. EndFunc
  510.  
  511. Func share()
  512. GUICtrlSetState($btnshare,$GUI_DISABLE)
  513. GUICtrlSetData($btnshare,"Đang Share...")
  514. Local $share = ":D Hãy vào trang cá nhân của @truongtonvinhcuu112 để nhận những Auto về Zing Me và sử dụng ngay thôi nào :B . Hoặc tham gia nhóm http://group.me.zing.vn/zmg/detail?gid=514134 để Download Auto nhé bạn @hx"
  515. shareall()
  516. MsgBox(64,"SHARE","Cảm ơn bạn đã Share để phát triền Auto"&@CRLF &"Chúc bạn 1 ngày vui vẻ.")
  517. GUICtrlSetState($btnshare,$GUI_ENABLE)
  518. GUICtrlSetData($btnshare,"Share cho bạn bè")
  519. EndFunc
  520.  
  521. Func shareall()
  522. $flagv3 = 1
  523. Dim $tk
  524. Dim $myid = GUICtrlRead($id)
  525. $guis = GUICreate("Share Auto", 300, 500, -1, -1, BitOR($ws_caption, $ws_popup, $ws_sysmenu), $ws_ex_dlgmodalframe, $form1)
  526. $ilvstyle = BitOR($lvs_report, $lvs_showselalways)
  527. $ilvextstyle = BitOR($ws_ex_clientedge, $lvs_ex_gridlines, $lvs_ex_fullrowselect)
  528. $lv1 = GUICtrlCreateListView("STT|ID Zing|Tình trạng", 0, 0, 300, 537, $ilvstyle, $ilvextstyle)
  529. GUICtrlSendMsg(-1, $lvm_setcolumnwidth, 0, 35)
  530. GUICtrlSendMsg(-1, $lvm_setcolumnwidth, 1, 145)
  531. GUICtrlSendMsg(-1, $lvm_setcolumnwidth, 2, 120)
  532. GUISetState(@SW_SHOW)
  533. For $i = 0 To $k Step 1
  534. _guictrllistview_additem($lv1, $i + 1)
  535. _guictrllistview_addsubitem($lv1, _guictrllistview_getitemcount($lv1) - 1, $ffullid[$i], 1)
  536. Next
  537. For $j = 0 To $k Step 1
  538. _guictrllistview_addsubitem($lv1, $j, "Đang Share", 2)
  539. $tk = httprequest("http://me.zing.vn/u/" & $ffullid[$j], "", $cookie, "", 1)
  540. $nf = _stringbetween($tk, 'tk="', '"')
  541. If IsArray($nf) Then
  542. $data = httprequest("http://flower.apps.zing.vn/FlowerServer/FlowerServ?viewerName=" & $myid & "&ownerName=" & $ffullid[$j] & "&cmd=care&token=" & $nf[0] & "&callback=zmCore.js164526", "", $cookie, "", 1)
  543. EndIf
  544. If $flagv3 == 0 Then
  545. $flagv3 = 1
  546. EndIf
  547. _guictrllistview_setitemtext($lv1, $j, "Đang Share..", 2)
  548. $mess = StringReplace(GUICtrlRead($Input2), "@hx", "@" & $ffullid[$j])
  549. If writewallall($tk, $ffullid[$j], $mess) Then
  550. _guictrllistview_setitemtext($lv1, $j, "Share thành công", 2)
  551. Else
  552. _guictrllistview_setitemtext($lv1, $j, "Share thất bại", 2)
  553. EndIf
  554. Switch GUIGetMsg()
  555. Case $gui_event_close
  556. GUIDelete($guis)
  557. EndSwitch
  558. Next
  559. GUICtrlSetState($btnpost,$GUI_ENABLE)
  560. MsgBox(0,"Share Auto","Đã Share thành công cho " & $k + 1 & " bạn!")
  561. GUIDelete($guis)
  562. 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!