求恐怖的整人小程序

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

先从sun公司官方网站下载需要的程序工具；

在计算机上配置java运行环境，和其他编程，如c,c++不同（只需安装一个软件，如vc6.0），其需要改变系统的相关设置，可以参考相关资料；

最后即可以编写程序代码（和其他语言一样），编译，运行。

注：在我空间博客有一些以前编写的小java程序，都是运行成功的，没事时，可以随便看看，

---