28/11/2008, 22:34
chopper07
Aşağıdaki kodları yeni bir modul oluşturup içine yapıştırın.
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:
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 SubModü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