http://www.vbforums.com/attachment.p...id=47243&stc=1
Sure, the code is yours to do anything you want with it.
Printable View
http://www.vbforums.com/attachment.p...id=47243&stc=1
Sure, the code is yours to do anything you want with it.
Thanks
" Compile error:
Can't find project or library "
i use vb6 pro
help ....
Do you have a Reference to Outlook in your project?
Martin,
I would like to know if you had a chance to try your registration code on Windows Vista. I have only xp and was wondering if your code will work on all platforms.
Please let me know.
Thanks for the excelent help I learned a lot with this code.
Jose
You're welcome. No I haven't. I don't have Vista.Quote:
Originally Posted by cybersandokan
Seems to work ok on vista so far :)Quote:
Originally Posted by cybersandokan
hi Martin,
Was there a reason why you got the code to look at the HDD serial number rather than say the processor ID serial ?
Why i ask is a lot of people would say i have changed my hard drive or formatted it and the code no longer works having it looking at the processor number instead would be less likely to change would it not ?
Also would you know what i need to change to get the processor serial instead of the HDD or is this not a good idea ?
Many thanks Steve.
It was what I knew how to do.Quote:
Originally Posted by fruitman
YesQuote:
Originally Posted by fruitman
Sorry but I have no idea but I wouldn't be surprised if a search would find it in the Classic forum.Quote:
Originally Posted by fruitman
ok cheers i will do some more searching :)
Steve
Hi.. I dont know if the topic is still active. but i wanna raise a problem which i faced. The hard disk serial number which is returned is not actually the manuafacturers serial number, but the drive volume serial number which will change if we format the hard disk. I would like to use a computer key which will not change even after we format the hard disk as the same serial number will register the software. Thanks in advance.
Hi,
Yes i looked into this as well but didnt manage to find out how, if you find out how i would love to know too as i tried a few things without success.
Take a look at this thread. I don't know if there's a real solution there or not but you can investigate it.
Thanks for the reply. The topic you said had a bit. but when i tested there were some problems. like the OCX said there was not working and other suggested codes were actually the same given by you. The code by you is really good and workable to some extent. The problem i am facing is that the people take registration keys telling that they have formatted the system. the drive volume key will be entirely different from the previous one. So if i thought if i could get this hard disk manufacturers serial number would be very helpful. Thanks for the code.
I dont want it to store my registery in VB folder is their any way to change this
Hi Martin,
i am facing a problem when i added your code in my program. shall i mail you the program ?
Its a great app for registering an app. My main concern is getting the hard drive serial number which you can get from
Public Declare Function GetVolumeInformation Lib "kernel32" Alias "GetVolumeInformationA" (ByVal lpRootPathName As String, ByVal lpVolumeNameBuffer As String, ByVal nVolumeNameSize As Long, lpVolumeSerialNumber As Long, lpMaximumComponentLength As Long, lpFileSystemFlags As Long, ByVal lpFileSystemNameBuffer As String, ByVal nFileSystemNameSize As Long) As Long
I run 2 systems WinXP generates -1330466363 and Win7 32bit generates -0084672515
My main concern is getting the keygen part which brings an error 5. Even changing the code as suggested by j2k in post #2
from
strLicenseKey = CStr(Int(3456 * Sqr(lngSerialNum / 5)))
to
strLicenseKey = CStr(Int(3456 * Sqr(Abs(lngSerialNum) / 5)))
But that only show 000-000-000 which is the Const ZEROS
I also wonder why you use Microsoft MAPI Controls 6.0 for the email when you can use the simple
ShellExecute Me.hwnd, "open", "mailto:" & lblEmail.Caption & "?subject=" & App.Title & " Registration", vbNullString, vbNullString, SW_SHOW
Which works perfectly on the default email system.
Ok I'm back on this hard drive serial number. As I've said I can find the hard drive serial numbers of both my computer, WinXP generates -1330466363 and Win7 32bit generates -0084672515. I want to convert that number to alpha numeric. I've downloaded a few apps from PSC.
http://www.planet-source-code.com/vb...57366&lngWId=1
I like this one:
http://www.planet-source-code.com/vb...54088&lngWId=1
I've taken out the parts for Alpha Replacement Sequence but that clicks Selective Inversion Process which clicks Split and Morph Code.
It compiles and runs ok. I tried it the other day after removing things I didn't need and it now shows Out of Stack Space Error 28.
https://msdn.microsoft.com/en-us/lib...(v=vs.60).aspx
The only functions in there are Invert and iSplit, I wonder why this Error 28 has started showing when it worked ok before.
The other thing is it uses multiple textboxes to show different codes. I want to check if the registration number entered is valid for that HDD serial without using a Form.
You said earlier in the this thread this isn't the best sequence.Code:Private Sub cmdAlpha_Click()
cmdSelective_Click
Text13.Text = Replace(Text8.Text, "27", "Z3")
Text13.Text = Replace(Text13.Text, "91", "8F")
Text13.Text = Replace(Text13.Text, "72", "1K")
Text13.Text = Replace(Text13.Text, "19", "PS")
Text13.Text = Replace(Text13.Text, "56", "O1")
Text13.Text = Replace(Text13.Text, "65", "M3")
Text13.Text = Replace(Text13.Text, "83", "L0")
Text13.Text = Replace(Text13.Text, "38", "E5")
Text13.Text = Replace(Text13.Text, "01", "XD")
Text13.Text = Replace(Text13.Text, "10", "PW")
Text14.Text = Replace(Text9.Text, "30", "C4")
Text14.Text = Replace(Text14.Text, "03", "UX")
Text14.Text = Replace(Text14.Text, "55", "I8")
Text14.Text = Replace(Text14.Text, "66", "PS")
Text14.Text = Replace(Text14.Text, "23", "MZ")
Text14.Text = Replace(Text14.Text, "32", "8Q")
Text14.Text = Replace(Text14.Text, "14", "0L")
Text14.Text = Replace(Text14.Text, "41", "XS")
Text14.Text = Replace(Text14.Text, "74", "9U")
Text14.Text = Replace(Text14.Text, "47", "NT")
Text15.Text = Replace(Text10.Text, "27", "Z3")
Text15.Text = Replace(Text15.Text, "91", "8F")
Text15.Text = Replace(Text15.Text, "72", "1K")
Text15.Text = Replace(Text15.Text, "19", "PS")
Text15.Text = Replace(Text15.Text, "56", "O1")
Text15.Text = Replace(Text15.Text, "32", "8Q")
Text15.Text = Replace(Text15.Text, "14", "0L")
Text15.Text = Replace(Text15.Text, "41", "XS")
Text15.Text = Replace(Text15.Text, "74", "9U")
Text15.Text = Replace(Text15.Text, "47", "NT")
Text16.Text = Replace(Text11.Text, "27", "Z3")
Text16.Text = Replace(Text16.Text, "91", "8F")
Text16.Text = Replace(Text16.Text, "72", "1K")
Text16.Text = Replace(Text16.Text, "19", "PS")
Text16.Text = Replace(Text16.Text, "56", "O1")
Text16.Text = Replace(Text16.Text, "65", "M3")
Text16.Text = Replace(Text16.Text, "83", "L0")
Text16.Text = Replace(Text16.Text, "38", "E5")
Text16.Text = Replace(Text16.Text, "01", "XD")
Text16.Text = Replace(Text16.Text, "10", "PW")
Text17.Text = Replace(Text12.Text, "30", "C4")
Text17.Text = Replace(Text17.Text, "03", "UX")
Text17.Text = Replace(Text17.Text, "55", "I8")
Text17.Text = Replace(Text17.Text, "66", "PS")
Text17.Text = Replace(Text17.Text, "23", "MZ")
Text17.Text = Replace(Text17.Text, "32", "8Q")
Text17.Text = Replace(Text17.Text, "14", "0L")
Text17.Text = Replace(Text17.Text, "41", "XS")
Text17.Text = Replace(Text17.Text, "74", "9U")
Text17.Text = Replace(Text17.Text, "47", "NT")
txtFullAlpha.Text = Text13.Text & "-" & Text14.Text & "-" & Text15.Text & "-" & Text16.Text & "-" & Text17.Text
End Sub