vb读取txt文档中的网址 并访问 悬赏50分哦~~！！

来源：百度知道 编辑：UC知道 时间：2024/06/20 11:34:18
有一个文本文档c:\1.txt
文档的内容是这样的
www.baidu.com
www.sina.com
www.163.com
......
用vb读取这个文档
读取一行
在WebBrowser控件中访问这个网址
等待2秒
再读取下一个网址 再访问
依此类推
读到最后一个网址后结束
QQ 910117766

'所要控件,timer1,webbrower1

Dim fn As Integer, i As Integer
Dim a() As String

Private Sub Form_Load()
Timer1.Interval = 2000
Dim s As String
fn = FreeFile
Open "c:\1.txt" For Input As fn
Do While Not EOF(fn)
Line Input #fn, b
If s = "" Then
s = b
Else
s = s & "|" & b
End If
Loop
a() = Split(s, "|")
End Sub

Private Sub Timer1_Timer()
If InStr(a(i), "http://") <= 0 Then a(i) = "http://" & a(i)
WebBrowser1.Navigate a(i)
If i = UBound(a) Then
timer1.Enabled =False
Else
i = i + 1
End If
End Sub