camn

#include<ie.au3>
#include<windowsconstants.au3>
#include<guiconstants.au3>
#include <GUIConstantsEx.au3>
$ClearID = "2"
Run("RunDll32.exe InetCpl.cpl,ClearMyTracksByProcess " & $ClearID)
 $oIE = _IECreateEmbedded ()
GUICreate("HuuDucITVN", 439, 540, 192, 124)
$taikhoan = GUICtrlCreateInput("huuducitvn", 8, 16, 121, 22)
GUICtrlSetFont(-1, 9, 800, 0, "Tahoma")
$bt_get = GUICtrlCreateButton("GET", 136, 16, 83, 25)
GUICtrlSetFont(-1, 9, 800, 0, "Tahoma")
$bt_quaylai = GUICtrlCreateButton("QUAY LAI", 224, 16, 83, 25)
GUICtrlSetFont(-1, 9, 800, 0, "Tahoma")
$GUIActiveX = GUICtrlCreateObj($oIE, 0, 50, 433, 481)
_IENavigate ($oIE, "https://mbasic.facebook.com/login/identify/")
$o_User = _IEGetObjByName($oIE,"email")
$oSubmit = _IEGetObjByName ($oIE, "did_submit")
$Source = 'Tiếp Tục';




GUISetState(@SW_SHOW)
    While 1
        $msg = GUIGetMsg()
        Switch $Msg
            Case $GUI_EVENT_CLOSE
                Exit
            Case $bt_get
          _IEFormElementSetValue ($o_User, GUICtrlRead($taikhoan))
		  _IEAction($oSubmit, "click")
          Sleep(1000)
		  _IENavigate ($oIE, "https://mbasic.facebook.com/recover/extended?no_access=1")
	Sleep(1000)
		$oButtons = _IETagNameGetCollection($oIE, "input")
		For $oButton in $oButtons
    If String($oButton.value) = "Tôi không thể truy nhập email" Then
        _IEAction($oButton, "click")
    EndIf

		Next
    Loop()

        EndSwitch
    WEnd

Func form()
	MsgBox(0, "", "No Form",1)
	_IEAction($oIE, "back")
EndFunc

Func loop()
	 If String($oButton.value) = "Tiếp tục" Then
			MsgBox($MB_SYSTEMMODAL, "FORM", "Ðã ra form")
 Else
			Call(form)
	EndIf
	EndFunc