求恐怖的整人小程序

该程序会截取当前电脑画面，然后全屏显示，你双击第一次它会警告你说你已经中缺薯闹毒，然后出现黑屏，再次双击会告诉你“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程序。

PC整蛊专家2009之一刻钟

此版本软件不会对计算机系统造成任何损害，

但对心脏身体不好的人士切勿使用。。。后果自负！

恐吓真实程度绝非一般,非普通恶搞产品所能比拟。

此软件启动几乎无声无息，唯一的提示是运行后会显示一次桌面表示运行成功。（类似于点击windows里的“显示桌面”图标的效果。如果没出现此效果，表示没有运行。可尝试再次点击运行。成功后切勿多次运行。。。）

提示：由于不是病毒，所以所有杀毒软件都不会报毒。但有些会主动截拦，说是恶意程序。。。

恐吓一共分5个部分：

启动后，一刻钟内计算机不会有任何异常。

1.一刻钟过后电脑的光驱会不断告庆d出，关闭袜孝握，再d出再关闭，重复1分钟。。。

2.计算机屏幕开始疯狂旋转25秒。

3.将出现贞子影像并d出倒计时关机选择窗体15秒。

4.不定时出现诡异的笑声和恐怖图像2小时慎庆。。。

5.会突然出现在桌面女鬼。半夜关机后计算机会自动开机启动并发出凄惨的女鬼叫声，如果不清除将永久驻留在计算机内。

清除办法

运行 一刻钟恢复工具.vbe

运行 驱散女鬼.exe 点击清除

即可。

下载地址:

http去://www掉.rayfile.我com/files/c91c9d35-98af-11de-8f7f-0014221b798a/

(将"去掉我"删除即可)

---