Can't find the information you are looking for here? Then leave a message over on our WinBatch Tech Support Forum.
;Winbatch - Make Ascii Chart #definesubroutine startMSIE(url) Browser = CreateObject("InternetExplorer.Application") Browser.TheaterMode = @false Browser.Resizable = @True Browser.addressbar = @false Browser.statusbar = @false Browser.menubar = @false Browser.toolbar = @false Browser.visible = @false browser.navigate(url) WaitForPageLoad() 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 BoxOpen("Please Wait","Building Web Page Ascii Chart") cURL = StrCat(dirget(),"asc.htm") n = @CRLF c = StrCat("<html>",n,"<body>",n,"<center>",n,"<Table width=340 BORDER=2 CELLSPACING=2 CELLPADDING=2>",n,"<TR>",n) x = "<TD ALIGN=center>�" x1 = ";<P>&#0" x2 = ";</TD>" j=0 For i = 0 to 255 j = j+1 v = i If v<10 Then v = StrCat("00",v) If ( v>=100 && v<100 ) Then v = StrCat("0",v) c = StrCat(c,x,v,x1,v,x2,n) If j mod 8 == 0 c = StrCat(c,"</TR>",n) If i < 254 Then c = StrCat(c,"<TR>",n) Endif Next c = StrCat(c,"</TABLE>",n,"</body>",n,"</html>",n) FilePut(cURL,c) BoxShut() br=0 br = startMSIE(cURL) If br<>0 Then br=0 Exit ;///////////////////////////////////////////////////////////////
Article ID: W16698
File Created: 2005:02:18:12:21:54
Last Updated: 2005:02:18:12:21:54