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

[网络连接] 监视浏览器点击,捕获文件下载链接地址和文件名称

本帖最后由 locoman 于 2015-6-14 22:56 编辑


    接触网络这么些年,唯有BATHOME是我坚定的钟爱。皆因在这里不但有一大群顶级高手,更难得的是他们都是数年如一日的充满了热心的分享和热情的帮助精神,总是不愿其烦的想法设法的去帮助指导小白们,这才是这个论坛长盛不衰的秘诀和精髓!能成员论坛的成员与之为伍甚幸之至!!
    今天,我有一事相求,烦请高手们多多帮助,谢谢!


——在个人的日常工作中,OA办公中常要使用办公系统和邮箱有很多公文下载,我需要一个“像迅雷软件那样能监视浏览器点击”功能的东东(姑且就称它为“浏览器下载监视器”吧)。这也许会用到第三方工具结合BAT来完成,我实在搞不懂,特来论坛求助。基本需求如下:
----------
1.设计一个程序,让其在电脑启动时自动启动驻留在内存,“一直监视浏览器的点击操作行为”。
2.一旦监视判断到浏览器点击操作是在文件下载,就将该文件下载的真实地址和文件名称,复制到系统的剪切板中待用。(当然,要至少能通用于WIXP、WIN7和IE6——IE10)。
3.一旦将下载的文件信息送入系统剪切板后,就启动我系统中已有的“文件下载管理器.exe”,进而利用剪切板信息进行文件下载、保存、管理。
——总之,核心思想是:在网页操作中(包括在邮箱操作中),一旦点击链接后发现是在进行文件下载,就先将系统剪切板清空后,再将本次下载链接的所需信息复制到剪切板中待用,余下的事情就交给“文件下载管理器.exe”去做了,文件下载管理器有监视剪切板的功能,但就是没有监视浏览器点击的功能。
4.由于在日常办公操作中本身就有很多复制粘贴操作,因此随时都有剪切板信息变化,所以,我需要的这个“浏览器下载监视器”一是要在判断到确实是在进行文件下载时,才将链接地址和文件名称送往剪切板,其他的时候不需要的;二是送往剪切板的信息除链接地址和文件名称外,应该还要有特殊的标志识别信息,否则“文件下载管理器.exe”会经常弹出来工作的。
5.剪切板信息要求如下:


0.yf,xia shi bu xia zai ?xia zai jiu ma ma xia.fy. //这行就是“浏览器下载监视器”和“文件下载管理器.exe”约定的标志信息,固定不变的。
1.host name=[web.eiphome.com] //这行是主机地址,是动态的。
2.port=[80] //这行是下载协议端口,是动态的。
3.Address=[/SoftDownloads/CommonSoftFile/开会通知.rar] //这行是下载文件地址,是动态的。
4.file name=[开会通知.rar] //这行是文件名称,是动态的。

   

———不知我是否将需求意思讲明白了没有。
希望各位高手帮我多多想法,解我工作的烦恼。谢谢!拜托了!!

@Batcher 不知这个问题发在论坛这个版块是否恰当。
请您多多关照、解决,谢了!

TOP

顶一下,求关注,求支持!
谢谢!

TOP

回复 3# locoman
这个问题纯bat无解,因为bat根本操作不了浏览器
也没听说有什么第三方拥有这样的功能

TOP

VBS 监控 IE 浏览器URL By Yu2n
  1. 'ListingIeURL.vbs
  2. On Error Resume Next
  3. If InStr(1, WScript.FullName, "\wscript.exe", vbTextCompare) > 0 Then
  4.   CreateObject("WScript.Shell").Run "cmd /c title " & WScript.ScriptName & _
  5.     " & cscript //nologo """ & WScript.ScriptFullName & """ & pause", 1, False
  6.   WScript.Quit(0)
  7. End If
  8. Dim sURL, sCurURL
  9. Do
  10.   For Each o In CreateObject("Shell.Application").Windows
  11.     If InStr(1, o.FullName, "\iexplore.exe", vbTextCompare) > 0 Then
  12.       If Not InStr(1, sURL, o.LocationURL, vbTextCompare) > 0 Then
  13.         sCurURL = o.LocationURL
  14.         sURL = sURL & vbCrLf & sCurURL
  15.         WScript.Echo Now() & vbTab & sCurURL
  16.       End If
  17.     End If
  18.   Next
  19. Loop
复制代码
示例:
打开 IE 浏览器,输入 pc.qq.com ,点击下载 QQ ,可监控到下载地址。如下:
  1. 2015-6-20 11:21:49      http://pc.qq.com/
  2. 2015-6-20 11:22:06      http://dldir1.qq.com/qqfile/qq/QQ7.3/15047/QQ7.3.exe
复制代码
请自行修改测试。
『千江有水千江月』千江有水,月映千江;万里无云,万里青天。    http://yu2n.qiniudn.com/

TOP

电脑慢的,在18行与19行之间插入延时:
  1. WScript.Sleep 50
复制代码
『千江有水千江月』千江有水,月映千江;万里无云,万里青天。    http://yu2n.qiniudn.com/

TOP

本帖最后由 locoman 于 2015-6-20 21:14 编辑
VBS 监控 IE 浏览器URL By Yu2n示例:
打开 IE 浏览器,输入 pc.qq.com ,点击下载 QQ ,可监控到下载地址 ...
yu2n 发表于 2015-6-20 11:26



谢谢您的热心相助,等测试后再报告情况……

请教使用方法:是不是复制代码后,保存为 .vbs文件,直接点击运行该文件后,即可实现浏览器监视……

TOP

返回列表