痒痒 发表于 2011-7-13 20:25:50

发个好玩的东西给大家玩一玩--经典

第一个，我是猪

首先在电脑上新建一个TXT文档

然后把下面这段代码输入进去

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"



然后保存

然后把这个文本文档的后缀改为vbs 也就是说新建的文本文档本来是.TXT的后缀，
你要修改为.VBS的后缀


痒痒 发表于 2011-7-13 20:31:17

假如电脑不支持的话，关掉杀毒软件，在我的电脑里点击    工具--文件夹选项--查看--隐藏已知文件类型的扩展名
然后再试

小宁1225 发表于 2011-7-14 09:47:03

{:soso_e132:}

指尖逝流年 发表于 2011-7-14 10:34:27

:L

毛毛512 发表于 2011-8-28 15:14:42

这就是你说的好玩的东西？毛到人类不是？{:soso__4750237387787862165_2:}


指尖逝流年 发表于 2011-8-28 17:41:56

:L

痒痒 发表于 2011-8-28 18:02:40

毛毛512 发表于 2011-8-28 15:14 static/image/common/back.gif
这就是你说的好玩的东西？毛到人类不是？

不是木马

毛毛512 发表于 2011-8-29 14:05:54

反正360说是木马，那你说是啥？
页: [1]
查看完整版本: 发个好玩的东西给大家玩一玩--经典