örnekte tek sorun ser0 ser1 e istediğim değer gelmiyor
ser = "ser" & sayac1 sonucu ser0 olmasına rağmen ser0 daki alerter gelmiyor
yardımlarınız için tşkler

Private Sub Göster_Click()



yol = "SYSTEM\CurrentControlSet\Services\"

yol1 = "Start"

ser0 = "Alerter"

ser1 = "ALG"

ser2 = "AppMgmt"

ser3 = "ClipSrv"

ser4 = "EventSystem"

ser5 = "COMSysApp"



For sayac1 = 0 To 5

Controls("metin" & sayac1) = BuyukDegerAl(HLM, yol & "ser" & sayac1, yol1)

Next sayac1

End Sub

Controls("metin" & sayac1) = BuyukDegerAl(HLM, yol & ser, yol1)
kodunda "ser" & sayac1 ser01 oluyo ama ser01 e atadığım alerteri almıyor
örnekte
Controls("metin" & sayac1) = BuyukDegerAl(HLM, yol & "ser" & sayac1, yol1)
bu bölümü yanlış yazmışım
Controls("metin" & sayac1) = BuyukDegerAl(HLM, yol & ser, yol1) değilde
Controls("metin" & sayac1) = BuyukDegerAl(HLM, yol & "ser" & sayac1, yol1)
bu kodu koyun hızlıca geçerken eksik kalmış

Ek Dosyalar

regedit bilgi gösterimi.zip(56.5 KB)