Website Login

[Ed McDonough]

Here's a simple GUI to login into a website (in this case craigslist).

I want to recreate this using Firefox instead of IE.

Can someone help?

Thanks,

Ed

expandcollapse popup

#include <IE.au3>
#include <GUIConstants.au3>
#include <File.au3>

GUICreate ("Acess Website GUI",600,300)
GUISetBkColor (0x99FFCC)
GUISetState(@SW_SHOW)

GUICtrlCreateLabel("Click a button to begin...", 30, 10, 200)
GUICtrlSetFont (-1,12, 800, 2, "Arial") 

Opt("GUICoordMode",1)
$button1 = GUICtrlCreateButton ("Craigslist",  40, 60, 100)
$close = GUICtrlCreateButton ("Close",  260, 260, 80)

While 1
  $msg = GUIGetMsg()
  Select
    Case $msg = $button1
         $account="email@email.com"
         $pw="password"
      Account($account,$pw)
     Case $msg = $close
        $msg = $GUI_EVENT_CLOSE
        ExitLoop
    Case $msg = $GUI_EVENT_CLOSE
        ExitLoop
  EndSelect
WEnd 
Exit

;FUNCTIONS
Func Account($account,$pw)

$oIE = _IECreate()
_IENavigate($oIE, "https://accounts.craigslist.org/")

$o_form = _IEFormGetObjByName($oIE, "login")
$o_login = _IEFormElementGetObjByName($o_form, "inputEmailHandle")
$o_password = _IEFormElementGetObjByName($o_form, "inputPassword")

_IEFormElementSetValue($o_login,$account)
_IEFormElementSetValue($o_password, $pw)
Sleep(500)
_IEFormSubmit($o_form)
EndFunc

[jvanegmond]

Help? You mean do your work for you: No.

[huskies]

Install the FF UDF and look at this link

http://www.thorsten-willert.de/Themen/FFau3/Beispiele/FF_AutoLogin.au3?a

[Rorka]

If you use ShellExecute(URL) it will load ur default browser

[Ed McDonough]

Sorry, didn't mean to imply I was looking for someone to write this.

Does anyone have a similar code using FF I can look at?

[Ed McDonough]

Got it working - thanks everyone for your help!

[Confuzzled]

Got it working - thanks everyone for your help!

Thanks for sharing your working code...

[Ed McDonough]

Thanks for sharing your working code...

Ooops!

Simple thanks to FF.au3 and FF_AutoLogin.au3

Here's the code:

Enjoy!

#include <FF.au3>
#include <FF_AutoLogin.au3>

$account = "YourName@YourEmail.com"
$pw = "YourPassword"

_FFStart("https://accounts.craigslist.org/") 

;_FFConnect ()
_FF_AutoLogin($account,$pw)