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

tonyabbs

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

9zhmke

用印象笔记不行吗？你只是取得了网址远远不够呢。

tonyabbs

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

9zhmke

你可以取得到网址就可以针对每个网址操作了，你只取其中一个的话就停下来不取别的了呗。当你双击VBS程序的时候显然不可能是“当前”网页，你可能会把程序放到后面不断监视网页，然后针对某网站做些什么事情，不知道你想做什么。也有可能你的设想并非最佳选择。

tonyabbs

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

9zhmke

回复 6# tonyabbs


    那你要去找个装有360的朋友帮你调试了，我是绝不会用他家的产品的，我不知道他的浏览器是哪个文件。你找到他家浏览器名字，把程序里IE的文件名替换了就可以继续试了。

tonyabbs

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

9zhmke

不要死搬硬套啊，必须是你使用的浏览器才行，我假设的是IE浏览器，你是什么浏览器就写什么文件。中间那里给你空出来等你自己写程序啊，我不知道你要做什么事情。

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没显示

9zhmke

试了一下，可以用这个方法取得URL：

Set ws=createobject("wscript.shell") 
Dim IE,obj,i

Set Shell=CreateObject("Shell.Application")
For Each win In Shell.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
复制代码

9zhmke

如果是VBS打开的应该很容易取到，如果是别的程序打开的不好说。
只是取得的话，可以发送个按键F4定位到地址栏，暂停一下再发送个^C过去复制。