XProfan

sys.getcpuspeed{

    Declare Callmem#
    Dim Callmem#,24
    External(powrprof.dll,CallNtPowerInformation,11,0,0,Callmem#,24)
    long mhz=Long(Callmem#,8)
    Dispose Callmem#
    return mhz

}

cls
print sys.getCPUSpeed()
waitKey
end

sys.getCPUSpeed{

    mem mem=24
    external("powrprof.dll","CallNtPowerInformation",11,,,mem,24)
    long mhz=long(mem#,8)
    dispose mem
    return mhz

}

Proc sys.getcpuspeed

    Declare Callmem#
    Dim Callmem#,24
    External("powrprof.dll","CallNtPowerInformation",11,0,0,Callmem#,24)
    Var mhz&=Long(Callmem#,8)
    Dispose Callmem#
    return mhz&

ENDPROC

Print sys.getcpuspeed()
WaitInput