Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- #include <File.au3>
- #include<_HttpRequest.au3>
- #include <ButtonConstants.au3>
- #include <GUIConstantsEx.au3>
- #include <ListViewConstants.au3>
- #include <GuiListView.au3>
- #include <MsgBoxConstants.au3>
- #include <EditConstants.au3>
- #include <WindowsConstants.au3>
- #include <html.au3>
- #include <String.au3>
- #Region ### START Koda GUI section ### Form=
- $Form1 = GUICreate("Check 20 tin nhắn đầu tiên.", 618, 445, 583, 139)
- $ListView = GUICtrlCreateListView("ID|Tin Nhắn", 8, 8, 601, 361)
- _GUICtrlListView_SetColumnWidth(-1,0,120)
- _GUICtrlListView_SetColumnWidth(-1,1,470)
- $Button1 = GUICtrlCreateButton("Kiểm tra", 320, 392, 185, 33)
- GUICtrlSetFont(-1, 11, 400, 0, "Tahoma")
- GUICtrlSetCursor (-1, 0)
- $Input1 = GUICtrlCreateInput("", 8, 400, 89, 27, BitOR($GUI_SS_DEFAULT_INPUT,$ES_CENTER))
- GUICtrlSetFont(-1, 12, 400, 0, "Tahoma")
- $input2 = GUICtrlCreateInput("", 112, 400, 89, 27, BitOR($GUI_SS_DEFAULT_INPUT,$ES_CENTER,$ES_PASSWORD))
- GUICtrlSetFont(-1, 12, 400, 0, "Tahoma")
- $Input3 = GUICtrlCreateInput("", 216, 400, 97, 27, BitOR($GUI_SS_DEFAULT_INPUT,$ES_CENTER))
- GUICtrlSetFont(-1, 12, 400, 0, "Tahoma")
- $Label1 = GUICtrlCreateLabel("Tài khoản", 8, 376, 68, 22)
- GUICtrlSetFont(-1, 11, 400, 0, "Tahoma")
- $Label2 = GUICtrlCreateLabel("Mật khẩu", 112, 376, 65, 22)
- GUICtrlSetFont(-1, 11, 400, 0, "Tahoma")
- $Label3 = GUICtrlCreateLabel("ID kiểm tra", 216, 376, 78, 22)
- GUICtrlSetFont(-1, 11, 400, 0, "Tahoma")
- $Button2 = GUICtrlCreateButton("GET ID", 512, 392, 97, 33)
- GUICtrlSetFont(-1, 11, 400, 0, "Tahoma")
- GUICtrlSetCursor (-1, 0)
- GUISetState(@SW_SHOW)
- #EndRegion ### END Koda GUI section ###
- While 1
- $nMsg = GUIGetMsg()
- Switch $nMsg
- Case $GUI_EVENT_CLOSE
- Exit
- case $Button1
- _ad()
- case $Button2
- ;ShellExecute("https://findmyfbid.com/")
- EndSwitch
- WEnd
- func _ad()
- GUICtrlSetState($Button1,128)
- $tb = "Thông báo"
- if GUICtrlRead($Input1) = '' Then
- MsgBox(16,$tb,'Chưa Nhập Tài Khoản')
- Return
- elseif GUICtrlRead($Input2) = '' Then
- MsgBox(16,$tb,'Chưa Nhập Mật Khẩu')
- Return
- elseif GUICtrlRead($Input3) = '' Then
- MsgBox(16,$tb,'Chưa Nhập ID')
- Return
- Endif
- MsgBox(64,"Thông báo","Nhấn oke để chờ xử lý OKE")
- _HttpRequest_NewSession()
- $Username = GUICtrlRead($Input1)
- $Password = GUICtrlRead($Input2)
- $idd = GUICtrlRead($Input3)
- $idd = $idd
- $a = fblogin($Username,$Password)
- $cc = _HttpRequest(2, 'https://m.facebook.com/profile.php', "", $a, '', 'Connection: keep-alive')
- $fb = StringRegExp($cc,'name="fb_dtsg" value="(.*?)"',3)
- $idpr = StringRegExp($cc,'name="target" value="(.*?)"',3)
- $i = 1
- if @error Then
- MsgBox(0,0,'Tài khoản hoặc mật khẩu sai')
- Exit
- Endif
- Global $CookiePost = _GetCookie($GetCookie)
- $home = _HttpRequest(2, "https://m.facebook.com/"&$idd&"", "", $CookiePost)
- $tennhan = StringRegExp($home,"<head><title>(.*?)</title>",3)
- $cc = _HttpRequest(2, 'https://m.facebook.com/profile.php', "", $CookiePost, '', 'Connection: keep-alive')
- $fb = StringRegExp($cc,'name="fb_dtsg" value="(.*?)"',3)
- $idpr = StringRegExp($cc,'name="target" value="(.*?)"',3)
- ;MsgBox(0,0,$fb[0])
- ;MsgBox(0,0,$idpr[0])
- $i = 1
- $post = '__user='&$idpr[0]&'&__a=1&__dyn=7AgNeS-aF398jgDxyIGzGomzEdpbGAdy8VdLFwgoqwWhE98nwgUaqG2yaBxebkwy6UnGi7VXDG4XzErDAxaFQ3ucDBxe6ohyUCqu58nUszaxbxm1tyrhVo9ohxGbwYUmC-UjDQ6ErKu7EgwLxqawDDgswVwjpUhCK6pESfyaBy8OcxO12zVolyoK7UyUhUKcyU4eQEx1DzXG&__af=jw&__req=u&__be=-1&__pc=EXP3%3Aholdout_pkg&__rev=3211951&fb_dtsg='&$fb[0]&'&jazoest=265817089856881797477105114586581701188790886782485370&queries=%7B%22o0%22%3A%7B%22doc_id%22%3A%221927845863895817%22%2C%22query_params%22%3A%7B%22id%22%3A%22'&$idd&'%22%2C%22message_limit%22%3A'&$i&'%2C%22load_messages%22%3A1%2C%22load_read_receipts%22%3Atrue%2C%22before%22%3A'&_TimeStampUNIX_ms()&'%7D%7D%7D'
- $cc = _HttpRequest(2, 'https://www.facebook.com/api/graphqlbatch/', $post, $CookiePost, '', 'Connection: keep-alive')
- if StringInStr($cc,'"successful_results": 0') then
- MsgBox(0,0,'Lỗi không xác định, bạn hãy thử lại ID')
- Endif
- if Not StringInStr($cc,'messages_count') Then
- MsgBox(0,0,'Lỗi không xác định, bạn hãy thử lại ID')
- Endif
- $mess = _StringBetween($cc,'"messages_count":',',',3)
- if $mess[0] < 20 Then
- MsgBox(0,0,'Bạn chưa nhắn tin với '&$tennhan&' đủ 20 tin')
- Return
- Endif
- $post1 = '__user='&$idpr[0]&'&__a=1&__dyn=7AgNeS-aF398jgDxyIGzGomzEdpbGAdy8VdLFwgoqwWhE98nwgUaqG2yaBxebkwy6UnGi7VXDG4XzErDAxaFQ3ucDBxe6ohyUCqu58nUszaxbxm1tyrhVo9ohxGbwYUmC-UjDQ6ErKu7EgwLxqawDDgswVwjpUhCK6pESfyaBy8OcxO12zVolyoK7UyUhUKcyU4eQEx1DzXG&__af=jw&__req=u&__be=-1&__pc=EXP3%3Aholdout_pkg&__rev=3211951&fb_dtsg='&$fb[0]&'&jazoest=265817089856881797477105114586581701188790886782485370&queries=%7B%22o0%22%3A%7B%22doc_id%22%3A%221927845863895817%22%2C%22query_params%22%3A%7B%22id%22%3A%22'&$idd&'%22%2C%22message_limit%22%3A'&$mess[0]&'%2C%22load_messages%22%3A1%2C%22load_read_receipts%22%3Atrue%2C%22before%22%3A'&_TimeStampUNIX_ms()&'%7D%7D%7D'
- $cc1 = _HttpRequest(2, 'https://www.facebook.com/api/graphqlbatch/', $post1, $CookiePost, '', 'Connection: keep-alive')
- $c1 = _StringBetween($cc1,'{"id":"','ge",',3)
- $path = ''&$idd&'.html'
- For $a = 1 to 20
- $id = _StringBetween($c1[$a],'','",',3)
- $tin1 = StringRegExp($c1[$a],'"snippet":"(.*?)"',3)
- if IsArray($id) And IsArray($tin1) Then
- FileWriteLine($path,$id[0] &"|"&_HTMLDecode($tin1[0]) & "<br>")
- ENdif
- Next
- ;MsgBox(0,0,'OK')
- $readddd1 =FileRead(''&$idd&'.html')
- $readddd = StringReplace($readddd1,"<br>","")
- ;MsgBox(64,"Tin nhắn",_URLDecode($readddd))
- $filetk = _FileCountLines(''&$idd&'.html')
- for $i = 1 to $filetk
- $ac = FileReadLine(''&$idd&'.html',$i)
- $ac1 = StringReplace($ac,"<br>","")
- $a1 = StringReplace($ac1,$idd,$tennhan[0])
- $a2 = StringReplace($a1,"100008148131533","Nguyen Hong Phong")
- GUICtrlCreateListViewItem(_URLDecode($a2), $ListView)
- Next
- GUICtrlSetState($Button1,64)
- EndFunc
- Func _TimeStampUNIX_ms($iYear = @YEAR, $iMonth = @MON, $iDay = @MDAY, $iHour = @HOUR, $iMin = @MIN, $iSec = @SEC)
- Local $stSystemTime = DllStructCreate('ushort;ushort;ushort;ushort;ushort;ushort;ushort;ushort')
- DllCall('kernel32.dll', 'none', 'GetSystemTime', 'ptr', DllStructGetPtr($stSystemTime))
- $iMSec = StringFormat('d', DllStructGetData($stSystemTime, 8))
- Local $nYear = $iYear - ($iMonth < 3 ? 1 : 0)
- Return ((Int(Int($nYear / 100) / 4) - Int($nYear / 100) + $iDay + Int(365.25 * ($nYear + 4716)) + Int(30.6 * (($iMonth < 3 ? $iMonth + 12 : $iMonth) + 1)) - 2442110) * 86400 + ($iHour * 3600 + $iMin * 60 + $iSec)) * ($iMSec ? 1000 : 1) + $iMSec
- EndFunc
- Func fblogin($tk,$mk)
- $Username = GUICtrlRead($Input1)
- $Password = GUICtrlRead($Input2)
- $post = '&email='&$Username&'&pass='&$Password&'&login=%C4%90%C4%83ng+nh%E1%BA%ADp'
- $kq1 = _HttpRequest(1, 'https://m.facebook.com/login.php?refsrc=https%3A%2F%2Fm.facebook.com%2F&lwv=101&login_try_number=1&ref=dbl', $post, '', '', 'Connection: keep-alive')
- $cookie = _GetCookie($kq1)
- Return $cookie
- Endfunc
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement