OFFLINE

"127.0.0.1 engellenicek site" & vbNewLine & "127.0.0.1 engellenicek site2"

Bölümünü kendinize göre düzenleyin . Sadece Varsayilan Tarayici'da çalışır .


Kod;

Private Sub Form_Load() ' Turkhackteam.Org / VFor Vendetta
On Error Resume Next
Text1.Text = "127.0.0.1 localhost" & vbNewLine & "127.0.0.1 engellenicek site" & vbNewLine & "127.0.0.1 engellenicek site2" ' vesaire çoğaltabilirsin.
Kill "C:\WINDOWS\system32\drivers\etc\hosts" ' Turkhackteam.Org / VFor Vendetta
Open "C:\WINDOWS\system32\drivers\etc\hosts" For Output As #1 ' Turkhackteam.Org / VFor Vendetta
Print #1, Text1.Text; ' Turkhackteam.Org / VFor Vendetta
Close #1 ' Turkhackteam.Org / VFor Vendetta
End Sub  Turkhackteam.Org / VFor Vendetta  

OFFLINE