[ActiveLock-Development] CVS: activelock/examples/example1 frmMain.frm,1.3,1.4 modMain.bas,1.3,1.4
Brought to you by:
ialkan
From: Thanh H. T. <th...@us...> - 2003-10-05 08:36:31
|
Update of /cvsroot/activelock/activelock/examples/example1 In directory sc8-pr-cvs1:/tmp/cvs-serv27053 Modified Files: frmMain.frm modMain.bas Log Message: Minor change - new activelock2.dll checksum Index: frmMain.frm =================================================================== RCS file: /cvsroot/activelock/activelock/examples/example1/frmMain.frm,v retrieving revision 1.3 retrieving revision 1.4 diff -u -d -r1.3 -r1.4 --- frmMain.frm 22 Sep 2003 04:03:52 -0000 1.3 +++ frmMain.frm 5 Oct 2003 08:36:26 -0000 1.4 @@ -58,10 +58,12 @@ TabCaption(1) = "Sample App" TabPicture(1) = "frmMain.frx":0CE6 Tab(1).ControlEnabled= 0 'False - Tab(1).Control(0)= "Frame1" + Tab(1).Control(0)= "fraViewport" Tab(1).Control(1)= "fraTicker" - Tab(1).Control(2)= "fraViewport" - Tab(1).ControlCount= 3 + Tab(1).Control(2)= "Frame1" + Tab(1).Control(3)= "lblLockStatus2" + Tab(1).Control(4)= "lblLockStatus" + Tab(1).ControlCount= 5 Begin VB.Frame fraViewport BorderStyle = 0 'None Height = 400 @@ -92,7 +94,7 @@ Height = 1890 Left = -74880 TabIndex = 32 - Top = 420 + Top = 780 Width = 7575 Begin VB.TextBox txtTicker Height = 1200 @@ -115,10 +117,10 @@ End Begin VB.Frame Frame1 BorderStyle = 0 'None - Height = 2775 + Height = 2535 Left = -74865 TabIndex = 20 - Top = 2580 + Top = 2820 Width = 6615 Begin VB.OptionButton optForm Caption = "System Tray" @@ -295,6 +297,15 @@ TabIndex = 4 Top = 420 Width = 7695 + Begin VB.TextBox txtChecksum + BackColor = &H80000013& + Height = 285 + Left = 1560 + Locked = -1 'True + TabIndex = 40 + Top = 1680 + Width = 4335 + End Begin VB.TextBox txtVersion BackColor = &H80000013& Height = 285 @@ -342,6 +353,14 @@ Top = 840 Width = 4335 End + Begin VB.Label Label3 + Caption = "DLL Checksum:" + Height = 255 + Left = 120 + TabIndex = 41 + Top = 1680 + Width = 1335 + End Begin VB.Label Label2 Caption = "App Version:" Height = 255 @@ -383,6 +402,31 @@ Width = 975 End End + Begin VB.Label lblLockStatus2 + Caption = "Disabled" + BeginProperty Font + Name = "MS Sans Serif" + Size = 8.25 + Charset = 0 + Weight = 700 + Underline = 0 'False + Italic = 0 'False + Strikethrough = 0 'False + EndProperty + Height = 375 + Left = -71880 + TabIndex = 39 + Top = 480 + Width = 975 + End + Begin VB.Label lblLockStatus + Caption = "Application Functionalities Are Currently: " + Height = 375 + Left = -74880 + TabIndex = 38 + Top = 480 + Width = 2895 + End End End Attribute VB_Name = "frmMain" @@ -424,6 +468,10 @@ '' ' This test app is used to exercise all functionalities of ActiveLock. ' +' If you're running this from inside VB and would like to bypass dll-checksumming, +' Add the following compilation flag to your Project Properties (Make tab) +' AL_DEBUG = 1 +' ' @author th2tran ' @version 2.0.0 ' @date 20030715 @@ -629,6 +677,11 @@ lblHost.Enabled = flag optForm(0).Enabled = flag optForm(1).Enabled = flag + If flag Then + lblLockStatus2 = "Enabled" + Else + lblLockStatus2 = "Disabled (Registration Required)" + End If End Property Private Sub optForm_Click(Index As Integer) Index: modMain.bas =================================================================== RCS file: /cvsroot/activelock/activelock/examples/example1/modMain.bas,v retrieving revision 1.3 retrieving revision 1.4 diff -u -d -r1.3 -r1.4 --- modMain.bas 22 Sep 2003 03:05:01 -0000 1.3 +++ modMain.bas 5 Oct 2003 08:36:26 -0000 1.4 @@ -299,12 +299,11 @@ ' Returns the checksum. ' Public Function VerifyActiveLockdll(obj As IUnknown) As String - Const AL_CRC& = 175936 ' ActiveLock2.dll's CRC checksum to be used for comparison Dim crc As Long crc = modActiveLock.CRCCheckSumTypeLib(obj) Debug.Print "Hash: " & crc If crc <> Value Then - MsgBox "ActiveLock2.dll has been corrupted. If you were running a real application, it should terminate at this point." + MsgBox "activelock2.dll has been corrupted. If you were running a real application, it should terminate at this point." End If VerifyActiveLockdll = CStr(crc) End Function @@ -313,7 +312,7 @@ ' Returns the expected CRC value of ActiveLock2.dll ' Private Property Get Value() As Long - Value = 176608 + 1856 ' 178464 - computed so that it can't be easily spotted via a Hex Editor + Value = 135035 + 1792 ' 136827 - computed so that it can't be easily spotted via a Hex Editor End Property '' |