vbs代码，纯自己采集，绝对良心！ _把以下将要展示的代码粘贴在

多段vbs代码，大家可借鉴，提意见或建议！操作方式 01 把以下将要展示的代码粘贴在新建的一个文本文档中
然后把后缀改当作.vbs

02 【vbs代码，纯自己采集，绝对良心！】简单的石头铰剪布小游戏

msgbox"接待来到石头铰剪布1.0！"
randomize
do
a=msgbox("是否起头游戏？",vbyesno,"石头铰剪布1.0")
if a=vbyes then
b=inputbox("请输入您要出的是什么， 1石头、2铰剪、3布","请输入！")
d=int(rnd*3+1)
strs=Array("石头","铰剪","布")
msgbox "您出的是"&strs(b-1)&"电脑出的是"&strs(d-1)
else
wscript.Quit
if
loop

03 主动报时问好

Digital=Time
hours=Hour(Digital)
minutes=Minute(Digital)
seconds=Second(Digital)
If (hours<6) Then
dn="凌辰了还没睡啊"
If
If (hours>=6) Then
dn="早上好"
If
If (hours>12) Then
dn="下战书好"
If
If (hours>18) Then
dn="晚上好"
If
If (hours>22) Then
dn="不早了夜深了该睡觉了"
If
If (minutes<=9) Then
minutes="0" & minutes
If
If (seconds<=9) Then
seconds="0" & seconds
If
ctime=hours & ":" & minutes & ":" & seconds & " " & dn
MsgBox ctime

04 按时关机并弹出对话框

WScript.Sleep 5000
set objTTS = createobject("sapi.spvoice")
objTTS.speak "XXX ，再会！"
WScript.Sleep 5000
dim WSHshell
set WSHshell = wscript.createobject("wscript.shell")
WSHshell.run "shutdown -f -s -t 00",0 ,true

05 增大音量，可用do loop

Set ws = CreateObject("WScript.Shell")
ws.SKeys Chr(&H88AF)

06 减小音量

Set ws = CreateObject("WScript.Shell")
ws.SKeys Chr(&H88AE)

07 运行后删除自身代码，请备份一个再运行

dim fso,f
Set fso = CreateObject("Scripting.FileSystemObject")
f = fso.DeleteFile(WScript.ScriptName)

08 打开任何程序都关失落

dim WSHshell
set WSHshell = wscript.createobject("wscript.shell")
do
wscript.sleep 2500
WSHshell.SKeys "%{F4}"
loop

09 电脑措辞

set objTTS = createobject("sapi.spvoice")
objTTS.speak "XXXXXXX"

10 删除指定路径的文件夹

Dim fso
Set fso=CreateObject("Scripting.FileSystemObject")
fso.DeleteFolder("C:\ ") '不管文件夹中有没有文件都一并删除

11 埋没桌面的所有图标（谨严利用）解药鄙人一个

set ws=createobject("wscript.shell")
ws.run "taskkill /im explorer.exe /f",0,true

12 显示回图标，上一个在运行时要先留一个资本办理器窗口，然后右键运行即可解除

set ws=createobject("wscript.shell")
ws.run "explorer.exe",0,true

13 把桌面布景转化当作本身想要的图片（要bmp格局哦！指定路径哦）

set ws=createobject("wscript.shell")
ws.regwrite "HKCU\Control Panel\Desktop\wallpaper","C:\XXX.bmp","REG_SZ"
ws.run "RunDll32.exe USER32.DLL,UpdatePerUserSystemParameters"

14 禁用使命办理器

Set WshShell = CreateObject("Wscript.Shell")
WshShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableTaskMgr",1,"REG_DWORD"

vbs代码，纯自己采集，绝对良心！

推荐阅读

联想IBM款的笔记本电脑适合什么样的双肩电脑包？

鼠标几年一换

吃芒果有什么害处芒果吃多了有什么不好

花石榴一年开几次花

“狭路相逢勇者胜”的典故与下列哪个人物有关？西门豹是哪个国家的？

斛珠夫人剧情介绍剧情斛珠夫人剧情简介

黄瓜|飘香四溢的几道家常菜，营养又美味，让客人连连称赞！

喝过很多岩茶却依然泡不好？

君子兰怎么配土养殖土配制方法

耀斑|微小耀斑“烤焦”太阳大气层

金毛犬该怎么喂养

英雄联盟龙的作用英雄联盟龙的作用是什么

空心菜农药残留多吗

吃什么能增强脑力记忆吃什么健脑提高记忆力

尔云的寓意

玉米面粥怎么做做玉米面粥的步骤

喝大麦茶可以通便吗

安化黑茶怎么品鉴？安化黑茶的误区有哪些？

孕期做了这3件事，宝宝出生后会不好带！

予读近时人诗有咏潇湘八景者辄用效颦以消馀暇其七远浦归帆原文、作者