当前位置:系统粉 > 电脑问答 > 其他问答 > vbs连续刷新网页,怎么在循环中加个条件按键退出

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

2017-03-11 08:29:47
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
赞 10
qq978434111

qq978434111

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

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

影子情人の

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

2017-03-11 13:06:56
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
赞 9
jueai曼陀螺

jueai曼陀螺

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

2017-03-11 12:26:07
第一行有错误

(1)

赞 21
木履帽子

木履帽子

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

2017-03-11 19:00:33
VB里前两行是API函数声明,VBS应该有类似的写法
赞 1
解决方法
版权信息

Copyright @ 2011 系统粉 版权声明 最新发布内容 网站导航