给大家一个很猥琐的代码

yangff · 发表于 2008-6-27 01:10:42

加入我们，或者，欢迎回来。

您需要登录才可以下载或查看，没有账号？注册会员

×

msgbox("给你5次机会说你自己是猪")
pig = false
i = 1
do while i <= 5
if pig = false then
msgbox("你是猪!")
a = inputbox("你是猪(回答对与错)","猪","错")
if a = "对" then
msgbox("很好,要记得你是猪哦")
pig = true
end if
end if
i = i+ 1
loop
if pig = false then
Const Shutdown_Mod = 4
Set objNet = WScript.CreateObject( "WScript.Network" )
Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate," & _
"(Shutdown)}!\" & objNet.ComputerName & "\root\cimv2") '获得对象
Set colOSes = objWMIService.ExecQuery("SELECT * FROM Win32_OperatingSystem")
For Each objOS In colOSes '只可能有一个 objOS 在colOSes集合中
intReturn = objOS.Win32Shutdown(Shutdown_Mod)
If intReturn <> 0 Then
msgbox "操作失败"
End If
Next
end if

复制代码

执行以下，很好玩得

as295d · 发表于 2008-6-27 01:16:43

module RPG
@@_animations = [你是谁]
@@_reference_count = {你猜}
def initialize(viewport = nil)
super(有4个选项) <=4
when 1
@the 250 = "你是250"
when 2
@the pig = "你是猪"
when 3
@the jiong = "你是囧人类"
when 4
@the lz = "你是楼猪"
no no = 全都不选？
@ther is SB = 那就是SB
@_blink = false
end
end
end

复制代码

不觉得这个更好？

yangff · 发表于 2008-6-27 01:18:38

以下引用as295d于2008-6-26 17:16:43的发言：

module RPG
@@_animations = [你是谁]
@@_reference_count = {你猜}
def initialize(viewport = nil)
   super(有4个选项)
   @the 250 = "你是250"
   @the pig = "你是猪"
   @the jiong = "你是囧人类"
   @the lz = "你是楼猪"
   no no  = 全都不选？
   @ther is  SB = 那就是SB
   @_blink = false

不觉得这个更好？

[本贴由作者于 2008-6-26 17:17:05 最后编辑]

这可以执行吗？
我的保存成***.vbs可以执行

as295d · 发表于 2008-6-27 01:18:58

乱写的执行不了

yangff · 发表于 2008-6-27 01:19:59

以下引用as295d于2008-6-26 17:18:58的发言：

乱写的执行不了

曳曳~~我的可以

v2sam · 发表于 2008-6-27 01:26:32

囧耍人专用

yangff · 发表于 2008-6-27 01:26:58

以下引用v2sam于2008-6-26 17:26:32的发言：

囧耍人专用

电脑注销了吗?

as295d · 发表于 2008-6-27 01:32:04

注销。。。不敢试了

yangff · 发表于 2008-6-27 01:32:54

以下引用as295d于2008-6-26 17:32:04的发言：

注销。。。不敢试了

wowo~~

as295d · 发表于 2008-6-27 01:34:19

没人敢用了还那么高兴。。。

给大家一个很猥琐的代码

加入我们，或者，欢迎回来。

烫烫烫

开拓者

极短26参与

极短25参与

极短23参与

极短21参与

贵宾

第一届化妆舞会最佳服饰奖