用VBS来代替BAT或CMD文件进行命令第1/2页
作者 佚名
来源 ASP编程
浏览
发布时间 2013-07-09
| 自动导入注册表的，带检测： OnErrorResumeNext dimmsg,fso,shell Setfso=Wscript.createｏｂｊｅｃｔ("scripting.filesystemｏｂｊｅｃｔ") setwshshell=wscript.CreateObject("wscript.shell") setshell=wscript.createｏｂｊｅｃｔ("wscript.shell") IF(fso.FileExists("e:\劲乐团\reg.reg"))Then shell.run"c:\windows\Regedit.exe/se:\劲乐团\reg.reg" shell.run"e:\劲乐团\O2Jam.exe" Else msg=msgbox("注册表未导入，游戏可能无法启动，如无法进游戏请叫网管~",1,"出问题啦！！") shell.run"e:\劲乐团\O2Jam.exe" endif 不带检测的： OnErrorResumeNext DimoShell,fso SetoShell=WScript.CreateObject("WScript.Shell") setfso=CreateObject("Scripting.filesystemｏｂｊｅｃｔ") oShell.Run"regedit/s9you.reg" oShell.Run"d:\网络游戏\劲乐团\O2Jam.exe" 自动加载虚拟光驱的： DimoShell Setoshell=WScript.CreateObject("WScript.Shell") oShell.Run"c:\progra~1\daemon~1\daemon.exe-mount0,D:\lan\战地2\BF2CD1mini.mds" wscript.sleep5000 oShell.Run"D:\lan\战地2\BF2.exe" 另一例子： DimWsh,DMpath,ISOpath DMpath="X:\Y\daemon.exe"''设置DM路径 ISOpath="Z:\大富翁七\RICH7B.mds"''设置镜像文件路径 SetWsh=WScript.CreateObject("WScript.Shell") Wsh.runchr(34)&DMpath&chr(34)&"-mount0,"&ISOpath,0,true Wscript.Sleep3000''最好延时几秒等待镜像加载完毕1000=1秒 Wsh.run"Z:\大富翁七\rich7.exe" SetWSH=Nothing WScript.quit //每次开机的时候自动导入注册表和程序 OptionExplicit DimFolder Folder="d:\aaa"''设置你要执行的文件夹 DimWsh,fso SetWsh=WScript.CreateObject("WScript.Shell") Setfso=CreateObject("Scripting.FileSystemObject") Dimf,fc,f1,ext Setf=fso.GetFolder(Folder) Setfc=f.Files ForEachf1infc ext=LCase(fso.GetExtensionName(f1)) SelectCaseext Case"exe" wsh.runf1,,true Case"reg" wsh.run"Regedit/s"&f1,,true endSelect Next Setfso=NoThing SetWsh=Nothing WScript.quit //排除指定文件或文件夹删除多余的文件或文件夹，黑火原创 OptionExplicit ''''''''''''''''''''''''''''说明'''''''''''''''''''''''' ''网盟-黑火制作，送给需要的朋友。 ''配置文件“Listfile.ini”的格式如下： ''要删除什么(文件|目录)=要执行删除的文件夹=排除1;排除2;排除3............ ''配置文件可以有多行，以便对多个目录进行操作。 ''配置文件里以“/”开头的行为注释行。 ''排除多个内容时，使用分号“;”进行分隔。 ''↓↓↓配置文件例子：↓↓↓ ''/配置文件开始 ''目录=D:\=SystemVolumeInformation;网络游戏;单机游戏;小游戏 ''目录=C:\ProgramFiles=qq;WinRAR ''文件=D:\网络游戏=文件1.exe;文件2.exe ''/配置文件结束 ''''''''''''''''''''''''''说明完'''''''''''''''''''''''' DimFso,Listfile,objListfile Listfile=""''设置配置文件路径,如果配置文件和脚本放在一起，请保持原样 IfListfile=""ThenListfile="Listfile.ini" SetFso=CreateObject("Scripting.FileSystemObject") OnErrorResumeNext SetobjListfile=Fso.OpenTextFile(Listfile,1) IfErrThen err.Clear Msgbox"没有找到配置文件"&Listfile,16,"错误" WScript.quit EndIf OnErrorGoTo0 Dimflnum,fdnum,t1,t2,tm flnum=0 fdnum=0 t1=timer() DimMyline,LineArr,ListArr DoWhileobjListfile.AtEndOfStream<>True Myline=LCase(Replace(objListfile.ReadLine,"==","=")) IfLeft(Myline,1)="/"Then ''objListfile.SkipLine ElseIfCheckLine(Myline)=2Then LineArr=Split(Myline,"=") ''DoFolder=LineArr(1) |
凌众科技专业提供服务器租用、服务器托管、企业邮局、虚拟主机等服务，公司网站：http://www.lingzhong.cn 为了给广大客户了解更多的技术信息，本技术文章收集来源于网络,凌众科技尊重文章作者的版权，如果有涉及你的版权有必要删除你的文章，请和我们联系。以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢! |
你可能对下面的文章感兴趣
上一篇: 用VBS检测Guest状态的脚本下一篇: vbscript禁用 启用fso的方法
关于用VBS来代替BAT或CMD文件进行命令第1/2页的所有评论
