求恐怖的整人小程序

该程序会截取当前电脑画面，然后全屏显示，你双击第一次它会警告你说你已经中毒，然后出现黑屏，再次双击会告诉你“sb上当了吧”，然后退出程序！哈哈。。很整人的！你自己运行了就知道了，决不损坏你的电脑！

你需要做的很简单，只要两个窗体就可以，form1和form2的borderstyle都设置成0，autoredraw属性都设置成true，form2的windowstate设置成2，backcolor设置成黑色就可以了，然后复制下面代码：

form1代码：

Option Explicit

Dim screenhwnd, screendc

Private Declare Function BitBlt Lib "gdi32" (ByVal hDestDC As Long, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal dwRop As Long) As Long '以下API函数可以通过VB自带的API文本浏览器复制而来。

Private Declare Function GetDC Lib "user32" (ByVal hwnd As Long) As Long

Private Declare Function GetDesktopWindow Lib "user32" () As Long

Private Declare Function ReleaseDC Lib "user32" (ByVal hwnd As Long, ByVal hdc As Long) As Long

Private Sub Form_DblClick()

MsgBox "电脑中了病毒，请重装系统！", vbCritical, "严重警告"

Unload Me

Form2.Show

End Sub

Private Sub Form_Load()

Me.Width = Screen.Width

Me.Height = Screen.Height

Me.Left = 0

Me.Top = 0

Me.ZOrder 0

App.TaskVisible = False

screenhwnd = GetDesktopWindow()

screendc = GetDC(screenhwnd)

BitBlt Me.hdc, 0, 0, Me.Width, Me.Height, screendc, 0, 0, &HCC0020

ReleaseDC screenhwnd, screendc

End Sub

form2代码：

Private Sub Form_DblClick()

MsgBox "sb上当了吧，按‘确定’退出", , "玩笑"

End

End Sub

这个比较整人的，VB程序。

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

01

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

02

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

03

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

04

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

表白道具。老公小程序里的520游戏是表白道具的意思。520游戏通过节日活动增加情侣之间的情感沟通，在心中建立“游戏热爱者”的品牌形象，也进一步推动游戏“聚合精品，共享热爱”以及“游戏热爱者”战略计划的进行。

---