标题: [问题求助] 如何用VBS取得当前网页的地址并复制到剪贴板? [打印本页]
作者: tonyabbs 时间: 2017-10-4 19:40 标题: 如何用VBS取得当前网页的地址并复制到剪贴板?
本帖最后由 tonyabbs 于 2017-10-5 02:09 编辑
我看到用window.location.hef可以获得当前网页的地址,但vbs如何定义这个windows 对象?
作者: 9zhmke 时间: 2017-10-8 01:04
如果是VBS打开的应该很容易取到,如果是别的程序打开的不好说。
只是取得的话,可以发送个按键F4定位到地址栏,暂停一下再发送个^C过去复制。
作者: 9zhmke 时间: 2017-10-8 16:07
试了一下,可以用这个方法取得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
复制代码
作者: tonyabbs 时间: 2017-10-8 21:14
代码好像不全?是不是这样?- 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 时间: 2017-10-8 21:22
不要死搬硬套啊,必须是你使用的浏览器才行,我假设的是IE浏览器,你是什么浏览器就写什么文件。中间那里给你空出来等你自己写程序啊,我不知道你要做什么事情。
作者: tonyabbs 时间: 2017-10-8 22:01
本帖最后由 tonyabbs 于 2017-10-8 22:05 编辑
我用的是360极速浏览器,想把这个网址信息加入到现有的剪贴板中。(当前的剪贴板中已复制了当前网页的内容)能帮忙搞一下吗?谢谢!
是360chrome.exe?
作者: 9zhmke 时间: 2017-10-9 14:55
回复 6# tonyabbs
那你要去找个装有360的朋友帮你调试了,我是绝不会用他家的产品的,我不知道他的浏览器是哪个文件。你找到他家浏览器名字,把程序里IE的文件名替换了就可以继续试了。
作者: tonyabbs 时间: 2017-10-9 22:33
我用ie可以用了,但问题是要找到当前网页的网址。你的代码是获得当前ie里面的所有打开的网址。
作者: 9zhmke 时间: 2017-10-10 08:05
你可以取得到网址就可以针对每个网址操作了,你只取其中一个的话就停下来不取别的了呗。当你双击VBS程序的时候显然不可能是“当前”网页,你可能会把程序放到后面不断监视网页,然后针对某网站做些什么事情,不知道你想做什么。也有可能你的设想并非最佳选择。
作者: tonyabbs 时间: 2017-10-11 17:19
当我看到某个网页的时候,想用快捷键调用这个vbs取得当前网页地址。
作者: 9zhmke 时间: 2017-10-12 09:21
用印象笔记不行吗?你只是取得了网址远远不够呢。
欢迎光临 批处理之家 (http://bathome.net./) |
Powered by Discuz! 7.2 |