sca.frm

1.如果在向导设置班级数为8时,此数值为班级总数

VERSION 5.00
Object = "{F27AA50A-8600-11D1-AD8F-DB21EA843472}#6.1#0"; "EnCrypt2.ocx"
Begin VB.Form SCA 
   BackColor       =   &H00FFFFFF&
   BorderStyle     =   3  'Fixed Dialog
   ClientHeight    =   735
   ClientLeft      =   45
   ClientTop       =   45
   ClientWidth     =   3420
   ControlBox      =   0   'False
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   735
   ScaleWidth      =   3420
   ShowInTaskbar   =   0   'False
   StartUpPosition =   2  'CenterScreen
   Begin DevPowerEncrypt.EnCrypt EnCrypt1 
      Left            =   990
      Top             =   5640
      _ExtentX        =   847
      _ExtentY        =   847
   End
   Begin VB.TextBox Text1 
      Height          =   465
      Left            =   150
      TabIndex        =   1
      Text            =   "Text1"
      Top             =   2610
      Width           =   3165
   End
   Begin VB.Image Image1 
      Height          =   645
      Index           =   1
      Left            =   90
      Picture         =   "SCA.frx":0000
      Stretch         =   -1  'True
      Top             =   60
      Width           =   735
   End
   Begin VB.Label W 
      BackStyle       =   0  'Transparent
      Caption         =   "授权码检测中....."
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   12
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FF0000&
      Height          =   285
      Left            =   1020
      TabIndex        =   0
      Top             =   210
      Width           =   2295
   End
End
Attribute VB_Name = "SCA"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim db As Database
Dim rs As Recordset
Dim STR As String
Dim renhb As String
Dim success As Long
Private Sub Form_Load()
    On Error Resume Next
    Set db = OpenDatabase(App.Path & "\SET.PAS")
    Set rs = db.OpenRecordset("SELECT 常规 FROM 格式")
    XXX = rs![常规]
    '                       If XXX > 50 Or XXX <= 0 Or Val(QueryValue(HKEY_CLASSES_ROOT, "zip\heroboy\FILE\OPEN", "8")) > 50 Or Val(QueryValue(HKEY_CLASSES_ROOT, "zip\heroboy\FILE\OPEN", "8")) <= 0 Then
    ''                       MsgBox "由于您在之前使用了非法注册或破解,请重新安装您的Windows系统", 32, "拒绝使用"
    '                       End
    '                       End If
    Text1.Text = GetSerialNumber("c:\")
    If Exists(App.Path & "\REG.dll") Then
        Open App.Path & "\REG.dll" For Input As #1
        renhb = StrConv(InputB$(LOF(1), 1), vbUnicode) '检查注册对比文件是否存在,
        Close #1
        If renhb <> Mid$(EnCrypt1.EnCrypt(Crypt(StrReverse(Mid$(Text1, 2)), "65831")), 5) + Chr(13) + Chr(10) Then
            If XXX > 20 Or XXX <= 0 Or Val(QueryValue(HKEY_CLASSES_ROOT, "zip\heroboy\FILE\OPEN", "8")) > 20 Or Val(QueryValue(HKEY_CLASSES_ROOT, "zip\heroboy\FILE\OPEN", "8")) <= 0 Or Val(QueryValue(HKEY_CLASSES_ROOT, "zip\heroboy\FILE\OPEN", "8")) <> XXX Then

                success = WritePrivateProfileString("学校", "校名", "您使用的是未经授权的软件,请与作者联系:倪华兵 手机:[phone]", App.Path & "\SET.ini")

                End
            End If
        End If
    Else
        If XXX > 20 Or XXX <= 0 Or Val(QueryValue(HKEY_CLASSES_ROOT, "zip\heroboy\FILE\OPEN", "8")) > 20 Or Val(QueryValue(HKEY_CLASSES_ROOT, "zip\heroboy\FILE\OPEN", "8")) <= 0 Or Val(QueryValue(HKEY_CLASSES_ROOT, "zip\heroboy\FILE\OPEN", "8")) <> XXX Then
            success = WritePrivateProfileString("学校", "校名", "您使用的是未经授权的软件,请与作者联系:倪华兵 手机:[phone]", App.Path & "\SET.ini")

            End
        End If
    End If
End Sub
' If renhb <> Mid$(EnCrypt1.EnCrypt(Crypt(StrReverse(Mid$(Text1, 2)), "65831")), 5) + Chr(13) + Chr(10) Then
'                              '如果存在对比注册内容是否真实有效,此处为有效时则退出此界面,载入MAIN界面
'                         If XXX > 50 Or XXX <= 0 Or Val(QueryValue(HKEY_CLASSES_ROOT, "zip\heroboy\FILE\OPEN", "8")) > 50 Or Val(QueryValue(HKEY_CLASSES_ROOT, "zip\heroboy\FILE\OPEN", "8")) <= 0 Then
'    ''                       MsgBox "由于您在之前使用了非法注册或破解,请重新安装您的Windows系统", 32, "拒绝使用"
'                           End
'                           End If
'                    Else
'
'                        MsgBox "由于您在之前使用了非法注册或破解,请重新安装您的Windows系统", 32, "拒绝使用"
'                       '此处代码表示,内容无效,进行递增处理
'                        '调出数据库中的记录次数
'                        If XXX >= 50 Then End
'                        If XXX <= 0 Then End '如果数据对比数大于或小于设置值时,则强制退出程序
'
'
'
'                        If Val(QueryValue(HKEY_CLASSES_ROOT, "zip\heroboy\FILE\OPEN", "8")) > 50 Then End
'                        If Val(QueryValue(HKEY_CLASSES_ROOT, "zip\heroboy\FILE\OPEN", "8")) <= 0 Then End
'                        '如果注册表对比数大于或小于设置值时,则强制退出程序
'
'                        If Val(QueryValue(HKEY_CLASSES_ROOT, "zip\heroboy\FILE\OPEN", "8")) <> XXX Then End