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

痒痒

第一个，我是猪

首先在电脑上新建一个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的后缀

痒痒

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

小宁1225

{:soso_e132:}

指尖逝流年

毛毛512

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

指尖逝流年

痒痒

毛毛512 发表于 2011-8-28 15:14
这就是你说的好玩的东西？毛到人类不是？

不是木马

毛毛512

反正360说是木马，那你说是啥？