OpenEuphoria

Re[2]: Please help for getting serial number

• Posted by akusaya at gmx.net Jun 22, 2002
• 485 views

Thanks!

if you're curious, this is because a user complain to me that
"system id" on my program always changes every time the program run.
_____________________________________________________________________

E> It seems to work fine. On my WinXP machine it always returns the same number 
E> (3670048).


>>From: akusaya at gmx.net
>>Subject: Please help for getting serial number
>>
>>
>>This is a function that reteives the drive C: serial number.
>>
>>I heard that the result always changes in Windows XP.
>>
>>Please, can you test it?
>>
>>In my machine (Win98) it is always 1022168071.
>>
>>This is a shrouded eu file, you can run it with exw.exe
>>
>>It is shrouded because the source is below but you need the dlla.e
>>to run it, so to simplify it, i shrouded it.
>>
>>Thanks very much!
>>
>>===============================================
>>include dlla.e
>>
>>funcbaru("kernel32", "GetVolumeInformationA",
>>{cString, cString, cLong, cPtr, cPtr, cPtr, cString, cLong}, cLong)
>>
>>global function nomorSerialC()
>>object pserno, ret
>>         pserno = allocate(4)
>>         ret = dllfunc("GetVolumeInformationA", {"C:\\", "", 0, pserno, 0, 
>>0, "", 0})
>>         return peek4u(pserno)
>>end function
>>
>>printf(1, "%d", nomorSerialC())
>>
>>?getc(0)
>>============================================
>>
>>




E> _________________________________________________________________
E> Chat with friends online, try MSN Messenger: http://messenger.msn.com