me estoy haciendo un programita para ir blokeando las paginas basura que
me saltan de ves en cuando y pense que seria facil cojer un testbox una
variable y ya , la idea es blokear (ahora lo hago a mano ) las direcciones
de estas molestas paginas en el archivo Host .pero me encontre con otros
problemas y despues de mirar y remirar no veo como hacerlo.
Problema 1: escribir en el archivo sin sobreescribir lo ya puesto y que continue en el ultimo registro
problema 2: hay que poner 127.0.0.1 y un margen de tabulacion
problema 3: no se poner tampoco la ruta del archivo "C:\WINDOWS\system32\drivers\etc\hosts"
problema 4: como este archivo es de sistema lo unico que lo habre es el notepad yo lo hago de esta manera con icono directo
C:\Windows\notepad.exe "C:\WINDOWS\system32\drivers\etc\hosts" por lo tanto no se me ocurre para que no salte el notepad
Formato
a si queda escrito el archivo pero no se como hacer para solo escribir la pagina en el testbox ,
esto es que deberia estar escrito siempre el 127.0.0.1 para solo poner la pagina mala jeje
la salida o el archivo Host debe de quedar asi
127.0.0.1 http// es aliexpress com
127.0.0.1 www p wntg2x com
127.0.0.1 http activities aliexpress com
127.0.0.1 http n4uzz super-promo boundaryspot biz /
127.0.0.1 http qjozz super-promo.boundaryspot biz
esto es lo que llevo hecho hasta el momento
Código
Imports System.IO Public Class Form1 Private TextBoxes As TextBox() = {Nothing} Private N1 As Int32() Private Result1 As Int32() Private _textBox As Object Private Property TextBox(ByVal TextBoxCount As Short) As Object Get Return _textBox End Get Set(ByVal value As Object) _textBox = value End Set End Property ReadOnly Property Num1 As Int32 Get Return CInt(TextBox1.Text) End Get End Property Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Result1 = {Num1} _ Dim rutaFichero As String Dim i As Integer rutaFichero = Path.Combine(Application.StartupPath, "hts.txt") Dim fichero As New IO.StreamWriter(rutaFichero) fichero.Close() End Sub '-------------------------------- Private Sub PaginasBlokeadasToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PaginasBlokeadasToolStripMenuItem.Click Process.Start(Path.Combine(Application.StartupPath, "C:\WINDOWS\system32\drivers\etc\hosts")) End Sub Private Sub SalirToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SalirToolStripMenuItem.Click If MessageBox.Show("Esta seguro que desea Cerrar ", "Cerrar Stop Spam ", MessageBoxButtons.YesNo, MessageBoxIcon.Question) = Windows.Forms.DialogResult.Yes Then Me.Close() End If End Sub End Class
Saludos
Luis