vb如何根据ie地址栏的地址来判断网页
不是像下面这句一样根据窗口标题来判断
hwnd1 = FindWindow("IEFrame", "百度——全球最大中文搜索引擎 - Microsoft Internet Explorer")
我想根据ie窗口的地址栏里的地址来判断网页是不是百度，应该咋写？最好说详细点 我很菜！谢谢
IE地址栏的句柄是可以通过枚举IE子窗口枚举到，地址栏的类名是Edit（IE7版本）。
最好说详细点 LZ很菜！
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
相关问答：
vb写的程序编译后,运行若出错,如何知道到在哪一行?
按Ctrl+F5预编译，出错时会跳转到错误行
不是那样的了,我是要求编译成EXE后运行,提示出错能否提示错在哪一行.
我编译后在我的电脑上运行没问题,但� ......
想在warcraft3里进行写屏操作【如对战平台中的胜负提示信息】，效果就像游戏平台中一样，我试过在一窗口中写入文字，然后一直让窗口强制最前，虽然能实现文字显示，但是文字会不断闪烁，而且有不确定BUG，通过论坛搜 ......
"insert into user1(name,age) values('" & Text1.Text & "','" & Text2.Text & "' )"
问题：对sql语句中单、双引号模糊。既然 Text1.Text就表示 ......
vb中怎么通过xml来解析数据库中的字段值。
没办法用XML解析数据库的字段值，除非数据库中保存的是XML格式的字符串文档。
XML用来展示层次的数据。
数据库一般是二维数据。
数据库中保存的是XML字符串格式� ......
怎么优化查询的效率，比如我想从100万条记录中每次只查询100条记录的话，那么这条sql语句该怎么实现，注意：语言是VBScript的，
http://www.cnblogs.com/anjou/archive/2007/10/17/926944.html
涉及到算法，goog ......
