- Ana Sayfa
- Haberler
- Bağlantılarım
- Hava Durumu
- Youtube
17 Ocak 2019 Perşembe
Regedit İşlemi
Const HKEY_CLASSES_ROOT = &H80000000
Const HKEY_CURRENT_USER = &H80000001
Const HKEY_LOCAL_MACHINE = &H80000002
Const HKEY_USERS = &H80000003
strComputer = "."
strKeyPath = "Software\Test"
Set objRegistry = GetObject("winmgmts:\\" & strComputer & "\root\default:StdRegProv")
DelSubkeysHKCU HKEY_CURRENT_USER, "Software\Bentley\Licensing\1.1\"
DelSubkeysHKLM HKEY_LOCAL_MACHINE, "Software\Wow6432Node\Bentley\Licensing\1.1\"
Sub DelSubkeysHKLM(HKEY_LOCAL_MACHINE, strKey)
objRegistry.EnumKey HKEY_LOCAL_MACHINE, strKey, arrSubKeys
If IsArray(arrSubKeys) Then
For Each strSubkey In arrSubKeys
DelSubkeysHKLM HKEY_LOCAL_MACHINE, strKey & "\" & strSubkey
Next
End If
objRegistry.DeleteKey HKEY_LOCAL_MACHINE, strKey
End Sub
Sub DelSubkeysHKCU(HKEY_CURRENT_USER, strKey)
objRegistry.EnumKey HKEY_CURRENT_USER, strKey, arrSubKeys
If IsArray(arrSubKeys) Then
For Each strSubkey In arrSubKeys
DelSubkeysHKCU HKEY_CURRENT_USER, strKey & "\" & strSubkey
Next
End If
objRegistry.DeleteKey HKEY_CURRENT_USER, strKey
End Sub
Kaydol:
Kayıt Yorumları (Atom)
Hiç yorum yok:
Yorum Gönder