VB2008如何获得当前的URL地址,以及如何验证URL格式?

VB2008如何获得当前的URL地址,以及如何验证URL格式?

Private Sub Command1_Click()
Dim oShellApp, oShellAppWindows, oWin
Dim url As String
Set oShellApp = CreateObject("Shell.Application")
Set oShellAppWindows = oShellApp.Windows
For Each oWin In oShellAppWindows
If LCase(TypeName(oWin.Document)) = "htmldocument" Then
url = oWin.LocationURL
End If
Next
If url <> "" Then MsgBox url, vbInformation, "当前网页打开的网址是："

End Sub


以上是VB6.0 获得当前URL的地址的代码,已测试通过,但用VB2008却不行,请问VB2008如何写?以及如何验证URL格式?谢!

--------------------编程问答-------------------- 在VS2008里面添加对Shell API的引用。然后同理即可。

补充：VB ,  网络编程