求教：语句哪里错了~~~

天地无用发布于 2010-03-09 17:04， 655 次点击

UserForm1.WebBrowser1.Document.snd.All(pn).Value = 1
WebBrowser1.Document.All("s1").Click
Do Until UserForm1.WebBrowser1.ReadyState = 4
DoEvents
Loop
delay (1)
WebBrowser2.Navigate zz
Do Until UserForm1.WebBrowser2.ReadyState = 4
DoEvents
Loop
delay (1)
xxx = xxx - 1
If xxx = 0 Then GoTo endddd
GoTo nexttt
语句的第一句是否有错误~

2 回复

ouxianzhi5202010-03-17 22:01

你调试看错误出在哪里的。
有可能是你的WebBrowser1是一个私有控件，所以不能在其他窗体中进行访问。

mlongm2010-03-29 22:14

還在用 DoEvents 和goto？
請改用 TRY CATCH END TRY