[求助]VB 2段代码之间的停顿 与循环问题~
比如按下Command1执行2段代码第一段执行1分钟后执行第2段
用什么~
等第2段执行完毕返回第一段继续执行~~
一直到关闭程序或者点击Command1结束~
其中代码是
Private Sub Command1_Click()
WebBrowser1.Navigate "http://alexa.alexacn.net/zhxx.asp"
这里加入等待30分钟
Dim winHwnd As Long
Dim RetVal As Long
winHwnd = FindWindow(vbNullString, "河南网通宽带用户客户端") '找到窗口
Debug.Print winHwnd '用来调试 在立即窗口中输入winhnd
If winHwnd <> 0 Then '这里是判断窗口是否启动 如果窗口不存在那么值为0
RetVal = PostMessage(winHwnd, WM_CLOSE, 0&, 0&) '关闭窗口
等待10秒
Dim abc
abc = Shell("C:\Program Files\racer-han-cnc\racer.exe", 1)
等待100秒并返回
WebBrowser1.Navigate "http://alexa.alexacn.net/zhxx.asp"这里继续循环
End Sub