Warning: file_get_contents(/data/phpspider/zhask/data//catemap/1/vb.net/15.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
VB.Net-获取html元素的字符串/值?_Html_Vb.net - Fatal编程技术网

VB.Net-获取html元素的字符串/值?

VB.Net-获取html元素的字符串/值?,html,vb.net,Html,Vb.net,我在尝试从网站上的元素获取字符串时遇到了一个小问题 我的目标是什么: 基本上,我试图从网站上获取一个字符串/值,并将其放入TextBox.text或label中。 exmaples不多,但我在这方面没有经验,在从网站获取/抓取元素并将值返回到框或标签中方面也没有经验 但这就是我目前所拥有的 Imports System.Net Imports System.Collections.Specialized Private Sub Button2_Click(sender As System.O

我在尝试从网站上的元素获取字符串时遇到了一个小问题

我的目标是什么: 基本上,我试图从网站上获取一个字符串/值,并将其放入TextBox.text或label中。 exmaples不多,但我在这方面没有经验,在从网站获取/抓取元素并将值返回到框或标签中方面也没有经验

但这就是我目前所拥有的

Imports System.Net
Imports System.Collections.Specialized

 Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click

    On Error Resume Next
    'Web String
    Dim ws As New WebClient
    Dim data As String = ws.DownloadString("http://www.ip-tracker.org/locator/ip-lookup.php?ip=" & TextBox1.Text)

    'IP
    Dim IP As String = Split(data, "<th>IP Address:</th>")(1)

    IP = Split(IP, "<div style=")(0)
    'If IP = Nothing Then
    'IP = "Unknown"
    'End If
    IPLabel.Text = (IP)

End Sub
导入系统.Net
导入System.Collections.Specialized
私有子按钮2\u单击(发送者作为System.Object,e作为System.EventArgs)处理按钮2。单击
出错时继续下一步
'Web字符串
Dim ws作为新的WebClient
作为字符串的Dim数据=ws.DownloadString(“http://www.ip-tracker.org/locator/ip-lookup.php?ip=“&TextBox1.Text)
"知识产权",
Dim IP As字符串=拆分(数据,“IP地址:”)(1)

IP=Split(IP,HTML页面与
xml
相同,所以您可以将字符串解析为
XDocument
对象,并查询该对象以查找所需信息

'Dim url作为字符串=”http://www.ip-tracker.org/locator/ip-lookup.php?ip=“&TextBox1.Text
将url设置为字符串=$”http://www.ip-tracker.org/locator/ip-lookup.php?ip={TextBox1.Text}”
Dim数据作为字符串=webClient.DownloadString(url)
Dim htmlPage As XDocument=XDocument.Parse(数据)
尺寸标题为XElement=
htmlPage.substands(“th”)。
其中(Function(thement)thement.Value.Equals(“IP地址:”)。
FirstOrDefault()

以上是如何从xml文档中查找特定节点的示例。使用相同的方法查找所需的值。

旁注:上述代码中有一些vb6语法。是否将
.net和vb6
混淆?请使用HTML解析器。@zaggler:这是VB.net。他正在使用一些vb6方法和
On Error Resume Next
语句,但由于按钮事件的构造方式,这是VB.NET。VB6的按钮事件如下所示:
Sub Command1\u Click()
——编辑:我的错。我查了一下,我以前用VB6,但我的按钮事件看起来不像VB.NET,而是像我上面写的。奇怪…@visualvent我清楚地了解他在做什么,我问他:)@扎格勒:是的,我知道你知道,但我的意思只是回答你关于它是否是VB6的问题:)。另外,请参阅我的编辑。这行有错误:Dim url As String=$“{TextBox1.Text}”+1爱我一些字符串插值!我使用$”“现在一直如此。我知道你编辑了这篇文章,但我会在回答中提供两种方式。仍然不理解这一点=/,你介意修改代码以便它可以从网站上读取特定的行或字符串吗?我试图在这个网站找到IP的详细信息时,从中获取大多数字符串的重新编译值@JayMaylott,对不起,根据您的代码,我仍然不清楚您试图从网页中检索哪些信息。我给出了如何处理基于xml的数据的示例。只需要得到字符串真的,但我不能得到他们在那里的表格,而不是div,所以形式,该网站我只需要所有的信息,它从ip:ip:host:Address:ISP;区域城市:等等