1. Tải bản cài đặt AutoIT mới nhất

    Chào Khách. Nếu bạn mới tham gia và chưa cài đặt AutoIT.
    Vui lòng vào topic trên để tải bản AutoIT mới nhất nhé
    Dismiss Notice
  2. Quy định và nội quy

    Chào Khách. Vui lòng đọc kỹ nội quy và quy định của diễn đàn
    Để tránh bị ban một cách đáng tiếc nhé!
    Dismiss Notice
  3. Hướng dẫn chèn mã AutoIT trong diễn đàn

    Chào Khách. Vui lòng xem qua bài viết này
    Để biết cách chèn mã AutoIT trong diễn đàn bạn nhé :)
    Dismiss Notice

Source Getlink Fshare bằng HttpRequest

Thảo luận trong 'Chia sẻ mã nguồn' bắt đầu bởi emga9xkc, 15/9/16.

  1. emga9xkc

    emga9xkc Thành viên năng động
    • 43/45

    Tham gia ngày:
    7/3/16
    Bài viết:
    232
    Đã được thích:
    205
    Full thư viện các bác download phần đính kèm nhé.

    Demo code:

    Mã (AutoIt):
    #include <_HttpRequest.au3>
    #include <GUIListView.au3>
    #include <IDM.au3>
    Local $lbGet, $txtLinkGet

    $link = "http://autoitvn.com/members/emga9xkc.1325/"
    $titlegui = 'Get Link Vip Fshare'
    $GUI = GUICreate($titlegui, 660, 70, -1, -1, -1)
    GUISetFont(11)
    GUICtrlCreateLabel("Link Gốc", 0, 5, 80, 17, 0x201)
    $txtLinkGoc = GUICtrlCreateInput($link, 80, 4, 460, 20, -1, 0x20000)
    $btnGetLink = GUICtrlCreateButton("Get Link", 550, 3, 90, 60)
    $lbHuongDan = GUICtrlCreateLabel("Nhập link download dạng: https://www.fshare.vn/file/OFTK4I1CA4FI/", 0, 40, 450, 17, 0x201)
    GUICtrlSetState($txtLinkGoc, 256)
    _WinAPI_SetFocus(ControlGetHandle($titlegui, "", $txtLinkGoc))

    GUISetState()

    While Sleep(15)
       $linkGoc = GUICtrlRead($txtLinkGoc)
       $msg = GUIGetMsg()
       Switch $msg
         Case -3
           Exit
         Case $btnGetLink
           If $linkGoc = $link Then
             ShellExecute($link)
           Else
             GUICtrlDelete($lbHuongDan)
             GUICtrlDelete($lbGet)
             GUICtrlDelete($txtLinkGet)
             FS_Getlink()
           EndIf
       EndSwitch
    WEnd


    Func FS_Getlink()
       $Cookie = _Getcookie(_HttpRequest(1, 'https://www.fshare.vn/'))
       $Request = _HttpRequest(2, $linkGoc, "", $Cookie)
       $filename = StringRegExp($Request, '\Qdata-linkcode="\E(.*?)"', 3)
       If @error Then
         MsgBox(0, 'Thông báo', 'Link không đúng, vui lòng kiểm tra lại')
         $lbHuongDan = GUICtrlCreateLabel("Nhập link download dạng: https://www.fshare.vn/file/OFTK4I1CA4FI/", 0, 40, 450, 17, 0x201)
       Else
         $filename = $filename[0]
         $filesave = StringRegExp($Request, '\Q<i class="fa fa-file-zip-o"></i> \E(.*?)\Q.\E(.*?) ', 3)
         $fs_csrf = StringRegExp($Request, "data: {fs_csrf:'(.*?)'},", 3)[0]
         $data = "fs_csrf=" & $fs_csrf & "&DownloadForm%5Bpwd%5D=&DownloadForm%5Blinkcode%5D=" & $filename & "&ajax=download-form&undefined=undefined"
         $Request = _HttpRequest(2, "https://www.fshare.vn/download/get", $data, $Cookie)
         $LinkDownload = StringReplace(StringRegExp($Request, 'url":"(.*?)"', 3)[0], '\', '')
         $sLocalPath = @ScriptDir & '\PhimDL'
         $lbGet = GUICtrlCreateLabel("Link Get", 0, 40, 80, 17, 0x201)
         $txtLinkGet = GUICtrlCreateInput($LinkDownload, 80, 40, 460, 20, -1, 0x20000)
         If $IDM_SUCC = False Then
           ShellExecute($LinkDownload)
         Else
           _IDM_Downloader($LinkDownload, $sLocalPath, $filesave[0], $filesave[1], 1)
         EndIf
       EndIf
    EndFunc  ;==>FS_Getlink

     
     

    Các file đính kèm:

    kamsamita1, bugbug, essered and 4 others like this.
  2. enjoyedtvn

    enjoyedtvn Thành viên mới
    • 3/6

    Tham gia ngày:
    17/7/16
    Bài viết:
    17
    Đã được thích:
    13
    cho mình xin thư viện IDM với bác ợ :D
     
    kamsamita1 thích bài này.
  3. emga9xkc

    emga9xkc Thành viên năng động
    • 43/45

    Tham gia ngày:
    7/3/16
    Bài viết:
    232
    Đã được thích:
    205
    bác ghi google IDM.au3 là ra ngay mà
     
    kamsamita1 thích bài này.
  4. emga9xkc

    emga9xkc Thành viên năng động
    • 43/45

    Tham gia ngày:
    7/3/16
    Bài viết:
    232
    Đã được thích:
    205
    đã up lại full thư viện bên trong file nén
     
    kamsamita1 thích bài này.
  5. Huân Hoàng

    Huân Hoàng Administrator Thành viên BQT Administrator Super Moderator
    • 93/113

    Tham gia ngày:
    29/9/15
    Bài viết:
    642
    Đã được thích:
    1,181
    Hay đó thým, không cần phải chờ nó đếm thời gian chờ tải (y) Có thêm mục tải với proxy và tải khi có pass nữa là ngon :p
     
    kamsamita1 thích bài này.
  6. emga9xkc

    emga9xkc Thành viên năng động
    • 43/45

    Tham gia ngày:
    7/3/16
    Bài viết:
    232
    Đã được thích:
    205
    :D cảm ơn bác đã sửa bài giúp e
     
    kamsamita1 thích bài này.
  7. linkerpt

    linkerpt Thành viên mới
    • 1/6

    Tham gia ngày:
    16/9/16
    Bài viết:
    2
    Đã được thích:
    2
    cho mình hỏi sử dụng không được .mình là newbie .
     
    kamsamita1 thích bài này.
  8. emga9xkc

    emga9xkc Thành viên năng động
    • 43/45

    Tham gia ngày:
    7/3/16
    Bài viết:
    232
    Đã được thích:
    205
    b gặp vấn đề gì vậy
     
    kamsamita1 thích bài này.
  9. daithinh

    daithinh Thành viên mới
    • 1/6

    Tham gia ngày:
    27/10/16
    Bài viết:
    3
    Đã được thích:
    3
    sao mình test thử get ko đc nhĩ, có add acc fshare vào ko?
     
    kamsamita1 thích bài này.
  10. emga9xkc

    emga9xkc Thành viên năng động
    • 43/45

    Tham gia ngày:
    7/3/16
    Bài viết:
    232
    Đã được thích:
    205
    source này ko cần acc nhé b. source tham khảo thôi, vẫn chạy ok mà b
     
    kamsamita1 thích bài này.
  11. mrminhpro1104

    mrminhpro1104 Thành viên năng động
    • 28/34

    Tham gia ngày:
    6/9/15
    Bài viết:
    6
    Đã được thích:
    119
    Nơi ở:
    316 Phúc Tân
    cái này có get link vip k ạ :v
     
    kamsamita1 thích bài này.
  12. essered

    essered Thành viên
    • 18/23

    Tham gia ngày:
    11/9/16
    Bài viết:
    47
    Đã được thích:
    45
    bác làm thêm add acc là quá ngon, thêm 4share nữa
     
    kamsamita1 and daithinh like this.
  13. Huân Hoàng

    Huân Hoàng Administrator Thành viên BQT Administrator Super Moderator
    • 93/113

    Tham gia ngày:
    29/9/15
    Bài viết:
    642
    Đã được thích:
    1,181
    @essered Hàm FShare với acc:

    Mã (AutoIt):
    Func _FShare_DownloadWithAcc($sURL, $UserName, $Password)
        $Request1 = _HttpRequest(4, $sURL)
        $fs_csrf = StringRegExp($Request1[1], 'value="(.*?)" name="fs_csrf"', 1)
        If @error Then Return SetError(1)
        $fs_csrf = $fs_csrf[0]
        $Request2 = _HttpRequest(1, 'https://www.fshare.vn/login', 'fs_csrf=' & $fs_csrf & '&LoginForm%5Bemail%5D=' & _URIEncode($UserName) & '&LoginForm%5Bpassword%5D=' & _URIEncode($Password) & '&LoginForm%5Bcheckloginpopup%5D=0&LoginForm%5BrememberMe%5D=0&yt0=%C4%90%C4%83ng+nh%E1%BA%ADp', _GetCookie($Request1[0]))
        $Cookie = _GetCookie($Request2)
        $Request3 = _HttpRequest(1, $sURL, '', $Cookie) ; gửi thông báo xác nhận login thành công
        $Request4 = _HttpRequest(2, 'https://www.fshare.vn/download/get', 'fs_csrf=' & $fs_csrf & '&DownloadForm%5Bpwd%5D=&DownloadForm%5Blinkcode%5D=' & StringRegExp($sURL, 'file/(.*?)\/?$', 1)[0] & '&ajax=download-form&undefined=undefined', $Cookie, $sURL)
        $sLinkDownload = StringRegExp($Request4, '"(\Qhttp:\/\/\E.*?)"', 1)
        If @error Then Return SetError(2)
        $Request5 = _HttpRequest(1, 'https://www.fshare.vn/logout', '', $Cookie) ;logout tai khoan
        Return StringReplace($sLinkDownload[0], '\', '', 0, 1)
    EndFunc
     
    kamsamita1, daithinh and essered like this.
  14. essered

    essered Thành viên
    • 18/23

    Tham gia ngày:
    11/9/16
    Bài viết:
    47
    Đã được thích:
    45
    thanks bác
     
    kamsamita1 thích bài này.
  15. essered

    essered Thành viên
    • 18/23

    Tham gia ngày:
    11/9/16
    Bài viết:
    47
    Đã được thích:
    45
    test với acc vip không được bác ơi, báo lỗi

    [​IMG]
     
    kamsamita1 thích bài này.
  16. Huân Hoàng

    Huân Hoàng Administrator Thành viên BQT Administrator Super Moderator
    • 93/113

    Tham gia ngày:
    29/9/15
    Bài viết:
    642
    Đã được thích:
    1,181
    À, code trên mình test với acc thường =)) Vậy là acc Vip nó khác cấu trúc acc thường :))
     
    kamsamita1 thích bài này.
  17. KogoroMori

    KogoroMori Thành viên mới
    • 3/6

    Tham gia ngày:
    20/10/16
    Bài viết:
    4
    Đã được thích:
    4
    Code lấy đợc link để download thật, ví dụ link "https://www.fshare.vn/file/MO8VGBYMZSR8/" lấy được link là "http://download034.fshare.vn/dl/3ui...ek.Beyond.2016.mHD.BluRay.DD5.1.x264-TRiM.mkv" tuy nhiên bị lỗi ở chỗ
    gọi IMD _IDM_Downloader($LinkDownload, $sLocalPath, $filesave[0], $filesave[1], 1) do mảng này không có phần tử nào(
    UBound($filesave) =0).
    bạn xem lại có đúng không nhé. Thanks!
     
    kamsamita1 thích bài này.
  18. essered

    essered Thành viên
    • 18/23

    Tham gia ngày:
    11/9/16
    Bài viết:
    47
    Đã được thích:
    45
    để trống mặc định là được bác
    _IDM_Downloader($LinkDownload, '', '', '', 1)
     
    kamsamita1 and Huân Hoàng like this.
  19. essered

    essered Thành viên
    • 18/23

    Tham gia ngày:
    11/9/16
    Bài viết:
    47
    Đã được thích:
    45
    nhờ bác thớt code giúp tenlua.vn, vip thì càng tốt, thanks bác trước
     
    kamsamita1 thích bài này.
  20. emga9xkc

    emga9xkc Thành viên năng động
    • 43/45

    Tham gia ngày:
    7/3/16
    Bài viết:
    232
    Đã được thích:
    205
    :D bác có nick vip cho e mượn e test chứ e ko có. còn về cái download thường thì đợi có 5s thui mà bác
     
    kamsamita1 thích bài này.

Chia sẻ trang này

Đang tải...