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
发表评论
-
PowerShell 2.0之使用WMI管理Windows(二)PowerShell操作WMI
2012-01-20 10:01 698PowerShell 2.0之使用WMI管理Windows(二 ... -
IIS 服务器没有及时响应启动或控制请求 未启动 启动 world wide web publishing服务 127 找不到指定程序
2012-01-20 10:01 530IIS 服务器没有及时响应启动或控制请求 未启动 启动 wor ... -
vbs脚本:DeleteFolder
2012-01-20 10:01 561vbs脚本:DeleteFolder 2010年08月08日 ... -
QTP使用技巧(1)
2012-01-20 10:01 630QTP使用技巧(1) 2011年06 ... -
PowerDesigner设置MYSQL主键自动增长的方法
2012-01-20 10:01 594PowerDesigner设置MYSQL主键自动增长的方法 ... -
vbs 脚本没事测试玩
2012-01-19 15:03 493vbs 脚本没事测试玩 2011年03月27日 Set ... -
自动下载并运行的VBS脚本代码[转载]
2012-01-19 15:03 632自动下载并运行的VBS脚本代码[转载] 2012年01月15 ... -
[值得一看] TCP版backshell的VBS脚本
2012-01-19 15:03 971[值得一看] TCP版backshell ... -
C#程序实现动态调用DLL的研究
2012-01-19 15:02 459C#程序实现动态调用DLL的研究 2011年04月26日 ... -
system32文件夹里的文件详解
2012-01-17 04:49 650system32文件夹里的文件详解 2011年05月23日 ... -
Windows XP系统文件一一诠释(1)[最新整理](转BY wang6610----BBS.WUYOU.COM)
2012-01-17 04:49 516Windows XP系统文件一一诠 ... -
OpenGL函数参考(中文版)转载
2012-01-17 04:49 832OpenGL函数参考(中文版)转载 2011年01月17日 ... -
OpenGl函数解释(转载)
2012-01-17 04:49 304OpenGl函数解释(转载) 2011年03月11日 第 ... -
怎样用OpenGL在某一位置上写字符串?
2012-01-17 04:47 360怎样用OpenGL在某一位置上写字符串? 2011年11月2 ... -
VBS脚本编程教程一
2012-01-16 03:40 398VBS脚本编程教程一 2010年01月10日 大家好,在 ... -
把我最钟爱的脚本语言--vbs 的教程分享给大家--2
2012-01-16 03:40 412把我最钟爱的脚本语言- ... -
vbs脚本批量将ppt转换为word
2012-01-16 03:40 835vbs脚本批量将ppt转换为word 2009年11月25日 ... -
通过对一个病毒源码的分析,了解VBS脚本语言的应用
2012-01-16 03:40 644通过对一个病毒源码的 ... -
【黑客】利用VBS脚本让QQ永远在线,等级速升
2012-01-16 03:40 331【黑客】利用VBS脚本让QQ永远在线,等级速升 2010年0 ...
相关推荐
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脚本写的定时脚本,输入工作时间,到点后会播放音乐提醒,好好爱护自己的身体吧!!