السلام عليكم ... بعد أن تحل المشكل إن شاء الله
كثيرا ممن يشكون من الصفحات المزورة في الفيسبوك
اصنع أداتك بنفسك و قد أضع هذه الأداة بلغة autoit
قد يستغلها أحد الزملاء
#NoTrayIcon
#include <WindowsConstants.au3>
#include <StaticConstants.au3>
#include <GUIConstantsEx.au3>
#include <EditConstants.au3>
#include <GUIConstants.au3>
#include <GDIPlus.au3>
#include <String.au3>
#Include <WinAPI.au3>
#include <array.au3>
#include <Misc.au3>
#include <IE.au3>
FBLogin()
Func FBLogin()
Global $Enter = False
Local $msg, $GUI_FBN, $GUI_FBP
$GUI = GUICreate(" الدخول للفيسبوك و تفادي الصفحات المزورة ", 385, 110)
$GUI_Label4 = GUICtrlCreateLabel("أبو بلقيس", 30, 85)
$GUI_Label3 = GUICtrlCreateLabel(" أداة قد تساعدك للدخول لصفحتك على الفيسبوك ", 90, 10)
$GUI_Label1 = GUICtrlCreateLabel(":المستخدم", 300, 30)
$GUI_FBN = GUICtrlCreateInput("", 100, 25, 200, 20)
$GUI_Label2 = GUICtrlCreateLabel(":رقم المرور", 300, 53)
$GUI_FBP = GUICtrlCreateInput("", 100, 50, 200, 20, BitOR($ES_PASSWORD,$ES_AUTOHSCROLL))
$GUI_Create = GUICtrlCreateButton("دخـــول", 100, 75, 200, 20)
$BACKGROUNDX = GuiCtrlCreatePic("Facebook.gif", 310 ,20 ,64, 64)
GUICtrlSetState($BACKGROUNDX, $GUI_DISABLE)
GUISetState()
HotKeySet("{Enter}", "EnterPressed")
While 1
$msg = GUIGetMsg()
If WinActive("F a c e b o o k | L o g i n") Then
HotKeySet("{Enter}", "EnterPressed")
Else
HotKeySet("{Enter}")
EndIf
If $msg = -3 Then Exit
If $msg = $GUI_Create Or $Enter = True Then
Global $Enter = False
If GUICtrlRead($GUI_FBN) = "" Then
MsgBox(48, " السلام عليكم ورحمة الله", "أخي الكريم بياناتك غير مكتملة فمعذرة تقبل سلامي .... أبوبلقيس")
Else
$1 = GUICtrlRead($GUI_FBN)
$2 = GUICtrlRead($GUI_FBP)
$timeout = 5000
_IEErrorHandlerRegister()
_IELoadWaitTimeout($timeout)
$oIE = _IECreate("http://www.facebook.com/login.php")
$oHWND = _IEPropertyGet($oIE, "hwnd")
WinSetState($oHWND, "", @SW_MAXIMIZE)
$oForm = _IEFormGetObjByName($oIE, "login_form")
$oQuery = _IEFormElementGetObjByName($oForm, "email")
$o_Query = _IEFormElementGetObjByName($oForm, "pass")
$oSubmit = _IEFormElementGetObjByName($oForm, "login")
_IEFormElementSetValue($oQuery, $1)
_IEFormElementSetValue($o_Query, $2)
_IEAction($oSubmit, "click")
ExitLoop
EndIf
EndIf
WEnd
EndFunc ;FBLgin()