Tuesday, July 15, 2008

Open the browser

Function OpenBrowser(StartURL) strTestDrive=getTestDrive()
loadRepository("Test.tsr")
Set IE = CreateObject("InternetExplorer.Application")
IE.Visible = true
If Browser("Browser").Exist Then
Browser("Browser").Close End If SystemUtil.Run "iexplore.exe","","","" Wait (2)
hwnd = extern.GetForegroundWindow()
hwnd = extern.GetForegroundWindow()
Window("HWND:=" &hWnd).Maximize
IE.Navigate StartURL Browser("Browser").Navigate StartURL
End Function

No comments: