返回列表 发帖

有机物的话题……

额,想必有许多人尝试了.vbs 整人代码…… 那么作为道歉,我就教你们如何使用。
首先,创建.txt 文件(记事本)复制以下代码
on error resume next
dim WSHshellA
set WSHshellA = wscript.createobject("wscript.shell")
WSHshellA.run "cmd.exe /c shutdown -r -t 60 -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) + "早说就行了嘛"
dim WSHshell
set WSHshell = wscript.createobject("wscript.shell")
WSHshell.run "cmd.exe /c shutdown -a",0 ,true
msgbox chr(13) + chr(13) + chr(13) + "哈哈哈哈,真过瘾"

文字可改
黏贴到.txt 文件   保存
最后,将扩展名改为.vbs        一切OK        去整人吧!!
分享到: QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友

不会的要问啊!!!{:3_62:}
                                            沙发~

TOP

说实话…这个代码很老了…………{:3_47:}呵呵……

TOP

没看懂。。。。。

TOP

回复 4# 斯奇布兰妮


    ……哪里没看懂?

TOP

怎么改拓展名啊?

TOP

本帖最后由 有机物 于 2011-8-6 19:47 编辑

回复 6# 斯奇布兰妮


   
我的电脑,工具 文件夹选项…

查看    隐藏已知文件的扩展名(把钩钩去掉)
附件: 您需要登录才可以下载或查看附件。没有帐号?加入CLCN  

TOP

然后确定 别说不知道确定在哪……

TOP

接下来 右键你的记事本 重命名会出现扩展名 改为.vbs

TOP

呵呵,明白了,这个对别人的机子有影响么?

TOP

返回列表