忽然想到要用VBS来代替BAT或CMD文件进行命令集成,于是开始下苦工学习了一番!在网上找了好久终于找到东西。
自动导入注册表的,带检测:
On Error Resume Next
dim msg,fso,shell
Set fso = Wscript.createobject(“scripting.filesystemobject”)
set wshshell = wscript.CreateObject(“wscript.shell”)
set shell = wscript.createobject(“wscript.shell”)
IF (fso.FileExists(“e:\劲乐团\reg.reg”)) Then
shell.run “c:\windows\Regedit.exe /s e:\劲乐团\reg.reg ”
shell.run “e:\劲乐团\O2Jam.exe”
Else
msg=msgbox(“注册表未导入,游戏可能无法启动,如无法进游戏请叫网管~”,1,”出问题啦!!”)
shell.run “e:\劲乐团\O2Jam.exe”
end if
不带检测的:
On Error Resume Next
Dim oShell,fso
Set oShell = WScript.CreateObject(“WScript.Shell”)
set fso = CreateObject(“Scripting.filesystemobject”)
oShell.Run “regedit /s 9you.reg”
oShell.Run “d:\网络游戏\劲乐团\O2Jam.exe”
自动加载虚拟光驱的:
Dim oShell
Set oshell= WScript.CreateObject(“WScript.Shell”)
oShell.Run “c:\progra~1\daemon~1\daemon.exe -mount 0,D:\lan\战地2\BF2CD1mini.mds”
wscript.sleep 5000
oShell.Run “D:\lan\战地2\BF2.exe”
另一例子:
Dim Wsh,DMpath,ISOpath
DMpath = “X:\Y\daemon.exe” ‘设置DM路径
ISOpath = “Z:\大富翁七\RICH7B.mds” ‘设置镜像文件路径
Set Wsh = WScript.CreateObject(“WScript.Shell”)
Wsh.run chr(34) & DMpath & chr(34) &” -mount 0,”&ISOpath,0,true
Wscript.Sleep 3000 ‘最好延时几秒等待镜像加载完毕 1000 = 1 秒
Wsh.run “Z:\大富翁七\rich7.exe”
Set WSH = Nothing
WScript.quit
//每次开机的时候自动导入注册表和程序
Option Explicit
Dim Folder
Folder = “d:\aaa” ‘设置你要执行的文件夹
Dim Wsh,fso
Set Wsh = WScript.CreateObject(“WScript.Shell”)
Set fso = CreateObject(“Scripting.FileSystemObject”)
Dim f,fc,f1,ext
Set f = fso.GetFolder(Folder)
Set fc = f.Files
For Each f1 in fc
ext = LCase(fso.GetExtensionName(f1))
Select Case ext
Case “exe”
wsh.run f1,,true
Case “reg”
wsh.run “Regedit /s “& f1,,true
end Select
Next
Set fso=NoThing
Set Wsh = Nothing
WScript.quit
//排除指定文件或文件夹删除多余的文件或文件夹,黑火原创
Option Explicit
”””””””说明””””””
‘网盟-黑火制作,送给需要的朋友。
‘配置文件“Listfile.ini”的格式如下:
‘要删除什么(文件|目录)=要执行删除的文件夹=排除1;排除2;排除3…………
‘配置文件可以有多行,以便对多个目录进行操作。
‘配置文件里以“/”开头的行为注释行。
‘排除多个内容时,使用分号“;”进行分隔。
‘↓↓↓ 配置文件例子:↓↓↓
‘/配置文件开始
‘目录=D:\=System Volume Information;网络游戏;单机游戏;小游戏
‘目录=C:\Program Files=qq;WinRAR
‘文件=D:\网络游戏=文件1.exe;文件2.exe
‘/配置文件结束
””””””’说明完””””””
Dim Fso,Listfile,objListfile
Listfile = “” ‘设置配置文件路径,如果配置文件和脚本放在一起,请保持原样
If Listfile = “” Then Listfile = “Listfile.ini”
Set Fso = CreateObject(“Scripting.FileSystemObject”)
On Error Resume Next
Set objListfile = Fso.OpenTextFile(Listfile,1)
If Err Then
err.Clear
Msgbox “没有找到配置文件 “&Listfile,16,”错误”
WScript.quit
End If
On Error GoTo 0
Dim flnum,fdnum,t1,t2,tm
flnum=0
fdnum=0
t1 = timer()
Dim Myline,LineArr,ListArr
Do While objListfile.AtEndOfStream <> True
Myline = LCase(Replace(objListfile.ReadLine,”==”,”=”))
If Left(Myline,1) = “/” Then
‘objListfile.SkipLine
ElseIf CheckLine(Myline) = 2 Then
LineArr = Split(Myline,”=”)
‘DoFolder = LineArr(1)
ListArr = Split(LineArr(2),”;”)
‘MsgBox LineArr(0)
If LineArr(0) = “目录” Then DelFolder LineArr(1),ListArr
If LineArr(0) = “文件” Then DelFile LineArr(1),ListArr
End If
Loop
t2 = timer()
tm=cstr(int(( (t2-t1)*10000 )+0.5)/10)
MsgBox “扫描完毕,共删除 “&fdnum&” 个目录, “&flnum& “个文件。”& vbCrLf &”耗时 “&tm&” 毫秒”,64,”执行完毕”
‘不需要显示报告的话,注释掉上面这一行
Set Fso=NoThing
WScript.quit
Sub DelFolder(Folder,ListArr)
Dim objFolder,subFolders,subFolder
Set objFolder=Fso.Getfolder(Folder)
Set subFolders=objFolder.subFolders
For Each subFolder In subFolders
If Not InArray(LIstArr,LCase(subFolder.name)) Then
On Error Resume Next
subfolder.Delete(True)
If Err Then
err.Clear
Msgbox “不能删除目录,请检查 “&subFolder,16,”错误”
Else
fdnum = fdnum + 1
End If
On Error GoTo 0
End If
Next
End Sub
Sub DelFile(Folder,ListArr)
Dim objFolder,Files,File
Set objFolder=Fso.Getfolder(Folder)
Set Files=objFolder.Files
For Each File In Files
If Not InArray(LIstArr,LCase(File.name)) Then
On Error Resume Next
File.Delet