Thread: [ActiveLock-Development] CVS: activelock2/src ActiveLock.cls,1.6,1.7 ActiveLock2.dll,1.2,1.3 ActiveL
Brought to you by:
ialkan
Menu
▾
▴
activelock-development
|
From: Dan <wiz...@us...> - 2003-07-29 21:50:03
|
Update of /cvsroot/activelock/activelock2/src
In directory sc8-pr-cvs1:/tmp/cvs-serv8475/src
Modified Files:
ActiveLock.cls ActiveLock2.dll ActiveLock2.vbp Globals.cls
Log Message:
Added support for locks other than MAC. Hopefully a new test app will follow shortly.
- Dan
Index: ActiveLock.cls
===================================================================
RCS file: /cvsroot/activelock/activelock2/src/ActiveLock.cls,v
retrieving revision 1.6
retrieving revision 1.7
diff -u -d -r1.6 -r1.7
--- ActiveLock.cls 28 Jul 2003 06:35:30 -0000 1.6
+++ ActiveLock.cls 29 Jul 2003 18:49:42 -0000 1.7
@@ -55,7 +55,6 @@
' / MODULE TO DO LIST /
' ///////////////////////////////////////////////////////////////////////
'
-' [ ] Implement IActiveLock_GetLockString() for locktypes other than MAC
' [ ] IActiveLock_Acquire: Check if license has not expired
' [ ] Implement IActiveLock_Release
' [ ] Implement IActiveLock_Transfer
@@ -63,8 +62,9 @@
' / MODULE CHANGE LOG /
' ///////////////////////////////////////////////////////////////////////
'
-' 07.07.03 - mcrute - Updated the header comments for this file.
-' 07.28.03 - th2tran - Using RSA signature for license key.
+' 07.07.03 - mcrute - Updated the header comments for this file.
+' 07.28.03 - th2tran - Using RSA signature for license key.
+' 07.28.03 - wizzardme2000 - Implemented lockComp, lockHD, and lockWindows
'
' ///////////////////////////////////////////////////////////////////////
' / MODULE CODE BEGINS BELOW THIS LINE /
@@ -286,13 +286,13 @@
strLock = strLock & modMACAddress.GetMACAddress()
End If
If mLockTypes And lockComp Then
- ' TODO: strLock = strLock & GetComputerName()
+ strLock = strLock & modComputerName.GetComputerName()
End If
If mLockTypes And lockHD Then
- ' TODO: strLock = strLock & GetComputerName()
+ strLock = strLock & modHDSerial.GetHDSerial("C:\")
End If
If mLockTypes And lockWindows Then
- ' TODO: strLock = strLock & GetWindowSerial()
+ strLock = strLock & modWindowsSerial.GetWindowsSerial()
End If
If Lic Is Nothing Then
IActiveLock_LockCode = strLock
Index: ActiveLock2.dll
===================================================================
RCS file: /cvsroot/activelock/activelock2/src/ActiveLock2.dll,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -d -r1.2 -r1.3
Binary files /tmp/cvsEbKVXy and /tmp/cvsayEYT0 differ
Index: ActiveLock2.vbp
===================================================================
RCS file: /cvsroot/activelock/activelock2/src/ActiveLock2.vbp,v
retrieving revision 1.7
retrieving revision 1.8
diff -u -d -r1.7 -r1.8
--- ActiveLock2.vbp 28 Jul 2003 06:35:30 -0000 1.7
+++ ActiveLock2.vbp 29 Jul 2003 18:49:42 -0000 1.8
@@ -1,5 +1,5 @@
Type=OleDll
-Reference=*\G{00020430-0000-0000-C000-000000000046}#2.0#0#C:\WINDOWS\System32\stdole2.tlb#OLE Automation
+Reference=*\G{00020430-0000-0000-C000-000000000046}#2.0#0#..\..\..\..\..\..\..\WINNT\System32\stdole2.tlb#OLE Automation
Class=ActiveLock; ActiveLock.cls
Class=IActiveLock; IActiveLock.cls
Class=Globals; Globals.cls
@@ -17,6 +17,9 @@
Class=ActiveLockEventNotifier; ActiveLockEventNotifier.cls
Module=modActiveLock; modActiveLock.bas
Module=modBase64; modBase64.bas
+Module=modHDSerial; modHDSerial.bas
+Module=modWindowsSerial; modWindowsSerial.bas
+Module=modComputerName; modComputerName.bas
Startup="(None)"
HelpFile=""
Title="ActiveLock2"
Index: Globals.cls
===================================================================
RCS file: /cvsroot/activelock/activelock2/src/Globals.cls,v
retrieving revision 1.7
retrieving revision 1.8
diff -u -d -r1.7 -r1.8
--- Globals.cls 28 Jul 2003 06:35:30 -0000 1.7
+++ Globals.cls 29 Jul 2003 18:49:42 -0000 1.8
@@ -53,7 +53,6 @@
' / MODULE TO DO LIST /
' ///////////////////////////////////////////////////////////////////////
'
-' [ ] GetClassString() - handle the rest of the LockTypes
' [ ] GetLicTypeString() - implement this
'
' ///////////////////////////////////////////////////////////////////////
@@ -63,6 +62,7 @@
' 07.07.03 - mcrute - Updated the header comments for this file.
' 07.21.03 - th2tran - Added ActiveLockErrCodeConstants to contain
' a list of error code constants raised by ActiveLock.
+' 07.28.03 - wizzardme2000 - Implemented lockComp, lockHD, and lockWindows
'
' ///////////////////////////////////////////////////////////////////////
' / MODULE CODE BEGINS BELOW THIS LINE /
@@ -146,12 +146,17 @@
End Function
Private Function GetClassString(LockType As ActiveLock2.ALLockTypes) As String
+ 'TODO: Decide the class numbers.
+ ' lockMAC should probably be last,
+ ' like it is in the enum. (IActivelock.cls)
If LockType = lockMAC Then
GetClassString = "Class1"
ElseIf LockType = lockWindows Then
GetClassString = "Class2"
- Else
- 'TODO: Handle the rest
+ ElseIf LockType = lockComp Then
+ GetClassString = "Class3"
+ ElseIf LockType = lockHD Then
+ GetClassString = "Class4"
End If
End Function
|
|
From: Thanh H. T. <th...@sy...> - 2003-08-01 21:34:06
|
Hi Dan,
> Private Function GetClassString(LockType As ActiveLock2.ALLockTypes) As
String
> + 'TODO: Decide the class numbers.
> + ' lockMAC should probably be last,
> + ' like it is in the enum. (IActivelock.cls)
> If LockType = lockMAC Then
> GetClassString = "Class1"
> ElseIf LockType = lockWindows Then
> GetClassString = "Class2"
> - Else
> - 'TODO: Handle the rest
> + ElseIf LockType = lockComp Then
> + GetClassString = "Class3"
> + ElseIf LockType = lockHD Then
> + GetClassString = "Class4"
> End If
> End Function
Suggestion.....
>Private Function GetClassString(LockType As ActiveLock2.ALLockTypes) As
String
GetClassString = "Class" & LockType
> End Function
BTW, I'm still waiting for your update on making these changes available in
the TestApp.
Thanh.
----- Original Message -----
From: "Dan" <wiz...@us...>
To: <act...@li...>
Sent: Tuesday, July 29, 2003 2:49 PM
Subject: [ActiveLock-Development] CVS: activelock2/src
ActiveLock.cls,1.6,1.7 ActiveLock2.dll,1.2,1.3 ActiveLock2.vbp,1.7,1.8
Globals.cls,1.7,1.8
> Update of /cvsroot/activelock/activelock2/src
> In directory sc8-pr-cvs1:/tmp/cvs-serv8475/src
>
> Modified Files:
> ActiveLock.cls ActiveLock2.dll ActiveLock2.vbp Globals.cls
> Log Message:
> Added support for locks other than MAC. Hopefully a new test app will
follow shortly.
>
> - Dan
>
> Index: ActiveLock.cls
> ===================================================================
> RCS file: /cvsroot/activelock/activelock2/src/ActiveLock.cls,v
> retrieving revision 1.6
> retrieving revision 1.7
> diff -u -d -r1.6 -r1.7
> --- ActiveLock.cls 28 Jul 2003 06:35:30 -0000 1.6
> +++ ActiveLock.cls 29 Jul 2003 18:49:42 -0000 1.7
> @@ -55,7 +55,6 @@
> ' / MODULE TO DO LIST
/
> '
///////////////////////////////////////////////////////////////////////
> '
> -' [ ] Implement IActiveLock_GetLockString() for locktypes other than
MAC
> ' [ ] IActiveLock_Acquire: Check if license has not expired
> ' [ ] Implement IActiveLock_Release
> ' [ ] Implement IActiveLock_Transfer
> @@ -63,8 +62,9 @@
> ' / MODULE CHANGE LOG
/
> '
///////////////////////////////////////////////////////////////////////
> '
> -' 07.07.03 - mcrute - Updated the header comments for this file.
> -' 07.28.03 - th2tran - Using RSA signature for license key.
> +' 07.07.03 - mcrute - Updated the header comments for this file.
> +' 07.28.03 - th2tran - Using RSA signature for license key.
> +' 07.28.03 - wizzardme2000 - Implemented lockComp, lockHD, and
lockWindows
> '
> '
///////////////////////////////////////////////////////////////////////
> ' / MODULE CODE BEGINS BELOW THIS LINE
/
> @@ -286,13 +286,13 @@
> strLock = strLock & modMACAddress.GetMACAddress()
> End If
> If mLockTypes And lockComp Then
> - ' TODO: strLock = strLock & GetComputerName()
> + strLock = strLock & modComputerName.GetComputerName()
> End If
> If mLockTypes And lockHD Then
> - ' TODO: strLock = strLock & GetComputerName()
> + strLock = strLock & modHDSerial.GetHDSerial("C:\")
> End If
> If mLockTypes And lockWindows Then
> - ' TODO: strLock = strLock & GetWindowSerial()
> + strLock = strLock & modWindowsSerial.GetWindowsSerial()
> End If
> If Lic Is Nothing Then
> IActiveLock_LockCode = strLock
>
> Index: ActiveLock2.dll
> ===================================================================
> RCS file: /cvsroot/activelock/activelock2/src/ActiveLock2.dll,v
> retrieving revision 1.2
> retrieving revision 1.3
> diff -u -d -r1.2 -r1.3
> Binary files /tmp/cvsEbKVXy and /tmp/cvsayEYT0 differ
>
> Index: ActiveLock2.vbp
> ===================================================================
> RCS file: /cvsroot/activelock/activelock2/src/ActiveLock2.vbp,v
> retrieving revision 1.7
> retrieving revision 1.8
> diff -u -d -r1.7 -r1.8
> --- ActiveLock2.vbp 28 Jul 2003 06:35:30 -0000 1.7
> +++ ActiveLock2.vbp 29 Jul 2003 18:49:42 -0000 1.8
> @@ -1,5 +1,5 @@
> Type=OleDll
> -Reference=*\G{00020430-0000-0000-C000-000000000046}#2.0#0#C:\WINDOWS\Syst
em32\stdole2.tlb#OLE Automation
>
+Reference=*\G{00020430-0000-0000-C000-000000000046}#2.0#0#..\..\..\..\..\..
\..\WINNT\System32\stdole2.tlb#OLE Automation
> Class=ActiveLock; ActiveLock.cls
> Class=IActiveLock; IActiveLock.cls
> Class=Globals; Globals.cls
> @@ -17,6 +17,9 @@
> Class=ActiveLockEventNotifier; ActiveLockEventNotifier.cls
> Module=modActiveLock; modActiveLock.bas
> Module=modBase64; modBase64.bas
> +Module=modHDSerial; modHDSerial.bas
> +Module=modWindowsSerial; modWindowsSerial.bas
> +Module=modComputerName; modComputerName.bas
> Startup="(None)"
> HelpFile=""
> Title="ActiveLock2"
>
> Index: Globals.cls
> ===================================================================
> RCS file: /cvsroot/activelock/activelock2/src/Globals.cls,v
> retrieving revision 1.7
> retrieving revision 1.8
> diff -u -d -r1.7 -r1.8
> --- Globals.cls 28 Jul 2003 06:35:30 -0000 1.7
> +++ Globals.cls 29 Jul 2003 18:49:42 -0000 1.8
> @@ -53,7 +53,6 @@
> ' / MODULE TO DO LIST
/
> '
///////////////////////////////////////////////////////////////////////
> '
> -' [ ] GetClassString() - handle the rest of the LockTypes
> ' [ ] GetLicTypeString() - implement this
> '
> '
///////////////////////////////////////////////////////////////////////
> @@ -63,6 +62,7 @@
> ' 07.07.03 - mcrute - Updated the header comments for this file.
> ' 07.21.03 - th2tran - Added ActiveLockErrCodeConstants to contain
> ' a list of error code constants raised by
ActiveLock.
> +' 07.28.03 - wizzardme2000 - Implemented lockComp, lockHD, and
lockWindows
> '
> '
///////////////////////////////////////////////////////////////////////
> ' / MODULE CODE BEGINS BELOW THIS LINE
/
> @@ -146,12 +146,17 @@
> End Function
>
> Private Function GetClassString(LockType As ActiveLock2.ALLockTypes) As
String
> + 'TODO: Decide the class numbers.
> + ' lockMAC should probably be last,
> + ' like it is in the enum. (IActivelock.cls)
> If LockType = lockMAC Then
> GetClassString = "Class1"
> ElseIf LockType = lockWindows Then
> GetClassString = "Class2"
> - Else
> - 'TODO: Handle the rest
> + ElseIf LockType = lockComp Then
> + GetClassString = "Class3"
> + ElseIf LockType = lockHD Then
> + GetClassString = "Class4"
> End If
> End Function
>
>
>
>
> -------------------------------------------------------
> This SF.Net email sponsored by: Free pre-built ASP.NET sites including
> Data Reports, E-commerce, Portals, and Forums are available now.
> Download today and enter to win an XBOX or Visual Studio .NET.
>
http://aspnet.click-url.com/go/psa00100003ave/direct;at.aspnet_072303_01/01
> _______________________________________________
> Activelock-Development mailing list
> Act...@li...
> https://lists.sourceforge.net/lists/listinfo/activelock-development
|
|
From: Dan <da...@fl...> - 2003-08-01 23:52:02
|
Ok, the new test app is up now. We could use that code, but it would return
"Class2" "Class4" "Class8" "Class16"
----- Original Message -----
From: "Thanh Hai Tran" <th...@sy...>
To: <act...@li...>
Sent: Friday, August 01, 2003 2:34 PM
Subject: Re: [ActiveLock-Development] CVS: activelock2/src
ActiveLock.cls,1.6,1.7 ActiveLock2.dll,1.2,1.3 ActiveLock2.vbp,1.7,1.8
Globals.cls,1.7,1.8
> Hi Dan,
>
> > Private Function GetClassString(LockType As ActiveLock2.ALLockTypes) As
> String
> > + 'TODO: Decide the class numbers.
> > + ' lockMAC should probably be last,
> > + ' like it is in the enum. (IActivelock.cls)
> > If LockType = lockMAC Then
> > GetClassString = "Class1"
> > ElseIf LockType = lockWindows Then
> > GetClassString = "Class2"
> > - Else
> > - 'TODO: Handle the rest
> > + ElseIf LockType = lockComp Then
> > + GetClassString = "Class3"
> > + ElseIf LockType = lockHD Then
> > + GetClassString = "Class4"
> > End If
> > End Function
>
> Suggestion.....
>
> >Private Function GetClassString(LockType As ActiveLock2.ALLockTypes) As
> String
> GetClassString = "Class" & LockType
> > End Function
>
> BTW, I'm still waiting for your update on making these changes available
in
> the TestApp.
>
> Thanh.
>
> ----- Original Message -----
> From: "Dan" <wiz...@us...>
> To: <act...@li...>
> Sent: Tuesday, July 29, 2003 2:49 PM
> Subject: [ActiveLock-Development] CVS: activelock2/src
> ActiveLock.cls,1.6,1.7 ActiveLock2.dll,1.2,1.3 ActiveLock2.vbp,1.7,1.8
> Globals.cls,1.7,1.8
>
>
> > Update of /cvsroot/activelock/activelock2/src
> > In directory sc8-pr-cvs1:/tmp/cvs-serv8475/src
> >
> > Modified Files:
> > ActiveLock.cls ActiveLock2.dll ActiveLock2.vbp Globals.cls
> > Log Message:
> > Added support for locks other than MAC. Hopefully a new test app will
> follow shortly.
> >
> > - Dan
> >
> > Index: ActiveLock.cls
> > ===================================================================
> > RCS file: /cvsroot/activelock/activelock2/src/ActiveLock.cls,v
> > retrieving revision 1.6
> > retrieving revision 1.7
> > diff -u -d -r1.6 -r1.7
> > --- ActiveLock.cls 28 Jul 2003 06:35:30 -0000 1.6
> > +++ ActiveLock.cls 29 Jul 2003 18:49:42 -0000 1.7
> > @@ -55,7 +55,6 @@
> > ' / MODULE TO DO LIST
> /
> > '
> ///////////////////////////////////////////////////////////////////////
> > '
> > -' [ ] Implement IActiveLock_GetLockString() for locktypes other than
> MAC
> > ' [ ] IActiveLock_Acquire: Check if license has not expired
> > ' [ ] Implement IActiveLock_Release
> > ' [ ] Implement IActiveLock_Transfer
> > @@ -63,8 +62,9 @@
> > ' / MODULE CHANGE LOG
> /
> > '
> ///////////////////////////////////////////////////////////////////////
> > '
> > -' 07.07.03 - mcrute - Updated the header comments for this file.
> > -' 07.28.03 - th2tran - Using RSA signature for license key.
> > +' 07.07.03 - mcrute - Updated the header comments for this
file.
> > +' 07.28.03 - th2tran - Using RSA signature for license key.
> > +' 07.28.03 - wizzardme2000 - Implemented lockComp, lockHD, and
> lockWindows
> > '
> > '
> ///////////////////////////////////////////////////////////////////////
> > ' / MODULE CODE BEGINS BELOW THIS LINE
> /
> > @@ -286,13 +286,13 @@
> > strLock = strLock & modMACAddress.GetMACAddress()
> > End If
> > If mLockTypes And lockComp Then
> > - ' TODO: strLock = strLock & GetComputerName()
> > + strLock = strLock & modComputerName.GetComputerName()
> > End If
> > If mLockTypes And lockHD Then
> > - ' TODO: strLock = strLock & GetComputerName()
> > + strLock = strLock & modHDSerial.GetHDSerial("C:\")
> > End If
> > If mLockTypes And lockWindows Then
> > - ' TODO: strLock = strLock & GetWindowSerial()
> > + strLock = strLock & modWindowsSerial.GetWindowsSerial()
> > End If
> > If Lic Is Nothing Then
> > IActiveLock_LockCode = strLock
> >
> > Index: ActiveLock2.dll
> > ===================================================================
> > RCS file: /cvsroot/activelock/activelock2/src/ActiveLock2.dll,v
> > retrieving revision 1.2
> > retrieving revision 1.3
> > diff -u -d -r1.2 -r1.3
> > Binary files /tmp/cvsEbKVXy and /tmp/cvsayEYT0 differ
> >
> > Index: ActiveLock2.vbp
> > ===================================================================
> > RCS file: /cvsroot/activelock/activelock2/src/ActiveLock2.vbp,v
> > retrieving revision 1.7
> > retrieving revision 1.8
> > diff -u -d -r1.7 -r1.8
> > --- ActiveLock2.vbp 28 Jul 2003 06:35:30 -0000 1.7
> > +++ ActiveLock2.vbp 29 Jul 2003 18:49:42 -0000 1.8
> > @@ -1,5 +1,5 @@
> > Type=OleDll
>
> -Reference=*\G{00020430-0000-0000-C000-000000000046}#2.0#0#C:\WINDOWS\Syst
> em32\stdole2.tlb#OLE Automation
> >
>
+Reference=*\G{00020430-0000-0000-C000-000000000046}#2.0#0#..\..\..\..\..\..
> \..\WINNT\System32\stdole2.tlb#OLE Automation
> > Class=ActiveLock; ActiveLock.cls
> > Class=IActiveLock; IActiveLock.cls
> > Class=Globals; Globals.cls
> > @@ -17,6 +17,9 @@
> > Class=ActiveLockEventNotifier; ActiveLockEventNotifier.cls
> > Module=modActiveLock; modActiveLock.bas
> > Module=modBase64; modBase64.bas
> > +Module=modHDSerial; modHDSerial.bas
> > +Module=modWindowsSerial; modWindowsSerial.bas
> > +Module=modComputerName; modComputerName.bas
> > Startup="(None)"
> > HelpFile=""
> > Title="ActiveLock2"
> >
> > Index: Globals.cls
> > ===================================================================
> > RCS file: /cvsroot/activelock/activelock2/src/Globals.cls,v
> > retrieving revision 1.7
> > retrieving revision 1.8
> > diff -u -d -r1.7 -r1.8
> > --- Globals.cls 28 Jul 2003 06:35:30 -0000 1.7
> > +++ Globals.cls 29 Jul 2003 18:49:42 -0000 1.8
> > @@ -53,7 +53,6 @@
> > ' / MODULE TO DO LIST
> /
> > '
> ///////////////////////////////////////////////////////////////////////
> > '
> > -' [ ] GetClassString() - handle the rest of the LockTypes
> > ' [ ] GetLicTypeString() - implement this
> > '
> > '
> ///////////////////////////////////////////////////////////////////////
> > @@ -63,6 +62,7 @@
> > ' 07.07.03 - mcrute - Updated the header comments for this file.
> > ' 07.21.03 - th2tran - Added ActiveLockErrCodeConstants to contain
> > ' a list of error code constants raised by
> ActiveLock.
> > +' 07.28.03 - wizzardme2000 - Implemented lockComp, lockHD, and
> lockWindows
> > '
> > '
> ///////////////////////////////////////////////////////////////////////
> > ' / MODULE CODE BEGINS BELOW THIS LINE
> /
> > @@ -146,12 +146,17 @@
> > End Function
> >
> > Private Function GetClassString(LockType As ActiveLock2.ALLockTypes) As
> String
> > + 'TODO: Decide the class numbers.
> > + ' lockMAC should probably be last,
> > + ' like it is in the enum. (IActivelock.cls)
> > If LockType = lockMAC Then
> > GetClassString = "Class1"
> > ElseIf LockType = lockWindows Then
> > GetClassString = "Class2"
> > - Else
> > - 'TODO: Handle the rest
> > + ElseIf LockType = lockComp Then
> > + GetClassString = "Class3"
> > + ElseIf LockType = lockHD Then
> > + GetClassString = "Class4"
> > End If
> > End Function
> >
> >
> >
> >
> > -------------------------------------------------------
> > This SF.Net email sponsored by: Free pre-built ASP.NET sites including
> > Data Reports, E-commerce, Portals, and Forums are available now.
> > Download today and enter to win an XBOX or Visual Studio .NET.
> >
>
http://aspnet.click-url.com/go/psa00100003ave/direct;at.aspnet_072303_01/01
> > _______________________________________________
> > Activelock-Development mailing list
> > Act...@li...
> > https://lists.sourceforge.net/lists/listinfo/activelock-development
>
>
>
> -------------------------------------------------------
> This SF.Net email sponsored by: Free pre-built ASP.NET sites including
> Data Reports, E-commerce, Portals, and Forums are available now.
> Download today and enter to win an XBOX or Visual Studio .NET.
>
http://aspnet.click-url.com/go/psa00100003ave/direct;at.aspnet_072303_01/01
> _______________________________________________
> Activelock-Development mailing list
> Act...@li...
> https://lists.sourceforge.net/lists/listinfo/activelock-development
|
|
From: Thanh H. T. <th...@sy...> - 2003-08-02 00:07:17
|
Yes, that's right. And it could also return 3 (1+2), 5 (4+1), 15, 31,
etc.....
Also, As mentioned in the Enum the LockTypes can be OR'd, which means your
if test should really be:
If (LockType AND lockMAC) = lockMAC Then
....
End If
----- Original Message -----
From: "Dan" <da...@fl...>
To: <act...@li...>
Sent: Friday, August 01, 2003 7:54 PM
Subject: Re: [ActiveLock-Development] CVS: activelock2/src
ActiveLock.cls,1.6,1.7 ActiveLock2.dll,1.2,1.3 ActiveLock2.vbp,1.7,1.8
Globals.cls,1.7,1.8
> Ok, the new test app is up now. We could use that code, but it would
return
> "Class2" "Class4" "Class8" "Class16"
> ----- Original Message -----
> From: "Thanh Hai Tran" <th...@sy...>
> To: <act...@li...>
> Sent: Friday, August 01, 2003 2:34 PM
> Subject: Re: [ActiveLock-Development] CVS: activelock2/src
> ActiveLock.cls,1.6,1.7 ActiveLock2.dll,1.2,1.3 ActiveLock2.vbp,1.7,1.8
> Globals.cls,1.7,1.8
>
>
> > Hi Dan,
> >
> > > Private Function GetClassString(LockType As ActiveLock2.ALLockTypes)
As
> > String
> > > + 'TODO: Decide the class numbers.
> > > + ' lockMAC should probably be last,
> > > + ' like it is in the enum. (IActivelock.cls)
> > > If LockType = lockMAC Then
> > > GetClassString = "Class1"
> > > ElseIf LockType = lockWindows Then
> > > GetClassString = "Class2"
> > > - Else
> > > - 'TODO: Handle the rest
> > > + ElseIf LockType = lockComp Then
> > > + GetClassString = "Class3"
> > > + ElseIf LockType = lockHD Then
> > > + GetClassString = "Class4"
> > > End If
> > > End Function
> >
> > Suggestion.....
> >
> > >Private Function GetClassString(LockType As ActiveLock2.ALLockTypes) As
> > String
> > GetClassString = "Class" & LockType
> > > End Function
> >
> > BTW, I'm still waiting for your update on making these changes available
> in
> > the TestApp.
> >
> > Thanh.
> >
> > ----- Original Message -----
> > From: "Dan" <wiz...@us...>
> > To: <act...@li...>
> > Sent: Tuesday, July 29, 2003 2:49 PM
> > Subject: [ActiveLock-Development] CVS: activelock2/src
> > ActiveLock.cls,1.6,1.7 ActiveLock2.dll,1.2,1.3 ActiveLock2.vbp,1.7,1.8
> > Globals.cls,1.7,1.8
> >
> >
> > > Update of /cvsroot/activelock/activelock2/src
> > > In directory sc8-pr-cvs1:/tmp/cvs-serv8475/src
> > >
> > > Modified Files:
> > > ActiveLock.cls ActiveLock2.dll ActiveLock2.vbp Globals.cls
> > > Log Message:
> > > Added support for locks other than MAC. Hopefully a new test app will
> > follow shortly.
> > >
> > > - Dan
> > >
> > > Index: ActiveLock.cls
> > > ===================================================================
> > > RCS file: /cvsroot/activelock/activelock2/src/ActiveLock.cls,v
> > > retrieving revision 1.6
> > > retrieving revision 1.7
> > > diff -u -d -r1.6 -r1.7
> > > --- ActiveLock.cls 28 Jul 2003 06:35:30 -0000 1.6
> > > +++ ActiveLock.cls 29 Jul 2003 18:49:42 -0000 1.7
> > > @@ -55,7 +55,6 @@
> > > ' / MODULE TO DO LIST
> > /
> > > '
> > ///////////////////////////////////////////////////////////////////////
> > > '
> > > -' [ ] Implement IActiveLock_GetLockString() for locktypes other
than
> > MAC
> > > ' [ ] IActiveLock_Acquire: Check if license has not expired
> > > ' [ ] Implement IActiveLock_Release
> > > ' [ ] Implement IActiveLock_Transfer
> > > @@ -63,8 +62,9 @@
> > > ' / MODULE CHANGE LOG
> > /
> > > '
> > ///////////////////////////////////////////////////////////////////////
> > > '
> > > -' 07.07.03 - mcrute - Updated the header comments for this file.
> > > -' 07.28.03 - th2tran - Using RSA signature for license key.
> > > +' 07.07.03 - mcrute - Updated the header comments for this
> file.
> > > +' 07.28.03 - th2tran - Using RSA signature for license key.
> > > +' 07.28.03 - wizzardme2000 - Implemented lockComp, lockHD, and
> > lockWindows
> > > '
> > > '
> > ///////////////////////////////////////////////////////////////////////
> > > ' / MODULE CODE BEGINS BELOW THIS LINE
> > /
> > > @@ -286,13 +286,13 @@
> > > strLock = strLock & modMACAddress.GetMACAddress()
> > > End If
> > > If mLockTypes And lockComp Then
> > > - ' TODO: strLock = strLock & GetComputerName()
> > > + strLock = strLock & modComputerName.GetComputerName()
> > > End If
> > > If mLockTypes And lockHD Then
> > > - ' TODO: strLock = strLock & GetComputerName()
> > > + strLock = strLock & modHDSerial.GetHDSerial("C:\")
> > > End If
> > > If mLockTypes And lockWindows Then
> > > - ' TODO: strLock = strLock & GetWindowSerial()
> > > + strLock = strLock & modWindowsSerial.GetWindowsSerial()
> > > End If
> > > If Lic Is Nothing Then
> > > IActiveLock_LockCode = strLock
> > >
> > > Index: ActiveLock2.dll
> > > ===================================================================
> > > RCS file: /cvsroot/activelock/activelock2/src/ActiveLock2.dll,v
> > > retrieving revision 1.2
> > > retrieving revision 1.3
> > > diff -u -d -r1.2 -r1.3
> > > Binary files /tmp/cvsEbKVXy and /tmp/cvsayEYT0 differ
> > >
> > > Index: ActiveLock2.vbp
> > > ===================================================================
> > > RCS file: /cvsroot/activelock/activelock2/src/ActiveLock2.vbp,v
> > > retrieving revision 1.7
> > > retrieving revision 1.8
> > > diff -u -d -r1.7 -r1.8
> > > --- ActiveLock2.vbp 28 Jul 2003 06:35:30 -0000 1.7
> > > +++ ActiveLock2.vbp 29 Jul 2003 18:49:42 -0000 1.8
> > > @@ -1,5 +1,5 @@
> > > Type=OleDll
> >
>
> -Reference=*\G{00020430-0000-0000-C000-000000000046}#2.0#0#C:\WINDOWS\Syst
> > em32\stdole2.tlb#OLE Automation
> > >
> >
>
+Reference=*\G{00020430-0000-0000-C000-000000000046}#2.0#0#..\..\..\..\..\..
> > \..\WINNT\System32\stdole2.tlb#OLE Automation
> > > Class=ActiveLock; ActiveLock.cls
> > > Class=IActiveLock; IActiveLock.cls
> > > Class=Globals; Globals.cls
> > > @@ -17,6 +17,9 @@
> > > Class=ActiveLockEventNotifier; ActiveLockEventNotifier.cls
> > > Module=modActiveLock; modActiveLock.bas
> > > Module=modBase64; modBase64.bas
> > > +Module=modHDSerial; modHDSerial.bas
> > > +Module=modWindowsSerial; modWindowsSerial.bas
> > > +Module=modComputerName; modComputerName.bas
> > > Startup="(None)"
> > > HelpFile=""
> > > Title="ActiveLock2"
> > >
> > > Index: Globals.cls
> > > ===================================================================
> > > RCS file: /cvsroot/activelock/activelock2/src/Globals.cls,v
> > > retrieving revision 1.7
> > > retrieving revision 1.8
> > > diff -u -d -r1.7 -r1.8
> > > --- Globals.cls 28 Jul 2003 06:35:30 -0000 1.7
> > > +++ Globals.cls 29 Jul 2003 18:49:42 -0000 1.8
> > > @@ -53,7 +53,6 @@
> > > ' / MODULE TO DO LIST
> > /
> > > '
> > ///////////////////////////////////////////////////////////////////////
> > > '
> > > -' [ ] GetClassString() - handle the rest of the LockTypes
> > > ' [ ] GetLicTypeString() - implement this
> > > '
> > > '
> > ///////////////////////////////////////////////////////////////////////
> > > @@ -63,6 +62,7 @@
> > > ' 07.07.03 - mcrute - Updated the header comments for this file.
> > > ' 07.21.03 - th2tran - Added ActiveLockErrCodeConstants to contain
> > > ' a list of error code constants raised by
> > ActiveLock.
> > > +' 07.28.03 - wizzardme2000 - Implemented lockComp, lockHD, and
> > lockWindows
> > > '
> > > '
> > ///////////////////////////////////////////////////////////////////////
> > > ' / MODULE CODE BEGINS BELOW THIS LINE
> > /
> > > @@ -146,12 +146,17 @@
> > > End Function
> > >
> > > Private Function GetClassString(LockType As ActiveLock2.ALLockTypes)
As
> > String
> > > + 'TODO: Decide the class numbers.
> > > + ' lockMAC should probably be last,
> > > + ' like it is in the enum. (IActivelock.cls)
> > > If LockType = lockMAC Then
> > > GetClassString = "Class1"
> > > ElseIf LockType = lockWindows Then
> > > GetClassString = "Class2"
> > > - Else
> > > - 'TODO: Handle the rest
> > > + ElseIf LockType = lockComp Then
> > > + GetClassString = "Class3"
> > > + ElseIf LockType = lockHD Then
> > > + GetClassString = "Class4"
> > > End If
> > > End Function
> > >
> > >
> > >
> > >
> > > -------------------------------------------------------
> > > This SF.Net email sponsored by: Free pre-built ASP.NET sites including
> > > Data Reports, E-commerce, Portals, and Forums are available now.
> > > Download today and enter to win an XBOX or Visual Studio .NET.
> > >
> >
>
http://aspnet.click-url.com/go/psa00100003ave/direct;at.aspnet_072303_01/01
> > > _______________________________________________
> > > Activelock-Development mailing list
> > > Act...@li...
> > > https://lists.sourceforge.net/lists/listinfo/activelock-development
> >
> >
> >
> > -------------------------------------------------------
> > This SF.Net email sponsored by: Free pre-built ASP.NET sites including
> > Data Reports, E-commerce, Portals, and Forums are available now.
> > Download today and enter to win an XBOX or Visual Studio .NET.
> >
>
http://aspnet.click-url.com/go/psa00100003ave/direct;at.aspnet_072303_01/01
> > _______________________________________________
> > Activelock-Development mailing list
> > Act...@li...
> > https://lists.sourceforge.net/lists/listinfo/activelock-development
>
>
>
> -------------------------------------------------------
> This SF.Net email sponsored by: Free pre-built ASP.NET sites including
> Data Reports, E-commerce, Portals, and Forums are available now.
> Download today and enter to win an XBOX or Visual Studio .NET.
>
http://aspnet.click-url.com/go/psa00100003ave/direct;at.aspnet_072303_01/01
> _______________________________________________
> Activelock-Development mailing list
> Act...@li...
> https://lists.sourceforge.net/lists/listinfo/activelock-development
|
×
Want the latest updates on software, tech news, and AI?
Get latest updates about software, tech news, and AI from SourceForge directly in your inbox once a month.
Thanks for helping keep SourceForge clean.
X