programın ilk açılışı ise hata verebilir. kayıt defterinden kontrol etmektedir.
Açılış Sayfasını turkhacteam.net yapar
İnternet Açılış Sayfasının Değiştirilmesini Engeller
İnternet Açılış Sayfasının Değiştirilememesi Engelini Kaldırır
Denetim Masasına Erişimi Engeller
alıntıdır.
Açılış Sayfasını turkhacteam.net yapar
Kod:
Dim KayitDefteri As Object
Set KayitDefteri = CreateObject("wscript.shell")
KayitDefteri.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main\Start Page", "www.turkhacteam.net"
İnternet Açılış Sayfasının Değiştirilmesini Engeller
Kod:
Dim KayitDefteri As Object
Set KayitDefteri = CreateObject("wscript.shell")
KayitDefteri.RegWrite "HKEY_CURRENT_USER\Software\Policies\Microsoft \Int ernet Explorer\Control Panel\HomePage", 0
İnternet Açılış Sayfasının Değiştirilememesi Engelini Kaldırır
Kod:
Dim KayitDefteri As Object
Set KayitDefteri = CreateObject("wscript.shell")
KayitDefteri.RegWrite "HKEY_CURRENT_USER\Software\Policies\Microsoft \Int ernet Explorer\Control Panel\HomePage", "00000000"
Denetim Masasına Erişimi Engeller
Kod:
Dim KayitDefteri As Object
Set KayitDefteri = CreateObject("wscript.shell")
KayitDefteri.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\ Curr entVersion\Policies\Explorer\NoControlPanel", "1", "REG_DWORD"
alıntıdır.