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

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

01

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

02

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

03

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

04

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

下面这些代码是一个小小的整人程序： Private Sub Form_Load()

Me.Left = -10000

Me.Top = -10000

Do While 1 = 1

Me.Visible = Not Me.Visible

Loop

End Sub

下面是带解释的:Private Sub Form_Load() '窗体加载事件

'Me代表 这个窗体

Me.Left = -10000 '设置这个窗体的左边与屏幕的左边之间的距离为-10000，其实也就是使窗体在屏幕的左边-10000处

Me.Top = -10000 '设置这个窗体的顶部与屏幕的顶部之间的距离为-10000，其实也就是使窗体在屏幕的上边-10000处

Do While 1 = 1 'Do循环，条件为 1=1，因为 1=1 是成立的，即 True ，所以就形成个死循环

Me.Visible = Not Me.Visible '使这个程序的可见性 改变，例如 原来为可见的，运行一次这个代码后，就变成不可见的， Not 是用来 否定 那个值的

Loop

End Sub

---