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
语句的第一句是否有错误~