-
Dec 28th, 2003, 05:55 PM
#41
We could try that, but I sent you a Private Message that you haven't opened that contains my email address.
-
Dec 28th, 2003, 06:39 PM
#42
Lively Member
I have sent the email, like I said in the email, I am very grateful, Thanks
-
Dec 29th, 2003, 07:39 AM
#43
Lively Member
Martin, If I update the vb files, And add more stuff, once installed on a computer where it hasnt been registered, will it still ask for the registration?
-
Dec 29th, 2003, 10:54 AM
#44
Originally posted by Cosmictej
Martin, If I update the vb files, And add more stuff, once installed on a computer where it hasnt been registered, will it still ask for the registration?
No, once registered the user is always registered unless they change their hard drive.
-
Dec 29th, 2003, 11:27 AM
#45
Lively Member
Thanks Martin for all your help
-
Dec 29th, 2003, 03:09 PM
#46
Frenzied Member
MAC ID is a solid number to use as well. At least that only changes if you change NIC's/Motherboards with onboard NICs.
-
Dec 30th, 2003, 02:05 AM
#47
Addicted Member
Hey Martin
I've downloaded the files and tried to run Protect.vbp file from the IDE. I've selected the Request Registration Key option, entered my name and clicked next. It generates error at the line
VB Code:
[COLOR=crimson]mpMessages.ResolveName[/COLOR]
The error says
Runtime Error '32026'
Not Supported
Could u pls. Help me with this
-
Dec 30th, 2003, 11:27 AM
#48
I'm sorry but I have no idea why you are getting that error. Did you change anything in the program? Do you have Outlook on your PC?
-
Dec 30th, 2003, 04:44 PM
#49
Lively Member
Umm, Martin I recieved an email from someone wanting to register my program and it says this Dinger3410 472400162 but when I enter it in the gen. It dont work I didnt change any of the algo
-
Dec 30th, 2003, 07:05 PM
#50
Is 472400162 the HD serial number or is it the value the you got from GenKey? You should also make sure that the alogrythm in GenKey is the same as the one in the app.
-
Dec 31st, 2003, 05:47 AM
#51
Lively Member
Its ok, I worked it out, basically the guy who registered, the name included numbers Thanks Martin
-
Dec 31st, 2003, 07:40 AM
#52
Lively Member
Martin, I updated my files, and now poeple who have registered, cant register and cant use the functions as it asks them to register.
-
Dec 31st, 2003, 12:13 PM
#53
Originally posted by Cosmictej
Martin, I updated my files, and now poeple who have registered, cant register and cant use the functions as it asks them to register.
I'm sorry but I don't understand what you are saying.
-
Dec 31st, 2003, 12:17 PM
#54
Lively Member
Umm basically, I updated the files and sent them 2 people who had the older version. It doesnt ask them to register but instead when they use it where this code is
If Not gRegClass.Registered Then
MsgBox "You must be registered in order to use this function.", vbInformation, "Not Registered"
Exit Sub
End If
they cant use the program. I need it to realise this is an update.
-
Dec 31st, 2003, 12:36 PM
#55
Do you have the program code set up properly? The following is the important code. (frmDone should be replaced by your normal first form). Note that Sub Main calls GetAppEnvironment and if the person is registered then gRegClass.Registered gets set to True.
Did you send them the code that included my code?
VB Code:
Public Sub Main()
Dim frm As Form ' Create a Form object
GetAppEnvironment ' Calls the routine that finds out if the user is registered
If Not gRegClass.Registered Then ' Registered is a boolean property of theCRegister class
frmRegister.Show vbModal ' If the user is not registered then the register form is displayed
Else
frmDone.Show vbModal ' In this app if the user is registered then frmDone is displayed.
' In your app you would probably replace frmDone with your main form
End If
For Each frm In Forms ' Loop through all the forms...
Unload frm ' and unload them...
Set frm = Nothing ' and set them to Nothing
Next
End ' 99.99999% of the time not needed, but it can't hurt after you've unloaded your forms.
End Sub
VB Code:
Public Sub GetAppEnvironment()
'***************************************************************************
'Purpose: Get the application environment
'Inputs: None
'Outputs: None
'***************************************************************************
Dim strKey As String
On Error GoTo ErrorRoutine
strKey = GetSetting(App.EXEName, "Registration", "Registration Key", "123456789")
If strKey = CalcRegKey(GetSerialNumber) Then
gRegClass.Registered = True
g_strRegTo = GetSetting(App.EXEName, "Registration", "User", "Registered User")
Else
gRegClass.Registered = False
End If
ErrorRoutine:
If Err.Number <> 0 Then
DisplayError "GetAppEnvironment"
End
End If
End Sub
-
Dec 31st, 2003, 12:42 PM
#56
Lively Member
Mate you sorted it our for me
-
Dec 31st, 2003, 12:49 PM
#57
-
Jan 4th, 2004, 11:58 AM
#58
Fanatic Member
Yet another question for you Marty.
I used inno Setup to compile my setup file.
At which point I tried the disc on another machine - but the registration program didnt come up - it just went straight to the first form!
What do I need to include in the install? Any registry entries? INNO didnt seem to pick up on anything.
Cheers
Eve
xxx
Trust no one
----------------------------------------
http://www.eccentrix.com/members/xeaudrey/exanegotium.html
http://www.eccentrix.com/members/xeaudrey/
-
Jan 4th, 2004, 12:06 PM
#59
The setup won't affect anything; everything that's needed is in the code. Take a look at the code I posted a couple of posts up for Cosmictej where I showed what Sub Main and GetAppEnvironment should look like. Did you include that code and does your code look like that?
-
Jan 4th, 2004, 12:36 PM
#60
Fanatic Member
Originally posted by MartinLiss
The setup won't affect anything; everything that's needed is in the code. Take a look at the code I posted a couple of posts up for Cosmictej where I showed what Sub Main and GetAppEnvironment should look like. Did you include that code and does your code look like that?
Yup they are identical
I wish they werent - it would probablly make it simpler lol
Trust no one
----------------------------------------
http://www.eccentrix.com/members/xeaudrey/exanegotium.html
http://www.eccentrix.com/members/xeaudrey/
-
Jan 4th, 2004, 01:25 PM
#61
Would you want to zip up and send me your source code?
-
Jan 7th, 2004, 05:24 PM
#62
evexa, I looked at your code and the project Startup Object should be Sub Main and not Form1. The way it works is that Sub Main calls the routine that finds out if the user is registered. If the user is registered then Sub Main displays Form1 otherwise it displays frmRegister.
(My 9000th post!)
-
Jan 10th, 2004, 01:11 AM
#63
Fanatic Member
-
Jan 10th, 2004, 07:17 AM
#64
A couple of suggestions.
You don't have to use the alogrythm that I use at all so you can make one up that doesn't use the square root, or you can use the Absolute Value function (I thinks it's Abs but I can't check it now) before taking the square root. Whatever you do however make sure that you make the algorythm the same in both places.
-
Jan 10th, 2004, 06:00 PM
#65
Fanatic Member
Cheers Marty everything works perfectly now (well except for a registration error that occurrs but i think thats due to software on my machine that blocks silent emails.)
Thanks again!
xxx
Originally posted by MartinLiss
A couple of suggestions.
You don't have to use the alogrythm that I use at all so you can make one up that doesn't use the square root, or you can use the Absolute Value function (I thinks it's Abs but I can't check it now) before taking the square root. Whatever you do however make sure that you make the algorythm the same in both places.
Trust no one
----------------------------------------
http://www.eccentrix.com/members/xeaudrey/exanegotium.html
http://www.eccentrix.com/members/xeaudrey/
-
Jan 10th, 2004, 06:20 PM
#66
-
Mar 1st, 2004, 07:08 AM
#67
Fanatic Member
Excellent work Martin.
Just one suggestion to the people using this - You really do need to change the algorithm otherwise anybody can download the files above and generate keys for your program.
Martin J Wallace (Slaine)
-
Mar 1st, 2004, 11:20 AM
#68
Thanks, but it's not up to change it. That should be done by whomever downloads it and I implied that in my original post. I did however edit that post to reinforce that point.
-
Apr 11th, 2004, 11:57 AM
#69
Hyperactive Member
Hello Marty
I have a question that is VB 101 I'm sure but I can't find a reference to this type of usage, the so here we go:
In your code you append a $ to the end of some variables. I know that the $ is code for string variable. But you have already declared the variable as a string at the start of the function. So what is the purpose of the $ at this point?
Thanks
David
-
Apr 11th, 2004, 12:03 PM
#70
It's redundant. Some of the code I used was picked up from other places and I never bothered to change it.
-
May 5th, 2004, 12:01 AM
#71
Hyperactive Member
Hello Marty
I have the program setup and working.
But my users get wigged out and shut it down when the program resolves the recipname and then again when it sends the email.
Either Outlook (depending on their security settings) or their anti-virus program will pop up a dire message on attempting to resolve the address that a virus may be attempting to access your address book and do you want to stop it?
Then it happens again when it goes to send the message and you get a simularly frightening warning. I tried remming out the resolvename line To at least get rid of the most dire of the two messages, but now it won't send the message and throws the dreaded error 32002 unspecified error.
Any ideas?
Thanks
David
-
May 5th, 2004, 09:55 AM
#72
Perhaps you could remove the automatic email and instead pop up a message saying something like "In order to register, please cut and paste the following information and send it in an email to..."
-
May 5th, 2004, 11:20 AM
#73
Hyperactive Member
Is there a way to mail something without going thru Outlook?
Mapi appears to just be a portal to the installed email client. So, it looks like I will have to use something else to bypass Outlook. Any ideas?
Also what is the purpose of "resolving" the email address in outlook? I'm confused as to why when I supply it with an email addy thru the code it still needs to look it up in the outlook addy book.
If I could get it to send with out the name resolve it might be doable. As most people will ignore one mild warning if they trust the app. But almost no one will bypass the 3 dire "THIS MAY BE A VIRUS" warnings that mapi triggers in outlook.
Thanks
David
Last edited by David RH; May 5th, 2004 at 11:53 AM.
-
May 5th, 2004, 01:08 PM
#74
I did a forum search for email without outlook and this was one of the hits.
-
May 5th, 2004, 04:09 PM
#75
Hyperactive Member
I also found this:
http://www.freevbcode.com/ShowCode.Asp?ID=109
I've given it a short test run and so far it seems to work very well. I'm going to send it to beta testers to see if it holds up under stress.
David
-
Jul 16th, 2004, 02:45 PM
#76
Hyperactive Member
what if the user gets a new hard disk
What if the user gets a new hard disk .....
he will have to register again ?
I use the same system with my program ..... and this is one of the problems I had to encounter .........
I save my registration info on a file .... is it better to store it on the registry ....... ?
Last edited by Dasiths; Jul 16th, 2004 at 02:49 PM.
It is the mark of an instructed mind to rest satisfied with the degree of precision which the nature of the subject admits, and not to seek exactness when only an approximation of the truth is possible.
-Aristotle As quoted in Rapid Development, chapter 8, page 167.
-
Jul 16th, 2004, 06:08 PM
#77
Re: what if the user gets a new hard disk
Originally posted by Dasiths
What if the user gets a new hard disk .....
he will have to register again ?
I use the same system with my program ..... and this is one of the problems I had to encounter .........
I save my registration info on a file .... is it better to store it on the registry ....... ?
Yes, the user will need to register again if he gets a new hard disk. I obviously think it's better to store the info in the Registry but some people like using files.
-
Oct 14th, 2004, 01:58 PM
#78
Fanatic Member
could possibly be the reason the hard drive is showing as 0 is that the disks have been made as 'dynamic' under xp operating system?
-
Nov 2nd, 2004, 11:03 PM
#79
Hyperactive Member
Hi.....For the above code, may I know whether it is possible to modify it for my appforge program. My appforge program requires the user to register the name and product ID which is given by us and after the user register the name, he or she will be unable to change the name. My program is a chat program between a PDA and a desktop computer, so whenever the user message the computer using the PDA, the user name will be displayed. Assistance is much needed! Thank you for all the help!
-
Nov 3rd, 2004, 10:36 AM
#80
I can't help you with that but you are welcome to copy and modify my code in any way you wish.
Posting Permissions
- You may not post new threads
- You may not post replies
- You may not post attachments
- You may not edit your posts
-
Forum Rules
|
Click Here to Expand Forum to Full Width
|