求助触发条件退出循环 - vbscript吧

level 1

1186833504l 楼主

Dim A
Set A = Wscript.CreateObject("Wscript.Shell")
do
WScript.Sleep 50
A.SendKeys "{F5}"
loop
我想当按下键盘“a”或者某一个键时使用EXIT DO退出循环，该如何实现呢，，谢谢！

2014年07月28日 08点07分 1

level 9

李毅云

我也想做这个，但貌似vbs不能

2014年08月01日 14点08分 2

level 1

8888888888q1

还要吗

2014年08月02日 01点08分 3

李毅云

要哦！告诉我把

2014年08月02日 10点08分

level 1

8888888888q1

Dim IE,w,t
t=True
Set IE=CreateObject("InternetExplorer.Application")
With IE
.Navigate "About:Blank"
.Width=500:.Height=300
.Document.write "<html><body id=s><h1>"&Time&"循环开始</h1></br><div id=d></div></body></html>"
Set .Document.All.s.OnkeyDown=GetRef("KeyPress")
End With
IE.Visible=1
MsgBox "按A结束循环"
IE.Document.All.s.focus
While t
wscript.sleep 200
Wend
msgbox time&"循环结束"
Sub KeyPress(TheKey)
If Chr(TheKey.KeyCode)="A" Then
t=False
IE.Quit
Else
IE.Document.All.D.InnerText=IE.Document.All.D.InnerText&Chr(TheKey.KeyCode)
End If
End Sub
@嗳坠隳love

2014年08月02日 13点08分 4

李毅云

先谢谢你了，

2014年08月02日 23点08分

李毅云

有没有简单点的啊？不懂，新手

2014年08月04日 06点08分

李毅云

还有，我怎么觉得你这个是vb啊？我想要的是vbs的

2014年08月04日 06点08分

8888888888q1

回复嗳坠隳love :觉得是vb？开什么玩笑 [狂汗]

2014年08月04日 08点08分