怎样自己编写vbs自动关机小程序

我们有时希望自己的电脑可以在指定的时间内自动关机，这时就可以通过VBS小程序来实现了，下面我给大家分享一下如何实现这种需求。

工具/材料

记事本

01

首先我们在桌面上新建一个txt文本文件，如下图所示，对于不复杂的VBS小程序来说，用文本文件完全可以实现功能

02

然后我们打开文本文件，在其中编写自动关机的程序，如下图所示，主要是让用户输入一个关机时间，然后到时间直接关机

03

接下来我们回到桌面，将txt文本文件修改为vbs文件，如下图所示，vbs文件就可以直接双击运行了

04

最后我们双击运行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倍!!!

---