系统粉 > 电脑问答 > 其他问答

已解决vbs连续刷新网页,怎么在循环中加个条件按键退出

提问者:亦如村夜  |  浏览次  |  提问时间:2017-03-11  |  回答数量:5

vbs连续刷新网页,怎么在循环中加个条件按键退出 set a=WScript.CreateObject(\"WScript.shell\")Do while这里怎么加以一个判断按键退出,比如按ESC 关闭脚本a.SendKeys \"{F5}\"Loop

已有5条答案
0永远的灰喜0

0永远的灰喜0

回答数:103  |  被采纳数:88

Private Declare Function GetKeyState Lib "user32" Alias "GetKeyState" (ByVal nVirtKey As Long) As Integer
Private Const VK_ESCAPE = &H1B

if GetKeyState(VK_ESCAPE)<0 then end
2017-03-11 08:29:47
赞 10
qq978434111

qq978434111

回答数:143  |  被采纳数:16

看不懂,怎么把它加进原来的代码中呢?
2017-03-11 10:33:21
赞 14
影子情人の

影子情人の

回答数:98  |  被采纳数:22

Private Declare Function GetKeyState Lib "user32" Alias "GetKeyState" (ByVal nVirtKey As Long) As Integer
Private Const VK_ESCAPE = &H1B


set a=WScript.CreateObject("WScript.shell")
Do while这里怎么加以一个判断按键退出,比如按ESC 关闭脚本
a.SendKeys "{F5}"
if GetKeyState(VK_ESCAPE)<0 then end
Loop
2017-03-11 13:06:56
赞 9
jueai曼陀螺

jueai曼陀螺

回答数:217  |  被采纳数:13

第一行有错误

(1)

2017-03-11 12:26:07
赞 21
木履帽子

木履帽子

回答数:18  |  被采纳数:147

VB里前两行是API函数声明,VBS应该有类似的写法
2017-03-11 19:00:33
赞 1
相关问答
最新其他问答
解决方法