#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <ListViewConstants.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <_HttpRequest.au3>
#include <GuiListView.au3>
#include <md5.au3>
#EndRegion
Main()
Func Main()
$x = 0
#Region ### START Koda GUI section ### Form=
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <ListViewConstants.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=C:\Users\gamin\Desktop\Form1.kxf
$Form1 = GUICreate("FB Tool by CoderDuc", 524, 297, 204, 133)
$ListView1 = GUICtrlCreateListView("STT |ID Người nhận |Email người nhận | Trạng Thái", 8, 64, 506, 182)
$input1 = GUICtrlCreateInput("", 96, 8, 169, 21)
$input2 = GUICtrlCreateInput("", 96, 32, 169, 21,$ES_PASSWORD)
$Label1 = GUICtrlCreateLabel("Username: ", 8, 8, 84, 22)
GUICtrlSetFont(-1, 11, 800, 0, "Arial")
GUICtrlSetColor(-1, 0xFF0000)
$Label2 = GUICtrlCreateLabel("Password: ", 8, 32, 81, 22)
GUICtrlSetFont(-1, 11, 800, 0, "Arial")
GUICtrlSetColor(-1, 0xFF0000)
$Button1 = GUICtrlCreateButton("AUTO", 280, 8, 83, 49)
GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif")
$Button3 = GUICtrlCreateButton("DELETE", 24, 264, 75, 25)
$Button4 = GUICtrlCreateButton("EDIT", 120, 264, 75, 25)
$IPUT = GUICtrlCreateInput("", 440, 256, 57, 21)
$Label3 = GUICtrlCreateLabel("TIMES: ", 376, 256, 58, 20)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
$Label4 = GUICtrlCreateLabel("FB Tool", 424, 32, 65, 20)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
$Label5 = GUICtrlCreateLabel("Welcome: ", 384, 8, 77, 20)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
	$nMsg = GUIGetMsg()
	Switch $nMsg
		Case $GUI_EVENT_CLOSE
			Exit
		Case $Button4
			$usertoken = GetTokenFull($input1,$input2)
			$input = InputBox("EDIT","Enter ID here: ")
			if not $input Then
				MsgBox(16,"IBFB Tool","Không dữ liệu nào được nhập vào!")
			Else
			$requestid = _HttpRequest(2,"https://graph.facebook.com/"&$input&"?fields=id,name&access_token=" & $usertoken)
			$requestemail = _HttpRequest(2,"https://graph.facebook.com/"&$input&"?fields=email&access_token=" & $usertoken)
			If not StringInStr($requestemail,"email") Then
				MsgBox(64,"IBFB Tool","ID người nhận không có email")
				$getid = StringRegExp($requestid, '\"id\"\:\s\"(.*?)\"', 3)
				$x = $x + 1
				GUICtrlCreateListViewItem($x&"|"&$getid[0]&"|"&"NULL"&"|",$ListView1)
			Else
				$getid = StringRegExp($requestid, '\"id\"\:\s\"(.*?)\"', 3)
				$getemail = StringRegExp($requestemail, '\s\s\s\"email\"\:\s"(.*?)",',3)
				$email = _HTMLDecode($getemail[0])
				$x = $x + 1
				GUICtrlCreateListViewItem($x&"|"&$getid[0]&"|"&$email&"|",$ListView1)
			Endif
			EndIf
		Case $Button3
			$DeleteItems = _GUICtrlListView_DeleteItemsSelected($ListView1)
			$x = $x - 1
		Case $Button1
			if GUICtrlRead($input1) = '' And GUICtrlRead($input2) = '' Then
				MsgBox(16,"IBFB Tool","Vui lòng nhập tài khoản và mật khẩu!")
			Else
				$count = _GUICtrlListView_GetItemCount($ListView1)
				For $value = 0 to $count - 1
				_GUICtrlListView_AddSubItem($ListView1,$value,"Đang tiến hành",3)
				Next
				$username = GUICtrlRead($input1)
				$password = GUICtrlRead($input2)
				$request = _HttpRequest(1,"https://www.facebook.com/")
				$cookie = _GetCookie($request)
				$dataLogin = "lsd=AVqYPu_3&email="&$username&"&pass="&$password&"&login=1"
				$header = _HttpRequest(2,'https://www.facebook.com/login/',$dataLogin,$cookie)
				$GetToken =_HttpRequest(2,'https://www.facebook.com/profile.php')
				$token = GetTokenFull($username,$password)
				_HttpRequest(2,"","",$cookie)
				$SL = GUICtrlRead($IPUT)
				if GUICtrlRead($IPUT) = False Then
					MsgBox(16,"IBFB Tool","Bạn chưa nhập số lần cần spam!")
				Else
				$txt = InputBox("IBFB Tool","Nhập tin nhắn cần spam: ")
				if not $txt Then
				MsgBox(16,"IBFB Tool","Bạn chưa nhập tin nhắn cần spam!")
				EndIf

				EndIf
			For $x = 0 To $count - 1
				$ID = _GUICtrlListView_GetItemText($ListView1,$x,1)
				For $ops = 0 To $SL - 1
				Sleep(250)
				$Auto = _HttpRequest(2,"","")
				Next
			Next
			EndIf
	EndSwitch
WEnd
EndFunc
Func GetTokenFull($user,$pass)

$api_key="882a8490361da98702bf97a021ddc14d"
$email=$user
$format="JSON"
$locale="vi_vn"
$method="auth.login"
$password=$pass
$return_ssl_resources=0
$v="1.0"

$sig="api_key=882a8490361da98702bf97a021ddc14demail="&$user&"format=JSONlocale=vi_vnmethod=auth.loginpassword="&$pass&"return_ssl_resources=0v=1.062f8ce9f74b12f84c123cc23437a4a32"

$sig=_Md5Encode($sig)
;MsgBox(0,0,$sig)

$data2Post='api_key='&$api_key&'&email='&$email&'&format='&$format&'&locale='&$locale&'&method='&$method&'&password='&$password&'&return_ssl_resources='&$return_ssl_resources&'&v='&$v&'&sig='&$sig
;MsgBox(0,0,$data2Post)

$data=_HttpRequest(2,'https://api.facebook.com/restserver.php',$data2Post)
;MsgBox(0,0,$data)
;FileWrite(@ScriptDir&'\data.txt',$data)



;$data=FileRead(@ScriptDir&'\data.txt')
$x=StringRegExp($data,'"access_token":"(.*?)"',1)
if IsArray($x) Then
	;ClipPut($x[0])
;MsgBox(0,0,$x[0])
Return $x[0]
Else
	;MsgBox(0,0,'Loi')
	Return "error"
EndIf

EndFunc