API tools faq
paste
Guest User

Untitled

a guest
Jan 15th, 2018
147
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 19.64 KB | None | 0 0
raw download clone embed print report
  1.  
  2. #include <GUIListBox.au3>
  3. #include <GUIConstantsEx.au3>
  4. #include <WindowsConstants.au3>
  5. #include <File.au3>
  6. #include <Array.au3>
  7. #include <GuiListView.au3>
  8. #include <GUIConstants.au3>
  9. #include <GuiButton.au3>
  10.  
  11. Global $version = "0.4.3"
  12. Global $hListBox,$origHWND,$lastCopied='',$WM_CLIPUPDATE=0x031D
  13. Local $hGUI, $linklist, $dllist, $listviewcontrols, $username, $password, $retry = 0, $loggedin = 0, $cookies[1][2] = [["", ""]], $f = "account.txt", $processing = 0, $idd = 0, $clsid = 0
  14.  
  15. ; GUI
  16. $hGUI = GUICreate("FsharEd " & $version, 800, 600)
  17. ;GUISetIcon(@SystemDir & "\mspaint.exe", 0)
  18.  
  19. ; Intercept Windows command messages with out own handler
  20. GUIRegisterMsg($WM_COMMAND, "_WM_COMMAND")
  21.  
  22. ;Clipboard monitor
  23. $origHWND = DLLCall("user32.dll","int","AddClipboardFormatListener","hwnd",$hGUI)
  24. If IsArray($origHWND) Then
  25. $origHWND = $origHWND[0]
  26. EndIf
  27. GUIRegisterMsg($WM_CLIPUPDATE,"OnClipBoardChange")
  28. Func OnClipBoardChange($hWnd, $Msg, $wParam, $lParam)
  29. ; do what you need when clipboard changes
  30. CBmonitor(ClipGet())
  31. EndFunc
  32.  
  33. ; Input link box
  34. GUICtrlCreateLabel("Fshare links (Đưa link fshare vào đây, phân cách bởi xuống dòng hoặc space)" & @CRLF & "Nếu có mật khẩu thì thêm vào sau link kèm theo ký tự | (vd : link|matkhau) Nếu không nhập mật khẩu cùng link, tool sẽ tự động hỏi.", 5, 3)
  35. $LinkInput = GUICtrlCreateEdit("", 5, 40, 500, 185)
  36.  
  37. ; LIST VIEW
  38. Local $iListView = GUICtrlCreateListView("", 5, 235, 790,180)
  39. _GUICtrlListView_AddColumn($iListView, "Fshare Link", 200)
  40. _GUICtrlListView_AddColumn($iListView, "Download Link", 530)
  41. _GUICtrlListView_AddColumn($iListView, "Size", 55)
  42.  
  43. ;buttons
  44. $btnStop = GUICtrlCreateButton ("DỪNG LẤY LINK !", 520, 40, 250, 40)
  45. _GUICtrlButton_Show($btnStop, False)
  46. $btnGetLink = GUICtrlCreateButton ("Lấy Link Download >>>", 520, 40, 250, 40)
  47. $btnClearlinks = GUICtrlCreateButton ("Xóa danh sách download", 520, 420, 180, 45)
  48. _GUICtrlButton_Enable($btnClearlinks, False)
  49. $btnSendToIDM = GUICtrlCreateButton ("Gửi link sang IDM", 520, 475, 180, 45)
  50. _GUICtrlButton_Enable($btnSendToIDM, False)
  51. $btnCopy = GUICtrlCreateButton ("Copy links download", 520, 530, 180, 45)
  52. _GUICtrlButton_Enable($btnCopy, False)
  53.  
  54. ;checkbox
  55. ;GUICtrlCreateCheckbox("Xóa list cũ", 710, 20, 80, 20)
  56. ;GUICtrlSetState(-1, $GUI_CHECKED)
  57.  
  58. ; Listbox Progress
  59. $hListBox = _GUICtrlListBox_Create($hGUI, "", 5, 420, 500, 170, BitOR($LBS_NOSEL, $WS_VSCROLL, $WS_HSCROLL, $LBS_HASSTRINGS))
  60. GUISetState(@SW_SHOW)
  61. _GUICtrlListBox_ResetContent($hListBox)
  62. ;_GUICtrlListBox_InitStorage($hListBox, 100, 4096)
  63. addText("Fshare Get " & $version & ' Started ...',$hListBox);
  64. addText("[Info] Open Source Project founded by lnt900 @ HDVietnam forum",$hListBox)
  65. addText("----------------------------------------------------------------------------------------",$hListBox)
  66.  
  67.  
  68. ;function to add text and scroll listbox to bottom
  69. Func addText($txt,$listBox)
  70. _GUICtrlListBox_InsertString($listBox, $txt, -1)
  71. $num = _SendMessage($hListBox, 0x18B, 0, 0)
  72. _GUICtrlListBox_SetCurSel($listBox, $num -1)
  73. EndFunc
  74.  
  75. ;account info
  76. Dim $aRecords
  77. If Not _FileReadToArray($f, $aRecords) Then
  78. $username = ""
  79. $password = ""
  80. ElseIf $aRecords[0] > 1 Then
  81. $username = $aRecords[1]
  82. $password = $aRecords[2]
  83. addText("[Account] Sử dụng tài khoản " & $username & " ...",$hListBox)
  84. EndIf
  85.  
  86. ; GROUP / Input fshare account
  87. GUICtrlCreateGroup("Thông tin Fshare Account", 520, 80,250,145)
  88. GUICtrlCreateLabel("Email :", 540, 100)
  89. $txtAccEmail = GUICtrlCreateInput($username, 540, 115, 210, 22)
  90. GUICtrlCreateLabel("Mật khẩu :", 540, 140)
  91. $txtAccPassword = GUICtrlCreateInput($password, 540, 155, 210, 22, 0x0020)
  92. $btnSaveAccInfo = GUICtrlCreateButton ("Lưu lại", 600, 185, 100, 25)
  93. GUICtrlCreateGroup("", -99, -99, 1, 1) ;close group
  94.  
  95. ;function to save account to tzt file
  96. Func saveAcc($usr, $pw,$file)
  97. $usrx = GUICtrlRead($usr)
  98. $pwx = GUICtrlRead($pw)
  99. FileDelete($file)
  100. $fxx = FileOpen($file, 1)
  101. FileSetPos($fxx,0,0)
  102. FileFlush($fxx)
  103. FileWrite($fxx, $usrx & @CRLF)
  104. FileWrite($fxx, $pwx & @CRLF)
  105. FileClose($fxx)
  106. addText("[Account] Đã lưu thông tin tài khoản fshare ...",$hListBox)
  107. EndFunc
  108.  
  109. ;function logout of fshare
  110. Func logoutF()
  111. addText("[Fshare] Logout khỏi fshare ...",$hListBox)
  112. $res = getHTTP("http://www.fshare.vn/logout.php", mkCookies())
  113. $res = getHTTP("http://www.fshare.vn/", mkCookies(), 'http://www.fshare.vn/logout.php')
  114. If StringInStr($res[2], "login.php") <> 0 Then
  115. addText(" -> Đã thoát.",$hListBox)
  116. $loggedin = 0
  117. Else
  118. addText("[Lỗi] chưa thoát được khỏi fshare !",$hListBox)
  119. EndIf
  120. EndFunc
  121.  
  122. ;Function Login to Fshare
  123. Func loginF()
  124. $user = GUICtrlRead($txtAccEmail)
  125. $pword = GUICtrlRead($txtAccPassword)
  126. addText("[Fshare] Đăng nhập vào Fshare ...",$hListBox)
  127. $res = getHTTP("https://www.fshare.vn/login.php?url_refe=https%3A%2F%2Fwww.fshare.vn%2Findex.php&login_useremail=" & URLEncode($user) & '&login_password=' & URLEncode($pword), mkCookies(),"https://www.fshare.vn/login.php",0, 1, 0)
  128. $res = getHTTP("http://www.fshare.vn/", mkCookies())
  129. If StringInStr($res[2], "logout.php") <> 0 Then
  130. addText(" -> Đăng nhập thành công !",$hListBox)
  131. If StringInStr($res[2], "VIP.gif") <> 0 Then
  132. addText(" -> Tài khoản VIP ... OK !",$hListBox)
  133. $loggedin = 1
  134. Else
  135. addText(" -> Không phải tài khoản VIP. Thoát khỏi Fshare ...",$hListBox)
  136. logoutF()
  137. EndIf
  138.  
  139. Else
  140. addText(" -> Đăng nhập thất bại, kiểm tra lại tk fshare",$hListBox)
  141. EndIf
  142. EndFunc
  143.  
  144. ;function to parse links input
  145. Func parseLinks($input, $loggoutthen = 1)
  146. If $processing = 0 Then
  147. $links = StringReplace($input, @CRLF, " ")
  148. $links = StringReplace($links, @TAB, " ")
  149. $aLink = StringSplit($links, " ")
  150. $hasfsharelinks = StringRegExp($links,'http:/(.*?)fshare.vn/(.*?)')
  151.  
  152. If $hasfsharelinks = 1 Then
  153. _GUICtrlButton_Show($btnGetLink, False)
  154. _GUICtrlButton_Show($btnStop, True)
  155. ;_GUICtrlButton_SetText($btnGetLink, "DỪNG LẤY LINK !")
  156. $processing = 1
  157. If $loggedin = 0 Then
  158. ;Login to Fshare
  159. loginF()
  160. EndIf
  161.  
  162. If $loggedin = 1 Then
  163. For $x=1 To $aLink[0]
  164. If $loggedin = 1 And $processing = 1 Then
  165. $retry = 0
  166. parseLink($aLink[$x])
  167. EndIf
  168. Next
  169. EndIf
  170.  
  171. If $loggoutthen = 1 And $loggedin = 1 Then
  172. logoutF()
  173. EndIf
  174.  
  175. If $retry < 4 And $processing = 1 Then
  176. addText("[OK] Đã xử lý xong tất cả các links !",$hListBox)
  177. ElseIf $retry < 4 And $processing = 0 Then
  178. addText("[Fshare] Đã ngừng lấy link !",$hListBox)
  179. Else
  180. addText("[Lỗi] trùng phiên đăng nhập quá 4 lần, vui lòng thử lại sau vài phút !",$hListBox)
  181. $retry = 0
  182. EndIf
  183. ;_GUICtrlButton_SetText($btnGetLink, "Lấy Link Download >>>")
  184. _GUICtrlButton_Enable($btnStop, True)
  185. _GUICtrlButton_Show($btnStop, False)
  186. _GUICtrlButton_Show($btnGetLink, True)
  187. $processing = 0
  188. Else
  189. addText("[Lỗi] Không có link fshare trong danh sách link !",$hListBox)
  190. EndIf
  191. EndIf
  192. EndFunc
  193.  
  194. ;function to get fshare download link
  195. Func parseLink($lnk)
  196. If $processing = 1 Then
  197. $validLink = StringRegExp($lnk,'http:/(.*?)fshare.vn/file(.*?)')
  198. $isfolder = StringRegExp($lnk,'http:/(.*?)fshare.vn/folder(.*?)')
  199. If $validLink = 1 Then
  200.  
  201.  
  202. If StringInStr($lnk, '|') <> 0 Then
  203. ;$lnk = StringReplace($lnk, '*', '|')
  204. $plink = StringSplit($lnk, '|')
  205. $lnk = $plink[1]
  206. $dlpw = $plink[2]
  207. Else
  208. $dlpw = ''
  209. EndIf
  210.  
  211. If StringInStr($lnk, '?') <> 0 Then
  212. $plink = StringSplit($lnk, '?')
  213. $slink = $plink[1]
  214. addText("[Fshare] Lấy link cho file " & $slink & " ...",$hListBox)
  215. $res = getHTTP($lnk, mkCookies(), $slink, 1, 1)
  216. Else
  217. $slink = $lnk
  218. addText("[Fshare] Lấy link cho file " & $slink & " ...",$hListBox)
  219. $res = getHTTP($lnk, mkCookies(), '', 1)
  220. EndIf
  221.  
  222.  
  223. If (StringInStr($res[2], "logout.php") <> 0) Or ($res[1] = 1) Then
  224. $filesize = "unknown"
  225. If $res[1] = 1 Then
  226. ;GUICtrlSetData($LinkInput,GUICtrlRead($LinkInput) & @CRLF & "Có redir đến " & $res[0])
  227. $size = InetGetSize($res[0])
  228. If $size > 1000000000 Then
  229. $filesize = Round($size/(1024^3),2) & " GB"
  230. ElseIf $size > 1000000 Then
  231. $filesize = Round($size/(1024^2),2) & " MB"
  232. ElseIf $size > 1000 Then
  233. $filesize = Round($size/(1024),2) & " KB"
  234. EndIf
  235. $listviewcontrols = arradd($listviewcontrols, GUICtrlCreateListViewItem($slink & "|" & $res[0] & "|" & $filesize, $iListView))
  236. $linklist = arradd($linklist, $res[0])
  237. $dllist = arradd($dllist, $slink)
  238. _GUICtrlButton_Enable($btnClearlinks, True)
  239. _GUICtrlButton_Enable($btnCopy, True)
  240. _GUICtrlButton_Enable($btnSendToIDM, True)
  241. addText(" -> Done.",$hListBox)
  242. ElseIf StringInStr($res[2], "vip_package_bt.png") <> 0 AND StringInStr($res[2], "fshare.vn/vip") <> 0 Then
  243. $arr = StringRegExp($res[2], '<form action="(.*?)" method="post" name="frm_download">', 3)
  244. If UBound($arr) > 0 Then
  245. ;GUICtrlSetData($LinkInput,GUICtrlRead($LinkInput) & @CRLF & "Lấy được link download " & $arr[0])
  246. $size = InetGetSize($arr[0])
  247. If $size > 1000000000 Then
  248. $filesize = Round($size/(1024^3),2) & " GB"
  249. ElseIf $size > 1000000 Then
  250. $filesize = Round($size/(1024^2),2) & " MB"
  251. ElseIf $size > 1000 Then
  252. $filesize = Round($size/(1024),2) & " KB"
  253. EndIf
  254. $listviewcontrols = arradd($listviewcontrols, GUICtrlCreateListViewItem($slink & "|" & $arr[0] & "|" & $filesize, $iListView))
  255. $linklist = arradd($linklist, $arr[0])
  256. $dllist = arradd($dllist, $slink)
  257. _GUICtrlButton_Enable($btnClearlinks, True)
  258. _GUICtrlButton_Enable($btnCopy, True)
  259. _GUICtrlButton_Enable($btnSendToIDM, True)
  260. addText(" -> Done.",$hListBox)
  261. EndIf
  262. ElseIf StringInStr($res[2], "vip_package_bt.png") <> 0 AND StringInStr($res[2], '<input type="text" name="link_file_pwd_dl"/>') <> 0 Then
  263. addText(" -> Link Download có mật khẩu ...",$hListBox)
  264. If StringInStr($res[2], '<ul class="message-error">') <> 0 Then
  265. $announce = 'Mật khẩu không đúng. Nhập lại ?'
  266. Else
  267. $announce = 'File này yêu cầu nhập mật khẩu để tải.'
  268. EndIf
  269.  
  270. if $dlpw = '' Then
  271. $filename = StringRegExp($res[2], '<p><b>(.*?):</b>(.*?)</p>', 3)
  272. $pos = WinGetPos($hGUI)
  273. $dlpw = InputBox("Mật khẩu", $slink & @CRLF & '-> ' & $filename[1] & @CRLF & @CRLF & $announce & ' Bỏ trống hoặc Cancel để bỏ qua link này. Nếu không nhập mật khẩu sau 15 giây sẽ tự động bỏ qua', '', '', - 1, 240, $pos[0]+200, $pos[1]+200, 15)
  274. If $dlpw = '' Then
  275. $err = '[Fshare] Bỏ qua link ' & $slink & ' -> unknown error !'
  276. Select
  277. Case @error = 0
  278. $err = '[Fshare] Bỏ qua link ' & $slink & ' -> bởi người dùng'
  279. Case @error = 1
  280. $err = '[Fshare] Bỏ qua link ' & $slink & ' -> bởi người dùng'
  281. Case @error = 2
  282. $err = '[Fshare] Bỏ qua link ' & $slink & ' -> Timeout 15s'
  283. EndSelect
  284. EndIf
  285. EndIf
  286.  
  287. If $dlpw = '' Then
  288. addText($err ,$hListBox)
  289. Else
  290. $fileid = StringRegExp($res[2], '<input type="hidden" name="file_id" value="(.*?)"/>', 3)
  291. $newlnk = $lnk & '?action=download_file&file_id=' & $fileid[0] & '&link_file_pwd_dl=' & URLEncode($dlpw)
  292. parseLink($newlnk)
  293. EndIf
  294. ElseIf StringInStr($res[2], '<ul class="message-error">') <> 0 Then
  295. addText("[Fshare][Lỗi] Có thể đang trùng phiên đăng nhập với người khác !",$hListBox)
  296. logoutF()
  297. addText(" -> Đợi xử lý lại sau 1 phút ...",$hListBox)
  298. $retry += 1
  299. If $retry < 4 Then
  300. Sleep(60000)
  301. loginF()
  302. parseLink($lnk)
  303. EndIf
  304. Else
  305. addText("[Fshare] Error: No Download Link !",$hListBox)
  306. EndIf
  307. EndIf
  308. ;Sleep(200)
  309. ElseIf $isfolder = 1 Then
  310. addText("[Fshare] Link " & $lnk & " là thư mục !",$hListBox)
  311. $res = getHTTP($lnk, mkCookies(), '', 1)
  312. If StringInStr($res[2], "fshare.vn/file/") <> 0 Then
  313. $arr = StringRegExp($res[2], '<a href="(.*?)" target="_blank"><span class="filename">', 3)
  314. addText("[Fshare] Có " & UBound($arr) & " file trong thư mục ...",$hListBox)
  315. ;parseLinks(_ArrayToString($arr, " "), 0)
  316. For $i = 0 To UBound($arr) - 1
  317. parseLink($arr[$i])
  318. Next
  319. Else
  320. addText("[Fshare] Thư mục trống !",$hListBox)
  321. EndIf
  322. EndIf
  323. Else
  324. logoutF()
  325. ;_GUICtrlButton_Enable($btnStop, False)
  326. ;_GUICtrlButton_SetText($btnGetLink, "Đang dừng ...")
  327. EndIf
  328. EndFunc
  329.  
  330. ;function to get/post http links
  331. Func getHTTP($lnk, $cookie = '', $refer = '', $ignorecookies = 0, $post = 0, $redir = 0)
  332. $method = "GET"
  333. $weblink = StringSplit($lnk, '?')
  334. ;addText($weblink[2],$hListBox)
  335. If $post = 1 Then
  336. $method = "POST"
  337. $linklink = $weblink[1]
  338. $poststring = $weblink[2]
  339. Else
  340. $linklink = $lnk
  341. EndIf
  342.  
  343. $oHTTP = ObjCreate("WinHttp.WinHttpRequest.5.1")
  344. If $redir = 0 Then
  345. $oHTTP.Option(6) = False
  346. EndIf
  347. $oHTTP.Open($method, $linklink , False)
  348. $oHTTP.SetRequestHeader("User-Agent", "Mozilla/5.0 (Windows NT 6.1; WOW64; rv:19.0) Gecko/20100101 Firefox/19.0")
  349. If StringLen($refer)>1 Then
  350. $oHTTP.SetRequestHeader("Referer", $refer)
  351. EndIf
  352. If StringLen($cookie)>1 Then
  353. $oHTTP.SetRequestHeader("Cookie", $cookie)
  354. EndIf
  355. If $post = 1 Then
  356. $oHTTP.SetRequestHeader("Content-Type", "application/x-www-form-urlencoded")
  357. $oHTTP.SetRequestHeader("Content-Length", StringLen($poststring))
  358. $oHTTP.Send($poststring)
  359. Else
  360. $oHTTP.Send()
  361. EndIf
  362. $oHTTP.WaitForResponse
  363. $HeaderResponses = $oHTTP.GetAllResponseHeaders()
  364.  
  365. If $ignorecookies = 0 Then
  366. ; Handle Cookies
  367. $array = StringRegExp($HeaderResponses, 'Set-Cookie: (.+)\r\n', 3)
  368. ;$cookies = ''
  369. for $i = 0 to UBound($array) - 1
  370. ; Add all cookies to a single string, and then clean it up.
  371. $cook = $array[$i] & ';'
  372. ; Removing parts we do not use..
  373. $cook = StringRegExpReplace($cook, "( path| domain| expires)=[^;]+", "")
  374. $cook = StringRegExpReplace($cook, " HttpOnly", "")
  375. $cook = StringRegExpReplace($cook, "[;]{2,}", ";")
  376.  
  377. $cook1 = StringSplit($cook,";")
  378. For $k=1 To $cook1[0]
  379. If StringInStr($cook1[$k],"=") Then
  380. $cook2 = StringSplit(StringReplace($cook1[$k]," ", ""),"=")
  381. if $cookies[0][0] == "" Then
  382. $cookies[0][0] = $cook2[1]
  383. $cookies[0][1] = $cook2[2]
  384. Else
  385. $inserted = 0
  386. for $j = 0 to UBound($cookies) - 1
  387. If $cook2[1] == $cookies[$j][0] Then
  388. $cookies[$j][1] = $cook2[2]
  389. $inserted = 1
  390. ElseIf ($j == (UBound($cookies) - 1)) And ($inserted == 0) Then
  391. ReDim $cookies[UBound($cookies) + 1][2]
  392. $cookies[UBound($cookies) - 1][0] = $cook2[1]
  393. $cookies[UBound($cookies) - 1][1] = $cook2[2]
  394.  
  395. EndIf
  396. Next
  397. EndIf
  398. EndIf
  399. Next
  400.  
  401. Next
  402. EndIf
  403.  
  404. Dim $ret[4]
  405. If StringInStr($HeaderResponses, "Location:") <> 0 Then
  406. $ret["0"] = $oHTTP.GetResponseHeader("Location")
  407. $ret["1"] = 1
  408. Else
  409. $ret["0"] = ""
  410. $ret["1"] = 0
  411. EndIf
  412. $ret["2"] = $oHTTP.Responsetext
  413. ;$ret["method"] = $method
  414. $ret["3"] = $oHTTP.GetAllResponseHeaders()
  415.  
  416. Return $ret
  417. EndFunc
  418.  
  419. ;function to encode url for websurfing
  420. Func URLEncode($urlText)
  421. $url = ""
  422. For $i = 1 To StringLen($urlText)
  423. $acode = Asc(StringMid($urlText, $i, 1))
  424. Select
  425. Case ($acode >= 48 And $acode <= 57) Or _
  426. ($acode >= 65 And $acode <= 90) Or _
  427. ($acode >= 97 And $acode <= 122)
  428. $url = $url & StringMid($urlText, $i, 1)
  429. Case $acode = 32
  430. $url = $url & "+"
  431. Case Else
  432. $url = $url & "%" & Hex($acode, 2)
  433. EndSelect
  434. Next
  435. Return $url
  436. EndFunc
  437.  
  438. ;function to make cookies from array
  439. Func mkCookies()
  440. $rt = ""
  441. for $j = 0 to UBound($cookies) - 1
  442. $rt = $rt & $cookies[$j][0] & "=" & $cookies[$j][1]
  443. If $j <> (UBound($cookies) - 1) Then
  444. $rt = $rt & "; "
  445. EndIf
  446. Next
  447. Return $rt
  448. EndFunc
  449.  
  450. ;function to add element to array ( fuck autoit )
  451. Func arradd($array, $value)
  452. If IsArray($array) Then
  453. _ArrayAdd($array, $value)
  454. Return $array
  455. Else
  456. Dim $rt[1] = [$value]
  457. Return $rt
  458. EndIf
  459. EndFunc
  460.  
  461. ;function to clear links list
  462. Func ClearLinks()
  463. $linklist = 0
  464. $dllist = 0
  465. GUICtrlSetData($LinkInput,'')
  466. For $i = 0 to UBound($listviewcontrols) - 1
  467. GUICtrlDelete($listviewcontrols[$i])
  468. Next
  469. $listviewcontrols = 0
  470. _GUICtrlButton_Enable($btnClearlinks, False)
  471. _GUICtrlButton_Enable($btnCopy, False)
  472. _GUICtrlButton_Enable($btnSendToIDM, False)
  473. EndFunc
  474.  
  475. ;function to send download links to IDM
  476. Func SendToIDM()
  477. If UBound($linklist) > 0 Then
  478. ;$clsid = "{AC746233-E9D3-49CD-862F-068F7B7CCCA4}"
  479. If $clsid = 0 Then
  480. $clsid = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Classes\IDMan.CIDMLinkTransmitter\CLSID", "")
  481. EndIf
  482.  
  483. If $clsid <> "" Then
  484. If $idd = 0 Then
  485. ;$idd = "{4BD46AAE-C51F-4BF7-8BC0-2E86E33D1873}"
  486. $i = 0
  487. While 1
  488. $i+= 1
  489. Local $var = RegEnumKey("HKEY_LOCAL_MACHINE\SOFTWARE\Classes\Interface\", $i)
  490. $keyname = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Classes\Interface\" & $var, "")
  491. If ($var = "") Or ($keyname == "ICIDMLinkTransmitter") Then ExitLoop
  492. WEnd
  493. If $var = "" Then
  494. $idd = 1
  495. Else
  496. $idd = $var
  497. EndIf
  498. EndIf
  499. If $idd = 1 Then
  500. addText("[IDM] Không tìm thấy IDM trong hệ thống",$hListBox)
  501. Else
  502. $desc = "SendLinkToIDM hresult(bstr;bstr;bstr;bstr;bstr;bstr;bstr;bstr;long);"
  503. $idm = ObjCreateInterface($clsid,$idd,$desc)
  504. For $i = 0 to UBound($linklist) - 1
  505. $idm.SendLinkToIDM($linklist[$i], $dllist[$i], '', '', '', '','', '', 2)
  506. Next
  507. addText("[IDM] Đã gửi link download sang IDM",$hListBox)
  508. EndIf
  509. Else
  510. addText("[IDM] Không tìm thấy IDM trong hệ thống",$hListBox)
  511. EndIf
  512. EndIf
  513. EndFunc
  514.  
  515. ;function executing when clipboard changed
  516. Func CBmonitor($data)
  517. If $data<>$lastCopied Then
  518. $lastCopied=$data
  519. $isfsharelink = StringRegExp($data,'http://(.*?)fshare.vn/file(.*?)')
  520. $isfsharefolder = StringRegExp($data,'http://(.*?)fshare.vn/folder(.*?)')
  521. If $isfsharelink = 1 Or $isfsharefolder = 1 Then
  522. $data = StringReplace($data, @CRLF, " ")
  523. $data = StringReplace($data, @TAB, " ")
  524. $datax = StringSplit($data, " ")
  525. dim $tmprt
  526. For $i = 0 to $datax[0]
  527. $i1 = StringRegExp($datax[$i],'http://(.*?)fshare.vn/file(.*?)')
  528. $i2 = StringRegExp($datax[$i],'http://(.*?)fshare.vn/folder(.*?)')
  529. If $i1 = 1 Or $i2 = 1 Then
  530. $tmprt = arradd($tmprt, $datax[$i])
  531. EndIf
  532. Next
  533. $data = _ArrayToString($tmprt, @CRLF)
  534. addText("[Clipboard Monitor] Đã lấy link fshare từ clipboard",$hListBox)
  535. $ctb = GUICtrlRead($LinkInput)
  536. If StringLen($ctb)>0 Then
  537. $ctb = $ctb & @CRLF
  538. EndIf
  539. GUICtrlSetData($LinkInput,$ctb & $data)
  540. EndIf
  541. EndIf
  542. EndFunc
  543.  
  544. ;WM_COMMAND overwrite
  545. Func _WM_COMMAND($hWnd, $Msg, $wParam, $lParam)
  546. If BitAND($wParam, 0x0000FFFF) = $btnStop Then
  547. $processing = 0
  548. _GUICtrlButton_Enable($btnStop, False)
  549. EndIf
  550. Return $GUI_RUNDEFMSG
  551. EndFunc
  552.  
  553. ; GUI MESSAGE LOOP
  554. While 1
  555. $msg = GUIGetMsg()
  556. Select
  557. Case $msg = $GUI_EVENT_CLOSE
  558. ExitLoop
  559. Case $msg = $btnGetLink
  560. parseLinks(GUICtrlRead($LinkInput))
  561. Case $msg = $btnClearlinks
  562. ClearLinks()
  563. Case $msg = $btnSendToIDM
  564. SendToIDM()
  565. Case $msg = $btnCopy
  566. ;_ArrayToClip($linklist);
  567. ClipPut(_ArrayToString($linklist, @CRLF))
  568. addText("[Clipboard Monitor] Đã Copy Link vào clipboard",$hListBox)
  569. Case $msg = $btnSaveAccInfo
  570. saveAcc($txtAccEmail, $txtAccPassword,$f)
  571. EndSelect
  572. WEnd
Add Comment
Please, Sign In to add comment
Public Pastes
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!