Auto Email login bot with combo box list items

iresolver · April 2, 2015

hi I'm trying to create a script to auto login to my email, I have a few different emails i want to pick from

can't seam to get the button that lunches the email website to change depending on what is selected in the combo box here is the code I'm working with. Any help would be really appreciated.

thanks guys!

#RequireAdmin

#include <IE.au3>
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <ComboConstants.au3>

AutoItSetOption ( "TrayIconDebug", 1 )



#Region ### START Koda GUI section ### Form=
$AutoEmail = GUICreate("Auto Email", 379, 300, 1524, 1035)

$Gmail = GUICtrlCreateButton("Gmail", 24, 16, 129, 41)
$Hotmail = GUICtrlCreateButton("Hotmail", 223, 16, 129, 41)


GUICtrlCreateCombo("", 24, 80, 145, 25, BitOR($CBS_DROPDOWN,$CBS_AUTOHSCROLL))

GUICtrlSetData(-1, "UserName@gmail.com|userName2@gmail.com", "UserName@gmail.com")
$Gmail_boxitem1 = GUICtrlRead (1001)
$Gmail_boxitem2 = GUICtrlRead (1001)


GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit


        Case $Gmail_boxitem2
            gmail_login2 ()


        Case $Gmail_boxitem1
            gmail_login1 ()


        Case $Gmail
            gmail_login1 ()



        Case $Hotmail
            hotmail_login ()

    EndSwitch
WEnd


Call ("gmail_login1")


Func gmail_login1 ()
    Global $oIE =_IECreate ("http://www.gmail.com")
    local $username = _IEGetObjByName ($oIE, "Email")
    Local $password = _IEGetObjByName ($oIE, "Passwd")
    Local $button = _IEGetObjByName ($oIE,"signIn")

    _IEFormElementSetValue ($username, "username@gmail.com")
    _IEFormElementSetValue ($password, "Your Password")
    _IEAction ($button, "click")

EndFunc


Func gmail_login2 ()
    Global $oIE =_IECreate ("http://www.gmail.com")
    ;local $username = _IEGetObjByName ($oIE, "Email")
    Local $password = _IEGetObjByName ($oIE, "Passwd")
    Local $button = _IEGetObjByName ($oIE,"account-name")
    Local $button = _IEGetObjByName ($oIE,"signIn")

    ;_IEFormElementSetValue ($username, "UserName@gmail.com")
    _IEFormElementSetValue ($password, "Your Password")
    _IEAction ($button, "click")

EndFunc


Call ("hotmail_login")

Func hotmail_login ()

    Global $oIE =_IECreate ("http://www.live.com")
    local $username = _IEGetObjByName ($oIE, "login")
    Local $password = _IEGetObjByName ($oIE, "passwd")
    Local $button = _IEGetObjByName ($oIE,"SI")

    _IEFormElementSetValue ($username, "UserName@hotmail.com")
    _IEFormElementSetValue ($password, "Your Password")
    _IEAction ($button, "click")

EndFunc

Edited April 2, 2015 by iresolver

Melba23 · April 2, 2015

iresolver,

Just read the combo when you press the button:

#include <GUIConstantsEx.au3>
#include <MsgBoxConstants.au3>
#include <ComboConstants.au3>

$AutoEmail = GUICreate("Auto Email", 379, 300)

$Gmail = GUICtrlCreateButton("Gmail", 24, 16, 129, 41)
$Hotmail = GUICtrlCreateButton("Hotmail", 223, 16, 129, 41)

$cCombo = GUICtrlCreateCombo("", 24, 80, 145, 25, BitOR($CBS_DROPDOWN,$CBS_AUTOHSCROLL))
GUICtrlSetData($cCombo, "UserName@gmail.com|userName2@gmail.com", "UserName@gmail.com")

GUISetState(@SW_SHOW)

While 1
    Switch GUIGetMsg()
        Case $GUI_EVENT_CLOSE
            Exit
        Case $Gmail
            Switch GUICtrlRead($cCombo)
                Case "UserName@gmail.com"
                    gmail_login1()
                Case "UserName2@gmail.com"
                    gmail_login2()
            EndSwitch

        Case $Hotmail
            hotmail_login ()

    EndSwitch
WEnd

Func gmail_login1 ()
    MsgBox($MB_SYSTEMMODAL, "Login", "gmail_login1")
EndFunc

Func gmail_login2 ()
    MsgBox($MB_SYSTEMMODAL, "Login", "gmail_login2")
EndFunc

Func hotmail_login ()
    MsgBox($MB_SYSTEMMODAL, "Login", "hotmail")
EndFunc

All clear?

M23

iresolver · April 2, 2015

thanks so much your script helped me, I finally got it to work!!!

your the best!!!

I will post the script after I take out my user name & passwords so others can auto login to there email as well

thanks again Melba23 could not have done it without you

JakeJohnson74 · April 2, 2015

Many ways to skin a cat

Here is my spin. It's very similar although - I slimmed it down a little to use one function and pass parameters used to decide what account and email to use.

#include <GUIConstantsEx.au3>
#include <MsgBoxConstants.au3>
#include <ComboConstants.au3>

$AutoEmail = GUICreate("Auto Email", 379, 300, 1524, 1035)
$emailLogin = GUICtrlCreateButton("Login", 24, 16, 129, 41)

$cCombo = GUICtrlCreateCombo("", 24, 80, 145, 25, BitOR($CBS_DROPDOWN,$CBS_AUTOHSCROLL))  ; assigned your combo to a variable I can refer to
GUICtrlSetData(-1, "UserName@gmail.com|userName2@gmail.com|userName@hotmail.com|userName2@hotmail.com", "UserName@gmail.com")

GUISetState()

While 1
    Switch GUIGetMsg()
        Case $GUI_EVENT_CLOSE
            Exit
            Case $emailLogin
            $MySele = GUICtrlRead($cCombo)
            Switch $MySele
                Case StringInStr($MySele, "gmail") > 0
                    _email_login($MySele,"gmail")
                Case StringInStr($MySele, "hotmail") > 0
                    _email_login($MySele,"hotmail")
            EndSwitch
    EndSwitch
WEnd

Func _email_login ($sComboSelectedItem,$emailType)
    Switch $emailType
        Case "gmail"
            ;gmail specific stuff here
             MsgBox($MB_SYSTEMMODAL, "Login", "Type: " & $emailType & @CRLF & "Email: " & $sComboSelectedItem)
        Case "hotmail"
            ;hotmail specific stuff here
             MsgBox($MB_SYSTEMMODAL, "Login", "Type: " & $emailType & @CRLF & "Email: " & $sComboSelectedItem)
    EndSwitch
EndFunc

iresolver · April 2, 2015

This is what I have it works but the gmail & hotmail send buttons don't open the websites all the time you have to keep clicking them a few times I think the loops are not working the way they should

if anyone has any ideas I would love to hear them

thanks guys

#RequireAdmin
#include <IE.au3>
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <ComboConstants.au3>
#include <Array.au3>
AutoItSetOption ( "TrayIconDebug", 1 )

#cs---------------------------------------  Auto Multi Email login  -----------------------------------------
;                                  _______
;    /\           _____  _____    |          _      _                   |      ______   _____
;   /  \   |    |   |   |     |   |____     | \    / |   /\   o |       |     |      | |       o |\  |
;  /----\  |    |   |   |     |   |      -- |  \  /  |  /--\  | |       |     |      | |  _ _  | | \ |
; /      \ |____|   |   |_____|   |_______  |   \/   | /    \ | |____   |____ |______| |_____| | |  \|
;
#ce----------------------------------------------------------------------------------------------------------



;--------------------  this is the GUI  ------------------------------------------------
$AutoEmail = GUICreate("Auto Email", 339, 125, @DesktopWidth, @DesktopHeight)
$aTaskbar = WinGetPos("[CLASS:Shell_TrayWnd]", "")
$aWin = WinGetPos($AutoEmail)
WinMove($AutoEmail, "", @DesktopWidth - $aWin[2] - 4, @DesktopHeight - $aWin[3] - $aTaskbar[3] - 4)

$Gmail = GUICtrlCreateButton("Gmail", 64, 16, 49, 41, $BS_ICON)
GUICtrlSetImage(-1, "C:\Users\iresolver\Downloads\gmail_icon.ico", 1)

$Hotmail = GUICtrlCreateButton("Hotmail", 223, 16, 49, 41, $BS_ICON)
GUICtrlSetImage(-1, "C:\Users\iresolver\Downloads\MSMail_icon.ico", 1)

$cCombo = GUICtrlCreateCombo("", 16, 72, 145, 25)
GUICtrlSetData(-1, "YourAccount1@gmail.com|YourAccount2@gmail.com", "YourAccount1@gmail.com")

$cCombo2 = GUICtrlCreateCombo("", 176, 72, 145, 25, BitOR($CBS_DROPDOWN,$CBS_AUTOHSCROLL))
GUICtrlSetData(-1, "YourAccount1@hotmail.com|YourAccount2@hotmail.com", "YourAccount1@hotmail.com")

GUISetState(@SW_SHOW)
;--------------------  End of GUI  ------------------------------------------------------


While 1
If $Gmail Then Gmail ()
If $Hotmail Then Hotmail ()
WEnd


Func Gmail ()
Switch GUIGetMsg ()
        Case $GUI_EVENT_CLOSE
        Exit
        Case $Gmail
            Switch GUICtrlRead($cCombo)
        Case "YourAccount1@gmail.com"          ;change this to your G-Mail Account 1
                    gmail_Account1 ()          ;Don't change this line

        Case "YourAccount2@gmail.com"          ;change this to your G-Mail Account 2
                    gmail_Account2 ()          ;Don't change this line
            EndSwitch
            EndSwitch
EndFunc

Func Hotmail ()
    Switch GUIGetMsg ()
        Case $GUI_EVENT_CLOSE
        Exit

        Case $Hotmail
        Switch GUICtrlRead($cCombo2)

        Case "YourAccount1@hotmail.com"              ;change this to your Hotmail Account 1
                    Hotmail_Account1 ()              ;Don't change this

        Case "YourAccount2@hotmail.com"              ;change this to your Hotmail Account 2
                    Hotmail_Account2 ()              ;Don't change this line
     EndSwitch
     EndSwitch

EndFunc

Func gmail_Account1 ()

Global $oIE =_IECreate ("https://accounts.google.com/ServiceLogin?sacu=1&continue=http%3A%2F%2Fmail.google.com%2Fmail%2F%3Fpc%3Dtopnav-about-en&hl=en&service=mail")

    local $username = _IEGetObjByName ($oIE, "Email")
    Local $password = _IEGetObjByName ($oIE, "Passwd")

    Local $Email_button = _IEGetObjByName ($oIE, "Email")
    Local $Signin_button = _IEGetObjByName ($oIE,"signIn")

    _IEFormElementSetValue ($username, "YourAccount1@gmail.com")        ;change this to your Gmail Account 1 Name
    _IEFormElementSetValue ($password, "Your Password")                 ;change this to your Gmail Account 1 Password

    _IEAction ($Email_button, "click")
    _IEAction ($Signin_button, "click")

EndFunc


Func gmail_Account2 ()

Global $oIE =_IECreate ("https://accounts.google.com/ServiceLogin?sacu=1&continue=http%3A%2F%2Fmail.google.com%2Fmail%2F%3Fpc%3Dtopnav-about-en&hl=en&service=mail")

    local $username = _IEGetObjByName ($oIE, "Email")
    Local $password = _IEGetObjByName ($oIE, "Passwd")

    Local $Email_button = _IEGetObjByName ($oIE, "account-email")
    Local $Signin_button = _IEGetObjByName ($oIE,"signIn")

    _IEFormElementSetValue ($username, "YourAccount2@gmail.com")          ;change this to your Gmail Account 2 Name
    _IEFormElementSetValue ($password, "Your Password")                   ;change this to your Gmail Account 2 Password

    _IEAction ($Email_button, "click")
    _IEAction ($Signin_button, "click")

EndFunc


Func hotmail_Account1 ()

Global $oIE =_IECreate ("http://www.live.com")

    local $username = _IEGetObjByName ($oIE, "login")
    Local $password = _IEGetObjByName ($oIE, "passwd")
    Local $Signin_button = _IEGetObjByName ($oIE,"SI")

    _IEFormElementSetValue ($username, "YourAccount1@hotmail.com")         ;change this to your Hotmail Account 1 Name
    _IEFormElementSetValue ($password, "Your Password")                    ;change this to your Hotmail Account 1 Password
    _IEAction ($Signin_button, "click")

EndFunc


Func hotmail_Account2 ()

Global $oIE =_IECreate ("http://www.live.com")

    local $username = _IEGetObjByName ($oIE, "login")
    Local $password = _IEGetObjByName ($oIE, "passwd")
    Local $Signin_button = _IEGetObjByName ($oIE,"SI")

    _IEFormElementSetValue ($username, "YourAccount2@hotmail.com")         ;change this to your Hotmail Account 2 Name
    _IEFormElementSetValue ($password, "Your Password")                    ;change this to your Hotmail Account 2 Password
    _IEAction ($Signin_button, "click")

EndFunc

nitekram · April 3, 2015

You might want to put a Sleep(100) in your While loop, and see if that helps with getting the button presses.

Edit

Add these and see if it helps

Global $msg
#include <GUIConstantsEx.au3>

While 1
    $msg = GUIGetMsg()
If $msg = $Gmail Then Gmail ()

If $msg = $Hotmail Then Hotmail ()
If $msg = $GUI_EVENT_CLOSE Then ExitLoop

WEnd

GUIDelete($AutoEmail)

.

Edited April 3, 2015 by nitekram

iresolver · April 3, 2015

anyone know how to make this work with two combo boxes & two buttons so that the first combo box opens gmail & the other combo box opens Hotmail?

thanks to anyone who can help!

Melba23 · April 3, 2015

iresolver,

Just expand the code I gave you using a second combo which you read when you press the second button. Give it a try and see if you can get it to work - you know where we are if you run into problems.

M23

iresolver · April 3, 2015

how do you make the while 1 loop wait util

While 1

Sleep(100)

If $Gmail Then Gmail ()

If $Hotmail Then Hotmail ()

If $msg = $GUI_EVENT_CLOSE Then ExitLoop

WEnd

you press the button I tryed using sleep (100) but after 100mi it runs though the script my while loop looks like this

iresolver · April 3, 2015

My real question would be how to make it wait for both If statements at the same time util i press one button or the other then go back and wait again?

Melba23 · April 3, 2015

iresolver,

That looks nothing like the code I posted above - and is syntactic garbage. This is going to sound harsh, but if you want help here YOU have to make some effort to learn how to code. Think of the old saying: "Give a man a fish, you feed him for a day; give a man a net and you feed him forever" - we try to be net makers and repairers, not fishmongers.

So look at what I posted above:

; Start an infinite loop
While 1
    ; If a control is actioned
    Switch GUIGetMsg()
        ; It was the exit [X]
        Case $GUI_EVENT_CLOSE
            ; So exit
            Exit
        ; It was the GMail button
        Case $Gmail
            ; So read the GMail combo
            Switch GUICtrlRead($cCombo)
                ; And act according to the setting
                Case "UserName@gmail.com"
                    gmail_login1()
                Case "UserName2@gmail.com"
                    gmail_login2()
            EndSwitch
        ; It was the Hotmail button
        Case $Hotmail
            hotmail_login ()
    EndSwitch
    ; And wait until the next event
WEnd

as I explained above, you will need to create a second combo (with its ControlID saved a different variable) and read this combo when the "Hotmail" button is pressed, in exactly the same way as in the existing "Gmail" Case.

Is that clearer? :huh:

M23

iresolver · April 3, 2015

I do have two different combos Switch GUICtrlRead($cCombo) & Switch GUICtrlRead($cCombo2) and there also declared at the top of my script

sorry about my syntactics I have only been doing Autoit for about a week now

again my code works just not reliably it seams to be the while 1 loop

can't get it to pause until I pick the gmail button or Hotmail button here is my latest script

#RequireAdmin
#include <IE.au3>
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <ComboConstants.au3>
#include <Array.au3>
AutoItSetOption ( "TrayIconDebug", 1 )

#cs---------------------------------------  Auto Multi Email login  -----------------------------------------
;                                  _______
;    /\           _____  _____    |          _      _                   |      ______   _____
;   /  \   |    |   |   |     |   |____     | \    / |   /\   o |       |     |      | |       o |\  |
;  /----\  |    |   |   |     |   |      -- |  \  /  |  /--\  | |       |     |      | |  _ _  | | \ |
; /      \ |____|   |   |_____|   |_______  |   \/   | /    \ | |____   |____ |______| |_____| | |  \|
;
#ce----------------------------------------------------------------------------------------------------------



;--------------------  this is the GUI  ------------------------------------------------
$AutoEmail = GUICreate("Auto Email", 339, 125, @DesktopWidth, @DesktopHeight)
$aTaskbar = WinGetPos("[CLASS:Shell_TrayWnd]", "")
$aWin = WinGetPos($AutoEmail)
WinMove($AutoEmail, "", @DesktopWidth - $aWin[2] - 4, @DesktopHeight - $aWin[3] - $aTaskbar[3] - 4)

Global $Gmail = GUICtrlCreateButton("Gmail", 64, 16, 49, 41, $BS_ICON)
GUICtrlSetImage(-1, "C:\Users\iresolver\Downloads\gmail_icon.ico", 1)

Global $Hotmail = GUICtrlCreateButton("Hotmail", 223, 16, 49, 41, $BS_ICON)
GUICtrlSetImage(-1, "C:\Users\iresolver\Downloads\MSMail_icon.ico", 1)

Global $cCombo = GUICtrlCreateCombo("", 16, 72, 145, 25)
GUICtrlSetData(-1, "YourAccount1@gmail.com|YourAccount2@gmail.com", "YourAccount1@gmail.com")

Global $cCombo2 = GUICtrlCreateCombo("", 176, 72, 145, 25, BitOR($CBS_DROPDOWN,$CBS_AUTOHSCROLL))
GUICtrlSetData(-1, "YourAccount1@hotmail.com|YourAccount2@hotmail.com", "YourAccount1@hotmail.com")

Global $msg
GUISetState(@SW_SHOW)
;--------------------  End of GUI  ------------------------------------------------------


While 1
If $Gmail Then Gmail()
Sleep (100)
If $Hotmail Then Hotmail()
If $msg = $GUI_EVENT_CLOSE Then ExitLoop
WEnd


Func Gmail()
Switch GUIGetMsg()
        Case $GUI_EVENT_CLOSE
        Exit
        Case $Gmail
            Switch GUICtrlRead($cCombo)
        Case "YourAccount1@gmail.com"          ;change this to your G-Mail Account 1
                    gmail_Account1()           ;Don't change this line

        Case "YourAccount2@gmail.com"          ;change this to your G-Mail Account 2
                    gmail_Account2()                   ;Don't change this line
EndSwitch
EndSwitch

EndFunc

Func Hotmail()
    Switch GUIGetMsg()
        Case $GUI_EVENT_CLOSE
        Exit

        Case $Hotmail
        Switch GUICtrlRead($cCombo2)

        Case "YourAccount1@hotmail.com"              ;change this to your Hotmail Account 1
                    Hotmail_Account1()              ;Don't change this

        Case "YourAccount2@hotmail.com"              ;change this to your Hotmail Account 2
                    Hotmail_Account2()              ;Don't change this line
EndSwitch
EndSwitch

EndFunc

Func gmail_Account1()

Global $oIE =_IECreate ("https://accounts.google.com/ServiceLogin?sacu=1&continue=http%3A%2F%2Fmail.google.com%2Fmail%2F%3Fpc%3Dtopnav-about-en&hl=en&service=mail")

    local $username = _IEGetObjByName ($oIE, "Email")
    Local $password = _IEGetObjByName ($oIE, "Passwd")

    Local $Email_button = _IEGetObjByName ($oIE, "Email")
    Local $Signin_button = _IEGetObjByName ($oIE,"signIn")

    _IEFormElementSetValue ($username, "YourAccount1@gmail.com")        ;change this to your Gmail Account 1 Name
    _IEFormElementSetValue ($password, "Your Password")                 ;change this to your Gmail Account 1 Password

    _IEAction ($Email_button, "click")
    _IEAction ($Signin_button, "click")

EndFunc


Func gmail_Account2()

Global $oIE =_IECreate ("https://accounts.google.com/ServiceLogin?sacu=1&continue=http%3A%2F%2Fmail.google.com%2Fmail%2F%3Fpc%3Dtopnav-about-en&hl=en&service=mail")

    local $username = _IEGetObjByName ($oIE, "Email")
    Local $password = _IEGetObjByName ($oIE, "Passwd")

    Local $Email_button = _IEGetObjByName ($oIE, "account-email")
    Local $Signin_button = _IEGetObjByName ($oIE,"signIn")

    _IEFormElementSetValue ($username, "YourAccount2@gmail.com")          ;change this to your Gmail Account 2 Name
    _IEFormElementSetValue ($password, "Your Password")                   ;change this to your Gmail Account 2 Password

    _IEAction ($Email_button, "click")
    _IEAction ($Signin_button, "click")

EndFunc


Func hotmail_Account1()

Global $oIE =_IECreate ("http://www.live.com")

    local $username = _IEGetObjByName ($oIE, "login")
    Local $password = _IEGetObjByName ($oIE, "passwd")
    Local $Signin_button = _IEGetObjByName ($oIE,"SI")

    _IEFormElementSetValue ($username, "YourAccount1@hotmail.com")         ;change this to your Hotmail Account 1 Name
    _IEFormElementSetValue ($password, "Your Password")                    ;change this to your Hotmail Account 1 Password
    _IEAction ($Signin_button, "click")

EndFunc


Func hotmail_Account2()

Global $oIE =_IECreate ("http://www.live.com")

    local $username = _IEGetObjByName ($oIE, "login")
    Local $password = _IEGetObjByName ($oIE, "passwd")
    Local $Signin_button = _IEGetObjByName ($oIE,"SI")

    _IEFormElementSetValue ($username, "YourAccount2@hotmail.com")         ;change this to your Hotmail Account 2 Name
    _IEFormElementSetValue ($password, "Your Password")                    ;change this to your Hotmail Account 2 Password
    _IEAction ($Signin_button, "click")

EndFunc

Edited April 3, 2015 by iresolver

iresolver · April 3, 2015

ok your right I put that loop you made on my original script and connected the other two hotmail accounts it all works perfectly now

thank you so much

sorry I was flip flopping between scripts trying to get it to work

I was trying jakejohnson74 script as well and getting confused.

should have stayed with my original script!

I will post the new working script without my accounts Soon so others can enjoy!

thanks again Melba23 you know your stuff

Melba23 · April 3, 2015

iresolver,

sorry about my syntactics I have only been doing Autoit for about a week now

No problem - we all started at that point.

As to your script - close, but no cigar. See if you can see why this does work:

;#RequireAdmin
#include <IE.au3>
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <ComboConstants.au3>
#include <Array.au3>
;AutoItSetOption ( "TrayIconDebug", 1 )

$AutoEmail = GUICreate("Auto Email", 339, 125)
$aTaskbar = WinGetPos("[CLASS:Shell_TrayWnd]", "")
$aWin = WinGetPos($AutoEmail)
WinMove($AutoEmail, "", @DesktopWidth - $aWin[2] - 4, @DesktopHeight - $aWin[3] - $aTaskbar[3] - 4)

Global $Gmail = GUICtrlCreateButton("Gmail", 64, 16, 49, 41, $BS_ICON)
;GUICtrlSetImage(-1, "C:\Users\iresolver\Downloads\gmail_icon.ico", 1)

Global $Hotmail = GUICtrlCreateButton("Hotmail", 223, 16, 49, 41, $BS_ICON)
;GUICtrlSetImage(-1, "C:\Users\iresolver\Downloads\MSMail_icon.ico", 1)

Global $cCombo = GUICtrlCreateCombo("", 16, 72, 145, 25)
GUICtrlSetData(-1, "YourAccount1@gmail.com|YourAccount2@gmail.com", "YourAccount1@gmail.com")

Global $cCombo2 = GUICtrlCreateCombo("", 176, 72, 145, 25, BitOR($CBS_DROPDOWN, $CBS_AUTOHSCROLL))
GUICtrlSetData(-1, "YourAccount1@hotmail.com|YourAccount2@hotmail.com", "YourAccount1@hotmail.com")

GUISetState(@SW_SHOW)

While 1

    Switch GUIGetMsg()
        Case $GUI_EVENT_CLOSE
            Exit
        Case $Gmail
            Switch GUICtrlRead($cCombo)
                Case "YourAccount1@gmail.com"
                    gmail_Account1()
                Case "YourAccount2@gmail.com"
                    gmail_Account2()
            EndSwitch
        Case $Hotmail
            Switch GUICtrlRead($cCombo2)
                Case "YourAccount1@hotmail.com"
                    hotmail_Account1()
                Case "YourAccount2@hotmail.com"
                    hotmail_Account2()
            EndSwitch
    EndSwitch

WEnd

Func gmail_Account1()
    MsgBox($MB_SYSTEMMODAL, "Open", "GMail 1")
EndFunc   ;==>gmail_Account1


Func gmail_Account2()
    MsgBox($MB_SYSTEMMODAL, "Open", "GMail 2")
EndFunc   ;==>gmail_Account2


Func hotmail_Account1()
    MsgBox($MB_SYSTEMMODAL, "Open", "HotMail 1")
EndFunc   ;==>hotmail_Account1


Func hotmail_Account2()
    MsgBox($MB_SYSTEMMODAL, "Open", "HotMail 2")
EndFunc   ;==>hotmail_Account2

Please do ask if you have any questions.

M23

Edit: I see you got there on your own - excellent! :thumbsup:

Second edit: Something went wrong and several instances of our last posts were showing - I have tidied up the thread a bit and all seems well now. :wacko:

Edited April 3, 2015 by Melba23

iresolver · April 4, 2015

can zip files be attached to the post?

iresolver · April 4, 2015

Here it is the Auto Email login app with GUI

This is what it looks like

Melba23 helped me to get this working!!

Thanks again Melba23

Here is the code

#RequireAdmin
#include <IE.au3>
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <ComboConstants.au3>

AutoItSetOption ( "TrayIconDebug", 1 )



#cs=======================================  Auto Multi Email login  =========================================================
;         __             ____             _______                                     __                                     |
;        //\\    __   __|----|  _____    ||------    __      __     __       __       ||      ______   _____       __   __   |
;       //  \\   ||   ||  ||   ||---||   ||____     ||\\    //||   //\\   O  ||       ||     ||----|| ||----   O  ||\\  ||   |
;      //____\\  ||   ||  ||   ||   ||   ||----  -- || \\  // ||  //--\\  || ||       ||     ||    || ||  ___  || || \\ ||   |
;     //      \\ ||___||  ||   ||___||   ||_______  ||  \\//  || //    \\ || ||____   ||____ ||____|| ||____|| || ||  \\||   |
;    --       --  -----   --    -----    ---------  --   --   -- -      - --  -----   ------  ------  -------- -- --   ---   |
#ce==========================================================================================================================



;----------------Create a Folder & Put your icons files in the install dir first before you compile your EXE -----------------
DirCreate ("C:\Program Files\AutoEmail\")
FileInstall("C:\Program Files\AutoEmail\gmail_icon.ico", "C:\Program Files\AutoEmail\gmail_icon.ico")
FileInstall("C:\Program Files\AutoEmail\MSMail_icon.ico", "C:\Program Files\AutoEmail\MSMail_icon.ico")
;-----------------------------------------------------------------------------------------------------------------------------


;----------------------------------------- This is the GUI -------------------------------------------------------------------

$AutoEmail = GUICreate("Auto Email", 339, 125, @DesktopWidth, @DesktopHeight)
$aTaskbar = WinGetPos("[CLASS:Shell_TrayWnd]", "")
$aWin = WinGetPos($AutoEmail)
WinMove($AutoEmail, "", @DesktopWidth - $aWin[2] - 4, @DesktopHeight - $aWin[3] - $aTaskbar[3] - 4)

$Gmail = GUICtrlCreateButton("Gmail", 64, 16, 49, 41, $BS_ICON)
GUICtrlSetImage(-1, "C:\Program Files\AutoEmail\gmail_icon.ico", 1)

$Hotmail = GUICtrlCreateButton("Hotmail", 223, 16, 49, 41, $BS_ICON)
GUICtrlSetImage(-1, "C:\Program Files\AutoEmail\MSMail_icon.ico", 1)

$cCombo = GUICtrlCreateCombo("", 16, 72, 145, 25)
GUICtrlSetData(-1, "YourAccount1@gmail.com|YourAccount2@gmail.com", "YourAccount1@gmail.com")

$cCombo2 = GUICtrlCreateCombo("", 176, 72, 145, 25, BitOR($CBS_DROPDOWN,$CBS_AUTOHSCROLL))
GUICtrlSetData(-1, "YourAccount1@hotmail.com|YourAccount2@hotmail.com", "YourAccount1@hotmail.com")

Global $msg
GUISetState(@SW_SHOW)

;------------------------------------------- End of GUI -----------------------------------------------------------------------




;--------------------------------------- This is the loop ---------------------------------------------------------------------
While 1

    Switch GUIGetMsg()

        Case $GUI_EVENT_CLOSE
Exit

    Case $Gmail
        Switch GUICtrlRead($cCombo)
        Case "YourAccount1@gmail.com"          ;<=====   Here you put your Gmail Account Name
                    gmail_login1()
        Case "YourAccount2@gmail.com"          ;<=====   Here you put your 2nd Gmail Account Name
                    gmail_login2()
EndSwitch

    Case $Hotmail
        Switch GUICtrlRead($cCombo2)
        Case "YourAccount1@hotmail.com"        ;<=====   Here you put your Hotmail Account Name
                  hotmail_login1()
        Case "YourAccount2@hotmail.com"        ;<=====   Here you put your 2nd Hotmail Account Name
                  hotmail_login2()
EndSwitch

EndSwitch
WEnd





;---------------------------------------------------- This Reades what Email is selected in the combo box ------------------------------------------------------
Func Gmail()

    Switch GUIGetMsg()
        Case $GUI_EVENT_CLOSE
Exit
        Case $Gmail
            Switch GUICtrlRead($cCombo)

        Case "YourAccount1@gmail.com"      ;<=====   Here you put your Gmail Account Name
                    gmail_login1()

        Case "YourAccount2@gmail.com"      ;<=====   Here you put your 2nd Gmail Account Name
                    gmail_login2()
EndSwitch
EndSwitch

EndFunc


Func Hotmail()

    Switch GUIGetMsg()
        Case $GUI_EVENT_CLOSE
Exit

        Case $Hotmail
        Switch GUICtrlRead($cCombo2)

        Case "YourAccount1@hotmail.com"      ;<=====   Here you put your Hotmail Account Name
                    Hotmail_login1()

        Case "YourAccount2@hotmail.com"      ;<=====   Here you put your 2nd Hotmail Account Name
                    Hotmail_login2()
EndSwitch
EndSwitch

EndFunc

;----------------------------------------------------- This sends account info to web Browser & Logs in ------------------------------------------------------------
Func gmail_login1()
Sleep (60)

Global $oIE =_IECreate ("https://accounts.google.com/ServiceLogin?sacu=1&continue=http%3A%2F%2Fmail.google.com%2Fmail%2F%3Fpc%3Dtopnav-about-en&hl=en&service=mail")

    local $username = _IEGetObjByName ($oIE, "Email")
    Local $password = _IEGetObjByName ($oIE, "Passwd")

    Local $Email_button = _IEGetObjByName ($oIE, "Email")
    Local $Signin_button = _IEGetObjByName ($oIE,"signIn")

    _IEFormElementSetValue ($username, "YourAccount1@gmail.com")      ;<=====   Here you put your Gmail Account Name
    _IEFormElementSetValue ($password, "Your Password")               ;<=====   Here you put your Gmail Account Password

    _IEAction ($Email_button, "click")
    _IEAction ($Signin_button, "click")

EndFunc


Func gmail_login2()
Sleep(60)

Global $oIE =_IECreate ("https://accounts.google.com/ServiceLogin?sacu=1&continue=http%3A%2F%2Fmail.google.com%2Fmail%2F%3Fpc%3Dtopnav-about-en&hl=en&service=mail")

    local $username = _IEGetObjByName ($oIE, "Email")
    Local $password = _IEGetObjByName ($oIE, "Passwd")

    Local $Email_button = _IEGetObjByName ($oIE, "account-email")
    Local $Signin_button = _IEGetObjByName ($oIE,"signIn")

    _IEFormElementSetValue ($username, "YourAccount2@gmail.com")     ;<=====   Here you put your 2nd Gmail Account Name
    _IEFormElementSetValue ($password, "Your Password")              ;<=====   Here you put your 2nd Gmail Account Password

    _IEAction ($Email_button, "click")
    _IEAction ($Signin_button, "click")

EndFunc


Func hotmail_login1()
Sleep(60)

Global $oIE =_IECreate ("http://www.live.com")

    local $username = _IEGetObjByName ($oIE, "login")
    Local $password = _IEGetObjByName ($oIE, "passwd")
    Local $Signin_button = _IEGetObjByName ($oIE,"SI")

    _IEFormElementSetValue ($username, "YourAccount1@hotmail.com")    ;<=====   Here you put your Hotmail Account Name
    _IEFormElementSetValue ($password, "Your Password")               ;<=====   Here you put your Hotmail Account Password
    _IEAction ($Signin_button, "click")

EndFunc


Func hotmail_login2()
Sleep(60)

Global $oIE =_IECreate ("http://www.live.com")

    local $username = _IEGetObjByName ($oIE, "login")
    Local $password = _IEGetObjByName ($oIE, "passwd")
    Local $Signin_button = _IEGetObjByName ($oIE,"SI")

    _IEFormElementSetValue ($username, "YourAccount2@hotmail.com")    ;<=====   Here you put your Hotmail Account Name
    _IEFormElementSetValue ($password, "Your Password")               ;<=====   Here you put your Hotmail Account Password
    _IEAction ($Signin_button, "click")

EndFunc

AutoEmail_Login.au3

AutoEmail_EXE ICO.ico

gmail_icon.ico

MSMail_icon.ico

Edited April 4, 2015 by iresolver

iresolver · April 4, 2015

I would have liked to upload more files for this project but I can't attach them in the forum

So I will upload the full project to kickass torrents & thepiratebay soon, look for it there!

if anyone would like to add more features to this script feel free!

here is the link to the Torrent on Kickass.to

https://kickass.to/auto-login-to-gmail-hotmail-app-t10459908.html

Created By

The Shadow iTGuy

The iTGuy Knows...Ha,HA,HA

Edited April 5, 2015 by iresolver

Auto Email login bot with combo box list items

Recommended Posts

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Ternary operator

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Create an account or sign in to comment

Create an account

Sign in

Recently Browsing 0 members