下面是代码：
Private Sub Command2_Click()
Do
Open App.Path & "\11.txt" For Input As #1
ls_Content = Split(StrConv(InputB(LOF(1), #1), vbUnicode), vbCrLf)
Close
Label3.Caption = "总连接数:" & UBound(ls_Content)

WebBrowser1.Navigate (h2 + ls_Content(t + 1))
t = t + 1
If t >= UBound(ls_Content) Then
Exit Do
End If
WebBrowser1.Stop
Loop
End Sub
运行其他的没有问题，就是到了 WebBrowser1.Navigate (h2 + ls_Content(t + 1))这CPU就猛的上窜，请问大家有办法解决吗？谢谢

郁闷！问了几个问题居然没有一个人回答

多谢3楼的

这是点击后完整的代码

Private Declare Function timeGetTime Lib "winmm.dll" () As Long

Private Sub Command2_Click()

Dim ls_Content() As String
t = -1
Do
Open App.Path & "\11.txt" For Input As #1
ls_Content = Split(StrConv(InputB(LOF(1), #1), vbUnicode), vbCrLf)
Close

WebBrowser1.Navigate (h2 + ls_Content(t + 1))
t = t + 1
If t >= UBound(ls_Content) Then
Exit Do
End If


Dim Savetime As Double

Savetime = timeGetTime
While timeGetTime < Savetime + 30000 '循环等待
DoEvents
Wend
WebBrowser1.Stop


Loop
End Sub

11.txt文件里的网址点完以后就停止了，CPU也降下来了，应该不是进入死循环吧？

Do
Open App.Path & "\11.txt" For Input As #1
ls_Content = Split(StrConv(InputB(LOF(1), #1), vbUnicode), vbCrLf)
Close
Label3.Caption = "总连接数:" & UBound(ls_Content)

WebBrowser1.Navigate (h2 + ls_Content(t + 1))
t = t + 1
If t >= UBound(ls_Content) Then
Exit Do

沒有中斷繫數,不死循環纔怪```

请不要见怪，俺的水平太低，就是因为不知道错在什么地方，不懂所以才问的

因为是自学自己也比较笨，希望帮忙说明一下