OpenEuphoria

Re: Please help for getting serial number

• Posted by Elliott Sales de Andrade <quantum_analyst at hotmail.com> Jun 21, 2002
• 446 views

It seems to work fine. On my WinXP machine it always returns the same number 
(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)
>============================================
>
>
>




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