frmexit.frm

这个软件可以通过短信猫收发短信。可以用做短信平台。功能十分强大！

VERSION 5.00
Begin VB.Form FrmExit 
   BackColor       =   &H0000FF00&
   BorderStyle     =   0  'None
   Caption         =   "Form1"
   ClientHeight    =   2970
   ClientLeft      =   0
   ClientTop       =   0
   ClientWidth     =   6480
   LinkTopic       =   "Form1"
   ScaleHeight     =   2970
   ScaleWidth      =   6480
   ShowInTaskbar   =   0   'False
   StartUpPosition =   2  '屏幕中心
   Begin VB.PictureBox Picture1 
      BackColor       =   &H0080FFFF&
      BorderStyle     =   0  'None
      Height          =   1215
      Left            =   0
      ScaleHeight     =   1215
      ScaleWidth      =   6495
      TabIndex        =   4
      Top             =   0
      Width           =   6495
      Begin VB.PictureBox Picture3 
         Appearance      =   0  'Flat
         AutoSize        =   -1  'True
         BackColor       =   &H0080FFFF&
         BorderStyle     =   0  'None
         FillColor       =   &H00FFFFFF&
         ForeColor       =   &H00FFFFFF&
         Height          =   300
         Left            =   4560
         Picture         =   "FrmExit.frx":0000
         ScaleHeight     =   300
         ScaleWidth      =   1515
         TabIndex        =   5
         Top             =   840
         Width           =   1515
      End
      Begin VB.Label Label3 
         BackColor       =   &H00FFFFC0&
         Caption         =   "太阳能路灯监控系统"
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   24
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   735
         Left            =   840
         TabIndex        =   9
         Top             =   120
         Width           =   4455
      End
   End
   Begin VB.TextBox TxtPwd 
      BeginProperty Font 
         Name            =   "黑体"
         Size            =   12
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FF0000&
      Height          =   360
      IMEMode         =   3  'DISABLE
      Left            =   3660
      MaxLength       =   10
      PasswordChar    =   "*"
      TabIndex        =   3
      Text            =   "1111111123"
      Top             =   1710
      Width           =   1470
   End
   Begin VB.TextBox TxtUsr 
      BeginProperty Font 
         Name            =   "黑体"
         Size            =   12
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FF0000&
      Height          =   360
      Left            =   1455
      Locked          =   -1  'True
      MaxLength       =   7
      TabIndex        =   2
      Text            =   "0000000"
      Top             =   1680
      Width           =   1140
   End
   Begin VB.CommandButton CmdOK 
      BackColor       =   &H0000FF00&
      Caption         =   "确 定"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   12
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   405
      Left            =   1590
      Style           =   1  'Graphical
      TabIndex        =   1
      Top             =   2310
      Width           =   885
   End
   Begin VB.CommandButton CmdCancel 
      BackColor       =   &H000000FF&
      Caption         =   "取 消"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   12
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   405
      Left            =   3900
      Style           =   1  'Graphical
      TabIndex        =   0
      Top             =   2310
      Width           =   885
   End
   Begin VB.Label Label1 
      AutoSize        =   -1  'True
      BackStyle       =   0  'Transparent
      Caption         =   "口令："
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   12
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   240
      Index           =   1
      Left            =   2820
      TabIndex        =   8
      Top             =   1710
      Width           =   720
   End
   Begin VB.Label Label1 
      AutoSize        =   -1  'True
      BackStyle       =   0  'Transparent
      Caption         =   "工号："
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   12
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   240
      Index           =   0
      Left            =   600
      TabIndex        =   7
      Top             =   1710
      Width           =   720
   End
   Begin VB.Label Label2 
      AutoSize        =   -1  'True
      BackStyle       =   0  'Transparent
      Caption         =   "请确定退出系统?"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   12
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00C00000&
      Height          =   240
      Left            =   1890
      TabIndex        =   6
      Top             =   1320
      Width           =   2490
   End
End
Attribute VB_Name = "FrmExit"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False

Private Sub CmdCancel_Click()
On Error Resume Next
    gExitFlag = False
    Unload Me
End Sub

Private Sub CmdOK_Click()
On Error Resume Next
    If TxtPwd = gUserpass Then
        gExitFlag = True
'        FrmMain.Timer3.Enabled = False
'        FrmMain.Timer8.Enabled = False
'        FrmMain.Timer6.Enabled = False
        Unload Me
        Unload FrmMain
        End
            
        Unload Me
    Else
        MsgBox "口令不正确"
    End If
End Sub

Private Sub Form_Activate()
On Error Resume Next
    TxtPwd.SetFocus
End Sub

Private Sub Form_Load()
SetWindowRgn FrmExit.hwnd, CreateRoundRectRgn(0, 0, FrmExit.Width / Screen.TwipsPerPixelX, FrmExit.Height / Screen.TwipsPerPixelY, 60, 60), True
On Error Resume Next
'    Left = (Screen.Width - Me.Width) / 2
'    Top = (Screen.Height - Me.Height) / 2
    passwordcounter = 0
    TxtUsr = gUserCode
    TxtPwd = ""
    gExitFlag = False
End Sub

Private Sub TxtPwd_KeyDown(KeyCode As Integer, Shift As Integer)
On Error Resume Next
    If KeyCode = vbKeyReturn Then
        CmdOK.SetFocus
    End If
End Sub