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

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

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

已有5条答案

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

qq978434111

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

看不懂，怎么把它加进原来的代码中呢?

2017-03-11 10:33:21

影子情人の

回答数：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

jueai曼陀螺

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

第一行有错误

(1)

2017-03-11 12:26:07

木履帽子

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

VB里前两行是API函数声明，VBS应该有类似的写法

2017-03-11 19:00:33