form1.frm

读取磁盘序列号 读取磁盘序列号 读取磁盘序列号

VERSION 5.00
Object = "{48E59290-9880-11CF-9754-00AA00C00908}#1.0#0"; "MSINET.OCX"
Begin VB.Form Form1 
   BackColor       =   &H00FFFFFF&
   Caption         =   "程序网上激活窗口"
   ClientHeight    =   2595
   ClientLeft      =   60
   ClientTop       =   420
   ClientWidth     =   6855
   LinkTopic       =   "Form1"
   ScaleHeight     =   2595
   ScaleWidth      =   6855
   StartUpPosition =   3  '窗口缺省
   Begin VB.Timer Timer1 
      Enabled         =   0   'False
      Interval        =   200
      Left            =   5760
      Top             =   120
   End
   Begin VB.Frame Frame1 
      BackColor       =   &H00FFFFFF&
      Caption         =   "输入激活序列号："
      Height          =   855
      Left            =   120
      TabIndex        =   0
      Top             =   720
      Width           =   6615
      Begin VB.TextBox txt5 
         Appearance      =   0  'Flat
         BackColor       =   &H00C0E0FF&
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   10.5
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   270
         Left            =   5520
         MaxLength       =   5
         TabIndex        =   10
         Top             =   360
         Width           =   975
      End
      Begin VB.TextBox txt4 
         Appearance      =   0  'Flat
         BackColor       =   &H00C0E0FF&
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   10.5
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   270
         Left            =   4197
         MaxLength       =   5
         TabIndex        =   8
         Top             =   360
         Width           =   975
      End
      Begin VB.TextBox txt3 
         Appearance      =   0  'Flat
         BackColor       =   &H00C0E0FF&
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   10.5
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   270
         Left            =   2878
         MaxLength       =   5
         TabIndex        =   6
         Top             =   360
         Width           =   975
      End
      Begin VB.TextBox txt2 
         Appearance      =   0  'Flat
         BackColor       =   &H00C0E0FF&
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   10.5
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   270
         Left            =   1559
         MaxLength       =   5
         TabIndex        =   4
         Top             =   360
         Width           =   975
      End
      Begin VB.TextBox txt1 
         Appearance      =   0  'Flat
         BackColor       =   &H00C0E0FF&
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   10.5
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   270
         Left            =   240
         MaxLength       =   5
         TabIndex        =   1
         Top             =   360
         Width           =   975
      End
      Begin VB.Label Label5 
         Alignment       =   2  'Center
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "－"
         Height          =   180
         Left            =   5254
         TabIndex        =   9
         Top             =   405
         Width           =   180
      End
      Begin VB.Label Label4 
         Alignment       =   2  'Center
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "－"
         Height          =   180
         Left            =   3935
         TabIndex        =   7
         Top             =   405
         Width           =   180
      End
      Begin VB.Label Label3 
         Alignment       =   2  'Center
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "－"
         Height          =   180
         Left            =   2616
         TabIndex        =   5
         Top             =   405
         Width           =   180
      End
      Begin VB.Label Label2 
         Alignment       =   2  'Center
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "－"
         Height          =   180
         Left            =   1297
         TabIndex        =   3
         Top             =   405
         Width           =   180
      End
      Begin VB.Label Label1 
         Alignment       =   2  'Center
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "－"
         Height          =   180
         Left            =   720
         TabIndex        =   2
         Top             =   360
         Width           =   180
      End
   End
   Begin InetCtlsObjects.Inet PostSocket 
      Left            =   6120
      Top             =   1800
      _ExtentX        =   1005
      _ExtentY        =   1005
      _Version        =   393216
   End
   Begin VB.Label Label6 
      AutoSize        =   -1  'True
      BackStyle       =   0  'Transparent
      Caption         =   "此软件需要网上激活才能使用！"
      Height          =   180
      Left            =   2280
      TabIndex        =   11
      Top             =   240
      Width           =   2520
   End
   Begin VB.Image Image22 
      Enabled         =   0   'False
      Height          =   480
      Left            =   3720
      Picture         =   "Form1.frx":0000
      Top             =   1800
      Visible         =   0   'False
      Width           =   1410
   End
   Begin VB.Image Image11 
      Enabled         =   0   'False
      Height          =   480
      Left            =   1800
      Picture         =   "Form1.frx":3186
      Top             =   1800
      Visible         =   0   'False
      Width           =   1410
   End
   Begin VB.Image Image2 
      Height          =   480
      Left            =   3720
      Picture         =   "Form1.frx":6905
      Top             =   1800
      Width           =   1410
   End
   Begin VB.Image Image1 
      Height          =   480
      Left            =   1800
      Picture         =   "Form1.frx":9CE4
      Top             =   1800
      Width           =   1410
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit


Private WithEvents EncryptDES As clsDES
Attribute EncryptDES.VB_VarHelpID = -1

Private EncryptObject As Object

Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Private Declare Sub CopyMem Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long)