请教do...loop的问题-----急--结帖

deadhunter

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

If ieBrowser.ReadyState=4 then
  Exit do
后面加上 End If

yahuu

以楼主代码格式写的这么乱来看
还真不确定后面需要不需要加END IF
因为他有可能是 If ieBrowser.ReadyState=4 Then Exit do

反正对齐什么的好乱，这个坏习惯导致你犯了这么低级的错误。

deadhunter

谢谢，已经找到原因