Win = 91
Set oIE = CreateObject("InternetExplorer.Application")
With oIE
.Navigate "about:blank"
.ToolBar = 0
.MenuBar = 0
.Width = 500
.Height = 300
.Left = (.Document.ParentWindow.Screen.AvailWidth - .Width)/2
.Top = (.Document.ParentWindow.Screen.AvailHeight - .Height)/2
.Visible = 1
End With
oIE.Document.Write _
"<html><body onKeyDown='alert(event.keyCode)'>" & _
"按下任意键...</body></html>"
oIE.Document.Write "<table BORDER=1 BORDERCOLOR=blue><tr>"
For i = 1 To 128
oIE.Document.Write "<td>" & i & "</td><td>" & Chr(i) & "</td>"
If i Mod 10 = 0 Then oIE.Document.Write "</tr><tr>"
Next
oIE.Document.Write "</tr></table>"
WScript.Quit
运行后按下任意键就能看到结果了。
