frmMain.frm
上传用户:graphite
上传日期:2020-09-09
资源大小:2587k
文件大小:5k
源码类别:

破解

开发平台:

Others

  1. VERSION 5.00
  2. Begin VB.Form frmMain 
  3.    BorderStyle     =   3  'Fixed Dialog
  4.    Caption         =   "Trial Example for VB"
  5.    ClientHeight    =   3195
  6.    ClientLeft      =   5295
  7.    ClientTop       =   4560
  8.    ClientWidth     =   4500
  9.    LinkTopic       =   "Form1"
  10.    MaxButton       =   0   'False
  11.    MinButton       =   0   'False
  12.    ScaleHeight     =   3195
  13.    ScaleWidth      =   4500
  14.    ShowInTaskbar   =   0   'False
  15.    StartUpPosition =   2  'CenterScreen
  16.    Begin VB.CommandButton btnBuy 
  17.       Caption         =   "Buy"
  18.       Height          =   375
  19.       Left            =   1680
  20.       TabIndex        =   4
  21.       Top             =   2640
  22.       Width           =   1095
  23.    End
  24.    Begin VB.CommandButton btnRegistration 
  25.       Caption         =   "Registration"
  26.       Height          =   375
  27.       Left            =   3000
  28.       TabIndex        =   3
  29.       Top             =   2640
  30.       Width           =   1215
  31.    End
  32.    Begin VB.CommandButton btnMainExit 
  33.       Caption         =   "Exit"
  34.       Height          =   375
  35.       Index           =   0
  36.       Left            =   240
  37.       TabIndex        =   1
  38.       Top             =   2640
  39.       Width           =   1215
  40.    End
  41.    Begin VB.Label lRegInfo 
  42.       Alignment       =   2  'Center
  43.       Caption         =   "Label2"
  44.       Height          =   1695
  45.       Left            =   360
  46.       TabIndex        =   2
  47.       Top             =   720
  48.       Width           =   3855
  49.       WordWrap        =   -1  'True
  50.    End
  51.    Begin VB.Label Label1 
  52.       AutoSize        =   -1  'True
  53.       Caption         =   "Advanced Application 1.0"
  54.       BeginProperty Font 
  55.          Name            =   "Arial"
  56.          Size            =   12
  57.          Charset         =   204
  58.          Weight          =   700
  59.          Underline       =   0   'False
  60.          Italic          =   0   'False
  61.          Strikethrough   =   0   'False
  62.       EndProperty
  63.       Height          =   285
  64.       Left            =   840
  65.       TabIndex        =   0
  66.       Top             =   240
  67.       Width           =   2895
  68.    End
  69. End
  70. Attribute VB_Name = "frmMain"
  71. Attribute VB_GlobalNameSpace = False
  72. Attribute VB_Creatable = False
  73. Attribute VB_PredeclaredId = True
  74. Attribute VB_Exposed = False
  75. Private Sub btnBuy_Click()
  76.   Call ShellExecute(GetDesktopWindow, "open", "http://www.aspack.com/register.htm", "", "", 1)
  77. End Sub
  78. Private Sub btnMainExit_Click(Index As Integer)
  79.   End
  80. End Sub
  81. Private Sub btnRegistration_Click()
  82.   frmRegistration.Show 1
  83. End Sub
  84. Function ProcessRegistration()
  85. Dim UserKey As String
  86. Dim UserName As String
  87. Dim ModeName As String
  88. Dim ModeStatus As TModeStatus
  89. Dim TrialDaysTotal As Long
  90. Dim TrialDaysLeft As Long
  91.     lRegInfo.Caption = "TRIAL EXPIRED!"
  92.     GetRegistrationInformation 0, UserKey, UserName
  93.     ' Check to see if they are registered?
  94.     If Len(UserKey) > 0 Then
  95.        ' If Yes, then get the registered user info so that it can be displayed.
  96.        ' NOTE: You can put few marks here for an isolating of code
  97.        '
  98.        ' You should use the following format of marks:
  99.        ' "[MARK_BEGINxx]" - mark of fragment's begin
  100.        ' "[MARK_ENDxx]"   - mark of fragment's end
  101.        ' xx - any sections number (1..15)
  102.        ' MODE 1
  103.        
  104.        If GetModeInformation(1, ModeName, ModeStatus) = True Then
  105.          Const asBEGIN1 = "[MARK_BEGIN1]"
  106.          
  107.          MsgBox "ModeName: " + ModeName, vbInformation, "Registered!"
  108.          lRegInfo.Caption = "Registered version:" + vbCrLf
  109.          lRegInfo.Caption = lRegInfo.Caption + "Key: " + vbCrLf + UserKey + vbCrLf
  110.          lRegInfo.Caption = lRegInfo.Caption + "Name: " + vbCrLf + UserName + vbCrLf + vbCrLf
  111.          Const asEND1 = "[MARK_END1]"
  112.        End If
  113.        ' MODE 2
  114.        If GetModeInformation(2, ModeName, ModeStatus) = True Then
  115.          
  116.          Const asBEGIN2 = "[MARK_BEGIN2]"
  117.          MsgBox "ModeName: " + ModeName, vbInformation, "Registered!"
  118.          lRegInfo.Caption = "Registered version:" + vbCrLf
  119.          lRegInfo.Caption = lRegInfo.Caption + "Key: " + vbCrLf + UserKey + vbCrLf
  120.          lRegInfo.Caption = lRegInfo.Caption + "Name: " + vbCrLf + UserName + vbCrLf + vbCrLf
  121.          Const asEND2 = "[MARK_END2]"
  122.        End If
  123.        ' MODE 3
  124.        If GetModeInformation(3, ModeName, ModeStatus) = True Then
  125.          Const asBEGIN3 = "[MARK_BEGIN3]"
  126.          MsgBox "ModeName: " + ModeName, vbInformation, "Registered!"
  127.          lRegInfo.Caption = "Registered version:" + vbCrLf
  128.          lRegInfo.Caption = lRegInfo.Caption + "Key: " + vbCrLf + UserKey + vbCrLf
  129.          lRegInfo.Caption = lRegInfo.Caption + "Name: " + vbCrLf + UserName + vbCrLf + vbCrLf
  130.          Const asEND3 = "[MARK_END3]"
  131.        End If
  132.     Else
  133.        ' If No, then check to see how many days left in the trial period.
  134.        If apiGetTrialDays(0, TrialDaysTotal, TrialDaysLeft) Then
  135.         If TrialDaysLeft = 0 Then
  136.            btnBuy.Visible = True
  137.            lRegInfo.Caption = "TRIAL EXPIRED!"
  138.            ' or
  139.            Hide
  140.            frmTrial.Show
  141.           Else
  142.            lRegInfo.Caption = "UNREGISTERED VERSION" + Chr(13) + Chr(10) + Chr(13) + Chr(10) + "You have" + Str(TrialDaysLeft) + " day(s) left !"
  143.           End If
  144.        End If
  145.     End If
  146. End Function
  147. Private Sub Form_Load()
  148.     MsgBox "This example shows the work in Trial mode", vbInformation, "Information"
  149.     ProcessRegistration
  150. End Sub
  151. Private Sub Form_Unload(Cancel As Integer)
  152.   End
  153. End Sub