Kayıt Defterine Kolay Erişim (oku/yaz/kontrol et) VB6 Kaynak Kod (source code)

Cevapla
Kullanıcı avatarı
H4NOK
Megabyte1
Megabyte1
Mesajlar: 885
Kayıt: 11 Nis 2022, 17:18
cinsiyet: Erkek
Teşekkür etti: 275 kez
Teşekkür edildi: 507 kez
İletişim:

Kayıt Defterine Kolay Erişim (oku/yaz/kontrol et) VB6 Kaynak Kod (source code)

Mesaj gönderen H4NOK »

Visual Basic 6.0 Kolay Registry Fonksiyonu
Oku / Yaz / Değiştir / Kontrol Et - Compile Edilmemiştir Kaynak Kodudur !

Resim


Kod: Tümünü seç

'UYARI !
'REGISTRY ILE ISLEM YAPARKEN DIKKATLI OLUN !
'BILGISAYARINIZDA SORUN OLUŞMASINA SEBEP OLABILIRSINIZ !

'DWORD EKLEME /DEGISTIRME
'Call DwordEkle("HKLM\SOFTWARE\Policies\Microsoft\Windows\LocationAndSensors\DisableSensors","1")
Function DwordEkle(Veri1, Veri2 As String): DoEvents
On Error Resume Next
Dim wsKomut: Set wsKomut = CreateObject("WScript.Shell")
wsKomut.RegWrite Veri1, Veri2, "REG_DWORD"
End Function

'STRING EKLEME /DEGISTIRME
'Call StringEkle("HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\OEMInformation\SupportURL","www.websitem.com")
Function StringEkle(Veri1, Veri2 As String): DoEvents
On Error Resume Next
Dim wsKomut: Set wsKomut = CreateObject("WScript.Shell")
wsKomut.RegWrite Veri1, Veri2, "REG_SZ"
End Function

'REGISTRY KEY SILME
'Call RegSil("HKLM\Software\Microsoft\Windows\Windows Error Reporting\Disabled")
Function RegSil(Veri1 As String): DoEvents
On Error Resume Next
Dim wsKomut: Set wsKomut = CreateObject("WScript.Shell")
wsKomut.RegDelete Veri1
End Function

'REGISTRY KEY VARMI KONTROL ET / VARSA DEGERiNi GÖSTER
'Call RegKontrol("HKLM\Software\Microsoft\Windows\Windows Error Reporting\Disabled")
Function RegKontrol(Ver1 As String)
Dim Kontrol: With CreateObject("WScript.Shell")
  On Error Resume Next: Deger = .RegRead(Ver1): Kontrol = (Err.Number = 0)
  On Error GoTo 0: End With
If Kontrol Then
  RegKontrol = True 'aranan anahtar mevcut, true döndür
  MsgBox Deger 'burda reg anahtarının içerik mesajı gösteriliyor, istenirse textbox yada benzeri yere aktarabilirsiniz
  'Text1 = Deger "< gibi"
Else
  RegKontrol = False 'aranan anahtar mevcut degil, false döndür
  MsgBox "Girilen Registry Anahtarı Yok / Veya Erişilemiyor !", vbInformation, "UYARI"
End If
End Function

Private Sub Command1_Click()
Call RegKontrol("HKLM\SOFTWARE\Policies\Microsoft\Windows\LocationAndSensors\DisableSensors")
End Sub

Private Sub Command2_Click()

End Sub


Kaynak Kod

Kod: Tümünü seç

https://disk.yandex.com.tr/d/48ai8BacEo4Wjg
Kullanıcı avatarı
esatiz
Gigabyte3
Gigabyte3
Mesajlar: 2650
Kayıt: 30 Eki 2020, 11:18
cinsiyet: Erkek
Teşekkür etti: 341 kez
Teşekkür edildi: 272 kez

Re: Kayıt Defterine Kolay Erişim (oku/yaz/kontrol et) VB6 Kaynak Kod (source code)

Mesaj gönderen esatiz »

teşekkürler
Kullanıcı avatarı
H4NOK
Megabyte1
Megabyte1
Mesajlar: 885
Kayıt: 11 Nis 2022, 17:18
cinsiyet: Erkek
Teşekkür etti: 275 kez
Teşekkür edildi: 507 kez
İletişim:

Re: Kayıt Defterine Kolay Erişim (oku/yaz/kontrol et) VB6 Kaynak Kod (source code)

Mesaj gönderen H4NOK »

esatiz yazdı: 06 May 2022, 01:54teşekkürler
:arrow:
Cevapla