API tools faq
paste
lnt900

fshareget.au3

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