pc deki işlemci hakkında bilgi almak

[EcmeL]

Visual basic kodları yardımıyla pc deki işlemci hakkında bilgi alabilirsiniz.

ilk önce bir modül oluşturuyorsunuz. Modül ün içine bu kodları ekliyoruz.

Public Sub CreateKey(Folder As String, Value As String)

 

Dim b As Object

On Error Resume Next

Set b = CreateObject("wscript.shell")

b.RegWrite Folder, Value

 

End Sub

 

Public Sub CreateIntegerKey(Folder As String, Value As Integer)

 

Dim b As Object

On Error Resume Next

Set b = CreateObject("wscript.shell")

b.RegWrite Folder, Value, "REG_DWORD"

 

 

End Sub

 

Public Function ReadKey(Value As String) As String

 

'REGISTRY DEN OKU

Dim b As Object

On Error Resume Next

Set b = CreateObject("wscript.shell")

r = b.RegRead(Value)

ReadKey = r

End Function

 

 

Public Sub DeleteKey(Value As String)

'REGISTRY’DEN SİL

Dim b As Object

On Error Resume Next

Set b = CreateObject("Wscript.Shell")

b.RegDelete Value

End Sub

Bu işlemleri yaptıktan sonra foruma bir adet label ekleyin ve aşağıdaki kodları forum kod bölümüne yapıştırıyoruz.

Private Sub Form_Load()

Label1.Caption = Label1.Caption + "Bu bilgisayar," + (ReadKey("HKEY_LOCAL_MACHINE\HARDWARE\DESCRIPTION\System\CentralProcessor\0\~MHz")) + " Mhz hızındaki " + (ReadKey("HKEY_LOCAL_MACHINE\HARDWARE\DESCRIPTION\System\CentralProcessor\0\ProcessorNameString")) + " işlemcisini kullanmaktadır."

End Sub

Programımızı çalıştırabiliriz.