用vb写浏览器,当鼠标移到一个超连接时,怎样获得这个超连接的url??

Question

用vb写浏览器,当鼠标移到一个超连接时,怎样获得这个超连接的url??

Answer 1

参考一下这篇文章
http://www.china-askpro.com/msg17/qa98.shtml

Answer 2

Webbrowser获取网页上所有连接的代码Option ExplicitPrivate Sub Command1_Click()
Command1.Enabled = False
WebBrowser1.Navigate2 Text1.Text
End SubPrivate Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)Dim x As Long
List1.ClearFor x = 0 To WebBrowser1.Document.Links.length - 1
    List1.AddItem WebBrowser1.Document.Links.Item(x)
Next x
Command1.Enabled = True
End SubPrivate Sub WebBrowser1_StatusTextChange(ByVal Text As String)
Label3 = Text
End Sub

Answer 3

to:forever_chang(寒冬月夜裸奔狂)我并不是要获取页面的所有连接,而是鼠标移动到某一连接时的url

Answer 4

有个API函数的啊，click事件：Dim WxyNo As Long
 WxyNo = ShellExecute(Me.hwnd, "open", "http://192.168.1.119", "", App.path, 1)
 If WxyNo = 0 Then
    MsgBox "浏览器没有正确安装或其它错误。", vbOKOnly + 16, "登录错误"
 End If
类模块：Public Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

Answer 5

晕，又一个什么都不看就发贴
回复人： phonix(风·自在) ( ) 信誉：100  2003-12-11 13:43:00  得分:0 
 
 
  知道了,怎么给分?
  
----------------------------------------------
 点管理