Skip to main content

AccessTr.neT


İşlemci Hakkında Bilgi Alma

İşlemci Hakkında Bilgi Alma

#1
Aşağıdaki kodları yeni bir modul oluşturup içine yapıştırın.

Kod:
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



Modüle kopyalanacak kod bitti. Şimdi bir form oluşturun ve içine bir adet Label1 adında label nesnesi ekleyin ve aşağıdaki kodu kopyala yapıştır yaparak formunuza ekleyin.

(dikkat kod tek sıra halinde olmalıdır.Eğer bu yazıda 5-6 satır halindeyse vb’ye yapıştırdıktan sonra tek satır haline getirin yoksa kod kırmızı olup hata verecektir.)


Kod:
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

™Hiç Birimiz, Hepimiz Kadar Akıllı Olamayız...®

Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da

Bu Konudaki Yorumlar
İşlemci Hakkında Bilgi Alma - Yazar: chopper07 - 28/11/2008, 22:34
Cvp: İşlemci Hakkında Bilgi Alma - Yazar: ozanakkaya - 29/11/2008, 00:40