- 浏览: 30786 次
最新评论
网络记录器,一个自动搜索指定地址并保存的程序
2010年03月05日
'一个老程序,希望对你有用
'依赖文件:
'D:\UrlList.txt"
Const ForReading = 1, ForWriting = 2, ForAppending = 8
Dim fso, fin,fout
Dim WshShell
dim ThisLline
Dim Poscomma
set WshShell=WScript.CreateObject("WScript.Shell")
Set fso = CreateObject("Scripting.FileSystemObject")
Set fin=fso.opentextfile("D:\webstock\UrlList.txt",forreading,0)
while fin.AtEndOfStream True
ThisLine=fin.readline
Poscomma=instr(ThisLine,",")
call OpenAUrlAndSaveSource(mid(ThisLine,1,PosComma-1),mid(ThisLine,PosComma+1) & FormatToday() & ".html")
wend
fin.close
set fin=nothing
set fso=nothing
set WshShell=nothing
Wscript.Quit
'Call Example : call OpenAUrlAndSaveSource("http://www.test.com","d:\" & FormatToday() & ".html")
'Parmeter
'Navigate
'FullScreen
'AddressBar
'MenuBar
'ToolBAr
Sub OpenAUrlAndSaveSource(ThisUrl,SavedFileName)
set WshShell = WScript.CreateObject("WScript.Shell")
On Error resume next
Set objIE1=CreateObject("InternetExplorer.application")
objIE1.Visible=true
objIE1.NAvigate ThisUrl
objIE1.FullScreen true
WScript.Sleep 5000
WshShell.SendKeys "%V"
WScript.Sleep 2000
WshShell.SendKeys "C"
WScript.Sleep 2000
'Save notepad
WshShell.SendKeys "%F"
WScript.Sleep 2000
WshShell.SendKeys "A"
WScript.Sleep 2000
WshShell.SendKeys SavedFileName
WScript.Sleep 2000
WshShell.SendKeys "%S"
WScript.Sleep 2000
'Close Notepad
WshShell.SendKeys "%F"
WScript.Sleep 2000
WshShell.SendKeys "X"
WScript.Sleep 5000
objIE1.quit
end sub
Function FormatToday()
strYear = DatePart("yyyy",Date)
' Get current month, add leading zero if necessary
If DatePart("m",Date) < 10 Then
strMonth = 0 & DatePart("m",Date)
Else
strMonth = DatePart("m",Date)
End If
' Get current day, add leading zero if necessary
If DatePart("d",Date) < 10 Then
strDay = 0 & DatePart("d",Date)
Else
strDay = DatePart("d",Date)
End If
' Format output for today
FormatToday = strYear & strMonth & strDay
end function
发表评论
-
java字符串比较大小
2012-07-06 09:51 773public int compareTo(String a ... -
UltraEdit 正则表达式替换
2012-07-06 09:44 1337UE用于直观简便地处理文本很是强大,用的较多的有列模式以及 ... -
js 正则表达式乱
2012-07-06 09:37 856js正则表达式详解 j ... -
超级面板皮肤及其使用
2012-07-06 09:29 644画出类似于遨游那样的最大化,最小化,关闭,还原按钮的皮肤。 ... -
给自己的网站添加 分享到 新浪微博等各微博和网站功能
2012-07-05 20:44 727把下面的代码插入到你想放置的位置就可以 将此影视分享到: ... -
Flex 遍历组件的实现
2012-07-03 13:42 885Flex有两个阵营组件:spark组件和mx组件,关于sp ... -
Flex 遍历组件的实现
2012-07-03 12:16 715Flex有两个阵营组件:spark组件和mx组件,关于sp ... -
分页组件(引用Super Flex文章)
2012-07-02 10:10 768这套组件 主要是用到了LinkButton和Repeate ... -
修改flex chart中Legend的字体样式
2012-07-02 10:10 737最近在弄FLEX的图表, 发现CHART 中的Legend ... -
as与js相互通信(flex中调用js函数)
2012-07-02 10:10 691Flex中As调用Js的方法是: 1、导入包 (i ... -
实现flex中实现图片平铺
2012-07-02 10:10 935在网页中实现一个图片平铺功能比较简单,只需要设置css样式 ... -
Flex ant out of memory error.
2012-07-02 09:41 622... -
Flex的通信方式(三)――HTTPService_1
2012-07-01 09:29 977MXML代码: HTTPService id=& ... -
Flex HTTPService 跨域访问
2012-07-01 09:29 560Summary: 基于Web 的flex 程序,后台采用的 ... -
Flex中使用HttpService和WebService方式通信
2012-07-01 09:29 731HttpService、WebService、Remote ... -
使用FLEX的HttpService与ASP.NET进行动态交互之一(转载)
2012-07-01 09:29 540使用FLEX的HttpService ... -
Flex的通信方式(五)――HTTPService_3
2012-07-01 09:29 585public function getuserproc() ... -
RSL编译方式的FLEX站点出现#2046错误
2012-06-30 11:14 456RSL编译方式的FLEX站点出 ... -
什么是Flex?Flex与Flash的区别
2012-06-30 11:14 738什么是Flex?Flex与Flash的区别 2011年07月 ... -
Flex学习终于开工了
2012-06-30 11:14 463Flex学习终于开工了 2011年10月27日 今天是我 ...
相关推荐
本程序使用INI文件实现多种语言支持,每种语言信息用一个扩展名为lng的INI格式文件存放。语言文件可以使用Unicode或ANSI格式,一般建议使用Unicode格式。这种方式具有更多扩展性,用户可以非常简单方便地添加自己的...
本程序为学习Liu_mazi的例程而完成,StartEXE目录中为安装主程序,主程序编译时会把钩子链接库文件打包进来,运行时会把安还原到系统中,然后在系统中安装一个WH_GETMESSAGE钩子调用,然后在系统中当任何一个进程从消息...
本软件还可以自动批量保存网络相册图片。 通常要保存网页上的图片,需要一张张地用鼠标右键另存为,这样做费时费力。 如果以保存整个网页的格式保存下来则不管什么大小的图片包括不想要的图片也会保存下来。 使用...
6-监视所有主机的打开网页记录:包括每个网页的请求地址和跳转地址(可以选择监视这两个地址)。 7-监视所有主机的FTP记录:FTP操作的时间、应用内容、对应的FTP服务器地址等。 8-监视所有主机的收发邮件记录:收发邮件...
Ardamax Keylogger是一款键盘记录工具,它可以将电脑操作者的键盘操作信息记录并自动保存到一个加密的文件中。这个加密文件可以通过Log View来进行浏览查看,本软件有一定的使用范围,例如通过它你可以监视孩子对...
本程序使用INI文件实现多种语言支持,每种语言信息用一个扩展名为lng的INI格式文件存放。语言文件可以使用Unicode或ANSI格式,一般建议使用Unicode格式。这种方式具有更多扩展性,用户可以非常简单方便地添加自己的...
一部久享盛誉的程序开发宝典。精选570个典型范例,全面覆盖实用和热点技术,涉及面广,实用性强源于实际项目开发,帮助读者短时间掌握更多实用技术,提高编程水平范例经过精心编排,重点、难点突出,易学易懂书后...
网络人屏幕自动录像器配合网络人远程控制软件使用,它可将电脑屏幕变化内容完整记录下来,加密后保存在指定文件中,也就是说,对方在电脑上打开任何网页抑或文件,电脑屏幕中所显示的内容都能自动进行录像(支持Win7...
1、定时检测网络连接(基于IP,下同),通过本程序所在的计算机PC扬声器告警,同时给指定的管理员机发消息; 2、手工、定时扫描局域网计算机及有关网络设备,并保存相关信息,主要包括IP地址、计算机名、工作组...
3.9 图像管理 cc实例109 管理计算机内图片文件的程序 cc实例110 提取并保存应用程序图标 3.10 图片动画 cc实例111 利用图片制作屏幕保护程序 cc实例112 图片动画 3.11 简单游戏设计 cc实例113 拼图...
cc实例184 执行一个外部程序直到其结束 cc实例185 调用具有参数的可执行程序 6.7 线程同步 cc实例186 利用事件对象实现线程同步 cc实例187 利用互斥对象实现线程同步 cc实例188 利用...
最近打开的文件 文件扩展名历史记录最近打开的程序历史记录 通知区域图标历史记录Windows系统日志 清空回收站 内存转储文件Windows搜索历史 网络驱动器映射历史 剪贴板内容四、应用程序历史记录 Windows画图...
cc实例184 执行一个外部程序直到其结束 cc实例185 调用具有参数的可执行程序 6.7 线程同步 cc实例186 利用事件对象实现线程同步 cc实例187 利用互斥对象实现线程同步 cc实例188 利用...
另外有只打开一个应用程序、CRichEdit的使用、最小到托盘、自动检测在线用户(多播组)等。 freeeim_FreeEIM_企业即时通讯软件源代码2010年8月份最新版 FTP、HTTP 多线程断点续传下载文件 源码 gdiplus应用实例 ...
一部久享盛誉的程序开发宝典。精选570个典型范例,全面覆盖实用和热点技术,涉及面广,实用性强源于实际项目开发,帮助读者短时间掌握更多实用技术,提高编程水平范例经过精心编排,重点、难点突出,易学易懂书后...
向一个或多个用户发送消息 106 控制 XenApp 中的客户端连接 106 XenApp 策略 106 应用程序发布 106 终端服务配置 106 Active Directory 106 阻止特定客户端连接类型 107 配置连接访问控制 107 指定连接限制 107 限制...
保存程序的更改版本。如果更改程序的私有版本(开发类$TMP),则立即保存更改版本。如果从 $TMP之外的开发类更改程序,则会出现一个窗口,从中可以指定更正号。 运行程序测试它(关于测试的详细信息,参见《测试...