4 Kwi 2008

Wyświetlenie kodów znaków ascii

Set MyShell = Wscript.CreateObject(„Wscript.Shell”)
Set IE = CreateObject(„InternetExplorer.Application”)
MsgBox „Nie można wyświetlić kodów ASCII od 07 di 13 i od 28 do 31 !”
Do While IE.Busy
Loop
IE.width=300
IE.height=600
IE.Visible=1
IE.navigate „About:Kody ASCII”
for n = 1 to 255
Out = Out & ” 0″ & n & ” = ” & chr(n) & „<br>”
next
ie.document.Body.InnerHTML=Out