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.

Using MSIE from a WinBatch Front End

Keywords: 	 Using MSIE from a WinBatch front end.wbt

;	first build a blank html file...
gosub BlankWindow
;	start MSIE via OLE
Browser = ObjectOpen("InternetExplorer.Application")
browser.visible = @true
url = hfile
browser.navigate(url)
;	wait for page to load
while browser.readystate <> 4
	timedelay(0.5)
endwhile
;	basic HTML vars, .write method doesn't like strings...
hbr = "<br>"
htab= "     "
;	setup the document reference...
BrowserDoc = Browser.Document
;	make the output window black on gold...
BrowserDoc.write(strcat("<body bgcolor=black text=gold>", hbr))
;	get a list of wbt files...
wbtfiles = fileitemize("c:\z\*.wbt")
;	write the number, file to the output window...
for x = 1 to 10
	BrowserDoc.write(strcat(x, htab, itemextract(x, wbtfiles, @tab), hbr))
next
;	write out a basic form...
;	note the test.wbt just displays a message("Debug", "Test Message from Form")
;
BrowserDoc.write(strcat("<form name=TestForm method=GET action='c:\z\test.wbt'>", hbr))
BrowserDoc.write(strcat("<input type=submit name=submit value='Press for WBT'></form>"))
timedelay(15)
gosub BlankWindow
browser.navigate(url)
exit

:BlankWindow
hfile = "c:\z\junk.html"
oh = fileopen(hfile, "write")
filewrite(oh, "<html></html>")
fileclose(oh)
return



Article ID:   W15661
File Created: 2003:05:13:11:29:24
Last Updated: 2003:05:13:11:29:24