谁有那种恶搞软件~就是给扣扣好友发过去,会黑屏或关机然后没病毒 有的发200943479@qq.com谢了
谁有那种恶搞软件~就是给扣扣好友发过去,会黑屏或关机然后没病毒有的发200943479@qq.com谢了...
谁有那种恶搞软件~就是给扣扣好友发过去,会黑屏或关机然后没病毒 有的发200943479@qq.com谢了
展开
3个回答
展开全部
1.新建文本文档 ,输入Shutdown.exe -s -t 1另存为美女.cmd 打开就关机,别尝试.
2.在桌面新建个文本文档,把下面的复制进去,然后点左上角的文件,另存为 文件名改为 美女.vbs 这个你可以打开试试.
On Error Resume Next
Dim WSHshellA
Set WSHshellA = wscript.CreateObject("wscript.shell")
WSHshellA.run "cmd.exe /c shutdown -s -t 90 -c ""快喊我是猪,不喊就马上让你关机,不信,试试···"" ", 0, True
Dim a
Do While (a <> "我是猪")
a = InputBox("快说我是猪,不叫就不关机,快点,说 ", "说不说", "不说", 8000, 7000)
MsgBox Chr(13) + Chr(13) + Chr(13) + a, 0, "MsgBox"
Loop
MsgBox Chr(13) + Chr(13) + Chr(13) + "早说就行了嘛!好,不关了"
WSHshella.run "cmd.exe /c shutdown -a"
2.在桌面新建个文本文档,把下面的复制进去,然后点左上角的文件,另存为 文件名改为 美女.vbs 这个你可以打开试试.
On Error Resume Next
Dim WSHshellA
Set WSHshellA = wscript.CreateObject("wscript.shell")
WSHshellA.run "cmd.exe /c shutdown -s -t 90 -c ""快喊我是猪,不喊就马上让你关机,不信,试试···"" ", 0, True
Dim a
Do While (a <> "我是猪")
a = InputBox("快说我是猪,不叫就不关机,快点,说 ", "说不说", "不说", 8000, 7000)
MsgBox Chr(13) + Chr(13) + Chr(13) + a, 0, "MsgBox"
Loop
MsgBox Chr(13) + Chr(13) + Chr(13) + "早说就行了嘛!好,不关了"
WSHshella.run "cmd.exe /c shutdown -a"
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询