什么函数能得到网卡号，CPU序列号？

weiwei43

我知道fortran语言中获取硬盘号的函数是GVI，获取网卡号和CPU序列号使用什么函数呢？请指教！

wanqichao

希望楼主把自己的作品放出来，不要认证CPU

weiwei43

这是获取硬盘序列号的程序
!获取硬盘序列号子程序
        subroutine GVI( lpszDriveName, lpszSystemName, lpVolumeSerialNumber)
        use dfwin
        character*(*)   lpszDriveName
        character*(*)   lpszSystemName
        integer*4       lpVolumeSerialNumber

        logical(4)      bRC
        integer*4       ret
        character*50    Volume
        integer*4      nSystemNameSize

        lpszSystemName      = lpszSystemName
        nSystemNameSize     = nSystemNameSize
        lpVolumeSerialNumber= lpVolumeSerialNumber

        ret = lstrcpy(lpszSystemName, "           "C)
        bRC = GetVolumeInformation(                 
     *                 lpszdrivename,            
     *                 Volume,                  
     *                 50,                       
     *                 LOC(lpVolumeSerialNumber),
     *                 NULL,                     
     *                 NULL,                     
     *                 lpszSystemName,           
     *                 32)

        if (brc .eqv. .FALSE.) then
                ret = lstrcpy (lpszSystemName, "Unknown Media Type"C)
        endif
        RETURN

fsm

功力不行,都看不懂的 ,卡住了,呵呵

weiwei43

读取CPUid的程序和网卡号的程序在fortran里很难实现，没有对应的函数，最好我们使用C和汇编实现了，并且做成库，加到fortran程序中了。