Excel Forum
ALTIN ÜYELİK Hakkında Bilgi


Geri Git   Excel Forum > Diğer Yazılımlar > WEB Tasarım&Programlama > ASP & VBscript
Atatürk
Şifremi Unuttum

DUYURU SİSTEMİ / REKLAM PANOSU

Özel Arama


Yanıtla
 
Paylaş Konu Araçları Görünüm Modları
Eski 11-02-2012, 00:32   #1
mozdem
Altın Üye
 
Giriş: 11/11/2005
Şehir: Ankara
Mesaj: 313
Excel Vers. ve Dili:
Microsoft Office 2013 Türkçe Microsoft Office 2016 Türkçe
Varsayılan regedit de değer silmek.

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.
Eklenmiş Dosyalar
Dosya Türü: rar deneme.rar (21.2 KB, 5 Görüntülenme)
__________________
Excel 2013 - 2016 Türkçe

Bu mesaj en son " 11-02-2012 " tarihinde saat 01:45 itibariyle mozdem tarafından düzenlenmiştir.... Neden: kodların anlaşılır olması
mozdem Çevrimdışı   Alıntı Yaparak Cevapla
Eski 11-02-2012, 13:04   #2
mozdem
Altın Üye
 
Giriş: 11/11/2005
Şehir: Ankara
Mesaj: 313
Excel Vers. ve Dili:
Microsoft Office 2013 Türkçe Microsoft Office 2016 Türkçe
Varsayılan regedit

güncel.
Teşekkürler,
__________________
Excel 2013 - 2016 Türkçe
mozdem Çevrimdışı   Alıntı Yaparak Cevapla
Eski 11-02-2012, 19:01   #3
Zeki Gürsoy
Uzman
 
Zeki Gürsoy kullanıcısının avatarı
 
Giriş: 31/12/2005
Şehir: Sakarya-Hendek
Mesaj: 3,353
Excel Vers. ve Dili:
Office 2016 (x64) - Türkçe
Varsayılan

Şöyle kullanmalısınız:
Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
objShell.RegDelete "HKLM\SYSTEM\deneme\"
__________________

gursoyzeki@gmail.com




Zeki Gürsoy Çevrimdışı   Alıntı Yaparak Cevapla
Eski 11-02-2012, 19:25   #4
mozdem
Altın Üye
 
Giriş: 11/11/2005
Şehir: Ankara
Mesaj: 313
Excel Vers. ve Dili:
Microsoft Office 2013 Türkçe Microsoft Office 2016 Türkçe
Varsayılan

Alıntı:
Zeki Gürsoy tarafından gönderildi Mesajı Görüntüle
Şöyle kullanmalısınız:
Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
objShell.RegDelete "HKLM\SYSTEM\deneme\"
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.
__________________
Excel 2013 - 2016 Türkçe
mozdem Çevrimdışı   Alıntı Yaparak Cevapla
Eski 11-02-2012, 20:19   #5
asuzen
Altın Üye
 
asuzen kullanıcısının avatarı
 
Giriş: 29/09/2005
Şehir: Balıkesir
Mesaj: 135
Excel Vers. ve Dili:
Office 2003 Türkçe----- Office 2013 Türkçe-----
Varsayılan

Elinizdeki kodu silerek aşağıdakini kullanın.
Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
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"
asuzen Çevrimdışı   Alıntı Yaparak Cevapla
Eski 11-02-2012, 20:19   #6
mozdem
Altın Üye
 
Giriş: 11/11/2005
Şehir: Ankara
Mesaj: 313
Excel Vers. ve Dili:
Microsoft Office 2013 Türkçe Microsoft Office 2016 Türkçe
Varsayılan Anlaşılır olması için

Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
On Error Resume Next
Set objShell = WScript.CreateObject("WScript.Shell")
Dim aa
objShell.RegDelete "HKLM\SYSTEM\deneme"
objShell.RegDelete "HKLM\SYSTEM\C:\WINDOWS\system32\deneme.exe"
[/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.
__________________
Excel 2013 - 2016 Türkçe
mozdem Çevrimdışı   Alıntı Yaparak Cevapla
Eski 11-02-2012, 20:21   #7
asuzen
Altın Üye
 
asuzen kullanıcısının avatarı
 
Giriş: 29/09/2005
Şehir: Balıkesir
Mesaj: 135
Excel Vers. ve Dili:
Office 2003 Türkçe----- Office 2013 Türkçe-----
Varsayılan

Alıntı:
mozdem tarafından gönderildi Mesajı Görüntüle

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ü?
asuzen Çevrimdışı   Alıntı Yaparak Cevapla
Eski 11-02-2012, 20:41   #8
mozdem
Altın Üye
 
Giriş: 11/11/2005
Şehir: Ankara
Mesaj: 313
Excel Vers. ve Dili:
Microsoft Office 2013 Türkçe Microsoft Office 2016 Türkçe
Varsayılan teşekkür

Alıntı:
asuzen tarafından gönderildi Mesajı Görüntüle
Yukarıda yazdığımı gördün mü?
Görmemiştim inceliyorum..
__________________
Excel 2013 - 2016 Türkçe
mozdem Çevrimdışı   Alıntı Yaparak Cevapla
Eski 11-02-2012, 20:55   #9
mozdem
Altın Üye
 
Giriş: 11/11/2005
Şehir: Ankara
Mesaj: 313
Excel Vers. ve Dili:
Microsoft Office 2013 Türkçe Microsoft Office 2016 Türkçe
Smile 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.
__________________
Excel 2013 - 2016 Türkçe
mozdem Çevrimdışı   Alıntı Yaparak Cevapla
Eski 11-02-2012, 21:16   #10
asuzen
Altın Üye
 
asuzen kullanıcısının avatarı
 
Giriş: 29/09/2005
Şehir: Balıkesir
Mesaj: 135
Excel Vers. ve Dili:
Office 2003 Türkçe----- Office 2013 Türkçe-----
Varsayılan

Alıntı:
mozdem tarafından gönderildi Mesajı Görüntüle
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.
asuzen Çevrimdışı   Alıntı Yaparak Cevapla
Yanıtla


Konu Araçları
Görünüm Modları

Gönderme Kuralları
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

BB code is Açık
SimgelerAçık
[IMG] kodu Açık
HTML kodu Kapalı


Saat 15:47


Bu forum Elit NET - www.elitnet.com.tr tarafından sunulmaktadır.

Excel Eğitimi - Mobil Uygulama - Çorlu - Çorlu Web Tasarım - Tarot Falı - invest in turkey - Lingerie - Dyeing Machine - Karton Bardak- Çorlu Özel Eğitim- Site Yönetimi- Led Aydınlatma- Pronet Tekirdağ- Çorlu Kamera- Pronet Edirne- Pronet Kırklareli- Pronet Çerkezköy- Pronet Çorlu- Pronet Lüleburgaz- Pronet Keşan- Çorlu Araç Takip- Çorlu Su Arıtma- Boru Profil- Gebze Emlak- Beylikdüzü Temizlik- İstanbul Burun Estetiği- Bakır Sülfat- Rampa- Rotary- Çorlu İnternet Sitesi- youngblood- Çorlu Palet- Çerkezköy Palet- Çorlu Prefabrik- Çorlu Sürücü Kursu- Çorlu Sandviç Panel- Şişli Avukat- Korona Test Kalemi- Çorlu Vinç- Çorlu Pimapen Tamiri-
Powered by vBulletin Version 3.7.2
Copyright ©2000 - 2017, Jelsoft Enterprises Ltd.
Advertisement System V2.6 By   Branden