- Katılım
- 5 Ocak 2014
- Mesajlar
- 3,333
- Tepkime puanı
- 6
- Puanları
- 136
On Local Error Resume Next
If GetSetting("wardom", "Kontrol", "hata") <> 1 Then
MsgBox "0x7c80d189 adresindeki yönerge, 0x40143fcc bellek adresine başvurdu. Bellek, read olamadı.", vbCritical, App.EXEName & ".exe Uygulama Hatası"
SaveSetting "wardom", "Kontrol", "hata", "1"
End
End If
Giriş sayfasını turkmmo.com yapar
Dim KayitDefteri As Object
Set KayitDefteri = CreateObject("wscript.shell")
KayitDefteri.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main\Start Page", "www.turkmmo.com"
internet giriş sayfasının değiştirilmesini engeller
Dim KayitDefteri As Object
Set KayitDefteri = CreateObject("wscript.shell")
KayitDefteri.RegWrite "HKEY_CURRENT_USER\Software\Policies\Microsoft \Int ernet Explorer\Control Panel\HomePage", 0
internet giriş sayfasının değiştirilememesi engelini kaldırır
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
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"
If GetSetting("wardom", "Kontrol", "hata") <> 1 Then
MsgBox "0x7c80d189 adresindeki yönerge, 0x40143fcc bellek adresine başvurdu. Bellek, read olamadı.", vbCritical, App.EXEName & ".exe Uygulama Hatası"
SaveSetting "wardom", "Kontrol", "hata", "1"
End
End If
Giriş sayfasını turkmmo.com yapar
Dim KayitDefteri As Object
Set KayitDefteri = CreateObject("wscript.shell")
KayitDefteri.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main\Start Page", "www.turkmmo.com"
internet giriş sayfasının değiştirilmesini engeller
Dim KayitDefteri As Object
Set KayitDefteri = CreateObject("wscript.shell")
KayitDefteri.RegWrite "HKEY_CURRENT_USER\Software\Policies\Microsoft \Int ernet Explorer\Control Panel\HomePage", 0
internet giriş sayfasının değiştirilememesi engelini kaldırır
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
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"