百度首页 | 百度空间
 
查看文章
  
vbs响应键盘按键
2008年07月21日 星期一 下午 12:13

vbscript响应键盘按键很容易，代码如下：

<script language=VBscript> Function document_onkeypress:MsgBox window.event.keyCode:End Function</script>

vbs在命令行下，用cscript.exe执行的时候，可以：

Dim Input
Input = ""

Do While Not WScript.StdIn.AtEndOfLine
   Input = Input & WScript.StdIn.Read(1)
Loop
WScript.Echo Input

不过在当前窗体上响应键盘按键我是没找到方法了，谁会呀？我要的不是sendkey的方法，是判断哪个键被按下。


类别：每天一例 | 添加到搜藏 | 浏览() | 评论 (8)
 
最近读者：
 
网友评论：
1
2008年07月21日 星期一 下午 12:56
vbs在命令行下，用cscript.exe执行的时候，可以：

Dim Input
Input = ""

Do While Not WScript.StdIn.AtEndOfLine
Input = Input & WScript.StdIn.Read(1)
Loop
WScript.Echo Input

这个是怎么体现的啊？把WScript.Echo Input注释掉，在cmd框中也有按键显示的..。
 
2
2008年07月21日 星期一 下午 01:03
你按下a就显示a呀
 
3
2008年07月21日 星期一 下午 01:10
可是 把WScript.Echo Input去掉，你按a他也显示a....
 
4
2008年07月21日 星期一 下午 02:00
去掉WScript.Echo Input只会显示一个a。加上会显示两个a呀
 
5
2008年07月21日 星期一 下午 02:01
改成：

Dim Input
Input = ""

Do While Not WScript.StdIn.AtEndOfLine
Input = Input & WScript.StdIn.Read(1)
Loop
MsgBox "你按下的是"&Input

你就清楚了吧？
 
6
2008年07月21日 星期一 下午 09:28
在网页vbscript中确实是那样，但是在Windows里面用的vbs是不可能响应键盘事件的，除非让vbs直接调用一个封装API的COM。
 
7
2008年07月22日 星期二 上午 08:59
看来是我的电脑有问题....还是rp问题...
你改后，居然还是不行... 郁闷ing
 
8
2008年07月22日 星期二 上午 11:06
"
Do While Not WScript.StdIn.AtEndOfLine
Input = Input & WScript.StdIn.Read(1)
Loop
"

直接用Input = WScript.StdIn.ReadLine 呗,效果一样,还省代码.
 
发表评论：
姓　名：
网址或邮箱： (选填)
内　容：
验证码：
 

     

©2008 Baidu