展开全部
On Error Resume Next
Dim WS,I
Set WS=WScript.CreateObject("WScript.Shell")
For I=1 To 100 '弹出对话框的数量.
WS.Run "mshta.exe VBScript:MsgBox(""控盘惨大王来咯!"",64,""系统信息"")(Close)",1
Next
WS.Run "http://zhidao.baidu.com/question/2051925630409576987.html",1
'网站地址.
追问
如何执行多个代码 逐个 执行完成 不同的循环次数
追答
复制.
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
