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

Anh Huân Hoàng ơi ! em định trích cái FB_login ra để mỗi khi nhập user + pass facebook thì nó kiểm tra xem đúng ko thì phải làm sao ạ? em làm nãy giờ ko dc :'(

 

e có làm cái tool check acc fb sống.mấy cái đầu request lâu ,mấy cái sau ko hiểu sao nhanh lắm a à.nhưng mà e check ko dùng sock thì cũng die hết loạt acc nên cũng chả check nữa :v

 

tiện thể cho em hỏi luôn nha anh ! em muốn học về winhttp ! nhưng mấy bài trên forum thì hơi khó hỉu anh ạ ! ko biết anh có video hướng dẫn ko cho em xin đi

 

Sao mình không lấy list được bạn ơi. :(

 

Mình chạy ngọt bạn êi.

Code chuẩn mình lấy ra từ UDF đêi:

Mã (AutoIt):

#include <_HttpRequest.au3>
#include <Crypt.au3>


$user = 'tên đăng nhập'
$Password = 'mật khẩu'

$Handle = FB_Login_Ex($user, $Password)
$List = FB_Group_List($Handle)
_ArrayDisplay($List)



Func FB_Group_List($Handle)
    If Not IsArray($Handle) Then Return SetError(1, '', False)
    Local $Request = _HttpRequest(2, 'https://www.facebook.com/bookmarks/groups/', '', $Handle[0])
    Local $ListFilter = StringRegExp($Request, 'BookmarkSeeAllEntsSectionController(.*?)</script>', 1)
    If @error Then Return SetError(2, '', False)
    Local $aRet = StringRegExp($ListFilter[0], '{id:"(\d+?)",name:"(.*?)",count:', 3)
    If @error Then Return SetError(3, '', False)
    Return $aRet
EndFunc


Func FB_Login_Ex($Username, $Password, $iRememberCookie = 1, $sPathSaveCookie = @ScriptDir & "\LoginFB.ini")
    If Not FileExists($sPathSaveCookie) Then FileOpen($sPathSaveCookie, 2 + 8 + 32)
    Local $sCookie, $FB_dtsg, $UserID
    $g_SectionINI = ___MyB64Encode(_Crypt_HashData($Username & $Password, $CALG_MD5))
    If $iRememberCookie Then
        $sCookie = IniRead($sPathSaveCookie, $g_SectionINI, 'Cookie', '')
        $FB_dtsg = IniRead($sPathSaveCookie, $g_SectionINI, 'DTSG', '')
        If Not $sCookie Or Not $FB_dtsg Or ___TimeStampNow() - IniRead($sPathSaveCookie, $g_SectionINI, 'Timestamp', 0) > 2000000 Then
            Return FB_Login_Ex($Username, $Password, 0, $sPathSaveCookie)
        EndIf
        Local $encrt_UserID = StringRegExp($sCookie, "c_user=(.*?);", 1)[0]
        $UserID = BinaryToString(_Crypt_DecryptData(___MyB64Decode($encrt_UserID), $Password, $CALG_AES_256))
        $sCookie = StringReplace($sCookie, 'c_user=' & $encrt_UserID, 'c_user=' & $UserID, 1, 1)
        Local $aRet = [$sCookie, $UserID, $FB_dtsg]
    Else
        Local $Request = _HttpRequest(1, "https://m.facebook.com/login.php", "email=" & _URIEncode($Username) & "&pass=" & _URIEncode($Password))
        $sCookie = _GetCookie($Request)
        If @error Then Return SetError(1, 0, False)
        Local $UserID = StringRegExp($sCookie, "c_user=(.*?);", 1)
        If @error Then Return SetError(2, 0, False)
        $FB_dtsg = StringRegExp(_HttpRequest(2, 'https://m.facebook.com/home.php', '', $sCookie), '\Q"fb_dtsg" value="\E(.*?)\"', 1)
        If @error Or $FB_dtsg[0] = '' Then Return SetError(3, 0, False)
        Local $aRet[3] = [$sCookie, $UserID[0], $FB_dtsg[0]]
        Local $encrt_UserID = ___MyB64Encode(_Crypt_EncryptData($UserID[0], $Password, $CALG_AES_256))
        $sCookie = StringReplace($sCookie, 'c_user=' & $UserID[0], 'c_user=' & $encrt_UserID, 1, 1)
        IniWrite($sPathSaveCookie, $g_SectionINI, "Cookie", $sCookie)
        IniWrite($sPathSaveCookie, $g_SectionINI, "DTSG", $aRet[2])
        IniWrite($sPathSaveCookie, $g_SectionINI, "Timestamp", ___TimeStampNow())
    EndIf
    Return $aRet
EndFunc

Func ___MyB64Encode($binaryData, $iLinebreak = 0)
    Local $aChr = StringSplit('ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+-', '', 2)
    Local $lenData = StringLen($binaryData) - 2, $iOdd = Mod($lenData, 3), $spDec = '', $base64Data = '', $iCounter = 0
    For $i = 3 To $lenData - $iOdd Step 3
        $spDec = Dec(StringMid($binaryData, $i, 3))
        $base64Data &= $aChr[$spDec / 64] & $aChr[Mod($spDec, 64)]
    Next
    If $iOdd Then
        $spDec = BitShift(Dec(StringMid($binaryData, $i, 3)), -8 / $iOdd)
        $base64Data &= $aChr[$spDec / 64] & ($iOdd = 2 ? $aChr[Mod($spDec, 64)] & '==' : '=')
    EndIf
    If $iLinebreak Then $base64Data = StringRegExpReplace($base64Data, '(.{' & $iLinebreak & '})', '${1}' & @LF) & @LF
    Return $base64Data
EndFunc

Func ___MyB64Decode($base64Data)
    $base64Data = StringStripWS($base64Data, 8)
    Local $sChr64 = 'ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+-'
    Local $aData = StringSplit($base64Data, ''), $binaryData = '0x', $iOdd = 0 * StringReplace($base64Data, '=', '') + @extended
    For $i = 1 To $aData[0] - $iOdd * 2 Step 2
        $binaryData &= Hex((StringInStr($sChr64, $aData[$i], 1, 1) - 1) * 64 + StringInStr($sChr64, $aData[$i + 1], 1, 1) - 1, 3)
    Next
    If $iOdd Then $binaryData &= Hex(BitShift((StringInStr($sChr64, $aData[$i], 1, 1) - 1) * 64 + ($iOdd - 1) * (StringInStr($sChr64, $aData[$i + 1], 1, 1) - 1), 8 / $iOdd), $iOdd)
    Return $binaryData
EndFunc

Func ___TimeStampNow()
    Local $nYear = @YEAR - (@MON < 3 ? 1 : 0)
    Return (Int(Int($nYear / 100) / 4) - Int($nYear / 100) + @MDAY + Int(365.25 * ($nYear + 4716)) + Int(30.6 * ((@MON < 3 ? @MON + 12 : @MON) + 1)) - 2442110) * 86400 + (@HOUR * 3600 + @MIN * 60 + @SEC)
EndFunc

 

Tớ chạy FB_Login_Ex.au3 thì thành công rồi, nhưng set error bị sao ấy cậu ạ... tớ gõ sai mật khẩu thì không báo gì cả mà hình như cứ chạy tiếp hay là exit ra ấy...cậu check xem có phải thế k ?

 

Chào các bác, có cách nào lấy danh sách user đã comment vào bài viết của mình ko ạ?

 

tớ nghiên cứu mãi mà đọc code của cậu tớ chỉ hiểu được 3 phần.. nhưng mà vẫn lỗi cậu à ... đăng nhập thành công bây giờ cũng trả về @error...
cậu giúp tớ hiểu về cái @error với .. ví dụ dòng này nhé :
If @error Or Not $sCookie Then Return SetError(1, 0, False) ; nếu lỗi hoặc không có cookies thì trở về set giá trị.................... tớ chưa dịch được :">
vầy nếu có lỗi ở đây có nghĩa là lỗi gì và cái dòng gì có lỗi cậu nhỉ ?? hay là autoit cứ chạy đến dòng đó mà báo lỗi thì .... return seterror

 

ai chỉ mình các upload ảnh lên fb voi.

 

Đây bác ợi... @error = 0 và $handle = false
Em nhập đúng id vs pass nhé :/ phải là 1 với true chứ nhỉ ...

 

Có khi nào do mạng chậm ko bác ?? em k nghĩ là chậm quá..vì hàm fb_login em login 3p vẫn báo bình thường lưu đc cả mảng 3 cái mà...em đang lưu tạm cái mảng từ hàm fb_login về ko mã hóa :P .. vs lại bác cho em hỏi.. khi mà 1 trong 3 giá trị của cái mảng nó ko đúng mà cứ chạy thì nó báo lỗi j ạ ? để em check rồi cho nó chạy lại từ đầu ợ...

 

do mạng bác ạ... hnay em về nhà chạy y nguyên thế thì consle nó ghi là success ... vãi chưởng... =.=''

 

Bác ơi giúp em làm cái lấy hết comment ở 1 status trên facbook với

 

có hàm FB_Logout() không các AE