vb如何根据ie地址栏的地址来判断网页

不是像下面这句一样根据窗口标题来判断
hwnd1 = FindWindow("IEFrame", "百度——全球最大中文搜索引擎 - Microsoft Internet Explorer")
我想根据ie窗口的地址栏里的地址来判断网页是不是百度，应该咋写？最好说详细点 我很菜！谢谢

---

IE地址栏的句柄是可以通过枚举IE子窗口枚举到，地址栏的类名是Edit（IE7版本）。

---

最好说详细点 LZ很菜！

引用

IE地址栏的句柄是可以通过枚举IE子窗口枚举到，地址栏的类名是Edit（IE7版本）。

---

VB code:
Option Explicit
Private Sub Command1_Click()

Text1.Text = ""
EnumWindows AddressOf EnumProc, 0
If Text1.Text = "" Then Text1.Text = "没有启动 IE 浏览器"
End Sub


注:IE8用不了

---

首先打开VB，建立一个新工程，点击菜单 Projects | References 项，在Available References 列表中选择
'Microsoft Internet Controls项将Internet对象引用介入到工程中。添加一个ListBox到Form1，然后在Form1中添加上面代码

---

VB code:
Private Sub Command1_Click()
Dim objShell, objWindows, objIE, strURL
strURL = "http://www.baidu.com"
Set objShell = CreateObject("Shell.Application") 'New ShellWindows
Set objWi