#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