Posts by anishms
-
-
Hi All,
I have attached a sample file which has the codes to generate an activation key based on the hard disk volume id and I have also got sample codes to read and write the registry keys. However, not sure how to make it work and request some help on this. How do I write the "Key" in windows registry and check the key on loading the add-in
Thanks in advance!
Code
Display MoreOption Explicit Public Key As String, Strg As String Sub CreateActivationKey() Dim i As Long Strg = DiskVolumeId(Environ("SystemDrive")) For i = 1 To Len(Strg) Key = Key & Hex(Asc(Mid(Strg, i, 1))) Next i End Sub Function DiskVolumeId(Drive As String) As String Dim sTemp As String Dim iPos As Long iPos = InStr(1, Drive, ":") Drive = IIf(iPos > 0, Left(Drive, iPos), Drive & ":") sTemp = Hex(CreateObject("Scripting.FileSystemObject") _ .Drives.Item(CStr(Drive)).SerialNumber) DiskVolumeId = Left(sTemp, 4) & "-" & Right(sTemp, 4) End Function Function RegKeyRead(i_RegKey As String) As String Dim myWS As Object On Error Resume Next Set myWS = CreateObject("WScript.Shell") RegKeyRead = myWS.RegRead(i_RegKey) End Function Sub RegKeySave(i_RegKey As String, _ i_Value As String, _ Optional i_Type As String = "REG_DWORD") Dim myWS As Object Set myWS = CreateObject("WScript.Shell") myWS.RegWrite i_RegKey, i_Value, i_Type End Sub Function RegKeyExists(i_RegKey As String) As Boolean Dim myWS As Object On Error GoTo ErrorHandler Set myWS = CreateObject("WScript.Shell") myWS.RegRead i_RegKey RegKeyExists = True Exit Function ErrorHandler: RegKeyExists = False End Function[attach=1232532][/attach]