标题: 问下几个特殊键的ASC码 [打印本页]
作者: zhoushijay 时间: 2007-4-29 01:31 标题: 问下几个特殊键的ASC码
ctrl
shift
alt
caps lock
F1-F9
开始键
论坛里也搜过ASC码表，但是表上那些都看不懂，请哪位高手赐教下
作者: dikex 时间: 2007-4-29 02:16
一下的是十进制数
ctrl 17
shift 16
alt 18
caps lock 20
F1-F9 112－120
开始键 什么键来的？
作者: zhoushijay 时间: 2007-4-29 02:22
开始键就是 按下会出来 开始菜单的那个键
作者: dikex 时间: 2007-4-29 02:27
那个的ASCII码的十进制数为91
作者: zhoushijay 时间: 2007-4-29 02:29
谢谢dilex兄，不过好像F1-F9不是112-120
作者: everest79 时间: 2007-4-29 02:53
CTRL+ESC=WIN
作者: 3742668 时间: 2007-4-29 03:01
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
运行后按下任意键就能看到结果了。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
作者: lxmxn 时间: 2007-4-29 03:51
还是 前任版主 厉害啊，学习。
作者: zhoushijay 时间: 2007-4-29 03:57
谢谢3742668，这东西太好了，我不小心连POWER键的试出来了 255
汗……
好好研究下这代码