9zhmke

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

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

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

9zhmke

回复 6# tonyabbs


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

9zhmke

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

9zhmke

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