Konu Araçları | Konu Seçenekleri | Gösterim Stili
Tarih
28/11/2008 22:34
Konu Sahibi
chopper07
Yorumlar
1
Okunma
2275
Konuyu Oyla:
  • Derecelendirme: 5/5 - 1 oy
  • 1
  • 2
  • 3
  • 4
  • 5
chopper07

chopper07

Uzman
3
Er....
 42
 228
 1.806
 29/01/2008
376
 Aydın
 Otel Müdürü
 Ofis 2016 64 Bit
 15/06/2019,10:50
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...®


ozanakkaya

ozanakkaya

Kurucu
1
Oz.... Ak....
 39
 483
 12.103
 29/01/2008
 Denizli
 Memur
 Ofis 2010 32 Bit
 Bugün,00:31
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. 

...........

Konuyu Okuyanlar: 1 Ziyaretçi

Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
  Vb.Net ile veritabanından bilgi çekme çağrıhan23 1 2.548 20/03/2011, 21:04
Son Yorum: schworse
  Web sitesinden Resim Alma !!! chopper07 3 4.949 04/01/2009, 09:37
Son Yorum: ozanakkaya

Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2019 MyBB Group.