一本高清码二区三区不卡,亚洲日韩国产欧美一区二区三区 ,强贷色视频在线播放

把以下將要展示的代碼粘貼在新建的一個(gè)文本文檔中
然后把后綴改成.vbs
簡(jiǎn)單的石頭剪刀布小游戲

msgbox"歡迎來(lái)到石頭剪刀布1.0！"
randomize
do
a=msgbox("是否開始游戲？",vbyesno,"石頭剪刀布1.0")
if a=vbyes then
b=inputbox("請(qǐng)輸入你要出的是什么，1石頭、2剪刀、3布","請(qǐng)輸入！")
d=int(rnd*3+1)
strs=Array("石頭","剪刀","布")
msgbox "你出的是"&strs(b-1)&"電腦出的是"&strs(d-1)
else
wscript.Quit
end if
loop
自動(dòng)報(bào)時(shí)問(wèn)好

Digital=Time
hours=Hour(Digital)
minutes=Minute(Digital)
seconds=Second(Digital)
If (hours<6) Then
dn="凌辰了還沒(méi)睡啊"
If
If (hours>=6) Then
dn="早上好"
If
If (hours>12) Then
dn="下午好"
If
If (hours>18) Then
dn="晚上好"
If
If (hours>22) Then
dn="不早了夜深了該睡覺(jué)了"
If
If (minutes<=9) Then
minutes="0" & minutes
If
If (seconds<=9) Then
seconds="0" & seconds
If
ctime=hours & ":" & minutes & ":" & seconds & " " & dn
MsgBox ctime
定時(shí)關(guān)機(jī)并彈出對(duì)話框

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
增大音量，可用do loop

Set ws = CreateObject("WScript.Shell")
ws.SendKeys Chr(&H88AF)
減小音量

Set ws = CreateObject("WScript.Shell")
ws.SendKeys Chr(&H88AE)
運(yùn)行后刪除自身代碼，請(qǐng)備份一個(gè)再運(yùn)行

dim fso,f
Set fso = CreateObject("Scripting.FileSystemObject")
f = fso.DeleteFile(WScript.ScriptName)
打開任何程序都關(guān)掉

dim WSHshell
set WSHshell = wscript.createobject("wscript.shell")
do
wscript.sleep 2500
WSHshell.SendKeys "%{F4}"
loop
電腦說(shuō)話

set objTTS = createobject("sapi.spvoice")
objTTS.speak "XXXXXXX"
刪除指定路徑的文件夾

Dim fso
Set fso=CreateObject("Scripting.FileSystemObject")
fso.DeleteFolder("C:\") '不管文件夾中有沒(méi)有文件都一并刪除
隱藏桌面的所有圖標(biāo)（謹(jǐn)慎使用）解藥在下一個(gè)

set ws=createobject("wscript.shell")
ws.run "taskkill /im explorer.exe /f",0,true
顯示回圖標(biāo)，上一個(gè)在運(yùn)行時(shí)要先留一個(gè)資源管理器窗口，然后右鍵運(yùn)行即可解除

set ws=createobject("wscript.shell")
ws.run "explorer.exe",0,true
把桌面背景轉(zhuǎn)化成自己想要的圖片（要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"
禁用任務(wù)管理器

Set WshShell = CreateObject("Wscript.Shell")
WshShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableTaskMgr",1,"REG_DWORD"
禁用注冊(cè)表編輯器

WshShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableRegistryTools",1,"REG_DWORD"
取消禁用任務(wù)管理器

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

以上關(guān)于本文的內(nèi)容，僅作參考！溫馨提示：如遇健康、疾病相關(guān)的問(wèn)題，請(qǐng)您及時(shí)就醫(yī)或請(qǐng)專業(yè)人士給予相關(guān)指導(dǎo)!

「愛(ài)刨根生活網(wǎng)」www.malaban59.cn小編還為您精選了以下內(nèi)容，希望對(duì)您有所幫助：

vbs實(shí)用代碼 vbs代碼，純自己采集，絕對(duì)良心！

vbs實(shí)用代碼 vbs代碼，純自己采集，絕對(duì)良心！