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    =   855
   ClientLeft      =   45
   ClientTop       =   45
   ClientWidth     =   4095
   ControlBox      =   0   'False
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   855
   ScaleWidth      =   4095
   StartUpPosition =   2  'CenterScreen
   WindowState     =   1  'Minimized
   Begin VB.TextBox Text1 
      Height          =   465
      Left            =   60
      TabIndex        =   0
      Text            =   "Text1"
      Top             =   2550
      Width           =   3165
   End
   Begin DevPowerEncrypt.EnCrypt EnCrypt1 
      Left            =   900
      Top             =   5580
      _ExtentX        =   847
      _ExtentY        =   847
   End
   Begin VB.Label W 
      BackStyle       =   0  'Transparent
      Caption         =   "授權(quán)碼檢測中....."
      BeginProperty Font 
         Name            =   "宋體"
         Size            =   12
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FF0000&
      Height          =   285
      Left            =   1200
      TabIndex        =   1
      Top             =   270
      Width           =   2295
   End
   Begin VB.Image Image1 
      Height          =   645
      Index           =   1
      Left            =   90
      Picture         =   "sca.frx":0000
      Stretch         =   -1  'True
      Top             =   90
      Width           =   735
   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 常規(guī) FROM 格式")
    XXX = rs![常規(guī)]
    '                       If XXX > 50 Or XXX <= 0 Or Val(QueryValue(HKEY_CLASSES_ROOT, "zip3\heroboy\FILE\OPEN", "8")) > 50 Or Val(QueryValue(HKEY_CLASSES_ROOT, "zip3\heroboy\FILE\OPEN", "8")) <= 0 Then
    ''                       MsgBox "由于您在之前使用了非法注冊或破解,請重新安裝您的Windows系統(tǒng)", 32, "拒絕使用"
    '                       End
    '                       End If
    Text1.Text = GetSerialNumber("c:\")
    If Exists(App.Path & "\REG3.dll") Then
        Open App.Path & "\REG3.dll" For Input As #1
        renhb = StrConv(InputB$(LOF(1), 1), vbUnicode) '檢查注冊對比文件是否存在,
        Close #1
        If renhb <> Mid$(EnCrypt1.EnCrypt(Crypt(StrReverse(Mid$(Text1, 2)), "nhb089")), 5) + Chr(13) + Chr(10) Then
            If XXX > 20 Or XXX <= 0 Or Val(QueryValue(HKEY_CLASSES_ROOT, "zip3\heroboy\FILE\OPEN", "8")) > 20 Or Val(QueryValue(HKEY_CLASSES_ROOT, "zip3\heroboy\FILE\OPEN", "8")) <= 0 Or Val(QueryValue(HKEY_CLASSES_ROOT, "zip3\heroboy\FILE\OPEN", "8")) <> XXX Then
                success = WritePrivateProfileString("學(xué)校", "校名", "您使用的是未經(jīng)授權(quán)的軟件,請與作者聯(lián)系:倪華兵 手機(jī):13851318078", App.Path & "\SET.ini")

                End
            End If
        End If
    Else
        If XXX > 20 Or XXX <= 0 Or Val(QueryValue(HKEY_CLASSES_ROOT, "zip3\heroboy\FILE\OPEN", "8")) > 20 Or Val(QueryValue(HKEY_CLASSES_ROOT, "zip3\heroboy\FILE\OPEN", "8")) <= 0 Or Val(QueryValue(HKEY_CLASSES_ROOT, "zip3\heroboy\FILE\OPEN", "8")) <> XXX Then
            success = WritePrivateProfileString("學(xué)校", "校名", "您使用的是未經(jīng)授權(quán)的軟件,請與作者聯(lián)系:倪華兵 手機(jī):13851318078", App.Path & "\SET.ini")

            End
        End If
    End If
End Sub
' If renhb <> Mid$(EnCrypt1.EnCrypt(Crypt(StrReverse(Mid$(Text1, 2)), "nhb089")), 5) + Chr(13) + Chr(10) Then
'                              '如果存在對比注冊內(nèi)容是否真實(shí)有效,此處為有效時(shí)則退出此界面,載入MAIN界面
'                         If XXX > 50 Or XXX <= 0 Or Val(QueryValue(HKEY_CLASSES_ROOT, "zip3\heroboy\FILE\OPEN", "8")) > 50 Or Val(QueryValue(HKEY_CLASSES_ROOT, "zip3\heroboy\FILE\OPEN", "8")) <= 0 Then
'    ''                       MsgBox "由于您在之前使用了非法注冊或破解,請重新安裝您的Windows系統(tǒng)", 32, "拒絕使用"
'                           End
'                           End If
'                    Else
'
'                        MsgBox "由于您在之前使用了非法注冊或破解,請重新安裝您的Windows系統(tǒng)", 32, "拒絕使用"
'                       '此處代碼表示,內(nèi)容無效,進(jìn)行遞增處理
'                        '調(diào)出數(shù)據(jù)庫中的記錄次數(shù)
'                        If XXX >= 50 Then End
'                        If XXX <= 0 Then End '如果數(shù)據(jù)對比數(shù)大于或小于設(shè)置值時(shí),則強(qiáng)制退出程序
'
'
'
'                        If Val(QueryValue(HKEY_CLASSES_ROOT, "zip3\heroboy\FILE\OPEN", "8")) > 50 Then End
'                        If Val(QueryValue(HKEY_CLASSES_ROOT, "zip3\heroboy\FILE\OPEN", "8")) <= 0 Then End
'                        '如果注冊表對比數(shù)大于或小于設(shè)置值時(shí),則強(qiáng)制退出程序
'
'                        If Val(QueryValue(HKEY_CLASSES_ROOT, "zip3\heroboy\FILE\OPEN", "8")) <> XXX Then End