返回列表 发帖
tonyabbs

Rank: 1

帖子
41 
积分
70 
技术
1  
捐助
0  
注册时间
2015-3-22 
1楼 跳转到 » 倒序看帖
打印
tT
发表于 2017-10-4 19:40 | 只看该作者

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

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

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

9zhmke

帖子
187 
积分
539 
技术
4  
捐助
0  
注册时间
2009-1-24 
2楼
发表于 2017-10-8 01:04 | 只看该作者
如果是VBS打开的应该很容易取到，如果是别的程序打开的不好说。
只是取得的话，可以发送个按键F4定位到地址栏，暂停一下再发送个^C过去复制。

TOP

9zhmke

帖子
187 
积分
539 
技术
4  
捐助
0  
注册时间
2009-1-24 
3楼
发表于 2017-10-8 16:07 | 只看该作者
试了一下，可以用这个方法取得URL：
  1. Set ws=createobject("wscript.shell") 

  2. Dim IE,obj,i

  3. 

  4. Set Shell=CreateObject("Shell.Application")

  5. For Each win In Shell.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
复制代码

TOP

tonyabbs

Rank: 1

帖子
41 
积分
70 
技术
1  
捐助
0  
注册时间
2015-3-22 
4楼
发表于 2017-10-8 21:14 | 只看该作者
代码好像不全？是不是这样？
  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

9zhmke

帖子
187 
积分
539 
技术
4  
捐助
0  
注册时间
2009-1-24 
5楼
发表于 2017-10-8 21:22 | 只看该作者
不要死搬硬套啊，必须是你使用的浏览器才行，我假设的是IE浏览器，你是什么浏览器就写什么文件。中间那里给你空出来等你自己写程序啊，我不知道你要做什么事情。

TOP

tonyabbs

Rank: 1

帖子
41 
积分
70 
技术
1  
捐助
0  
注册时间
2015-3-22 
6楼
发表于 2017-10-8 22:01 | 只看该作者
本帖最后由 tonyabbs 于 2017-10-8 22:05 编辑

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

TOP

9zhmke

帖子
187 
积分
539 
技术
4  
捐助
0  
注册时间
2009-1-24 
7楼
发表于 2017-10-9 14:55 | 只看该作者
回复 6# tonyabbs


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

TOP

tonyabbs

Rank: 1

帖子
41 
积分
70 
技术
1  
捐助
0  
注册时间
2015-3-22 
8楼
发表于 2017-10-9 22:33 | 只看该作者
我用ie可以用了，但问题是要找到当前网页的网址。你的代码是获得当前ie里面的所有打开的网址。

TOP

9zhmke

帖子
187 
积分
539 
技术
4  
捐助
0  
注册时间
2009-1-24 
9楼
发表于 2017-10-10 08:05 | 只看该作者
你可以取得到网址就可以针对每个网址操作了，你只取其中一个的话就停下来不取别的了呗。当你双击VBS程序的时候显然不可能是“当前”网页，你可能会把程序放到后面不断监视网页，然后针对某网站做些什么事情，不知道你想做什么。也有可能你的设想并非最佳选择。

TOP

tonyabbs

Rank: 1

帖子
41 
积分
70 
技术
1  
捐助
0  
注册时间
2015-3-22 
10楼
发表于 2017-10-11 17:19 | 只看该作者
当我看到某个网页的时候，想用快捷键调用这个vbs取得当前网页地址。

TOP

9zhmke

帖子
187 
积分
539 
技术
4  
捐助
0  
注册时间
2009-1-24 
11楼
发表于 2017-10-12 09:21 | 只看该作者
用印象笔记不行吗？你只是取得了网址远远不够呢。

TOP

返回列表