form1.frm

很好的教程原代码！

VERSION 5.00
Begin VB.Form Form1 
   BorderStyle     =   1  'Fixed Single
   Caption         =   "非法用户"
   ClientHeight    =   1755
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   6555
   ControlBox      =   0   'False
   BeginProperty Font 
      Name            =   "宋体"
      Size            =   9
      Charset         =   134
      Weight          =   700
      Underline       =   0   'False
      Italic          =   0   'False
      Strikethrough   =   0   'False
   EndProperty
   Icon            =   "Form1.frx":0000
   KeyPreview      =   -1  'True
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   1755
   ScaleWidth      =   6555
   StartUpPosition =   1  '所有者中心
   Begin VB.Timer Timer2 
      Enabled         =   0   'False
      Interval        =   50
      Left            =   1200
      Top             =   960
   End
   Begin VB.Timer Timer1 
      Interval        =   1000
      Left            =   600
      Top             =   960
   End
   Begin VB.CommandButton Command1 
      Caption         =   "终止"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   9
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Left            =   2040
      TabIndex        =   0
      TabStop         =   0   'False
      Top             =   960
      Width           =   975
   End
   Begin VB.Image Image1 
      Height          =   480
      Left            =   360
      Picture         =   "Form1.frx":030A
      Top             =   240
      Width           =   480
   End
   Begin VB.Label Label2 
      BackStyle       =   0  'Transparent
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   15.75
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   495
      Left            =   3360
      TabIndex        =   2
      Top             =   960
      Width           =   855
   End
   Begin VB.Label Label1 
      BackStyle       =   0  'Transparent
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   9
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   855
      Left            =   1200
      TabIndex        =   1
      Top             =   120
      Width           =   4935
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Declare Function SendMessage Lib "user32" _
    Alias "SendMessageA" _
    (ByVal hwnd As Long, _
    ByVal wMsg As Long, _
    ByVal wParam As Long, _
    lParam As Any) _
    As Long

Private Declare Function sndPlaySound Lib _
    "winmm.dll" Alias "sndPlaySoundA" _
    (ByVal lpszSoundName As String, _
    ByVal uFlags As Long) _
    As Long

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

Private Declare Function StretchBlt Lib "gdi32" _
    (ByVal hdc 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 nSrcWidth As Long, _
    ByVal nSrcHeight As Long, _
    ByVal dwRop As Long) _
    As Long

Private Type Size
        cx As Long
        cy As Long
End Type

Private Declare Function GetViewportExtEx Lib "gdi32" _
    (ByVal hdc As Long, _
    lpSize As Size) _
    As Long

Private Declare Function SetViewportExtEx Lib "gdi32" _
    (ByVal hdc As Long, _
    ByVal nX As Long, _
    ByVal nY As Long, _
    lpSize As Size) _
    As Long

Private Declare Function SystemParametersInfo Lib "user32" _
    Alias "SystemParametersInfoA" _
    (ByVal uAction As Long, _
    ByVal uParam As Long, _
    ByRef lpvParam As Any, _
    ByVal fuWinIni As Long) _
    As Long

Private Declare Function SetWindowPos Lib "user32" _
    (ByVal hwnd As Long, _
    ByVal hWndInsertAfter As Long, _
    ByVal x As Long, _
    ByVal y As Long, _
    ByVal cx As Long, _
    ByVal cy As Long, _
    ByVal wFlags As Long) _
    As Long

Private Const SPI_SCREENSAVERRUNNING = 97
Private Const SPIF_UPDATEINIFILE = &H1
Private Const HWND_BOTTOM = 1
Const WM_NCLBUTTONDBLCLK = &HA3
Const WM_NCLBUTTONDOWN = &HA1
Const HTCAPTION = 2
Const MF_STRING = &H0&
Const MF_BYCOMMAND = &H0&
Const SC_CLOSE = &HF060

Private o As Size
Private hMenu As Long
Private CloseStr As String
Private a As Integer


Private Sub Command1_Click()
k = GetDC(0)
r = StretchBlt(k, 0, 768, 1024, -768, k, 0, 0, 1024, 768, &HCC0020)
  MsgBox "哈哈哈，被骗了"
Form1.Hide
End
End Sub

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Altdown = (Shift And vbAltMask) > 0
If KeyCode = vbKeyF4 Then
If Shift = Altdown Then
sndPlaySound "", &H1
End If
End If
End Sub
Private Sub Form_Load()
Label1.Caption = "你是非法用户!!!" _
    & Chr$(13) _
    & "因此会导致严重错误" _
    & Chr$(13) _
    & "13秒后显示器的显象管会爆炸或出现严重错误!!!" _
    & Chr$(13) _
    & "单击【终止】会停止"
a = 13
Label2.Caption = a
b = App.Path
sndPlaySound "\aa.wav", &H1
    SystemParametersInfo SPI_SCREENSAVERRUNNING, True, &H0, SPIF_UPDATEINIFILE
    SetWindowPos Form1.hwnd, -1, 0, 0, 430, 120, &H40
      End Sub
Private Sub Form_Unload(Cancel As Integer)
    SystemParametersInfo SPI_SCREENSAVERRUNNING, False, &H0, SPIF_UPDATEINIFILE

End Sub

Private Sub Timer1_Timer()
a = a - 1
Label2.Caption = a
  If a = 0 Then
  Timer1.Enabled = False
  Command1_Click
    End
    End If
If a = 12 Then Timer2.Enabled = True
End Sub

Private Sub Timer2_Timer()
Command1.Left = Command1.Left + 350
Command1.Top = Command1.Top + 350
If Command1.Left > Form1.Left + Me.Width + 500 Then Command1.Left = 0
If Command1.Top > Form1.Top + Me.Height + 400 Then Command1.Top = 0
End Sub