[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖

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

本帖最后由 tonyabbs 于 2017-10-5 02:09 编辑

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

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

TOP

试了一下,可以用这个方法取得URL:
  1. Set ws=createobject("wscript.shell")
  2. Dim IE,obj,i
  3. Set Shell=CreateObject("Shell.Application")
  4. For Each win In Shell.Windows
  5.          If LCase(Right(win.fullName,12))="iexplore.exe" Then
  6.              msgbox win.LocationURL
  7.              if win.LocationURL="about:blank" then
  8.                   
  9.              end if
  10.          End If
  11. Next
  12. Set Shell=Nothing
复制代码

TOP

代码好像不全?是不是这样?
  1. Dim win,objshell
  2. 'Set ws=createobject("wscript.shell")
  3. Set win=CreateObject("InternetExplorer.Application")
  4. Set objshell=CreateObject("Shell.Application")
  5. For Each win In objshell.Windows
  6.          If LCase(Right(win.fullName,12))="iexplore.exe" Then
  7.              msgbox win.LocationURL
  8.              if win.LocationURL="about:blank" then
  9.                   
  10.              end if
  11.          End If
  12. Next
  13. Set Shell=Nothing
复制代码
但是好像不能起作用,msgbox没显示

TOP

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

TOP

本帖最后由 tonyabbs 于 2017-10-8 22:05 编辑

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

TOP

回复 6# tonyabbs


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

TOP

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

TOP

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

TOP

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

TOP

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

TOP

返回列表