VB如何获取下面代码中链接地址？
<div class="txt_tou">
<b title="AAAAAAAAA" target="_blank" style="cursor:pointer;" onclick="document.location.href='/Loan/CateInfo.aspx'" class="SubL20"></b>
<b title="BBBBBBBB">CCC</b><a href="Detail.aspx?sid=14122723275087392039730012009878" title="ssss" target="_blank" class="lf">
ssss
</a>
</div>
VB如何获取下面代码中链接地址？ 并显示在一个文本框中。
然后用下面代码，，，点击按钮看效果。，，
Private Sub Command1_Click()
Dim Data As String, strData As String
Dim i As Long
Dim A() As String
Data = "<div class=""txt_tou""> " _
& " <b title=""AAAAAAAAA"" target=""_blank"" style=""cursor:pointer;"" onclick=""document.location.href='/Loan/CateInfo.aspx'"" class=""SubL20""></b>" _
& " <b title=""BBBBBBBB"">CCC</b><a href=""Detail.aspx?sid=14122723275087392039730012009878"" title=""ssss"" target=""_blank"" class=""lf"">" _
& " ssss" _
& " </a>" _
& " </div>"
A = Split(Data, "href=""")
For i = 0 To UBound(A)
If InStr(1, A(i), """") > 0 Then
A(i) = Left(A(i), InStr(1, A(i), """"))
End If
Next
A(0) = ""
strData = Join(A, vbCrLf)
MsgBox "超链接有：" & strData
End Sub追问
有很多错误，执行不了，能加QQ吗？
Dim S As String, S1 As String, i As Long, j As Long
Dim Tz1 As String, Tz2 As String
Tz1 = "class=""SubL20""></b>"
Tz2 = " class=""lf"">"
S = "<div class="txt_tou">...."‘请在这里修改为上述网页代码，以便下面分析
i = InStr(1, S, Tz1, vbTextCompare)
Do While i > 0
j = InStr(i + Len(Tz1), S, Tz2, vbTextCompare)
S1 = Mid(S, i, j - i)
i = InStr(1, S1, "<b title=", vbTextCompare)
If i = 0 Then
Tz1 = "<a href="""
i = InStr(1, S1, Tz1, vbTextCompare)
S1 = Mid(S1, i + Len(Tz1))
i = InStr(S1, """")
S1 = Left(S1, i - 1)
MsgBox "你要找的网页链接是：" & S1
Exit Do
End If
i = InStr(j + Len(Tz2), S, Tz1, vbTextCompare)
Loop
Dim NewAObj As Object
Dim temp As String
Private Sub Command1_Click()
Set AObj = WebBrowser1.Document.getElementsByTagName("a")
For Each NewAObj In AObj
temp = Trim(NewAObj.innerhtml)
If temp = "ssss" Then
text1.text = NewAObj
End If
Next
End Sub
VB如何获取下面代码中链接地址?
新建工程： 增加一按钮，，然后用下面代码，，，点击按钮看效果。，，Private Sub Command1_Click()Dim Data As String, strData As String Dim i As Long Dim A() As String Data = " " _& " " _& " CCC
vb 获取一个网页内的链接和链接名称
1、先将网页另存到本机，假设文件名为ABC.HTM，保存在C盘根目录下；2、用VB读取存好的ABC.HTM文件的全部内容到一个变量或文本框；3、用搜索函数InStr()和取字串的函数Mid()来抽取出介于“>”和“<\/A>”之间的文本，就是超链接的文字；抽取“href=”和空格之间的内容，就是链接的URL。代码如下...
在VB中如何链接到网址
首先在代码窗口左上角的下拉框中选择“通用”，右上角的下拉框中选择“声明”，然后在输入以下代码:Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByV...
VB获取网页源码中的网址
' 注：该程序只能作为获取静态网页类型(*.htm\/*.html)文件的链接。以下代码最好放入一个独立的函数中：Dim l As Long, j As Long, lLen As Long Dim strTmp As String, strTmp2 As String Dim strLink As String, strLinkList As String Dim bErr As Boolean lLen = Len(strCode)strTmp =...
VB如何把网页源码中的IP地址显示出来?
VB中使用webbrowser控件载入页面，然后用它的对部对象读取属性值：以下代码要在webbrowser1的载入完成事件里写。msgbox webbrowser1.document.getElementById("localp").innerText 这就是取得网页中的localp元素的内容，弹出显示。
VB提取网页中的链接地址?
代码如下：'窗体 Private Sub Command1_Click()Text1.Text = GetWebSite(FindWindow("IEFrame", vbNullString))End Sub '模块 Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, By...
求VB代码:要求获取本机的所有网络连接名称
用cmd命令：netsh interface show interface，可以获得所有网络链接，包括其是否启用。至于如何获得cmd中显示的信息，有两种方法：1、netsh interface show interface>D:\\1.txt，执行过以后，会将信息保存在D:\\1.txt中，读取这个文件即可。2、使用管道，用Api函数CreateProcess函数创建进程，然后从他的输出...
vb webbrowser获取网页网址
假设有一个网页浏览控件WebBrowser1以及一个文本框Text1来显示网址，用以下代码可以解决：Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)Text1.Text=URL End Sub 希望对您有所帮助！
vb 如何获得webbrowser控件的坐标 下面代码可以获取网页内坐标,但不可...
如果这个网页非常简单，或许可以通过分析HTML源代码，根据Body的顶部间距、左边间距、字体大小、行距等来大体计算出一个链接文本在WebBrowser中的位置，进而转换成屏幕坐标；一旦这个网页比较麻烦，这种做法就不再可能，因为网页中有很多元素都是无法获取其面积的绝对大小的，比如一个未指定具体尺寸的图片、一个...
VB获取网页部分代码
"li")dim sfor each s in idebug.print s.innerhtmlnext object 是htmlDocument 对象 GetElementsByTagname("ul") 获取ul标签集合 GetElementsByTagname("ul").item(0) 集合中的第一个元素 ... item(0).GetElementsByTagname("li") '获取该元素下的li标签的集合 ...
