求VB自动网页访问源码
发布网友
发布时间:2天前
我来回答
共1个回答
热心网友
时间:1天前
方法一
Private Sub Form_Load()
Me.Timer1.Interval = 10 * 1000
Me.Timer1.Enabled = True
End Sub
Private Sub Timer1_Timer()
'1用shell 开IE访问
'Shell "explorer.exe ""http://www.163.net"""
'2用WebBrowser访问
'控减=>引用Microsoft Internet Control
'添加WebBrowser 到Form上
Me.WebBrowser1.Navigate "http://www.163.net"
Me.Timer1.Enabled = False
End Sub
热心网友
时间:1天前
方法一
Private Sub Form_Load()
Me.Timer1.Interval = 10 * 1000
Me.Timer1.Enabled = True
End Sub
Private Sub Timer1_Timer()
'1用shell 开IE访问
'Shell "explorer.exe ""http://www.163.net"""
'2用WebBrowser访问
'控减=>引用Microsoft Internet Control
'添加WebBrowser 到Form上
Me.WebBrowser1.Navigate "http://www.163.net"
Me.Timer1.Enabled = False
End Sub
热心网友
时间:1天前
方法一
Private Sub Form_Load()
Me.Timer1.Interval = 10 * 1000
Me.Timer1.Enabled = True
End Sub
Private Sub Timer1_Timer()
'1用shell 开IE访问
'Shell "explorer.exe ""http://www.163.net"""
'2用WebBrowser访问
'控减=>引用Microsoft Internet Control
'添加WebBrowser 到Form上
Me.WebBrowser1.Navigate "http://www.163.net"
Me.Timer1.Enabled = False
End Sub
热心网友
时间:1天前
方法一
Private Sub Form_Load()
Me.Timer1.Interval = 10 * 1000
Me.Timer1.Enabled = True
End Sub
Private Sub Timer1_Timer()
'1用shell 开IE访问
'Shell "explorer.exe ""http://www.163.net"""
'2用WebBrowser访问
'控减=>引用Microsoft Internet Control
'添加WebBrowser 到Form上
Me.WebBrowser1.Navigate "http://www.163.net"
Me.Timer1.Enabled = False
End Sub