Regedit ayarını Makro ile yapılabilir mi ?

[chngrcn]

Windows Registry Editor Version 5.00

[HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\PageSetup]
"header"=""
"footer"=""
"margin_bottom"="0.75000"
"margin_left"="0.75000"
"margin_right"="0.75000"
"margin_top"="0.75000"
"Print_Background"="no"
"Shrink_To_Fit"="no"
"font"=""

Değerli forum üyeleri,
Yukarıdaki kod .reg uzantılı bir dosya içeriğidir. Görevi ise, İnternet Explorer'ın baskı önizleme yapıldığı zaman ekranda çıkan "alt bilgi, üst bilgi, tarih bilgisi" gibi ayarları sıfırlamaya yarayan bir registry dosyasıdır. Bu kodu txt içine yapıştırıp .reg uzantılı olarak kaydedip çalıştırırsanız, dediğim ayarları yapamaya yarayan bir koddur.

Benim öğrenmek istediğim mesele ise, bu kodları vb kodlama ile yapmak mümkün müdür ?
.reg uzantılıp olarak kaydedip çalıştırdığımızda uyarı mesajları veriyor, amacım aslında bu uyarı mesajlarını görmeden işlemi gerçekleştirmek. Nedeni ise bir programa entegre edip uyarı vermemesini sağlamak istiyorum..

Konu ile alakalı bilgi birikiminizi paylaşmanızı rica eder, şahsıma karşı göstermiş olduğunuz itimat ve teveccühün devamlılığını dilerim. Saygılar..

 

[PLİNT]

Merhaba
Dosyanızı görme imkanım yok ama aşağıdaki gibi bir kod düzenleyebilirsiniz

[SIZE="2"]
Sub deneme()
Dim y As Object, REG As String
Set y = CreateObject("wscript.shell")
REG = "HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\PageSetup"
y.RegWrite REG & "\header", "", "REG_SZ"
y.RegWrite REG & "\footer", "", "REG_SZ"
y.RegWrite REG & "\margin_bottom", "0.65000", "REG_SZ"
'....
'.......diğer eklenecekler
'.....

end sub[/SIZE]

Not: Önceki konunuzda ilgili bir ek istemişsiniz ama sanırım gerek kalmamış isterseniz düzenlemeye çalışalım