VBS小程序-d窗整人（代码+解析）

VBS可以用来编写一些整人的小程序，那么如何编写呢？下面我就给大家分享一下。

01

我们首先在桌面上创建一个VBS的文件，如下图所示，注意VBS文件双击的话是直接运行的

02

然后我们用Sublime打开vbs程序文件，在里面核猛借助loop循环来不断的输出msgbox，如下图所示

03

接下来我们双击vbs程序文件，运行上面拍禅编写的整人程序，你会看到如下图所示的d窗效果，我们点击确定以后会不断的d窗改贺桥

04

最后如果你想关闭这个整人的程序只能通过在任务管理器里面右键结束任务进行关闭了，如下图所示

请看我的终极代码:

On Error Resume Next

Dim num,var,writer,won,h

'Dim

h=Chr(13)

writer="▉◎◎控盘惨制作◎◎▉ 蔽码- "

'Variables.

Do

Randomize()

num=Int(Rnd()*100)

var=MsgBox("我等一下会给出一个数字哦~你猜猜它是不是大于50呢?"+h+h+"▲注意:如高并悉要退出程序请点击""取消""或右上角的""X""按钮",3+64,writer+"请猜数大于50还是小于50")

Select Case var

Case 6

'\\\\\\\\

if num>50 Then

won=0

else

if num=50 Then

won=1

else

won=2

End if

End if

'\\\\\\\\

Case 7

'\\\\\\\\

if num<50 Then

won=0

else

if num=50 Then

won=1

else

won=2

End if

End if

'\\\\\\\\

Case Else

Wscript.Quit

End Select

Select Case won

Case 0

MsgBox "恭喜你，你赢了!"+h+h+"⊙数字=" & num,0+64,writer+"Information"

Case 1

MsgBox "呵呵,平局,再来~"+h+h+"⊙数字=" & num,0+64,writer+"Information"

Case 2

MsgBox "你选错了哦，别气馁"+h+h+"⊙数字=" & num,0+64,writer+"Information"

End Select

Loop

我的代码考虑到了随机数可能等戚乎于50,并且制作了相关处理.并且随机数范围是100,这样的随机数几率才各占50%. 比那个什么lurong777的先进10000倍!!!

---