home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 5_2007-2008.ISO / data / Zips / TestRegist206899632007.psc / FTest.frm < prev   
Text File  |  2007-06-03  |  23KB  |  577 lines
  1. VERSION 5.00
  2. Begin VB.Form FTest 
  3.    BorderStyle     =   1  'Fixed Single
  4.    Caption         =   "Test Registration"
  5.    ClientHeight    =   6375
  6.    ClientLeft      =   45
  7.    ClientTop       =   330
  8.    ClientWidth     =   5640
  9.    LinkTopic       =   "Form1"
  10.    MaxButton       =   0   'False
  11.    MinButton       =   0   'False
  12.    ScaleHeight     =   6375
  13.    ScaleWidth      =   5640
  14.    StartUpPosition =   3  'Windows Default
  15.    Begin VB.CommandButton cmdClear 
  16.       Caption         =   "&Clear All"
  17.       Height          =   375
  18.       Left            =   4440
  19.       TabIndex        =   29
  20.       Top             =   5880
  21.       Width           =   1095
  22.    End
  23.    Begin VB.Frame Frame0 
  24.       Caption         =   "GENERATE DYNAMIC REGISTRATION KEY"
  25.       Height          =   3135
  26.       Left            =   120
  27.       TabIndex        =   14
  28.       Top             =   240
  29.       Width           =   5415
  30.       Begin VB.CommandButton cmdCreate 
  31.          Caption         =   "CREATE"
  32.          Height          =   375
  33.          Left            =   4320
  34.          TabIndex        =   24
  35.          Top             =   2610
  36.          Width           =   860
  37.       End
  38.       Begin VB.TextBox txtDateSpecific 
  39.          Appearance      =   0  'Flat
  40.          BeginProperty Font 
  41.             Name            =   "Tahoma"
  42.             Size            =   9
  43.             Charset         =   0
  44.             Weight          =   400
  45.             Underline       =   0   'False
  46.             Italic          =   0   'False
  47.             Strikethrough   =   0   'False
  48.          EndProperty
  49.          Height          =   315
  50.          Left            =   3840
  51.          TabIndex        =   17
  52.          Top             =   600
  53.          Width           =   1335
  54.       End
  55.       Begin VB.TextBox txtAppSpecific 
  56.          Appearance      =   0  'Flat
  57.          BeginProperty Font 
  58.             Name            =   "Tahoma"
  59.             Size            =   9
  60.             Charset         =   0
  61.             Weight          =   400
  62.             Underline       =   0   'False
  63.             Italic          =   0   'False
  64.             Strikethrough   =   0   'False
  65.          EndProperty
  66.          Height          =   315
  67.          Left            =   3840
  68.          TabIndex        =   15
  69.          Text            =   "PP2007CM"
  70.          Top             =   240
  71.          Width           =   1335
  72.       End
  73.       Begin VB.Label Label6 
  74.          Caption         =   "Clicking on Create will display the number that could be displayed when your registration form is loaded."
  75.          Height          =   495
  76.          Left            =   120
  77.          TabIndex        =   28
  78.          Top             =   1200
  79.          Width           =   5175
  80.       End
  81.       Begin VB.Label Label5 
  82.          Caption         =   $"FTest.frx":0000
  83.          Height          =   735
  84.          Left            =   120
  85.          TabIndex        =   27
  86.          Top             =   1800
  87.          Width           =   5175
  88.       End
  89.       Begin VB.Label Label4 
  90.          Alignment       =   2  'Center
  91.          BackStyle       =   0  'Transparent
  92.          Caption         =   "Hidden Variable Information"
  93.          Height          =   615
  94.          Left            =   240
  95.          TabIndex        =   26
  96.          Top             =   320
  97.          Width           =   855
  98.       End
  99.       Begin VB.Label Label3 
  100.          BackStyle       =   0  'Transparent
  101.          Caption         =   "{"
  102.          BeginProperty Font 
  103.             Name            =   "Arial Narrow"
  104.             Size            =   27.75
  105.             Charset         =   0
  106.             Weight          =   400
  107.             Underline       =   0   'False
  108.             Italic          =   0   'False
  109.             Strikethrough   =   0   'False
  110.          EndProperty
  111.          ForeColor       =   &H8000000C&
  112.          Height          =   735
  113.          Left            =   1200
  114.          TabIndex        =   25
  115.          Top             =   225
  116.          Width           =   255
  117.       End
  118.       Begin VB.Label lblOwner 
  119.          Alignment       =   2  'Center
  120.          Appearance      =   0  'Flat
  121.          BorderStyle     =   1  'Fixed Single
  122.          BeginProperty Font 
  123.             Name            =   "Tahoma"
  124.             Size            =   9
  125.             Charset         =   0
  126.             Weight          =   400
  127.             Underline       =   0   'False
  128.             Italic          =   0   'False
  129.             Strikethrough   =   0   'False
  130.          EndProperty
  131.          ForeColor       =   &H80000008&
  132.          Height          =   330
  133.          Index           =   0
  134.          Left            =   120
  135.          TabIndex        =   23
  136.          Top             =   2640
  137.          Width           =   765
  138.       End
  139.       Begin VB.Label lblOwner 
  140.          Alignment       =   2  'Center
  141.          Appearance      =   0  'Flat
  142.          BorderStyle     =   1  'Fixed Single
  143.          BeginProperty Font 
  144.             Name            =   "Tahoma"
  145.             Size            =   9
  146.             Charset         =   0
  147.             Weight          =   400
  148.             Underline       =   0   'False
  149.             Italic          =   0   'False
  150.             Strikethrough   =   0   'False
  151.          EndProperty
  152.          ForeColor       =   &H80000008&
  153.          Height          =   330
  154.          Index           =   1
  155.          Left            =   960
  156.          TabIndex        =   22
  157.          Top             =   2640
  158.          Width           =   765
  159.       End
  160.       Begin VB.Label lblOwner 
  161.          Alignment       =   2  'Center
  162.          Appearance      =   0  'Flat
  163.          BorderStyle     =   1  'Fixed Single
  164.          BeginProperty Font 
  165.             Name            =   "Tahoma"
  166.             Size            =   9
  167.             Charset         =   0
  168.             Weight          =   400
  169.             Underline       =   0   'False
  170.             Italic          =   0   'False
  171.             Strikethrough   =   0   'False
  172.          EndProperty
  173.          ForeColor       =   &H80000008&
  174.          Height          =   330
  175.          Index           =   2
  176.          Left            =   1800
  177.          TabIndex        =   21
  178.          Top             =   2640
  179.          Width           =   765
  180.       End
  181.       Begin VB.Label lblOwner 
  182.          Alignment       =   2  'Center
  183.          Appearance      =   0  'Flat
  184.          BorderStyle     =   1  'Fixed Single
  185.          BeginProperty Font 
  186.             Name            =   "Tahoma"
  187.             Size            =   9
  188.             Charset         =   0
  189.             Weight          =   400
  190.             Underline       =   0   'False
  191.             Italic          =   0   'False
  192.             Strikethrough   =   0   'False
  193.          EndProperty
  194.          ForeColor       =   &H80000008&
  195.          Height          =   330
  196.          Index           =   3
  197.          Left            =   2640
  198.          TabIndex        =   20
  199.          Top             =   2640
  200.          Width           =   765
  201.       End
  202.       Begin VB.Label lblOwner 
  203.          Alignment       =   2  'Center
  204.          Appearance      =   0  'Flat
  205.          BorderStyle     =   1  'Fixed Single
  206.          BeginProperty Font 
  207.             Name            =   "Tahoma"
  208.             Size            =   9
  209.             Charset         =   0
  210.             Weight          =   400
  211.             Underline       =   0   'False
  212.             Italic          =   0   'False
  213.             Strikethrough   =   0   'False
  214.          EndProperty
  215.          ForeColor       =   &H80000008&
  216.          Height          =   330
  217.          Index           =   4
  218.          Left            =   3480
  219.          TabIndex        =   19
  220.          Top             =   2640
  221.          Width           =   765
  222.       End
  223.       Begin VB.Label Label1 
  224.          Caption         =   "Dynamically Generated Date:"
  225.          Height          =   255
  226.          Left            =   1440
  227.          TabIndex        =   18
  228.          Top             =   675
  229.          Width           =   2295
  230.       End
  231.       Begin VB.Label Label2 
  232.          Caption         =   "Application Specific Characters"
  233.          Height          =   255
  234.          Left            =   1440
  235.          TabIndex        =   16
  236.          Top             =   300
  237.          Width           =   2295
  238.       End
  239.    End
  240.    Begin VB.Frame Frame1 
  241.       Caption         =   "GENERATE ACTIVATION KEY FROM REGISTRATION KEY"
  242.       Height          =   975
  243.       Left            =   120
  244.       TabIndex        =   7
  245.       Top             =   3600
  246.       Width           =   5415
  247.       Begin VB.CommandButton cmdGenerate 
  248.          Caption         =   "GEN"
  249.          Height          =   375
  250.          Left            =   4320
  251.          TabIndex        =   8
  252.          Top             =   330
  253.          Width           =   860
  254.       End
  255.       Begin VB.Label lblTest 
  256.          Alignment       =   2  'Center
  257.          Appearance      =   0  'Flat
  258.          BackColor       =   &H80000005&
  259.          BorderStyle     =   1  'Fixed Single
  260.          BeginProperty Font 
  261.             Name            =   "Tahoma"
  262.             Size            =   9
  263.             Charset         =   0
  264.             Weight          =   400
  265.             Underline       =   0   'False
  266.             Italic          =   0   'False
  267.             Strikethrough   =   0   'False
  268.          EndProperty
  269.          ForeColor       =   &H80000008&
  270.          Height          =   330
  271.          Index           =   4
  272.          Left            =   3480
  273.          TabIndex        =   13
  274.          Top             =   360
  275.          Width           =   765
  276.       End
  277.       Begin VB.Label lblTest 
  278.          Alignment       =   2  'Center
  279.          Appearance      =   0  'Flat
  280.          BackColor       =   &H80000005&
  281.          BorderStyle     =   1  'Fixed Single
  282.          BeginProperty Font 
  283.             Name            =   "Tahoma"
  284.             Size            =   9
  285.             Charset         =   0
  286.             Weight          =   400
  287.             Underline       =   0   'False
  288.             Italic          =   0   'False
  289.             Strikethrough   =   0   'False
  290.          EndProperty
  291.          ForeColor       =   &H80000008&
  292.          Height          =   330
  293.          Index           =   3
  294.          Left            =   2640
  295.          TabIndex        =   12
  296.          Top             =   360
  297.          Width           =   765
  298.       End
  299.       Begin VB.Label lblTest 
  300.          Alignment       =   2  'Center
  301.          Appearance      =   0  'Flat
  302.          BackColor       =   &H80000005&
  303.          BorderStyle     =   1  'Fixed Single
  304.          BeginProperty Font 
  305.             Name            =   "Tahoma"
  306.             Size            =   9
  307.             Charset         =   0
  308.             Weight          =   400
  309.             Underline       =   0   'False
  310.             Italic          =   0   'False
  311.             Strikethrough   =   0   'False
  312.          EndProperty
  313.          ForeColor       =   &H80000008&
  314.          Height          =   330
  315.          Index           =   2
  316.          Left            =   1800
  317.          TabIndex        =   11
  318.          Top             =   360
  319.          Width           =   765
  320.       End
  321.       Begin VB.Label lblTest 
  322.          Alignment       =   2  'Center
  323.          Appearance      =   0  'Flat
  324.          BackColor       =   &H80000005&
  325.          BorderStyle     =   1  'Fixed Single
  326.          BeginProperty Font 
  327.             Name            =   "Tahoma"
  328.             Size            =   9
  329.             Charset         =   0
  330.             Weight          =   400
  331.             Underline       =   0   'False
  332.             Italic          =   0   'False
  333.             Strikethrough   =   0   'False
  334.          EndProperty
  335.          ForeColor       =   &H80000008&
  336.          Height          =   330
  337.          Index           =   1
  338.          Left            =   960
  339.          TabIndex        =   10
  340.          Top             =   360
  341.          Width           =   765
  342.       End
  343.       Begin VB.Label lblTest 
  344.          Alignment       =   2  'Center
  345.          Appearance      =   0  'Flat
  346.          BackColor       =   &H80000005&
  347.          BorderStyle     =   1  'Fixed Single
  348.          BeginProperty Font 
  349.             Name            =   "Tahoma"
  350.             Size            =   9
  351.             Charset         =   0
  352.             Weight          =   400
  353.             Underline       =   0   'False
  354.             Italic          =   0   'False
  355.             Strikethrough   =   0   'False
  356.          EndProperty
  357.          ForeColor       =   &H80000008&
  358.          Height          =   330
  359.          Index           =   0
  360.          Left            =   120
  361.          TabIndex        =   9
  362.          Top             =   360
  363.          Width           =   765
  364.       End
  365.    End
  366.    Begin VB.Frame Frame2 
  367.       Caption         =   "PLEASE ENTER PRODUCT ACTIVATION KEY"
  368.       Height          =   975
  369.       Left            =   120
  370.       TabIndex        =   0
  371.       Top             =   4800
  372.       Width           =   5415
  373.       Begin VB.CommandButton cmdTest 
  374.          Caption         =   "TEST"
  375.          Height          =   375
  376.          Left            =   4320
  377.          TabIndex        =   6
  378.          Top             =   330
  379.          Width           =   860
  380.       End
  381.       Begin VB.TextBox txtAlpha 
  382.          Alignment       =   2  'Center
  383.          Appearance      =   0  'Flat
  384.          BeginProperty Font 
  385.             Name            =   "Tahoma"
  386.             Size            =   9
  387.             Charset         =   0
  388.             Weight          =   400
  389.             Underline       =   0   'False
  390.             Italic          =   0   'False
  391.             Strikethrough   =   0   'False
  392.          EndProperty
  393.          Height          =   315
  394.          Index           =   4
  395.          Left            =   3480
  396.          MaxLength       =   5
  397.          TabIndex        =   5
  398.          Top             =   360
  399.          Width           =   760
  400.       End
  401.       Begin VB.TextBox txtAlpha 
  402.          Alignment       =   2  'Center
  403.          Appearance      =   0  'Flat
  404.          BeginProperty Font 
  405.             Name            =   "Tahoma"
  406.             Size            =   9
  407.             Charset         =   0
  408.             Weight          =   400
  409.             Underline       =   0   'False
  410.             Italic          =   0   'False
  411.             Strikethrough   =   0   'False
  412.          EndProperty
  413.          Height          =   315
  414.          Index           =   3
  415.          Left            =   2640
  416.          MaxLength       =   5
  417.          TabIndex        =   4
  418.          Top             =   360
  419.          Width           =   760
  420.       End
  421.       Begin VB.TextBox txtAlpha 
  422.          Alignment       =   2  'Center
  423.          Appearance      =   0  'Flat
  424.          BeginProperty Font 
  425.             Name            =   "Tahoma"
  426.             Size            =   9
  427.             Charset         =   0
  428.             Weight          =   400
  429.             Underline       =   0   'False
  430.             Italic          =   0   'False
  431.             Strikethrough   =   0   'False
  432.          EndProperty
  433.          Height          =   315
  434.          Index           =   2
  435.          Left            =   1800
  436.          MaxLength       =   5
  437.          TabIndex        =   3
  438.          Top             =   360
  439.          Width           =   760
  440.       End
  441.       Begin VB.TextBox txtAlpha 
  442.          Alignment       =   2  'Center
  443.          Appearance      =   0  'Flat
  444.          BeginProperty Font 
  445.             Name            =   "Tahoma"
  446.             Size            =   9
  447.             Charset         =   0
  448.             Weight          =   400
  449.             Underline       =   0   'False
  450.             Italic          =   0   'False
  451.             Strikethrough   =   0   'False
  452.          EndProperty
  453.          Height          =   315
  454.          Index           =   1
  455.          Left            =   960
  456.          MaxLength       =   5
  457.          TabIndex        =   2
  458.          Top             =   360
  459.          Width           =   760
  460.       End
  461.       Begin VB.TextBox txtAlpha 
  462.          Alignment       =   2  'Center
  463.          Appearance      =   0  'Flat
  464.          BeginProperty Font 
  465.             Name            =   "Tahoma"
  466.             Size            =   9
  467.             Charset         =   0
  468.             Weight          =   400
  469.             Underline       =   0   'False
  470.             Italic          =   0   'False
  471.             Strikethrough   =   0   'False
  472.          EndProperty
  473.          Height          =   315
  474.          Index           =   0
  475.          Left            =   120
  476.          MaxLength       =   5
  477.          TabIndex        =   1
  478.          Top             =   360
  479.          Width           =   760
  480.       End
  481.    End
  482. End
  483. Attribute VB_Name = "FTest"
  484. Attribute VB_GlobalNameSpace = False
  485. Attribute VB_Creatable = False
  486. Attribute VB_PredeclaredId = True
  487. Attribute VB_Exposed = False
  488. '*******************************************************************************
  489. ' MODULE:       FTest
  490. ' AUTHOR:       Phil Fresle
  491. ' CREATED:      06-Sep-2000
  492. ' COPYRIGHT:    Copyright 2000 Frez Systems Limited.
  493. '
  494. ' PRESENT CONCEPT:  Chris Mauck
  495. '
  496. ' Original program created by Phil Fresle and submitted to freevbcode.com
  497. '
  498. ' Modified 6-03-2007 by Chris Mauck to be used as registration generator.
  499. '
  500. ' Nothing special has been added to the program by me. I just modified the
  501. ' display, took out the unecessary routines (for my purpose) and put it an
  502. ' easy to understand 'tutorial' style application.
  503. '
  504. ' This is the first portion of the program and the number that is generated
  505. ' by the program can be used to call in to support to have a KEY generated
  506. ' and returned to the user for access OR in my case I am developing a Perl
  507. ' script that can generate the same activation KEY through a website form.
  508. '
  509. '*******************************************************************************
  510. Option Exp   T
  511. ' This is the first portion of the program and the number that is gens txlute VB_h   Phil Fres***
  512. Option Exp   T
  513. ' This is t   Phil Fres***
  514. Optiond to th amA5
  515. ' e***********rvce           Rsy************************************************
  516. ' MODULE:       FTest
  517. ' AUTHOR:       Phil Fresle
  518. ' CREATED:      06-Sep-2000
  519. ' COPYRIGHT:    Copyright 2000 Frez Systems Limited.
  520. '
  521. ' PRESENT CONCEPT:  Chris Mauck
  522. '
  523. ' Original program created by PhilvIT:CONCEPT:  CGysated by Philllllary rou***e firy rou***
  524. ' OPYRIGHT:    Copyrigh:  Crigh:  CriuI   orti' OPYRIGs Phil Fresigh:  CriuI   orti' OPYRIGs Phil RIGuearaarens txs Phil RIGuearaarens *******a    Left       ...nerator.
  525. '
  526. ' Nothing special has been added to the program by me. I just modified the
  527. ' display, took out the unecessary routines (for my purpose) and put it an
  528. ' easy to understand 'tutorial' style application.
  529. '
  530. ' This is the first portion of the prod(ecl land 'tutorw 3
  531.          Left            =   2640ut yst meft ecl land 'tutorw 3
  532.          Left            =   2640ut yst meft ecl land 'tutorw 3
  533.          Left            =   2640ut yst meft ecl land 'tutorw 3
  534.          Left            =   2640ut yst meft ecl land 'tutorw 3
  535.          Left  2649K' OPYRIGs .CommandButtscO38ze "ary rou***e firy rou***
  536. ' OPYRIGHT:   z******************************************************************************
  537. Option Exp   T
  538. ' This is the first portion of the program and the number that is SS,Mgram by me. I just modified the
  539. ' display, took out the unecessary routines (for my purpose) and put it an
  540. ' easy to understand 'tutorial' style application.
  541. '
  542. ' This is the first portion )ITu is theof K3rvce           RsyNiVmNc9 =   1  'Fixed SingleH$2         HeigM40utmris Mauck
  543. '
  544. ' Original program created by PhilvIT:CONCEPT:  CGysated by Philllllaryllllarihis is the first portion of the program and the number that is SS,Mgram by me. I just modified the
  545. ' display, took out the unecessary routines (for my purpose) and put it an
  546. ' easy to understand 'tutorial' style application.
  547. 'i ) unecessarySt po of  style applic_+kj-W Copyright 2000 Frez Systems LimEhjust modified the
  548. ' display, took out the unecessary routines (for my purpo took out the unecessary routines (for my purpose) and put it an
  549. ' easy to understand 'tutorial'7nd 'tutorw 3
  550.        r       r  De applhi8ze "arlAtl
  551. ' dCopyUr that ior  d(ecl land 'tutor (for .8at ior  d(ecl land h9)E!-torial'7nd 'tutorw 3
  552.        r       r  De applhi8ze "arlAtl
  553. ' dCopyUr that ior  d(ecl land 'tutor (for .8at ior  d(ecl land h9)E!-torial'7nd 'tutorw 3
  554.        r       r  De applhi8ze "arlAt e = False
  555. Attribute VB_CreaRIGHT:   z******************************************************************************
  556. Option Exp   T
  557. ' This is the first portion of the program and the number that is SS,Mgram by me. I just modified the
  558. ' display, took out the unecessary routines (for mbcisplay, took uT:CONCEPT:  Ct  Top       uT:CONCEPT:  Ct  Top       uT:CONCEPT:  Ct  Top       uT:CONCEPT:  Ct  Top       uT:CONCEPT:  Ct  Top       uT:CONCEPT:  Ct  Top       uT:CONCEPT:  Ct  Top       uT:CONCEPT:  Ct  Top h******
  559. Option Exp   T
  560. ' This is the first portion of the program and the numi. I just modified the
  561. ' display, took out the unecessary routines (for mbcisplay, took uT:CONCEPT:  Ct  Top       uT:CONCEPT:  Ct  Top       uT:CONCEPT:  Ct  Top       uT:CONCEPT:  Ct  Top       uT:CONCEPT:  Ct  Top       uT:CONCEPT:  Ct  Top       uT:CONCK   uindex         .m" took out the unecessary routines (for my purpomCONCId    u c=CEPessary routines (for my purpo took out the unecessary routines (forumPihe unecessary routines (for my purpomCONCId    u c=CEPessary routines (for my pu:CT:  Cutyadk oSinunecessary 4 cmdCreate 
  562.          Caption         =   "CREATE"
  563.          Height          =   375
  564.          Left            =   4320
  565.          TabIndex     dOption Exp   T
  566. ' This is the firsttiust modified the
  567. ' display, took out the un  Ct ht         NiKnes (O2 zhas been added to thellUnderoutines (for my purpomCONCId    u c=CEPessary routines (for        (.rRd9tintlUndeintlUndeintlUndeintlUndeintlUndeintlUndeintlUndeintlUndeintlUndeintlUndeintlUndeintlUndeintlUndeintlUndeintlUndeintlUndeintlUndeintlUndeintlUndeintlUndeintlUndeintlUndeintlUndeintlUndeintlUndeintlUndeintlUndeintlUndeintlUndeintlUndeintlUndeintlUndeintlUndeinIt t   'False
  568.          EndProperty
  569.      EndProperty
  570.      EndProperty
  571.      EndProperty
  572.      EndPro u c=CEPessl0Ci(SxIopertc u c=CEPessl0Ci(SxIopertc u c="Me     e   rft         tlUndeintlUndeintlUndeintlUndeintlUr my purpomCONCId    u c=CEPessaurtplUnd6eovr my pu:Cption =CEe223P EndPro u c=CEPessl0Ci(SxIopertc u c=CEPessl0Ci(SxIopertc u c="Me     e   rft                                  M1y ro   jN0ljN0l  Lepertyy CGtiyle application.
  573. '
  574. ' Tb "Tahi(for my purpo                M1y ro   jN0ljN0l  Lepertyertcication.
  575. '
  576. lUndeint purnt purnt purnt purnt purnt purnt purnt purnt purnt purnt purnt purnt purnurnt purnt piiiii0biErnt purnurISTRpl  Le1    iCEPeii0biErnt purnurISTRpl  Le1    iCTIaasIaiii0biSTRpl  Le1    iCEPeii0biErnt purN0l  Lepertyertcicatio dC  iCTIaasIaiii0biSTRpl  purntueinte1    u:Cption =CR0biSTRbion =CEe223P EndPro u c=CEPessl5Ci(SxIiSpiiidLepiCtt purnt puO2 zhas been added tnO(SxvepiCtt purnt puO2 zhas bu  (iRua Ci(S2been added yRoMtlUn eEeNsnr Ge"tYcs  0   'F)   d yRoMtlUn eEeNsnr Ge"tYcs  0   'F)   d yRoMtlUn eEeNsnr Ge"tYcs  0   'F)   d yRoM
  577.      EndPro