Question

求恐怖的整人小程序

初中的时候收到过这样一个小程序，点开以后电脑屏幕上一个女鬼不断的四处跳动，还有可怕的声音，现在到哪里去找这样的程序下载.有人知道么...

Answer 1

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

Answer 2

用c#能做这样的程序，不难，主要是图版可能会不一样。