vb.netinet1的简单介绍

vb.net webbrowser 得到所有超链接

先设置WebBroswer1.Url = "";

Private Sub WebBrowser1_DocumentCompleted(ByVal sender As System.Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted

Dim broswer As WebBrowser = CType(sender, WebBrowser)

Dim doc As HtmlDocument = broswer.Document

Dim allHyperlinks As HtmlElementCollection = doc.GetElementsByTagName("A")

Dim hyperlink As HtmlElement = Nothing

Dim href As String = String.Empty

For i = 0 To allHyperlinks.Count

hyperlink = allHyperlinks(i)

href = hyperlink.GetAttribute("href")

Me.ComboBox1.Items.Add(href)

Me.ComboBox1.SelectedIndex = 0

Next

End Sub

相关问答

Q1: vb.net中有没有Inet1控件，在哪里如何弄出来？

在工具箱vb.netinet1的而某一个菜单上右键选择项

进去要么选择已经有vb.netinet1的

要么自己浏览dll文件vb.netinet1，添加进去再选择

Q2: vb中inet的用法（连接一个ftp）

Inet1.Protocol = icFTP

Inet1.RemoteHost = ServerName'服务器地址

Inet1.RemotePort = 21'FTP端口

Inet1.UserName = uName'用户名

Inet1.Password = uPWS'密码下载文件vb.netinet1：

Inet1.Execute "", "GET 1.txt d:\1.txt"

ri = Inet1.StillExecuting

Do While ri

ri = Inet1.StillExecuting

DoEvents

Loop

上传文件vb.netinet1：

Inet1.Execute "", "PUT d:\1.txt 1.txt"

ri = Inet1.StillExecuting

Do While ri

ri = Inet1.StillExecuting

DoEvents

Loop

Q3: VB如何用Inet1控件POST数据并得到返回值

'首先看一下。确定了。他是post方式。那么参数都要写上就搞定了

对于底层的winsock需要你抓包的这些。格式都需要少一个就会出现error。然对于inet1只需要知道是post还是get方式。。字节大小那些都不用管

需要这个 cgi-bin/rosary0908_get_plant_info_self?gprand=0.8599048447795212

因为是post需要selforfriend=0benew0908=1 提交的参数

还有一个都要的host后边的地址

我大概写一下。在外边

inet1.excute "host地址","POST",,"selforfriend=0benew0908=1"

Q4: VB如何使用 Inet1 控件下载图片

vb.netinet1我只知道第一个

利用webrower控件可以。

ctrl+t 在其中找到microsft internet control 控件打上勾点应用

然后在部件中就多了一个控件vb.netinet1，拉控件到一个到窗体上

Private Sub Form_Load()

WebBrowser1.Navigate2 ""

End Sub

Private Sub WebBrowser1_StatusTextChange(ByVal Text As String)

On Error Resume Next

WebBrowser1.Document.body.Style.border = "0px" '隐藏边框

WebBrowser1.Document.body.Style.overflow = "hidden" '隐藏滚动条

WebBrowser1.Document.body.Style.margin = "0px" '修改网页边距为0

End Sub

vb.netinet1的介绍就聊到这里吧，感谢你花时间阅读本站内容，更多关于、vb.netinet1的信息别忘了在本站进行查找喔。