标题: 请教do...loop的问题-----急--结帖 [打印本页] 作者: deadhunter 时间: 2010-6-28 10:42 标题: 请教do...loop的问题-----急--结帖 Do While ieBrowser.busy
'or (ieBrowser.readyState<>4)
'判断readystate的值
Select Case ieBrowser.ReadyState
'IE未初始化，其实在该方法，readystate=0无意义，因为循环至少是从1开始的。
Case 0
timer0 = timer
'Log "STEP","未IE初始时间："&timer0
'"正在发送请求"
Case 1
timer1 = timer
'Log "STEP","正在发送请求时间："&timer1
'"请求已经发送完成"
Case 2
timer2 = timer
'Log "STEP","请求已经发送完成时间："&timer2
'"可以接收到部分响应数据"
Case 3
timer3 = timer
'Log "STEP","接收到部分响应时间："&timer3
'"页面加载完成"
Case 4
timer4 = timer
'Log "STEP","页面加载完成时间："&timer4
End Select
If ieBrowser.ReadyState=4 then
Exit do
Loop
运行提示缺少do,请问是在哪错了？
[ 本帖最后由 deadhunter 于 2010-6-29 16:03 编辑 ]作者: zhulifu 时间: 2010-6-28 11:18
If ieBrowser.ReadyState=4 then
Exit do
后面加上 End If作者: yahuu 时间: 2010-6-28 17:49
以楼主代码格式写的这么乱来看
还真不确定后面需要不需要加END IF
因为他有可能是 If ieBrowser.ReadyState=4 Then Exit do