- 浏览: 18828 次
最近访客 更多访客>>
最新评论
-
luozhong915127:
这是什么呀,你以为别人跟你一样是神眼呀。你可以把语言的条款写清 ...
Linux DM9000网卡驱动程序完全分析
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
发表评论
-
深入探究 Win32 PE 文件格式
2012-01-20 08:23 704深入探究 Win32 PE 文件格 ... -
V4L2应用程序框架
2012-01-20 08:23 1204V4L2应用程序框架 2010年 ... -
关于file_operations结构体
2012-01-20 08:23 585关于file_operations结构体 2010年12月2 ... -
堆栈的认知!
2012-01-20 08:23 591堆栈的认知! 2010年11月2 ... -
Linux DM9000网卡驱动程序完全分析
2012-01-20 08:23 810Linux DM9000网卡驱动程序完全分析 2011年02 ... -
Adsutil.vbs在脚本入侵中的妙用
2012-01-19 13:35 580Adsutil.vbs在脚本入侵中的妙用 2011年03月0 ... -
利用VBS脚本让qq永远在线
2012-01-19 13:35 565利用VBS脚本让qq永远在线 2011年06月07日 让 ... -
vbs脚本实例
2012-01-19 13:35 671vbs脚本实例 2011年02月28日 rem 结束QQ ... -
vbs 脚本没事测试玩
2012-01-19 13:35 574vbs 脚本没事测试玩 2011年03月27日 Set ... -
安装minigui 的界面环境 mstudio
2012-01-17 03:25 2018安装minigui 的界面环境 mstudio 2010年0 ... -
[转]win7搭建Android开发 个人测试成功
2012-01-17 03:24 602[转]win7搭建Android开发 个人测试成功 2011 ... -
Platform Builder和Embedded visual C++简介
2012-01-17 03:24 589Platform Builder和Embedded vis ... -
解决无IISXP系统无IIS如何安装IIS【出现问题请看最后面】
2012-01-17 03:24 811解决无IISXP系统无IIS如何安装IIS【出现问题请看最后面 ... -
搭建android开发环境
2012-01-17 03:24 717搭建android开发环境 2011年05月08日 O ... -
开学之前放个重磅――盘点下我知道的情景喜剧
2012-01-16 01:59 573开学之前放个重磅―― ... -
中国各地男人之最的分析
2012-01-16 01:59 777中国各地男人之最的分 ... -
祝福新人
2012-01-16 01:59 534祝福新人 2009年10月07日 好朋友军 ... -
daogou
2012-01-16 01:59 481daogou 2009年09月01日 服装店店员的服务用 ... -
徐强眼中的自己,朋友们觉得是我吗?
2012-01-16 01:59 516徐强眼中的自己,朋友们 ... -
a usage of c macro-小雨-iteye技术网站
2012-01-11 02:01 671a usage of c macro-小雨-iteye技术网站 ...
相关推荐
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脚本写的定时脚本,输入工作时间,到点后会播放音乐提醒,好好爱护自己的身体吧!!