[问题求助] 如何用VBS取得当前网页的地址并复制到剪贴板？

tonyabbs

我看到用window.location.hef可以获得当前网页的地址，但vbs如何定义这个windows 对象？

tonyabbs

代码好像不全？是不是这样？

Dim win,objshell
'Set ws=createobject("wscript.shell") 
Set win=CreateObject("InternetExplorer.Application")
Set objshell=CreateObject("Shell.Application")
For Each win In objshell.Windows
         If LCase(Right(win.fullName,12))="iexplore.exe" Then
             msgbox win.LocationURL
             if win.LocationURL="about:blank" then 
                  
             end if
         End If
Next
Set Shell=Nothing
复制代码

但是好像不能起作用，msgbox没显示

tonyabbs

我用的是360极速浏览器，想把这个网址信息加入到现有的剪贴板中。（当前的剪贴板中已复制了当前网页的内容）能帮忙搞一下吗？谢谢！
是360chrome.exe？

tonyabbs

我用ie可以用了，但问题是要找到当前网页的网址。你的代码是获得当前ie里面的所有打开的网址。

tonyabbs

当我看到某个网页的时候，想用快捷键调用这个vbs取得当前网页地址。