如何用VB在IE地址栏中获得域名

来源：百度知道 编辑：UC知道 时间：2024/05/16 06:20:59
如何用VB在IE地址栏中获得域名,用什么API函数,请具体给出代码,如果没有给点思路也行
我已经有一些思路了,用一个ActiveX控件：WebBrowser,用LOCATIONURL可以返回控间显示WEB的URL.具体这个控间怎么用还在学习,用感兴趣的一起讨论

Dim WithEvents dWinFolder As ShellWindows

Private Sub Form_Load()

Set dWinFolder = New ShellWindows

InitWindows

End Sub

Private Sub InitWindows()

Timer1.Enabled = True

End Sub

Private Sub Timer1_Timer()
Dim i As Long

Dim objIE As WebBrowser_V1

With txtCode

.Text = ""

For Each objIE In dWinFolder

If objIE.LocationName <> "" Then

i = i + 1
.Text = .Text & vbCrLf & i & ":" & objIE.FullName & "," & "," & Left(objIE.LocationURL, 10)

'//objIE.Refresh2 (7)

End If

Next
'& objI