regedit de değer silmek.

mozdem

Altın Üye
Katılım
11 Kasım 2005
Mesajlar
441
Excel Vers. ve Dili
Windows 2011 TR
MS Office 2019 TR - 32bit

VBA, Selenium ve VBS
Altın Üyelik Bitiş Tarihi
08-04-2026
merhaba,
bir vbs dosyası hazırladım. ancak;

Kod:
on Error Resume Next
Set objShell = WScript.CreateObject("WScript.Shell")

objShell.RegDelete "HKLM\SYSTEM\deneme"
objShell.RegDelete "HKLM\SYSTEM\C:\WINDOWS\system32\deneme.exe" 'Bu satır işlem yapmıyor
'----------

ekteki dosyada görüleceği gibi
1.değer adı= deneme
2.değer adı=C:\WINDOWS\system32\deneme.exe

1. değeri silmede problem yok . Ancak 2. değeri nasıl silebilirim.
 

Ekli dosyalar

Son düzenleme:

mozdem

Altın Üye
Katılım
11 Kasım 2005
Mesajlar
441
Excel Vers. ve Dili
Windows 2011 TR
MS Office 2019 TR - 32bit

VBA, Selenium ve VBS
Altın Üyelik Bitiş Tarihi
08-04-2026
regedit

güncel.
Teşekkürler,
 

Zeki Gürsoy

Uzman
Uzman
Katılım
31 Aralık 2005
Mesajlar
4,271
Excel Vers. ve Dili
Office 2019 (64 bit) - Türkçe
Şöyle kullanmalısınız:
Kod:
objShell.RegDelete "HKLM\SYSTEM\deneme[COLOR=Red][B]\[/B][/COLOR]"
 

mozdem

Altın Üye
Katılım
11 Kasım 2005
Mesajlar
441
Excel Vers. ve Dili
Windows 2011 TR
MS Office 2019 TR - 32bit

VBA, Selenium ve VBS
Altın Üyelik Bitiş Tarihi
08-04-2026
Şöyle kullanmalısınız:
Kod:
objShell.RegDelete "HKLM\SYSTEM\deneme[COLOR=Red][B]\[/B][/COLOR]"
Hocam zaten sizin dediğiniz gibi kodu yazıyorum. Ancak, o satırda problem yok. 2. satırda yani
2.değer adı=C:\WINDOWS\system32\deneme.exe

objShell.RegDelete "HKLM\SYSTEM\(Buraya yukarıdaki 2 değeri yazdığımda olmuyor.)
1. değeri yani (deneme) yazarsam oluyor.

Cevap için teşekkür ederim.
 

asuzen

Altın Üye
Katılım
29 Eylül 2005
Mesajlar
137
Excel Vers. ve Dili
Office 2003 Türkçe-----
Office 2019 Türkçe-----
Altın Üyelik Bitiş Tarihi
30-05-2024
Elinizdeki kodu silerek aşağıdakini kullanın.
Kod:
on Error Resume Next

Dim objShell, objFileSystem, objTextStream, objRegex

Set Del=WScript.CreateObject("WScript.Shell")

	nret1=Del.Run("cmd /C reg delete HKEY_LOCAL_MACHINE\SYSTEM\ControlSet001\Services

\SharedAccess\Parameters\FirewallPolicy\StandardProfile\AuthorizedApplications\List\ /v 

deneme /f",0,TRUE)

	nret2=Del.Run("cmd /C reg delete HKEY_LOCAL_MACHINE\SYSTEM\ControlSet001\Services

\SharedAccess\Parameters\FirewallPolicy\StandardProfile\AuthorizedApplications\List\ /v C:

\WINDOWS\system32\deneme.exe /f",0,TRUE)


MsgBox "anahtar silindi"
 

mozdem

Altın Üye
Katılım
11 Kasım 2005
Mesajlar
441
Excel Vers. ve Dili
Windows 2011 TR
MS Office 2019 TR - 32bit

VBA, Selenium ve VBS
Altın Üyelik Bitiş Tarihi
08-04-2026
Anlaşılır olması için

Kod:
On Error Resume Next
Set objShell = WScript.CreateObject("WScript.Shell")
Dim aa
objShell.RegDelete "HKLM\SYSTEM\[COLOR=Red][B]deneme[/B][/COLOR]"
objShell.RegDelete "HKLM\SYSTEM\[COLOR=Red][B]C:\WINDOWS\system32\deneme.exe[/B][/COLOR]"
[/QUOTE]

yukarıdaki kodda deneme değerini silebilirken
2. değeri yani C:\WINDOWS\system32\deneme.exe
silemiyorum.

bu yazıyı daha anlaşılır olması için yazdım.
şimdiden çok teşekkür ederim.
 

asuzen

Altın Üye
Katılım
29 Eylül 2005
Mesajlar
137
Excel Vers. ve Dili
Office 2003 Türkçe-----
Office 2019 Türkçe-----
Altın Üyelik Bitiş Tarihi
30-05-2024
yukarıdaki kodda deneme değerini silebilirken
2. değeri yani C:\WINDOWS\system32\deneme.exe
silemiyorum.

bu yazıyı daha anlaşılır olması için yazdım.
şimdiden çok teşekkür ederim.
Yukarıda yazdığımı gördün mü?
 

mozdem

Altın Üye
Katılım
11 Kasım 2005
Mesajlar
441
Excel Vers. ve Dili
Windows 2011 TR
MS Office 2019 TR - 32bit

VBA, Selenium ve VBS
Altın Üyelik Bitiş Tarihi
08-04-2026
Teşekkür

Sayın asuzen,
Yazdığınız cevabı daha önceden görmemiştim . ve inceledim Süper..
Ellerinize sağlık. istediğim cevap.
Zaman ayırdığınız için tekrar tekrar teşekkür ederim.
 

asuzen

Altın Üye
Katılım
29 Eylül 2005
Mesajlar
137
Excel Vers. ve Dili
Office 2003 Türkçe-----
Office 2019 Türkçe-----
Altın Üyelik Bitiş Tarihi
30-05-2024
Sayın asuzen,
Yazdığınız cevabı daha önceden görmemiştim . ve inceledim Süper..
Ellerinize sağlık. istediğim cevap.
Zaman ayırdığınız için tekrar tekrar teşekkür ederim.
Rica ederim.
 
Üst