Category

Development Platform
Home > SourceCode/Document > Network Security > Crack_Hack > View Code
frmRegistration.frm
Package: ASProtectV2.4.rar　[view]
Upload User: graphite
Upload Date: 2020-09-09
Package Size: 2587k
Code Size: 4k
Category:

Crack_Hack

Development Platform:

Others

frmRegistration.frm：Code Content
  1. VERSION 5.00
  2. Begin VB.Form frmRegistration 
  3.    BorderStyle     =   3  'Fixed Dialog
  4.    Caption         =   "Registration"
  5.    ClientHeight    =   3450
  6.    ClientLeft      =   45
  7.    ClientTop       =   330
  8.    ClientWidth     =   5205
  9.    LinkTopic       =   "Form1"
  10.    MaxButton       =   0   'False
  11.    MinButton       =   0   'False
  12.    ScaleHeight     =   3450
  13.    ScaleWidth      =   5205
  14.    ShowInTaskbar   =   0   'False
  15.    StartUpPosition =   2  'CenterScreen
  16.    Begin VB.TextBox tRegName 
  17.       Height          =   350
  18.       Left            =   120
  19.       TabIndex        =   8
  20.       Text            =   "Registered User"
  21.       Top             =   2520
  22.       Width           =   4930
  23.    End
  24.    Begin VB.CommandButton btnRegCancel 
  25.       Caption         =   "Cancel"
  26.       Height          =   375
  27.       Index           =   0
  28.       Left            =   1560
  29.       TabIndex        =   6
  30.       Top             =   3000
  31.       Width           =   1215
  32.    End
  33.    Begin VB.CommandButton btnRegOk 
  34.       Caption         =   "OK"
  35.       Height          =   375
  36.       Left            =   120
  37.       TabIndex        =   5
  38.       Top             =   3000
  39.       Width           =   1215
  40.    End
  41.    Begin VB.TextBox tRegKey 
  42.       Height          =   350
  43.       Left            =   120
  44.       ScrollBars      =   2  'Vertical
  45.       TabIndex        =   4
  46.       Top             =   1560
  47.       Width           =   4930
  48.    End
  49.    Begin VB.CommandButton btnSend 
  50.       Caption         =   "Send"
  51.       Height          =   375
  52.       Left            =   3840
  53.       TabIndex        =   2
  54.       Top             =   430
  55.       Width           =   1215
  56.    End
  57.    Begin VB.TextBox tHardwareID 
  58.       BackColor       =   &H80000004&
  59.       Enabled         =   0   'False
  60.       Height          =   315
  61.       Left            =   120
  62.       TabIndex        =   1
  63.       Top             =   480
  64.       Width           =   3615
  65.    End
  66.    Begin VB.Label Label3 
  67.       Caption         =   "Enter your registration name below, please:"
  68.       BeginProperty Font 
  69.          Name            =   "MS Sans Serif"
  70.          Size            =   8.25
  71.          Charset         =   204
  72.          Weight          =   700
  73.          Underline       =   0   'False
  74.          Italic          =   0   'False
  75.          Strikethrough   =   0   'False
  76.       EndProperty
  77.       Height          =   255
  78.       Left            =   120
  79.       TabIndex        =   7
  80.       Top             =   2160
  81.       Width           =   3975
  82.    End
  83.    Begin VB.Label Label2 
  84.       Caption         =   "Enter your registration key below, please:"
  85.       BeginProperty Font 
  86.          Name            =   "MS Sans Serif"
  87.          Size            =   8.25
  88.          Charset         =   204
  89.          Weight          =   700
  90.          Underline       =   -1  'True
  91.          Italic          =   0   'False
  92.          Strikethrough   =   0   'False
  93.       EndProperty
  94.       Height          =   255
  95.       Left            =   120
  96.       TabIndex        =   3
  97.       Top             =   1200
  98.       Width           =   3855
  99.    End
  100.    Begin VB.Label Label1 
  101.       Caption         =   "Please send your Hardware ID to the author"
  102.       BeginProperty Font 
  103.          Name            =   "MS Sans Serif"
  104.          Size            =   8.25
  105.          Charset         =   204
  106.          Weight          =   700
  107.          Underline       =   -1  'True
  108.          Italic          =   0   'False
  109.          Strikethrough   =   0   'False
  110.       EndProperty
  111.       Height          =   255
  112.       Left            =   120
  113.       TabIndex        =   0
  114.       Top             =   120
  115.       Width           =   3975
  116.    End
  117. End
  118. Attribute VB_Name = "frmRegistration"
  119. Attribute VB_GlobalNameSpace = False
  120. Attribute VB_Creatable = False
  121. Attribute VB_PredeclaredId = True
  122. Attribute VB_Exposed = False
  123. Private Sub btnRegCancel_Click(Index As Integer)
  124.     Hide
  125. End Sub
  127. Private Sub btnRegOk_Click()
  129.   If apiCheckKeyAndDecrypt(tRegKey.Text, tRegName.Text, True) = True Then
  131.     MsgBox "Thank you for registration!", vbInformation, "Registration"
  133.     Hide
  134.     frmTrial.Hide
  136.     frmMain.ProcessRegistration
  137.     frmMain.Show
  138.   Else
  139.     MsgBox "Key is not valid, please contact manufacture!", vbExclamation, "Registration"
  140.   End If
  142. End Sub
  144. Private Sub btnSend_Click()
  145.     Call ShellExecute(0, "open", "mailto:support@aspack.com?subject= Hardware ID" + tHardwareID.Text, "", "", 1)
  146. End Sub
  148. Private Sub Form_Load()
  149.     tHardwareID.Text = apiGetHardwareID
  150. End Sub