Hỏi đáp [Solved] _HttpRequest: Giúp em sửa code Xác thực thông tin Facebook với

Thým vui lòng sau này đặt tiêu đề cho khớp với nội dung giùm iêm cái, không được hỏi kiểu "Giúp em cái này", "Giúp em cái kia" mà không nêu tóm tắt nội dung trong tiêu đề. 4, 5 lần rồi, lần nào iêm cũng phải sửa lại tiêu đề Lần sau là xoá bài nhoé :rolleyes::rolleyes::rolleyes::rolleyes:

 

Dùng m.facebook và Hướng dẫn phần Upload trong bài hướng dẫn mà chiến thôi: :v

Mã (AutoIt):

#include <_HttpRequest.au3>

$first_name = 'Huan'
$last_name = 'Hoang'
$Email_Phone = '[email protected]'
$birth_year = 1950
$birth_moth = 1
$birth_day = 1
$additional_info = 'Unlock help me'
;----------------------------------------------------------
$File_Image = FileOpenDialog('Chọn ảnh', '', 'Images (*.jpg;*.bmp;*.png)')
$Info_Image = _GetFileInfos($File_Image)
;----------------------------------------------------------
$lsd = StringRegExp(_HttpRequest(2, 'https://m.facebook.com/help/contact/199052956872279'), 'name="lsd" value="(.*?)"', 1)
If @error Then Exit MsgBox(4096, '', 'Lỗi')
;----------------------------------------------------------
Local $Dispos = [['lsd', $lsd[0]], ['first_name', $first_name], ['last_name', $last_name], ['Field323703587822857', $Email_Phone], ['date_of_birth[year]', $birth_year], ['date_of_birth[month]', $birth_moth], ['date_of_birth[day]', $birth_day], ['"upload_id[]"; filename="' & $Info_Image[0] & '"' & @CRLF & 'Content-Type:' & $Info_Image[1], $Info_Image[2]], ['additional_info', $additional_info], ['form_id', '199052956872279'], ['support_form_hidden_fields', '{}'], ['support_form_fact_false_fields', '[]']]

$sData = __HttpRequest_CreateDataFormSimple($Dispos)
;----------------------------------------------------------
$RQ = _HttpRequest(2, 'https://m.facebook.com/a/help/contact_us/', $sData)
_FileWrite_Test($RQ)


Func __HttpRequest_CreateDataFormSimple($a_Content_Disposition)
    Local $sBoundary = _WinHttpBoundaryGenerator()
    Local $2CRLF = @CRLF & @CRLF
    Local $sDataToSend = $sBoundary & @CRLF
    If IsArray($a_Content_Disposition) And UBound($a_Content_Disposition, 2) = 2 Then
        Local $__uBound = UBound($a_Content_Disposition) - 1
        For $i = 0 To $__uBound
            $sDataToSend &= 'Content-Disposition: form-data; name="' & $a_Content_Disposition[$i][0] & '"' & $2CRLF & $a_Content_Disposition[$i][1]
            If $i < $__uBound Then $sDataToSend &= @CRLF & $sBoundary & @CRLF
        Next
    EndIf
    $sDataToSend = StringReplace($sDataToSend, 'form-data; name=""', ' form-data; name="', 0, 1)
    $sDataToSend = StringRegExpReplace($sDataToSend, '(?im)^(Content-Type:[^"]+)"', '$1')
    Return $sDataToSend & @CRLF & $sBoundary & '--'
EndFunc

P/S: Cái hàm _HttpRequest_CreateDataFormSimple trong UDF _HttpRequest nó có lỗi nhỏ gây request sai nên iêm viết cái hàm _HttpRequest_CreateDataFormSimple đã sửa lỗi ở đây trước để thým test, còn trong UDF sẽ Update sau. :p