Question

vb读取网页内容,如果网页打不开,如何直接跳过。

我做了一个批量提取网页源代码内容的程序，但是遇到网页打不开的情况，就卡住了，如何跳过这种情况？

Answer 1

Dim LngC As Long
Private Sub Command1_Click()
LngC = 0
Timer1.Enabled = True
Call GetWeb '比如这里是开始获取网页的自定义过程
Timer1.Enabled = False
End Sub

Private Sub Form_Load()
Timer1.Interval = 1000
End Sub

Private Sub GetWeb()
'
Do While True
    '省略获取网页代码
    If LngC > 10 Then Exit Sub '如果获取超过10秒 则退出该过程
Loop
End Sub

Private Sub Timer1_Timer()
LngC = LngC + 1
End Sub

追问

我用的doevents 等待，想在这个地方设置成超过10秒跳过，要怎么做？太感谢了

追答

把你代码贴出来 再你基础上修改

追问

追答

Dim LngC As Long
Private Sub Command1_Click()
For t = 10000 To 10050
    zhulianjie = ""
    text2.Text = zhulianjie
    DoEvents
    LngC = 0
    Timer1.Enabled = True
    text1.Text = text1.Text + GetWeb(text2.Text)  '比如这里是开始获取网页的自定义过程
    Timer1.Enabled = False
Next
End Sub

Private Sub Form_Load()
Timer1.Interval = 1000
End Sub

Private Sub GetWeb()
'
Do While True
    '省略获取网页代码
    If LngC > 10 Then Exit Sub '如果获取超过10秒 则退出该过程
Loop
End Sub

Private Sub Timer1_Timer()
LngC = LngC + 1
End Sub

 贴代码 最好不要贴图片~~

代码中 自行补齐