Skip to main content

AccessTr.neT M.

İşlemci Hakkında Bilgi Alma

Konu

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

Kod:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
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
#2
anlatım için teşekkürler
"Boş Örnek Eklerim, Yapıp Verirler" demeyin, örneğinizi hazırlayın.
Komplike kod talebiniz var ise İletişim bağlantısından bize ulaşın. 
Cebelleşmezsen Öğrenemezsin. 
Cevapla
...........

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

Yorum yapmak için üye olmanız gerekiyor

ya da