当前位置:
  1. 爱科普网
  2. 科普指南
  3. 科普专题
  4. vbs代码,纯自己采集,绝对良心!

vbs代码,纯自己采集,绝对良心!

多段vbs代码,大家可借鉴,提意见或建议!

vbs代码,纯自己采集,绝对良心!

vbs代码,纯自己采集,绝对良心!

工具/材料

windows电脑一台

操作方法

第01步、

把以下将要展示的代码粘贴在新建的一个文本文档中然后把后缀改成.vbs

第02步、

简单的石头剪刀布小游戏msgbox"欢迎来到石头剪刀布1.0!"randomizedoa=msgbox("是否开始游戏?",vbyesno,"石头剪刀布1.0")ifa=vbyesthenb=inputbox("请输入你要出的是什么,1石头、2剪刀、3布","请输入!")d=int(rnd*3+1)strs=Array("石头","剪刀","布")msgbox"你出的是"&strs(b-1)&"电脑出的是"&strs(d-1)elsewscript.Quitendifloop

第03步、

自动报时问好Digital=Timehours=Hour(Digital)minutes=Minute(Digital)seconds=Second(Digital)If(hours<6)Thendn="凌辰了还没睡啊"EndIfIf(hours>=6)Thendn="早上好"EndIfIf(hours>12)Thendn="下午好"EndIfIf(hours>18)Thendn="晚上好"EndIfIf(hours>22)Thendn="不早了夜深了该睡觉了"EndIfIf(minutes<=9)Thenminutes="0"&minutesEndIfIf(seconds<=9)Thenseconds="0"&secondsEndIfctime=hours&":"&minutes&":"&seconds&""&dnMsgBoxctime

第04步、

定时关机并弹出对话框WScript.Sleep5000setobjTTS=createobject("sapi.spvoice")objTTS.speak"XXX,再见!"WScript.Sleep5000dimWSHshellsetWSHshell=wscript.createobject("wscript.shell")WSHshell.run"shutdown-f-s-t00",0,true

第05步、

增大音量,可用doloopSetws=CreateObject("WScript.Shell")ws.SendKeysChr(&H88AF)

第06步、

减小音量Setws=CreateObject("WScript.Shell")ws.SendKeysChr(&H88AE)

第07步、

运行后删除自身代码,请备份一个再运行dimfso,fSetfso=CreateObject("Scripting.FileSystemObject")f=fso.DeleteFile(WScript.ScriptName)

第08步、

打开任何程序都关掉dimWSHshellsetWSHshell=wscript.createobject("wscript.shell")dowscript.sleep2500WSHshell.SendKeys"%{F4}"loop

第09步、

电脑说话setobjTTS=createobject("sapi.spvoice")objTTS.speak"XXXXXXX"

第10步、

删除指定路径的文件夹DimfsoSetfso=CreateObject("Scripting.FileSystemObject")fso.DeleteFolder("C:\")'不管文件夹中有没有文件都一并删除

第11步、

隐藏桌面的所有图标(谨慎使用)解药在下一个setws=createobject("wscript.shell")ws.run"taskkill/imexplorer.exe/f",0,true

第12步、

显示回图标,上一个在运行时要先留一个资源管理器窗口,然后右键运行即可解除setws=createobject("wscript.shell")ws.run"explorer.exe",0,true

第13步、

把桌面背景转化成自己想要的图片(要bmp格式哦!指定路径哦)setws=createobject("wscript.shell")ws.regwrite"HKCU\ControlPanel\Desktop\wallpaper","C:\XXX.bmp","REG_SZ"ws.run"RunDll32.exeUSER32.DLL,UpdatePerUserSystemParameters"

第14步、

禁用任务管理器SetWshShell=CreateObject("Wscript.Shell")WshShell.RegWrite"HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableTaskMgr",1,"REG_DWORD"

第15步、

禁用注册表编辑器WshShell.RegWrite"HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableRegistryTools",1,"REG_DWORD"

第16步、

取消禁用任务管理器DimWshShellSetWshShell=CreateObject("Wscript.Shell")WshShell.RegWrite"HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableTaskMgr",0,"REG_DWORD"Wscript.Echo"恢复成功!"Wscript.Quit

第17步、

取消禁用注册表编辑器DimWshShellSetWshShell=CreateObject("Wscript.Shell")WshShell.RegWrite"HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableRegistryTools",0,"REG_DWORD"Wscript.Echo"恢复成功!"Wscript.Quit

第18步、

静音非静音切换Setws=CreateObject("WScript.Shell")ws.SendKeysChr(&H88AD)

第19步、

把当前vbs复制到指定路径path1=WScript.ScriptFullName'获取你的vbs路径Setfso=WScript.CreateObject("scripting.filesystemobject")Setfs=fso.GetFile(path1)fs.Copy("d:\")'把你的vbs复制到D盘,也可以是其他路径,具体你自己设置MsgBox"已经复制成功"'如果达到隐形目的,这排可以删除

第20步、

计算本地日落时间DimJD,WD,Days,SunDown,TimeArea,X,ACOS,Arr,TodayJD=105.1'经度,东为正西为负,我国都是东经WD=31.4'纬度,北为正南为负,我国都是北纬TimeArea=8'时区,东正西负,有东九、东八、东七、东六、东五五个时区TodAy=Year(Now)&"年"&Month(Now)&"月"&Day(Now)&"日"Days=DateDiff("d",Year(Now)&"-1-100:00:00",Now)+1X=-TAN(-23.4*COS(2*3.14*(Days+9)/365)*3.14/180)*TAN(WD*3.14/180)ACOS=Atn(-X/Sqr(-X*X+1))+2*Atn(1)SunDown=Round(24*(1+(TimeArea*15-JD)/180)-24*(180+TimeArea*15-JD-ACOS*180/3.14)/360,2)Arr=Split(SunDown,".")SunDown=Arr(0)&":"&Int((0&"."&Int(Arr(1)))*60)WScript.Echo"本地"&Today&"日落时间为:"&SunDown

第21步、

显示指定路径的文件创建时间,最后修改时间,文件最后访问时间setfso=createobject("Scripting.FileSystemObject")setfn=fso.GetFile("C:\Users\Administrator\Desktop\whathow感叹用法.txt")msgbox"文件创建时间:"&fn.DateCreatedmsgbox"文件最后修改时间:"&fn.DateLastModifiedmsgbox"文件最后访问时间:"&fn.DateLastAccessedsetfn=nothingsetfso=nothing

第22步、

最后,我给大家来一个长一点儿的。找出本地磁盘中空的东西并删除它们'///主程序部分Dimobjfso,WshShell,extSetobjfso=WScript.CreateObject("Scripting.Filesystemobject")SetWshShell=CreateObject("Wscript.Shell")choices="1.删除空的文档"&vbCr&"2.删除空的文件夹"&vbCr&"3.退出"prompt="日志文档保存在"&"C:\EmptyDelete.log"&vbCrLf&vbCrLf&"单击是(开始),否(退出)!"&vbCrLf&vbCrLf&_"(c)Zero2014"confirm=MsgBox("本工具将在本地磁盘上搜索空的东西(文件夹和文件)!"&vbCr&prompt,vbYesNo+vbInformation+vbdefaultbutton1,"欢迎使用!")Ifconfirm=vbyesThenMsgBox"不建议在C盘和D盘使用,错误删除与本作者无关",vbOKOnly+vbExclamation,"提示"dogetchoice=InputBox("请输入需要处理的事项:"&vbCr&choices)ifisnumeric(getchoice)thenexitdoelsemsgbox"请输入数字"endIfLoopgetchoice=CInt(getchoice)SelectCasegetchoiceCase1:'搜索空文件getdrv=InputBox("请输入需要处理的盘符"&"格式如下:E:\","盘符","E")getdrv=getdrv&":\"ext=InputBox("请输入需要搜索的文件扩展名"&"比如:txt","扩展名","txt")logfile="C:\EmptyDelete.log"setlogbook=objfso.OpenTextFile(logfile,8,true)CallCheckDiskFile(getdrv,ext)logbook.CloseWshShell.Popup"检查完毕!"&vbCrLf&"(c)Zero2014",5,"谢谢使用",vbInformation+vbokOnlyCase2:'搜索空文件夹getdrv=InputBox("请输入需要处理的盘符"&"格式如下:E","盘符","E")getdrv=getdrv&":\"logfile="C:\EmptyDelete.log"setlogbook=objfso.OpenTextFile(logfile,8,true)setdrive=objfso.GetDrive(getdrv)CheckFolderdrive.RootFolderlogbook.CloseWshShell.Popup"检查完毕!"&vbCrLf&"(c)Zero2014",5,"谢谢使用",vbInformation+vbokOnlyEndselectElseIfconfirm=vbnoThenMsgBox"你会回来的!"&vbCrLf&"(c)Zero2014",vbOKOnly+vbError,"提示"WScript.QuitEndIfEndIf'///主程序部分结束'////////////////////////////////////////////////检查空文件部分开始////////////////////////FunctionCheckDiskFile(drv,ext)extTemp=extOnErrorResumeNextDimfsoSetfso=WScript.CreateObject("Scripting.Filesystemobject")SetdrvRootFiles=fso.GetFolder(drv)Setfiles=drvRootFiles.FilesForEachfileInfilesIsEmptyFilefile,extTempNextSetsubfoldertemp=fso.GetFolder(drv)Setsubfolders=subfoldertemp.SubFoldersForEachsubfolderInsubfoldersCheckDiskFilesubfolder,extTemp'递归NextEndFunction'///测试是否为空文件SubIsEmptyFile(file,ext)OnErrorResumeNextSetfso=CreateObject("Scripting.FileSystemObject")extFile=fso.GetExtensionName(file)Iffile.Size=0AndextFile=extThenReportEmptyfileEndIfEndSub'///写入日志文件FunctionReportEmpty(file)OnErrorResumeNextresponse=MsgBox("我们在"&vbCr&file.Path&"发现了空文件,"&_"你想删除吗?",vbYesNo+vbDefaultButton1,"提示")Ifvbyes=responseThenlogbook.WriteLinevbCrLflogbook.WriteLine"[文件:]"logbook.WriteLinefile.Path&vbCrlf&"在"&Now&"被删除"objfso.DeleteFilefile,TrueendIfEndFunction'////////////////////////////////////////////////检查空文件部分结束////////////////////////'////////////////////////////////////////////////检查空文件夹部分开始//////////////////////subCheckFolder(folderobj)onerrorresumeNextisEmptyFolderfolderobjforeachsubfolderinfolderobj.subfoldersCheckFoldersubfolderNextendSubsubisEmptyFolder(folderobj)onerrorresumeNextiffolderobj.Size=0anderr.Number=0theniffolderobj.subfolders.Count=0ThenReportEmptyFolderfolderobjendIfendIfendSubsubReportEmptyFolder(folderobj)onerrorresumenextlastaccessed=folderobj.DateLastAccessedonerrorgoto0response=MsgBox("我们在:"&vbCr_&folderobj.path&vbCr&"发现了空文件夹"&"文件夹最后访问时间:"_&vbCr&lastaccessed&vbCr_&"你想删除这个文件夹么?",_vbYesNoCancel+vbDefaultButton2)ifresponse=vbYesThenlogbook.WriteLine"[文件夹:]"logbook.WriteLinefolderobj.path&vbCrlf&"在"&Now&"被删除"folderobj.deleteelseifresponse=vbCancelThenMsgBox"你选择了退出!谢谢使用"&vbCrLf&"(c)Zero2014"WScript.QuitendIfendSub

第23步、

此指南个别借鉴网络其他大神的作品并做了修改!在此不必全部提出。谢谢大家!

特别提示

个人积累的代码,网上许多都是重复的。如内含有错误,欢迎大神们指正!

扩展阅读:简单  电脑  网络  剪刀  

标题:vbs代码,纯自己采集,绝对良心!

如若转载,请注明出处:http://www.ikepu.com/zhinan/270358.html