- 浏览: 17399 次
最新评论
VBS脚本文件大全
2011年05月24日
一、自动打开一个网站:
新建一个文本文件, 输入
Set Obj = WScript.CreateObject("WScript.Shell")
Obj.run "iexplore.exe http://www.sina.com",1
另存为xxx.vbs, 主意别存成.vbs.txt了.
现在你双击这个xxx.vbs应该就打开新浪了.
###########################
如何用VBS执行DOS命令
dim obj
set obj=createobject( "cscript.shell ")
obj.run "command /c 命令 "
obj.run "cmd /c 命令 "
###########################
二、自动打开一个文件夹:
新建一个文本文件, 输入
Set Obj = WScript.CreateObject("WScript.Shell")
Obj.run "iexplore.exe D:\file",1
另存为xxx.vbs, 主意别存成.vbs.txt了.
现在你双击这个xxx.vbs应该就打开新浪了.
三、自动映射网络盘:
首先打开记事本,输入
Set WshNetwork = Wscript.CreateObject("Wscript.Network")
Set WshShell = Wscript.CreateObject("Wscript.shell")
wscript.sleep 3000
WshNetwork.MapNetworkDrive "X:","\\FILE\照片资料"
WshNetwork.MapNetworkDrive "Y:","\\FILE\共享文件"
然后保存为logon.vbs,注意扩展名为vbs。
四、QQ自动登录:
set ws=wscript.createobject("wscript.shell")
ws.run "填入你的QQ路径",1
wscript.Sleep 2000
ws.AppActivate "QQ用户登录"
ws.SendKeys "QQ号码"
wscript.Sleep 2000
ws.SendKeys "{TAB}"
ws.SendKeys "密码"
wscript.Sleep 2000
ws.SendKeys "{ENTER}"
五、设置时间自动关机:
set ws=createobject("wscript.shell")
ws.run "at 20:00 shutdown.exe -s -t 0",hide,true
set ws=nothing
如果中途想取消,那就运行下面的vbs
set ws=createobject("wscript.shell")
ws.run "at /delete",hide ,true
set ws=nothing
六、自动清除系统临时文件:
1.清除系统临时文件
Dim fs,f,fc
Const TemporaryFolder=2
On Error Resume Next
Set fs=CreateObject("Scripting.filesystemObject")
Set fs=fs.GetSpecialFolder(2)
Set fc=SubFolders
For Each f In fc
f.Delete True
Next
Set fc=fs.Files
For Each f In fc
f.Delete True
Next
七.清除垃圾自动查找多个盘:
rem made by correy
rem made at 2007.9.22
rem it can be delete you computer's the follow things(except cd,dvd)
rem it can be delete empty file and folder
rem it can be delete .tmp ._mp .log .gid .chk .old file
rem it can be delete temp,recent,cookis,recycled,prefetch,and "Temporary Internet Files" folder.
rem i am thinking how to delete the same size and same name's file and folder
On Error GoTo 0
Set fso = CreateObject("Scripting"&"."&"FileSystem"&"Object")
for n = 1 to 3
For Each d in fso.Drives
if d.drivetype=4 then
Exit For
else
scan(d)
end if
next
next
sub scan(folder)
on error resume next
set folder=fso.getfolder(folder)
for each file in folder.files
if file.size=0 then
file.delete(true)
end if
ext=fso.GetExtensionName(file)
ext=lcase(ext)
if ext="tmp" or ext="_mp" or ext="log" or ext="gid" or ext="chk" or ext="old" then ''30
file.delete(true)
end if
next
for each subfolder in folder.subfolders
rem instrRev() can't be used,i want to find "\".
if left(subfolder.path,4)="temp" or left(subfolder.path,8)="recycled" then
subfolder.delete(true)
elseif left(subfolder.path,6)="recent" or left(subfolder.path,7)="cookies" then
subfolder.delete(true) rem 40
elseif left(subfolder.path,24)="Temporary Internet Files" or left(subfolder.path,8)="prefetch" then
subfolder.delete(true)
end if
if subfolder.size=0 then subfolder.delete(true)
scan(subfolder)
next
end sub
发表评论
-
OVERLAPPED 与 FILE_FLAG_OVERLAPPED
2012-01-20 02:54 1550OVERLAPPED 与 FILE_FLAG_OVERLA ... -
SQLITE3使用总结
2012-01-20 02:54 663SQLITE3使用总结 2010年06 ... -
Linux下Libpcap源码分析和包过虑机制
2012-01-20 02:54 811Linux下Libpcap源码分析和 ... -
嵌入式Linux中的进程同步无竞争态读写
2012-01-20 02:54 596嵌入式Linux中的进程同步无竞争态读写 2010年06月1 ... -
玩转Android---组件篇---Intent(意图)
2012-01-20 02:54 805玩转Android---组件篇---Intent(意图) 2 ... -
vbs 脚本没事测试玩
2012-01-19 13:27 531vbs 脚本没事测试玩 2011年03月27日 Set ... -
自动下载并运行的VBS脚本代码[转载]
2012-01-19 13:27 641自动下载并运行的VBS脚本代码[转载] 2012年01月15 ... -
oFusion
2012-01-19 13:27 909oFusion 2011年03月10日 oFusion问 ... -
虚拟串口(非常、非常初级的文章)
2012-01-19 13:27 734虚拟串口(非常、非常初级的文章) 2010年11月25日 ... -
WinCE驱动开发问题精华集锦
2012-01-17 03:17 550WinCE驱动开发问题精华 ... -
WinCE驱动开发问题精华集锦(一)
2012-01-17 03:16 565WinCE驱动开发问题精华 ... -
linux下nginx+php的安装与配置
2012-01-17 03:16 523linux下nginx+php的安装与 ... -
【教程】Android系统手机 菜鸟扫盲汇总
2012-01-17 03:16 778【教程】Android系统手机 菜鸟扫盲汇总 2011年10 ... -
常用词汇解释
2012-01-17 03:16 607常用词汇解释 2011年02月10日 1*Android ... -
宋小鱼孙二狗之“长相”
2012-01-16 01:49 600宋小鱼孙二狗之“长相 ... -
东北之行(七)――东北那旮儿的人
2012-01-16 01:49 693东北之行(七)――东北那旮儿的人 2010年03月12日 ... -
东北话四级、六级、八极测试!非东北人勿进,容易晕
2012-01-16 01:49 844东北话四级、六级、八 ... -
俺是东北人,俺骄傲!
2012-01-16 01:49 667俺是东北人,俺骄傲! 2010年02月05日 东北 ... -
东北话考级-东北人必看
2012-01-16 01:49 683东北话考级-东北人必看 2009年08月15日 东北话 ... -
jqury each的使用
2012-01-11 01:43 688jqury each的使用 2011年09月01日 ...
相关推荐
vbs脚本文件..........................................
wincc vbs脚本手册 西门子 组态 脚本
VBS实例 44个 vbs脚本实例, VBS取QQ-TM号码的自动登录命令行.vbs 妙用脚本清除电脑中的痕迹.vbs 后台字典文件管理器.vbs 定时关机.vbs 列出管理工具集.vbs 旁注查询工具.vbs 中文姓名笔画计算(VBS脚本版).vbs ...
VBS脚本运行库手册之八(管理文件) VBS脚本运行库手册之九(复制和移动文件) VBS脚本运行库手册之十(文件的属性) VBS脚本运行库手册之十一(建立文本文件) VBS脚本运行库手册之十二(打开和关闭文本文件) ...
Qt工程,c++代码调用vbs脚本函数,一个很简单的demo,参考学习
WINCC中使用VBS脚本读写SQLServer数据库文件WINCC中使用VBS脚本读写SQLServer数据库文件WINCC中使用VBS脚本读写SQLServer数据库文件WINCC中使用VBS脚本读写SQLServer数据库文件
vbs脚本, 生成磁盘文件列表, 用到堆栈的算法.
TIA博途WINCC中通过VBS脚本执行向文件中读写数据的具体操作步骤
wincc中使用VBS脚本读写SQLServer数据库文件
修改文本中exe文件路径,将txt后缀改为vbs,运行即可
使用说明 下载并解压后无需安装直接使用即可将写好的vbs脚本生成可执行文件.exe
博途V15 wincc使用VBS脚本添加删除趋势曲线,文件为添加删除曲线脚本
VBS脚本实例,用来判断指定的进程是否存在,关闭指定的进程,打开执行的程序
vbs脚本定时备份文件 可根据需要是否定时备份
vb调用vbs脚本的一个小例子
在matlab中编程生成脚本(.vbs)文件,是HFSS和MATLAB联合仿真优化的基础
基于VBS脚本播放本地txt文件内容的语音播放,将“playvoice-vbs脚本.zip”解压,左键双击“PlayVoice.vbs”即可。(PlayVoice.vbs和a.txt要放在同一目录下)
为了讲课写的一个小脚本,水平有限,也在网上参考了一些其他人的代码,在代码中进行了简单的注释,基本可以实现自动从U盘中将特定类型的文件复制出来,也可以指定关键字进行复制,不过只能二选一,具体的功能可以...
我个人认为Vbs脚本其实就是一种计算机编程语言,但是由于缺少计算机程序设计语言中的部分要素,对于事件的描述能力较弱,所以称为脚本,它最方便的地方就是提供了对COM对象的简便支持。那么什么是COM对象呢?
使用python自己写的以及使用vbs脚本写的定时脚本,输入工作时间,到点后会播放音乐提醒,好好爱护自己的身体吧!!