WinBatch Tech Support Home

Database Search

If you can't find the information using the categories below, post a question over in our WinBatch Tech Support Forum.

TechHome

OLE with MSIE
plus

Can't find the information you are looking for here? Then leave a message over on our WinBatch Tech Support Forum.

See What Buttons Pushed in MSIE


#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,"



") tmp=StrCat(tmp,"") 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

Article ID:   W16134
File Created: 2004:08:02:10:55:58
Last Updated: 2004:08:02:10:55:58