如题所述
首先打开VB,建立一个新工程,点击菜单 Projects | References 项,在Available References 列表中选择
Microsoft Internet Controls项将Internet对象引用介入到工程中。添加一个ListBox到Form1,然后在Form1中添
加如下代码:
Dim dWinFolder As New ShellWindows
Private Sub Form_Load()
Dim objIE As Object
For Each objIE In dWinFolder
If InStr(1, objIE.FullName, “IEXPLORE.EXE”, vbTextCompare) <> 0 Then
List1.AddItem objIE.LocationURL
End If
Next
End Sub
打开几个浏览器窗口,然后运行程序,可以看到所有浏览窗口中的URL地址都在List1中列了出来追问
Microsoft Internet Controls项将Internet对象引用介入到工程中。添加一个ListBox到Form1,然后在Form1中添
加如下代码:
Dim dWinFolder As New ShellWindows
Private Sub Form_Load()
Dim objIE As Object
For Each objIE In dWinFolder
If InStr(1, objIE.FullName, “IEXPLORE.EXE”, vbTextCompare) <> 0 Then
List1.AddItem objIE.LocationURL
End If
Next
End Sub
打开几个浏览器窗口,然后运行程序,可以看到所有浏览窗口中的URL地址都在List1中列了出来追问
For Each objIE In dWinFolder 执行到这句报错 提示 实时错误“424”
请指教
你引用Microsoft Internet Controls了吗?
我是XP系统 测试无问题!~
温馨提示:答案为网友推荐,仅供参考
第1个回答 2011-05-18
你所说的“指定的”是怎么指定的?什么条件?追问
条件 比如 指定的 窗口标题 啦 地址栏 主地址 都可以 谢谢指点
For Each objIE In dWinFolder 执行到这句报错 提示 实时错误“424”