大橙子网站建设,新征程启航
为企业提供网站建设、域名注册、服务器等服务
在Form1中添加Timer1控件。
目前成都创新互联公司已为上1000家的企业提供了网站建设、域名、网络空间、成都网站托管、企业网站设计、镶黄网站维护等服务,公司将坚持客户导向、应用为本的策略,正道将秉承"和谐、参与、激情"的文化,与客户和合作伙伴齐心协力一起成长,共同发展。
Private Sub Form_Load()
Timer1.Interval = 10000 '每个10000ms=10s打开一次
End Sub
Private Sub Timer1_Timer()
Shell "explorer " '网址,你可以换成其他的。
End Sub
用VB打开网页有多种方法:
方法1)可用Shell函数执行一个可执行文件explorer.exe来打开网页。
Shell 函数,
执行一个可执行文件,返回一个 Variant
(Double),如果成功的话,代表这个程序的任务 ID,若不成功,则会返回 0。
Private Sub Command2_Click()
Shell "explorer.exe "
End Sub
方法2)使用WebBrowser直接建立浏览器。
在 Visual Basic 里还可以向工程中增加其它类型的 Internet 功能,包括:
Visual Basic 应用程序的 Internet 扩展。可以使用一些特殊控件,它们提供了和Internet 有关的功能。这些控件包括
Internet Transfer 控件、 WebBrowser 控件,以及 WinSock 控件。
Private Sub Command1_Click()
WebBrowser1.Navigate ""
End Sub
private void button1_Click(object sender, EventArgs e){webBrowser1.Navigate(textBox1.Text); webBrowser1.DocumentCompleted += new WebBrowserDocumentCompletedEventHandler(webBrowser1_DocumentCompleted);}void webBrowser1_DocumentCompleted(object sender, WebBrowserDocumentCompletedEventArgs e){if (webBrowser1.Document != null){HtmlDocument myDoc = webBrowser1.Document; HtmlElementCollection hc = myDoc.Body.GetElementsByTagName("A"); foreach (HtmlElement he in hc){he.SetAttribute("target", "_self");}}}追问: 能否写成VB.net语言?回答: 一样的,只是处理DocumentCompleted事件,这个在属性窗口就可以双击生成了追问: 我真是对你无语了 Private Sub button1_Click(sender As Object, e As EventArgs) webBrowser1.Navigate(textBox1.Text) webBrowser1.DocumentCompleted += New WebBrowserDocumentCompletedEventHandler(AddressOf webBrowser1_DocumentCompleted)End SubPrivate Sub webBrowser1_DocumentCompleted(sender As Object, e As WebBrowserDocumentCompletedEventArgs) If webBrowser1.Document IsNot Nothing Then Dim myDoc As HtmlDocument = webBrowser1.Document Dim hc As HtmlElementCollection = myDoc.Body.GetElementsByTagName("A") For Each he As HtmlElement In hc he.SetAttribute("target", "_self")NextEnd IfEnd Sub追问: 基本可以了,webBrowser1.DocumentCompleted += New WebBrowserDocumentCompletedEventHandler(AddressOf webBrowser1_DocumentCompleted)这一句貌似有问题。还有就是点击图标打开百度HI时还会弹出IE。回答:
System.Diagnostics.Process.Start("")
或者用 WebBrowser控件,代码 WebBrowser1.Url = New System.Uri("")
VB 主窗体菜单[工程]--[部件],在控件列表找到 Microsoft Internet Controls ,把它前面的钩打上。
然后控件栏就会出现一个 WebBrowser 控件,添加这个控件到窗体,以下代码打开网页
Private Sub Command1_Click()
Me.WebBrowser1.Navigate ("")
End Sub
你说的操作是像人一样用鼠标点击网页?
直接应该是不行的,可以考虑先抓包分析数据包,在模拟浏览器发送请求获取数据,然后进行相应处理