Oku / Yaz / Değiştir / Kontrol Et - Compile Edilmemiştir Kaynak Kodudur !
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