Marry these 2 pieces of code together?

[matakana]

Hi

I have 2 pieces of code that work well.

I would like to marry them together - I have tried all sorts of ideas - for the last 3 hours - but now

I need your help now please.

The first piece of code opens the web page at a given time (thanks 'JohnOne')

The second piece of code opens the web page and fills in login number and password.

Any help would be sincerely appreciated!

#include <IE.au3>
$sURL = "https://time.dismm.com/DisfkTC/"
Global $oIE

While 1
    If @HOUR = 11 And @MIN = 36 Then
        _start()
    EndIf
    Sleep(1000 * 58)
WEnd

Func _start()
    $oIE = _IECreate($sUrl, 0, 1, 0, 1)
    While 1
        If WinExists("Disson Time & Expense - Login - Windows - Windows Internet Explorer") Then
            WinWaitActive("Disson Time & Expense - Login - Windows - Windows Internet Explorer") ;wait to be active
            Beep(800,200) ;do stuff
            ExitLoop
        EndIf
        Sleep(100)
    WEnd
EndFunc

#include <IE.au3>
$sURL = "https://time.dismm.com/DisfkTC/"
$sEmployeeID = "123456"
$sPassword = "mypassword"
$sDomain = "PDdisDIV"
$oIE = _IECreate($sURL)
$oForm = _IEFormGetCollection($oIE, 0)
$oEmplID = _IEFormElementGetObjByName($oForm, "uid")
$oPass = _IEGetObjById($oForm, "passField")
$oDomain = _IEFormElementGetObjByName($oForm, "sltdom")
sleep(200)
_IEFormElementSetValue($oPass, $sPassword)
send("{ENTER}")
sleep(8000)
_IEFormElementOptionselect($oDomain, $sDomain, 1, "byText")

[JohnOne]

Try

expandcollapse popup

#include <IE.au3>

Global $oIE
$sURL = "https://time.dismm.com/DisfkTC/"
$sEmployeeID = "123456"
$sPassword = "mypassword"
$sDomain = "PDdisDIV"

While 1
    If @HOUR = 11 And @MIN = 36 Then
        _start()
    EndIf
    Sleep(1000 * 58)
WEnd

Func _start()
    $oIE = _IECreate($sURL, 0, 1, 0, 1)
    While 1
        If WinExists("Disson Time & Expense - Login - Windows - Windows Internet Explorer") Then
            WinWaitActive("Disson Time & Expense - Login - Windows - Windows Internet Explorer") ;wait to be active
            _Login()
            ExitLoop
        EndIf
        Sleep(100)
    WEnd
EndFunc   ;==>_start

Func _Login()
    $oForm = _IEFormGetCollection($oIE, 0)
    $oEmplID = _IEFormElementGetObjByName($oForm, "uid")
    $oPass = _IEGetObjById($oForm, "passField")
    $oDomain = _IEFormElementGetObjByName($oForm, "sltdom")
    Sleep(200)
    _IEFormElementSetValue($oPass, $sPassword)
    Send("{ENTER}")
    Sleep(8000)
    _IEFormElementOptionselect($oDomain, $sDomain, 1, "byText")
EndFunc   ;==>_Login

[matakana]

Thanks JohnOne for the quick reply

However the password does not fill in the edit box.

Perhaps Sleep(200) needs to used before a given line?

..but I am only guessing.

Any ides why it does not work?

thanks again