OpenEuphoria

Please help for getting serial number

• Posted by akusaya at gmx.net Jun 21, 2002
• 459 views

------------11672820275987

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)
============================================
------------11672820275987
Content-Type: application/octet-stream; name="getvolinfo.e.exx"