捕获F4功能键,该怎么处理

2012-03-15

捕获F4功能键vbscript中，如何捕获F4功能键？[解决办法]F4是定位地址栏，貌似捕获不到~VBScript codeWith Cre

捕获F4功能键
vbscript中，如何捕获F4功能键？

[解决办法]
F4是定位地址栏，貌似捕获不到~

VBScript code

With CreateObject("InternetExplorer.Application")    .Navigate "about:blank"    Do Until .ReadyState = 4    Loop    .Document.Write "<body onkeyup=vbscript:document.write(chr(window.event.keycode))>"    .Visible = True        MsgBox "关闭ie"    .QuitEnd With
[解决办法]
捕获要用onkeydown,它在3个事件中是第一位的。
VBScript codeSet oIE = WScript.CreateObject("InternetExplorer.Application","Event_")    oIE.Navigate "about:blank"    Do         WScript.Sleep 200    Loop Until oIE.ReadyState = 4    'oIE.Document.Write "<body onKeyDown='alert(event.keyCode);'>"    oIE.Visible = 1Set oIE.Document.Body.onKeyDown = GetRef("MySub")        Do         WScript.Sleep 200    Loop        Sub MySub    If oIE.Document.parentWindow.event.keyCode = 115 Then '这里的115用字符比较也可以        WScript.Echo "您按下了F4!"    End IfEnd Sub    Sub Event_onQuit    oIE.Quit    WScript.QuitEnd Sub

热点排行

vbScript

捕获F4功能键,该怎么处理