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

Derecelendirme: 5/5 - 1 oy
Kullanici Avatari

chopper07

Uzman
Uzman
ER....
 42
1.805
29/01/2008
376
Aydın
Otel Müdürü
Ofis 2016 64 Bit
19/02/2018,16:03
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...®


Kullanici Avatari

ozanakkaya

sledgeab
Kurucu
OZ.... AK....
 40
10.943
29/01/2008
Denizli
Memur
Ofis 2010 32 Bit
Dün,20:44
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.407 20/03/2011, 21:04
Son Yorum: schworse
  Web sitesinden Resim Alma !!! chopper07 3 4.714 04/01/2009, 09:37
Son Yorum: ozanakkaya

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