UDF Tương tác với Facebook bằng WinHttp

Hàm FB_Login_Ex mình làm lại dựa trên hàm FB_Login, khác ở chỗ thêm chế độ ghi nhớ Cookie (đã được mã hoá nên yên tâm, sau lần login đầu tiên nó sẽ lưu lại Cookie đó và sử dụng lại ở lần đăng nhập sau, không cần chờ gửi Request đăng nhập nữa); URL request là trang m.facebook nên tốc độ login nhanh gấp đôi :3 Để sử dụng bạn Include FB_Login_Ex.au3 vào đầu code hoặc copy hàm FB_Login_Ex và paste vào UDF Facebook.au3 để xài cũng được

Hàm đính kèm bên dưới không dùng được nữa, đã cập nhật ở #1

 

Thực ra cái login FB này mới đầu mình cũng nạp vào data2send dài lắm, sau @Nguyễn Quốc Tuấn public cái UDF này mình mới biết là chỉ cần 1 dòng ngắn là ra Có lẽ trường hợp này bạn thử bỏ dần các thành phần trong data2send (giữa các ký tự &) nếu gửi được thì OK, không được thì gửi theo nguyên si như cũ

 

@Hồ Khánh Vũ Hồi trước làm về FB nhiều khi thấy nó khó khăn, chứ giờ có đc cái Cookie đăng nhập do FB_Login() trả về thì làm dễ lắm. Bạn cứ áp dụng bài viết về WinHttp: Mở Firefox, đăng nhập FB, xong ví dụ muốn Auto Follow, mở Live HTTP Header (LHH) lên trước, bấm Follow đại 1 người nào đó, thì LHH sẽ hiện request liên quan đến việc Follow, truyền request đó vào hàm _httprequest với: $Handle = FB_Login()
Trong đó:
$Handle[0] = Cookie dữ liệu đăng nhập
$Handle[1] = UserID
$Handle[2] = DTSG

Ví dụ:
(LHH) facebook.com/...follow...<ID của acc mình>....<ID của acc muốn follow>....dtsg=.....
=> _HttpRequest(1, 'facebook.com/...follow...' & Handle[1] & '....<ID của acc muốn follow>....dtsg=' & Handle[2], '', $Handle[0])

Lưu ý là trong request của thằng FB thường dài và có các thành phần sau:
userID=...&__a=1&__timestamp=....&__bc=....&__xyz=...&dtsg=.....
Thì userID=, dtsg=, __a=1 (thằng __a này liên quan đến async trong api graph fb) là quan trọng và phải giữ lại, còn mấy thằng __abcxyz khác bỏ đi cũng đc.

Còn làm sao để có được danh sách ID của bạn bè hoặc từ tường nhà bất kỳ thì mình sẽ đăng Hàm sau khi về :p:p

 

Bổ sung 3 hàm:

- FB_TimeLineURLToUserID: Từ địa chỉ Timeline bất kì trả về 1 mảng - array Tên và ID của người dùng đó, ví dụ:

$aInfo = FB_TimeLineURLToUserID($Handle, 'https://www.facebook.com/duyanh.official')
_ArrayDisplay($aInfo)​

- FB_Friend_List: Trả về 1 mảng - array Tên và ID danh sách bạn bè của mình, ví dụ:

$aFriendsList = FB_Friend_List($Handle)
_ArrayDisplay($aFriendsList)​

Lưu ý: Acc của những người trong danh sách bạn bè đã bị Vô hiệu hoá hoặc bị Xoá bởi FB sẽ không có trong mảng trả về, vì vậy nếu thấy danh sách trả về bị thiếu thì đó không phải là lỗi.

- FB_Friend_Add: Thêm Bạn bè nếu đã có UserID của người đó, ví dụ:

Ví dụ 1:

FB_Friend_Add($Handle, '1234567')​

Ví dụ 2:

$aInfo = FB_TimeLineURLToUserID($Handle, 'https://www.facebook.com/duyanh.official')
FB_Friend_Add($Handle, $aInfo[1])​

Thêm 3 hàm này vào cuối UDF Facebook.au3

Mã (AutoIt):

     
     Func FB_TimeLineURLToUserID($Handle, $TimelineURL)
        If Not IsArray($Handle) Then Return SetError(1, 0, False)
        $TimelineURL = StringMid($TimelineURL, StringInStr($TimelineURL, '/', 1, -1) + 1)
        Local $Request = _HttpRequest(2, 'https://m.facebook.com/' & $TimelineURL, '', $Handle[0])
        If @error Or StringInStr($Request, 'href="/bugnub/?source=ErrorPage"', 0, 1) Then Return SetError(1, '', 'Tài khoản không tồn tại')
        Local $aRegexp, $aResult[2]
        $aRegexp = StringRegExp($Request, '<title>(.*?)</title>', 1)
        If @error Then Return SetError(2, '', 'Tài khoản không tồn tại')
        $aResult[0] = $aRegexp[0]
        $aRegexp = StringRegExp($Request, 'confirm/\?bid=(\d+)', 1)
        If @error Then Return SetError(2, '', 'Tài khoản không tồn tại')
        $aResult[1] = $aRegexp[0]
        Return $aResult
    EndFunc


    Func FB_Friend_List($Handle, $iStartSearch = 0, $iEndSearch = -1)
        If $Handle = False Or Not IsArray($Handle) Then Return SetError(1, '', False)
        If $iEndSearch = -1 Then $iEndSearch = 999999999
        If $iStartSearch > $iEndSearch Then Return SetError(2, '', 0)
        Local $aRet[0], $Request, $aListFr, $uBound, $iCount = 0, $iError = 0
        Local $TotalFr = StringRegExp(_HttpRequest(2, 'https://m.facebook.com/friends/center/mbasic/?fb_ref=tn&sr=1&ref_component=mbasic_home_header&ref_page=MFriendsCenterFriendsController', '', $Handle[0]), '\Q/friends/?mff_nav=1">\E.*?\((\d+?)\)\<\/a\>', 1)
        $TotalFr = (@error ? 0 : Int(StringRegExpReplace($TotalFr[0], '[\,\.]', '', 1)))
        If $TotalFr <> 0 And $iEndSearch = 999999999 Then $iEndSearch = Ceiling($TotalFr / 10)
        For $i = $iStartSearch To $iEndSearch
            $Request = _HttpRequest(2, 'https://m.facebook.com/friends/center/friends/?ppk=' & $i & '&bph=' & $i, '', $Handle[0])
            $aListFr = StringRegExp($Request, '\Qhref="/friends/hovercard/mbasic/?uid=\E(\d+)&amp;.*?last_acted">(.*?)\Q</a>\E', 3)
            If Not @error Then
                $uBound = UBound($aListFr)
                ReDim $aRet[$iCount + $uBound]
                For $k = 0 To $uBound - 1
                    $aRet[$k + $iCount] = $aListFr[$k]
                Next
                $iCount += $uBound
                ToolTip('Loading...' & Round(100 * $i / $iEndSearch, 1) & '%', 0, 0, 'Status', 1)
            EndIf
            If Not StringInStr($Request, '/friends/?ppk=' & ($i + 1) & '&amp;tid=u_0_0&amp;bph=' & ($i + 1) & '#friends', 1, 1) Then ExitLoop
        Next
        ToolTip('')
        ToolTip('Loading...100%', 0, 0, 'Status', 1)
        Return $aRet
    EndFunc


    Func FB_Friend_Add($Handle, $ID_User)
        If Not IsArray($Handle) Then Return SetError(1, 0, False)
        _HttpRequest(0, 'https://www.facebook.com/ajax/add_friend/action.php', 'to_friend=' & $ID_User & '&action=add_friend&how_found=hovercard&ref_param=hc_ufi&fb_dtsg=' & $Handle[2], $Handle[0])
    EndFunc

 

1/ Gửi tin nhắn FB rất dễ, data2send chỉ cần 1 dòng ngắn là ra rồi, nhưng nếu công khai thì nguy cơ xì-pam là rất lớn
Mình chỉ gợi ý là:
- Message_id có thể là 1 trong những trường hợp sau đây, không bắt buộc như mẫu request nhìn thấy từ LHH:

+ Là user_id của người mình chat cùng.
+ Là thread_id (ID mà FB đặt cho cuộc hội thoại của mình và người hoặc nhóm mình chat)​

- Xem lại cái lưu ý của mình khi trả lời cmt câu hỏi auto Follow của Hồ Vũ ở trên là sẽ biết những thứ nào có thể bỏ được trong data2send (à, timestamp cũng bỏ được luôn nhé)
- Nếu vẫn làm chưa được nữa thì bạn hãy inb FB mình, mình sẽ chỉ cho bạn gợi ý quan trọng nhất :p


2/ Dùng graph api hay dùng UDF này thì đều có vấn đề là: FB nó chỉ load thông tin nào đó như lấy danh sách bạn bè, list hình ảnh trong 1 album, list Nhóm đã tham gia ... dựa trên trang. 1 trang sẽ lấy được 1 lượng item (số bạn, số hình...) nhất định và nó sẽ cung cấp cho mình:

- 1 Token key để request trang kế. (graph api)
- 1 URL để request trang kế. (UDF)​

Ví dụ: mình get source tường nhà nó trả về tầm 4-10 post gì đó, trong source nó sẽ bonus cho 1 cái URL có id là "next_page", "more_item",... đại loại thế, tiếp tục request với cái url đó, mình lại lấy thêm được những post tiếp theo và 1 cái url "trang kế", cứ tiếp tục thế đến khi hết thì thôi :v Tóm tắt lại như sau:

Local $URL = 'https://fb.com....'
Local $Ketqua[0]
While 1

$source = _HttpRequest(2, $URL)
$Array_ItemCanLay= stringregexp(...) / _StringBetween(...)
If @error then exitloop ;(nếu không tách được item cần lấy nào thì thoát lặp)
_ArrayConcatenate($Ketqua, $Array_ItemCanLay) ;(Thêm items đã tách được vào biến $Ketqua)
$next_page = stringregexp(...) / _StringBetween(...)
If @error then exiloop ;(không có url kế thì thoát lặp)
$URL = $next_page[0]​

Wend​

 

Hay lắm bạn, chỉ có 1 điều là request dạng này sẽ bị ảnh hưởng nhiều bởi giao diện, nên sẽ bị lỗi khi fb thay đổi giao diện hoặc cấu trúc mã.

 

à, iêm thấy đổi gì thì đổi chứ đám id, class thì chắc không ảnh hưởng đâu, regexp khéo tí thì không lo :p:p:p