startURL = Cstr(DataTable.Value("url", dtGlobalSheet))
set InternetExplorer = CreateObject("InternetExplorer.Application")
InternetExplorer.Visible = true
InternetExplorer.Navigate startURL
If DataTable("username",dtGlobalSheet)<>"" and DataTable("LoginIndicator",dtGlobalSheet)=2 Then
If Browser("Browser").Dialog("XYZ").Exist Then
Browser("Browser").Dialog("XYZ").Activate
Browser("Browser").Dialog("XYZ").WinEdit("User name").Set Datatable("username",dtGlobalSheet)
wait(4)
Browser("Browser").Dialog("XYZ").WinEdit("Password").Set Datatable("password",dtGlobalSheet)
Browser("Browser").Dialog("UAT_Login_Pop_Up").WinButton("OK").Click
Environment.Value("TransactionStratTime")=Timer
Environment.Value("SecondTransactionStratTime")=Timer
End If
'windprop=Browser("Browser").GetROProperty("hwnd")
'Window("hwnd:="& windprop).Maximize
'
End If
No comments:
Post a Comment