Can't find the information you are looking for here? Then leave a message over on our WinBatch Tech Support Forum.
#definesubroutine startMSIE(url) Browser = objectopen("InternetExplorer.Application") Browser.left = 200 Browser.top = 200 Browser.width = 200 Browser.height = 200 Browser.TheaterMode = @false Browser.Resizable = @False Browser.addressbar = @false Browser.statusbar = @false Browser.menubar = @false Browser.toolbar = @false Browser.visible = @true browser.navigate(url) WaitForPageLoad() browserDoc = Browser.Document all = browserdoc.all ;setup the document object... Browser.visible= @TRUE RETURN(browser) #endsubroutine #DefineSubroutine WaitForPageLoad() ; assume Browser While browser.busy || browser.readystate == 1 TimeDelay(0.5) EndWhile While browser.Document.ReadyState != "complete" TimeDelay(0.5) EndWhile return #EndSubroutine null = ObjectType("NULL", "") url=strcat("about:blank") br = startMSIE(url) tmp=StrCat("") tmp=StrCat(tmp," ") browserdoc.writeln(tmp) While 1 While 1 If Browser.Busy==0 Then Break a=Browser.ReadyState If a==0 Then br.quit TimeDelay(.1) EndWhile act = BrowserDoc.activeElement ;get the currently activated element id tmp = act.name ;and then get its name If tmp=="exit" Then Break If tmp=="body" Then Display(1, "Button Information", StrCat("You are in the HTML tag.",@Crlf,@Crlf,"So make sure to name it!!!",@Crlf,@Crlf,"Press a Button")) Else Display(1, "Button Information", "%tmp% was pressed!") Endif Continue EndWhile br.quit WinClose(url) Display(3, "Button Information", "Thats it") Return
") tmp=StrCat(tmp,"") tmp=StrCat(tmp,"
Article ID: W16134
File Created: 2004:08:02:10:55:58
Last Updated: 2004:08:02:10:55:58