小弟不才···实在是菜·求牛人帮忙看看这里怎么写·

Question

Dim t1
t1 = timeGetTime
While (timeGetTime - t1) < HaoMiao
DoEvents
Wend
End FunctionPrivate Sub Command1_Click()
List1.Clear
List2.Clear
For Each ww In WebBrowser1.Document.getelementsbytagname("a")
ss = ww.href
qq = ww.innertext
If Right(ss, 5) = "shtml" Then
List1.AddItem ss
List2.AddItem qq
Label1.Caption = "共提取到：" & List1.ListCount & "条连接"
End If
Next ww
End SubPrivate Sub Command2_Click()
    List1.Clear
    List2.Clear
    Label1.Caption = "共提取到：" & List1.ListCount & "条连接"
End SubPrivate Sub MyBorwser_NavigateComplete2(ByVal pDisp As Object, URL As Variant) '忽略脚本语法错误
        Set HtmlWnd = MyBorwser.Document.parentWindowEnd Sub
Private Sub Command3_Click()
For b = 0 To 9999
WebBrowser2.Navigate List1.List(b)
yanshi 9999
Next b
End SubPrivate Sub Form_Load()
WebBrowser1.Navigate "http://"
End Sub
Private Sub Command4_Click()  '结束按钮
   End
End Sub上面的代码实现了自动获取页面连接··一次打开LIST1的连接··
下面 我要实现，对打开的页面进行回复·
回复的内容在LIST2里面依次获取 或者随机获取··回帖页面HTML代码如下、
    <ul>
<li>
<textarea cols="" name="" rows="" class="textareaC" id="irBody"></textarea>

</li>

<li class="btnarea">
<div class="pR">
<a onclick="MOP.DZH.loginAndReply(false,1);" class="btnC"><span>回复</span></a>

</div>
</li>

</ul>

Answer 1

刚刚才发现一个更严重的问题，，，运行的时候CPU满了  我晕DoEvents
有什么可以代替？

Answer 2

timer控件    api的Sleep    Settimer    Waitforsingleobject

Answer 3

用timer代替doevents可以，如果要用可减少DoEvents的次数，如
lRunTimes=0
While timeGetTime - t1 < HaoMiao
  lRunTimes=lRunTimes+1  if lRunTimesmod 10=0 then DoEvents
Wend

Answer 4

timegettime就可以了，精确到1ms好像。

Answer 5

这代码哪个菜鸟写的,不建议LZ使用此人写的任何代码,代码质量太差劲了Dim t1
你知道上面这句要多出来多少开销!!!