15
Январь
2011
Средствами VB получить тактовую частоту процессора
Средствами VB получить тактовую частоту процессора
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Dim txt$, FN%
Private Sub Form_Load()
FN = FreeFile
Open "1.bat" For Output As #FN
Print #FN, "wmic cpu get MaxClockSpeed >cpu.txt" & vbCrLf & "del 1.bat"
Close #FN
Shell "1.bat"
Sleep 1000
Open "cpu.txt" For Input As #FN
Line Input #FN, txt
Line Input #FN, txt
Close #FN
Print Val(txt) / 1000
Kill ("cpu.txt")
End Sub