Mensajes

Bueno
lo del Adblock ya lo use una ves y de verdad que funciono un tiempo y despues ya nada dejaba pasar todo y lo desisntale por eso ,bueno a pesar que me ya me desanimaron a hacer mis propias armas jejej solo por cuestion de investigacion y mas curiosidad jeje
ire probando los consejos sobre los programas que habeis nombrado

Gracias a todos por sus aportes

Luis

No conoces adblock? 

jajjajajajjajaja te crees ese cuento ?  usalo y veras ,tu crees que google dejara de ganar dinero con esa app de ellos mismos ? la mejor lucha es la tuya propia ,ellos con esa app no permiten la publicidad de otros pero la suya a por un tubo.

hace poco en youtube habia un video de la novia o exnovia de un tal futbolista x y que le dieron 35 mil euros (un dia) por haber dejado el video unos dias sin haberlo retirado por la denuncia . este video se quedo unas semanas y sabes cuanto ganaron por el ? jejej inimaginable , yo cuando me plagian un video y lo denuncio en menos de 24 horas lo quitan y cierran el canal infractor (pobre diablo) pero cuando son ellos y estan ganando pasta olvidate

Luis

[Tener una variable en un textbox y añadirlo al archivo hosts]

Si pudieras ser más específico intentaría proporcionarte una solución más simple (aunque utilizar esa app ya es simple de por si).

No entiendo muy bien lo de "Tener una variable en un textbox y añadirlo al archivo hosts", ¿qué diferencia habría entre hacer eso y abrir el archivo con el notepad?, quiero decir, ¿no tardarías lo mismo o incluso más? xD. Si no lo explicas bien detalladamente yo no se que sugerirte...

Si lo que quieres es cargar el contenido del archivo hosts en un textbox por cuestiones de comodidad, entonces puedes utilizar la función System.IO.File.ReadallText("C:\Windows\System32\Drivers\Etc\Hosts") y recuerda establecer la propiedad Multiline de tu Textbox (también podrías utilizar un RichTextBox).

Para añadir tabulaciones puedes utilizar la constante Microsoft.VisualBasic.ControlChars.Tab, aunque no es necesario usar tabulaciones estrictamente en el archivo Hosts, con que añadas un espacio en blanco es suficiente.

Saludos

A ver lo explicare coloquialmente


Cuando abro google me salta una pagina spam " htpp ejemplo de porqueria con " que me llena de publicidad no deseada, yo lo que quiero es tomar esa direccion. raton derecha copiar  y meterla en el testbox y que me la escriba en el archivo host para bloquearla sin tener que abrir el archivo mediante el cuadro de diaologo  " abrir con que programa ?   " en este caso el note pad, escribir el 127.0.0.1 hacer la tabulacion y poner la direccion de la malevola pagina jejej

Luis

Hay que tener presente que algunos antivirus bloquean la edicion del archivo host, entonces si tienes algun antivirus que haga esa funcion puedes desactivarlo hasta modificar el archivo y despues volverlo a activar.

Ya lo tome en cuenta pero el programa  ( no responde ) y no es cuestion de blokeo solo habre la ventana y se queda en blanco   he tomado una captura de pantalla pero no se subirla aca

Luis

Gracias ELEKTRO ya lo baje y lo instale pero no ( responde ) y se queda hay jejej queria probarlo pero bueno ya con la fuente ire viendo que puedo hacer, ya que yo solo pensaba era un copi del la barra de navegacion  y pega del enlace malebolo en el testbox y grabar en el archivo Host, ya ya jejej Simple muy simple jejejej. este codigo creo me supera mil años luz pero lo vere a ver si me adelanto a los marcianos y lo logro entender (es broma) 

Gracias de nuevo

Luis

Hola de nuevo , hoy no vengo con numeros jejejje

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 (vbnet) [Seleccionar] Expandir

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

Probando pude hacer que lo haga pero no me sirve 

este post lo doy  por cerrado


Luis

Hola

Bien gracias a nuestro querido amigo Elektro (que jaleti soy  )  

tengo este codigo o funcion que funciona bien.pero ahora se me ocurre que en ves de un solo digito con los que se combinan ahora lo quiero hacer de dos digitos .

Ahora es con estos

{0, 3, 4, 5, 8}

pero si pongo

{01, 13, 34, 55, 84}


No logro hacer lo mismo que con los digitos solos he modificado trasteado pero nada

Código (vbnet) [Seleccionar] Expandir

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

       Dim valuesInt As IEnumerable(Of Integer) =
           {0, 3, 4, 5, 8}
       {01, 13, 34, 55, 84} <---------usar esto ????

       Dim pairs As IEnumerable(Of KeyValuePair(Of Integer, IEnumerable(Of Integer))) =
           Form1.GetPairs(valuesInt, maxValue:=90)

       For Each pair As KeyValuePair(Of Integer, IEnumerable(Of Integer)) In pairs

           '  ListBox1.Items.Add(String.Format("Key: {0,-4} Values: {1}", pair.Key, String.Join(", ", pair.Value)))

       Next pair



Public Shared Function GetPairs(ByVal col As IEnumerable(Of Integer),
                                   Optional ByVal maxValue As Integer = Integer.MaxValue) As IEnumerable(Of KeyValuePair(Of Integer, IEnumerable(Of Integer)))

       If (col.Max >= 10) Then
           Throw New ArgumentException(paramName:="col", Message:="El valor máximo de la colección debe ser un valor inferior a 10.")

       Else

           Return From value As Integer In col
                  Select New KeyValuePair(Of Integer, IEnumerable(Of Integer))(
                         key:=value,
                         value:=From index As Integer In col
                                Where (index <> value) AndAlso (CInt(value & index) <= maxValue)
                                Select CInt(value & index))


       End If


Luis

SOLUCIONADO   

Código (vbnet) [Seleccionar] Expandir



Public Class Form1

    Dim maxo As Integer = 7

    Dim valuesInta As IEnumerable(Of Integer)
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Dim valuesInt As IEnumerable(Of Integer) =
            {0, 1, 2, 3, 4, 5, 6, 9}

        Dim pairs As IEnumerable(Of KeyValuePair(Of Integer, IEnumerable(Of Integer))) =
            Form1.GetPairs(valuesInt, maxValue:=80)

        For Each pair As KeyValuePair(Of Integer, IEnumerable(Of Integer)) In pairs

            ListBox1.Items.Add(String.Format("Key: {0,-4} Values: {1}", pair.Key, String.Join(", ", pair.Value)))

        Next pair

        MsgBox(String.Join(", ", pairs(0).Value))
        MsgBox(String.Join(", ", pairs(1).Value))
        MsgBox(String.Join(", ", pairs(2).Value))
        MsgBox(String.Join(", ", pairs(3).Value))


        Dim M1 As IEnumerable(Of Integer) = pairs(0).Value.ToList
        Dim juntos2 As List(Of Integer) = M1
        juntos2.Sort()
        'Me.ListBox2.Items.AddRange((From value As Integer In M1).Cast(Of Object).ToArray)

        Dim M2 As IEnumerable(Of Integer) = pairs(1).Value.ToList
        Dim juntos3 As List(Of Integer) = M2
        juntos3.Sort()


        'Me.ListBox2.Items.AddRange((From value As Integer In M1).Cast(Of Object).ToArray)
        Dim M3 As IEnumerable(Of Integer) = pairs(2).Value.ToList
        Dim juntos4 As List(Of Integer) = M3
        juntos4.Sort()

        Dim M4 As IEnumerable(Of Integer) = pairs(3).Value.ToList
        Dim juntos5 As List(Of Integer) = M4
        juntos5.Sort()

        Dim cols As IEnumerable(Of IEnumerable(Of String)) =
       From col As IEnumerable(Of Integer) In {juntos2, juntos3, juntos4, juntos5}.Distinct.ToList Where (col.Count() = maxo)
      Group By String.Join("", col).AsEnumerable
        Into Group
      Select From value As Integer In Group.First.Distinct
             Select value.ToString(format:="0#")

        ListBox2.Items.AddRange((From col As IEnumerable(Of String) In cols Select String.Join(", ", col)).ToArray)

        MsgBox(cols.Count)





    End Sub

    Public Shared Function GetPairs(ByVal col As IEnumerable(Of Integer),
                                    Optional ByVal maxValue As Integer = Integer.MaxValue) As IEnumerable(Of KeyValuePair(Of Integer, IEnumerable(Of Integer)))

        If (col.Max >= 10) Then
            Throw New ArgumentException(paramName:="col", Message:="El valor máximo de la colección debe ser un valor inferior a 10.")

        Else

            Return From value As Integer In col
                   Select New KeyValuePair(Of Integer, IEnumerable(Of Integer))(
                          key:=value,
                          value:=From index As Integer In col
                                 Where (index <> value) AndAlso (CInt(value & index) <= maxValue)
                                 Select CInt(value & index))


        End If




    End Function

   
End Class


Luis

Estoy trabajno este codigo y me da error en cols y no descubro el porque ? ya que lo declaro ??

Error   2   'cols' no está declarado. Puede que esté inaccesible debido a su nivel de protección.

Código (vbnet) [Seleccionar] Expandir

Public Class Form1

   Dim maxo As Integer = 7

   Dim valuesInta As IEnumerable(Of Integer)
   Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

       Dim valuesInt As IEnumerable(Of Integer) =
           {0, 1, 2, 3, 4, 5, 6, 9}

       Dim pairs As IEnumerable(Of KeyValuePair(Of Integer, IEnumerable(Of Integer))) =
           Form1.GetPairs(valuesInt, maxValue:=80)

       For Each pair As KeyValuePair(Of Integer, IEnumerable(Of Integer)) In pairs

           ListBox1.Items.Add(String.Format("Key: {0,-4} Values: {1}", pair.Key, String.Join(", ", pair.Value)))

       Next pair

       MsgBox(String.Join(", ", pairs(0).Value))
       MsgBox(String.Join(", ", pairs(1).Value))
       MsgBox(String.Join(", ", pairs(2).Value))
       MsgBox(String.Join(", ", pairs(3).Value))


       Dim M1 As IEnumerable(Of Integer) = pairs(0).Value.ToList
       Dim juntos2 As List(Of Integer) = M1
       juntos2.Sort()
       Me.ListBox2.Items.AddRange((From value As Integer In M1).Cast(Of Object).ToArray)

       Dim M2 As IEnumerable(Of Integer) = pairs(1).Value.ToList
       Dim juntos3 As List(Of Integer) = M2
       juntos3.Sort()


       'Me.ListBox2.Items.AddRange((From value As Integer In M1).Cast(Of Object).ToArray)
       Dim M3 As IEnumerable(Of Integer) = pairs(2).Value.ToList
       Dim juntos4 As List(Of Integer) = M3
       juntos4.Sort()

       Dim M4 As IEnumerable(Of Integer) = pairs(3).Value.ToList
       Dim juntos5 As List(Of Integer) = M4
       juntos5.Sort()

   End Sub

   Public Shared Function GetPairs(ByVal col As IEnumerable(Of Integer),
                                   Optional ByVal maxValue As Integer = Integer.MaxValue) As IEnumerable(Of KeyValuePair(Of Integer, IEnumerable(Of Integer)))

       If (col.Max >= 10) Then
           Throw New ArgumentException(paramName:="col", Message:="El valor máximo de la colección debe ser un valor inferior a 10.")

       Else

           Return From value As Integer In col
                  Select New KeyValuePair(Of Integer, IEnumerable(Of Integer))(
                         key:=value,
                         value:=From index As Integer In col
                                Where (index <> value) AndAlso (CInt(value & index) <= maxValue)
                                Select CInt(value & index))


       End If




   End Function

   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim cols As IEnumerable(Of IEnumerable(Of String)) =
     From col As IEnumerable(Of Integer) In {juntos2, juntos3, juntos4, juntos5}.Distinct.ToList Where (col.Count() = maxo)
        Group By String.Join("", col).AsEnumerable
       Into(Group)
       Select From value As Integer In Group.First.Distinct
            Select value.ToString(format:="0#")

       Me.ListBox2.Items.AddRange((From cols As IEnumerable(Of String) In cols Select String.Join(", ", col)).ToArray) [color=red]<-----ACA ME DA EL ERROR[/color]

       ' MsgBox(cols.Count)
   End Sub
End Class

se supone que ya lo declaro y en otro codigo si me funciona bien

luis