mengl520 发表于 2011-9-12 23:49

IE内核当前已经打开网页地址标题和个数

Option Explicit
Private Sub Form_Load()
    '需要引用Microsoft Internet Controls对象
    Dim WebCount As SHDocVw.ShellWindows
    Dim tmpI As Long, tmpWeb As WebBrowser
    Set WebCount = New SHDocVw.ShellWindows
    MsgBox "已经打开" & WebCount.Count & "个网页"
    For tmpI = 0 To WebCount.Count - 1
      Set tmpWeb = WebCount.Item(tmpI)
      Debug.Print tmpWeb.LocationURL
      Debug.Print tmpWeb.LocationName
    Next
    Set tmpWeb = Nothing
End Sub

xxhaishixx 发表于 2012-6-26 01:39

强力代码，谢谢分享
页: [1]
查看完整版本: IE内核当前已经打开网页地址标题和个数


免责声明：
吾爱破解所发布的一切破解补丁、注册机和注册信息及软件的解密分析文章仅限用于学习和研究目的；不得将上述内容用于商业或者非法用途，否则，一切后果请用户自负。本站信息来自网络，版权争议与本站无关。您必须在下载后的24个小时之内，从您的电脑中彻底删除上述内容。如果您喜欢该程序，请支持正版软件，购买注册，得到更好的正版服务。如有侵权请邮件与我们联系处理。

Mail To:Service@52pojie.cn