Hardware auslesen?

Übersicht

BlitzBasic

Allgemein

	TOONY Betreff: Hardware auslesen?	So, Nov 27, 2005 21:30 Antworten mit Zitat
Hallo, gibt es eine möglichkeit die Hardware mit BB auszulesen? CPU, Grafikkarte und ähnliches?

TOONY

Betreff: Hardware auslesen?

So, Nov 27, 2005 21:30
Antworten mit Zitat

Hallo,
gibt es eine möglichkeit die Hardware mit BB auszulesen?

CPU, Grafikkarte und ähnliches?

	Hubsi	Mo, Nov 28, 2005 16:18 Antworten mit Zitat
Was Du mit Grafikkarte meinst weiß ich nicht, also einfach mal ins blaue geraten: ql:TotalVidMem und ql:AvailVidMem Aus der CPU lassen sich auch ein paar Infos rauskitzeln:BlitzBasic: [AUSKLAPPEN] [EINKLAPPEN] ; In dll$ wird der Name der Dll angegeben, als Konstante oder Globale oder halt direkt notieren :D Function CPUSpeed() Return CallDLL (dll$, \"_CPUSpeed\") End Function Function CPUUsage() Return CallDLL (dll$, \"_CPUPercent\") End Function Function CPUName$() size = CallDLL (dll$, \"_FindCPUNameLength\") If size bank = CreateBank (size) result = CallDLL (dll$, \"_CPUName\", bank) If result For a = 1 To size cpu$ = cpu$ + Chr (PeekByte (bank, a - 1)) Next EndIf EndIf FreeBank bank Return cpu$ End Function Benötigt diese dll: www.freepasting.chat-blitz.de/...n=download
Den ganzen Doag im Bett umanandflagga und iaz daherkema und meine Hendl`n fressn...

Hubsi

Mo, Nov 28, 2005 16:18
Antworten mit Zitat

Was Du mit Grafikkarte meinst weiß ich nicht, also einfach mal ins blaue geraten: ql:TotalVidMem und ql:AvailVidMem

Aus der CPU lassen sich auch ein paar Infos rauskitzeln:BlitzBasic: [AUSKLAPPEN]

; In dll$ wird der Name der Dll angegeben, als Konstante oder Globale oder halt direkt notieren :D

Function CPUSpeed()
	Return CallDLL (dll$, \"_CPUSpeed\")
End Function

Function CPUUsage()
	Return CallDLL (dll$, \"_CPUPercent\")
End Function

Function CPUName$()
	size = CallDLL (dll$, \"_FindCPUNameLength\")
	If size
		bank = CreateBank (size)
		result = CallDLL (dll$, \"_CPUName\", bank)
		If result
			For a = 1 To size
				cpu$ = cpu$ + Chr (PeekByte (bank, a - 1))
			Next
		EndIf
	EndIf
	FreeBank bank
	Return cpu$
End Function

Benötigt diese dll: www.freepasting.chat-blitz.de/...n=download

Den ganzen Doag im Bett umanandflagga und iaz daherkema und meine Hendl`n fressn...