Mensajes

Quien en verdad no es capaz de elegir por si mismo y discriminar lo bueno de lo malo, mejor tenerlo entretenido en un mundo virtual, no?

Pues no. Se le debería ayudar a ser consciente de las posibles consecuencias en lugar de dejar que la "sociedad" influya en su debilidad para acabar hipnotizándolos en esa adicción o dependencia a redes sociales y demás.

Sinceramente, cuando te registras en Facebook, el formulario de registro debería ir adjunto con un video como el que ha compartido @Buite para que les hagan reflexionar, y cuando te compras un móvil también, igual que los mensajitos de cáncer de los paquetes de tabaco xD. Y si la cosa sigue así al final acabará pasando lo que digo.

Saludos!

[Java unhide file]

Aquí tienes una solución:

• Java unhide file
• Java set file attributes

( respuesta al nivel de esfuerzo que has puesto por tu parte en BUSCAR solución a una pregunta tan típica )

Saludos!

[Dale a la gente tu amor, no le des un 'Me gusta' "]

El primer video me ha gustado mucho, me quedo con la frase " Dale a la gente tu amor, no le des un 'Me gusta' ".

eso está llevado al extremo ..

Las redes sociales son buenas

Uy, si, ¡buenísimas!, fíjate lo buenas que son, que solo en un par de años han conseguido que toda una generación de seres humanos se conviertan principálmente en mujeres materialistas que posan en frente de un espejo haciendo el ridículo como ellas mismas poniendo caras de péz, o la versión masculina, todos exhibiendo sus cuerpos o sus "morritos" solo por que tienen la gran "necesidad" de compartirlo en redes sociales para sentir que forman parte de la sociedad, de algo que es completamente virtual.

Y ojo, no nos olvidemos tampoco del invento ese del "palo selfie", es un invento digno de mencionar en la evolución del ser humano.

Sin duda alguna, si ponemos en una balanza lo malo y lo bueno, todo lo que nos ha ofrecido Facebook & compañia es muy favorecible para el ser humano en comparación con lo malo (por favor nótese el sarcasmo!).

lo malo es que yo me convierta en dependiente o adicta de ellas , pero esa es MI ELECCIÖN, y no puedo echarle la culpa de lo que yo decida subjetivamente, a algo que objetivamente es BUENO ..

Eso no es así, estás muy, pero que muy equivocada. Si crees que lo del video está llevado al extremo es simplemente por que tienes una percepción equivocada del problema, por que no eres consciente de que el problema que se expone es una realiad ...solo hay que comparar como se comporta toda la gente hoy en día, a como lo hacian hace 5 años, cada día parecen más idiotas y el índice de dependencia a la tecnología (por no decir smartphones y redes sociales) aumenta cada día.

Recordemos que hay algo que se llama conformismo social, el cual afecta (de forma negativa) al 99,9% de la humanidad diariamente. El ser humano es el animal más influenciable del planeta. Ellos no eligen ...solo creen que lo están haciendo; la combinación de publicidad con manipulación subliminal y el conformismo social es quien realmente elige por todos ellos (yo me excluyo de ese "ellos", por que puedo).

Constance, no descarto que quizás tu tengas el suficiente intelecto o llamemoslo fuerza de voluntad para poder elegir o mejor dicho EVITAR convertirte en una adicta de las redes sociales, pero no nos engañemos, eso es por el año en el que naciste y la edad que tienes actualmente, por que tú no has vivido desde pequeña rodeada de smarthpones con redes sociales, al igual que yo tampoco lo he hecho simplemente por que no existian, y eso nos ayuda a las personas de nuestra generación a poder evitar lo que le está pasando a practicamente todos los jóvenes del planeta hoy en día (bueno, yo no soy un viejo, voy para los 30 xD), por que lo cierto es que la capacidad de elección de la mayoría de personas es muy reducida, es una ilusión de la que no se dan cuenta.

Saludos!

[Replace]

Para reproducir el error haz lo siguiente ejecuta el script y en Empresa selecciona Mi Diario.

El problema está aquí:

Código (vbnet,5,6,7,8) [Seleccionar] Expandir

           If (cb.SelectedIndex = 1) Then
               'MessageBox.Show("Selecciono {0}", "Mensaje", MessageBoxButtons.OK, MessageBoxIcon.Error)
               'cmbemp.Focus()
               Dim comparisonType As StringComparison = StringComparison.OrdinalIgnoreCase
               FindFileAndReplaceTextIn(sourceDir, "GL.txt", "MCBO-02", "MBO-03", comparisonType)
               FindFileAndReplaceTextIn(sourceDir, "GL.txt", "MCBO-03", "MBO-03", comparisonType)
               FindFileAndReplaceTextIn(sourceDir, "IMP6000.txt", "TXT01", "MBO-03", comparisonType)
               FindFileAndReplaceTextIn(sourceDir, "IMP6000.txt", "TXT02", "MBO-03", comparisonType)
           Else
               Exit Sub
           End If

Código (vbnet,4) [Seleccionar] Expandir

       Public Sub FindFileAndReplaceTextIn(...)
        ...
            Dim txt As String = File.ReadAllText(txtfile.FullName, Encoding.Default).
                                     Replace(txtfind, txtreplace, comparisonType, 128)
        ...
       End Sub

Código (vbnet,3) [Seleccionar] Expandir

       Public Function Replace(...) As String

               Return StringExtensions.Replace(sender, findWhat, replaceWith, comparisonType, stringBuilderCapacity:=0)

       End Function

La función Replace se llama a si misma de forma infinita, y eso causa el colapso de la pila.

Se te pasó por alto a ti o a mi añadir la otra función que compartí, el "Replace" que era privado.



Para solucionarlo, reemplaza esto:

Código (vbnet,3,4) [Seleccionar] Expandir

       Public Sub FindFileAndReplaceTextIn(...)
        ...
            Dim txt As String = File.ReadAllText(txtfile.FullName, Encoding.Default).
                                     Replace(txtfind, txtreplace, comparisonType, 128)
        ...
       End Sub

por esto otro:

Código (vbnet,3,4) [Seleccionar] Expandir

       Public Sub FindFileAndReplaceTextIn(...)
        ...
            Dim txt As String = File.ReadAllText(txtfile.FullName, Encoding.Default).
                                     Replace(txtfind, txtreplace, comparisonType)
        ...
       End Sub

Y reemplaza el contenido del modulo "StringExtensions", por esto:

Código (vbnet) [Seleccionar] Expandir

' ESTE MODULO ESTÁ INCOMPLETO, SOLO LE AÑADÍ LAS FUNCIOENS DE REEMPLAZAMIENTO DE TEXTO.
' SI QUIERES EL CÓDIGO FUENTE COMPLETO CON MÁS FUNCIONES INTERESANTES, PUEDES DESCARGARLO AQUÍ:
' https://github.com/ElektroStudios/VBNetSnippets/blob/master/String/String%20Extensions.vb

#Region " Public Members Summary "

#Region " Functions "

' String.Replace(String, String, StringComparison) As String
' String.ReplaceRegEx(String, String, RegExOptions) As String

#End Region

#End Region

#Region " Option Statements "

Option Strict On
Option Explicit On
Option Infer Off

#End Region

#Region " Imports "

Imports System
Imports System.Linq
Imports System.Diagnostics
Imports System.Runtime.CompilerServices
Imports System.Text
Imports System.Text.RegularExpressions

#End Region

Namespace Tools

   ''' ----------------------------------------------------------------------------------------------------
   ''' <summary>
   ''' Contains custom extension methods to use with a <see cref="String"/>.
   ''' </summary>
   ''' ----------------------------------------------------------------------------------------------------
   Public Module StringExtensions

#Region " Public Extension Methods "

       ''' ----------------------------------------------------------------------------------------------------
       ''' <summary>
       ''' Replaces text using a regular expression.
       ''' </summary>
       ''' ----------------------------------------------------------------------------------------------------
       ''' <example> This is a code example.
       ''' <code>
       ''' Dim str As String = "Hello World!".ReplaceRegEx("world", "kitty", RegexOptions.IgnoreCase)
       ''' </code>
       ''' </example>
       ''' ----------------------------------------------------------------------------------------------------
       ''' <param name="sender">
       ''' The source <see cref="String"/>.
       ''' </param>
       '''
       ''' <param name="findWhat">
       ''' The <see cref="Regex"/> find expression.
       ''' </param>
       '''
       ''' <param name="regexOptions">
       ''' The <see cref="RegexOptions"/>.
       ''' </param>
       ''' ----------------------------------------------------------------------------------------------------
       ''' <exception cref="ArgumentNullException">
       ''' findWhat
       ''' </exception>
       ''' ----------------------------------------------------------------------------------------------------
       ''' <returns>
       ''' The replaced string.
       ''' </returns>
       ''' ----------------------------------------------------------------------------------------------------
       <DebuggerStepThrough>
       <Extension>
       Public Function ReplaceRegEx(ByVal sender As String,
                                    ByVal findWhat As String,
                                    ByVal replaceWith As String,
                                    Optional ByVal regexOptions As RegexOptions =
                                                   RegularExpressions.RegexOptions.None) As String

           If String.IsNullOrEmpty(sender) Then
               Return sender

           ElseIf String.IsNullOrEmpty(findWhat) Then
               Throw New ArgumentNullException(paramName:="findWhat")

           Else
               Return Regex.Replace(sender, findWhat, replaceWith, regexOptions)

           End If

       End Function

       ''' ----------------------------------------------------------------------------------------------------
       ''' <summary>
       ''' Replaces text using the specified string comparison type.
       ''' </summary>
       ''' ----------------------------------------------------------------------------------------------------
       ''' <example> This is a code example.
       ''' <code>
       ''' Dim str As String = "Hello World!".Replace("world", "kitty", StringComparison.OrdinalIgnoreCase)
       ''' </code>
       ''' </example>
       ''' ----------------------------------------------------------------------------------------------------
       ''' <param name="sender">
       ''' The source <see cref="String"/>.
       ''' </param>
       '''
       ''' <param name="findWhat">
       ''' The <see cref="Regex"/> find expression.
       ''' </param>
       '''
       ''' <param name="comparisonType">
       ''' The string comparison type.
       ''' </param>
       ''' ----------------------------------------------------------------------------------------------------
       ''' <exception cref="ArgumentNullException">
       ''' findWhat
       ''' </exception>
       ''' ----------------------------------------------------------------------------------------------------
       ''' <returns>
       ''' The replaced string.
       ''' </returns>
       ''' ----------------------------------------------------------------------------------------------------
       <DebuggerStepThrough>
       <Extension>
       Public Function Replace(ByVal sender As String,
                               ByVal findWhat As String,
                               ByVal replaceWith As String,
                               ByVal comparisonType As StringComparison) As String

           If String.IsNullOrEmpty(sender) Then
               Return sender

           ElseIf String.IsNullOrEmpty(findWhat) Then
               Throw New ArgumentNullException(paramName:="findWhat")

           Else
               Return StringExtensions.InternalReplace(sender, findWhat, replaceWith, comparisonType, stringBuilderCapacity:=-1)

           End If

       End Function

#End Region

#Region " Private Methods "

       ''' ----------------------------------------------------------------------------------------------------
       ''' <summary>
       ''' Replaces text using the specified string comparison type.
       ''' </summary>
       ''' ----------------------------------------------------------------------------------------------------
       ''' <example> This is a code example.
       ''' <code>
       ''' Dim str As String = "Hello World!".Replace("world", "kitty", StringComparison.OrdinalIgnoreCase)
       ''' </code>
       ''' </example>
       ''' ----------------------------------------------------------------------------------------------------
       ''' <param name="sender">
       ''' The source <see cref="String"/>.
       ''' </param>
       '''
       ''' <param name="findWhat">
       ''' The <see cref="Regex"/> find expression.
       ''' </param>
       '''
       ''' <param name="comparisonType">
       ''' The string comparison type.
       ''' </param>
       '''
       ''' <param name="stringBuilderCapacity">
       ''' The initial buffer size of the <see cref="Stringbuilder"/>.
       ''' This parameter is reserved for testing purposes.
       ''' </param>
       ''' ----------------------------------------------------------------------------------------------------
       ''' <returns>
       ''' The replaced string.
       ''' </returns>
       ''' ----------------------------------------------------------------------------------------------------
       <DebuggerHidden>
       <DebuggerStepThrough>
       Private Function InternalReplace(ByVal sender As String,
                                        ByVal findWhat As String,
                                        ByVal replaceWith As String,
                                        ByVal comparisonType As StringComparison,
                                        ByVal stringBuilderCapacity As Integer) As String

           Dim posCurrent As Integer = 0
           Dim lenPattern As Integer = findWhat.Length
           Dim idxNext As Integer = sender.IndexOf(findWhat, comparisonType)
           Dim result As New StringBuilder(capacity:=If(stringBuilderCapacity <= 0, Math.Min(4096, sender.Length), stringBuilderCapacity))

           While (idxNext >= 0)
               result.Append(sender, posCurrent, (idxNext - posCurrent))
               result.Append(replaceWith)

               posCurrent = (idxNext + lenPattern)
               idxNext = sender.IndexOf(findWhat, posCurrent, comparisonType)
           End While

           result.Append(sender, posCurrent, (sender.Length - posCurrent))

           Return result.ToString

       End Function

#End Region

   End Module

End Namespace

Saludos

[Pablo Videla]

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.

Creo que no entendiste a @Pablo Videla, Adblock es una extensión para Google-Chrome la cual como su propio nombre indica ("Advert Blocker") sirve para bloquear la publicidad.

No es de Google.

• https://getadblock.com/

Luego está AdblockPlus que es una extensión Open-Source para varios navegadores, es la que yo he utilizado siempre en Firefox junto a la extensión NoScript para obtener una eficacia adicional del 100%, y te aseguro que los resultados son maravillosos, se navega absolutamente sin nada de publicidad.

• https://adblockplus.org/
• http://addons.mozilla.org/es/firefox/addon/noscript/

usalo y veras

Solo te diré que ese tipo de extensiones para los navegadores lo usan millones de personas diariamente, por algo será xD, no es ningún cuento.

De siempre la publicidad se elimina de este modo, no manipulando el archivo hosts.

Saludos

[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

[SE CUELGA]

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

¿Quieres decir que la aplicación SE CUELGA y no responde a acciones como mover la ventana y demás?, ¿o quieres decir que SI QUE FUNCIONA pero en la lista no aparece ninguna entrada?.

En caso de ser un cuelgue, compíla la solución de Visual Studio e intenta depurarla un poquito para intentar hallar que método provoca el supuesto cuelgue.

En caso de ser lo segundo, una lista "blanca" o vacía, solo se me ocurre que no tienes ninguna entrada añadida xD o que el formato de las entradas no es el correcto, o tal vez sea un fallo de lógica de la app que no puede parsear el contenido de tu archivo (pero no lo creo). Muestra el contenido de tu archivo hosts para asegurarnos.

Saludos!

[[SOURCE] HostsMan v1.0]

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

El archivo Hosts es un simple archivo de texto plano, es decir, lo puedes abrir con tu editor de texto favorito, pero como el archivo no tiene una extensión (.txt) es "irreconocible" a simple vista por cualquier software, ya que al no haber extensión no hay una asociación de archivo registrada en el sistema, pero vamos, como ya digo lo puedes leer con cualquier editor de texto.

Sobre todo lo que has mencionado en general del archivo Hosts, aquí puedes descargar y analizar un código fuente que compartí hace un tiempo:

• [SOURCE] HostsMan v1.0

   

Estoy convencido que solventará tus dudas, aunque no se si todas.

Saludos!

[AudioUtil]

Les traigo un nuevo snippet recién salido del horno, el módulo AudioUtil.

La clase hija AudioUtil.WaveRecorder permite grabar audio Wave de forma muy sencilla.
La clase hija AudioUtil.AudioPlayer permite reproducir archivos wav, mp3 o mid/midi de forma muy sencilla.

Aparte de eso, el módulo AudioUtil puede hacer algunas cosas más, como modificar el volumen de la aplicación actual, o silenciar el volumen del sistema.



Lista de miembros públicos:

- Types
  - AudioUtil.AudioPlayer : IDisposable
  - AudioUtil.StereoVolume <Serializable>
  - AudioUtil.WaveRecorder : IDisposable

- Cosntructors
  - AudioUtil.AudioPlayer.New()
  - AudioUtil.AudioPlayer.New(Form)
  - AudioUtil.StereoVolume(Integer, Integer)
  - AudioUtil.WaveRecorder.New()

- Properties
  - AudioUtil.AudioPlayer.Filepath As String
  - AudioUtil.AudioPlayer.Status As PlayerState
  - AudioUtil.AudioPlayer.PlaybackMode As AudioPlayMode
  - AudioUtil.AudioPlayer.Channels As Integer
  - AudioUtil.AudioPlayer.Length As Integer
  - AudioUtil.AudioPlayer.Position As TimeSpan
  - AudioUtil.AudioPlayer.IsFileLoaded As Boolean
  - AudioUtil.StereoVolume.LeftChannel As Integer
  - AudioUtil.StereoVolume.RightChannel As Integer
  - AudioUtil.WaveRecorder.Status As AudioUtil.WaveRecorder.RecorderStatus

- Enumerations
  - AudioUtil.ChannelMode As Integer
  - AudioUtil.AudioPlayer.PlayerState As Integer
  - AudioUtil.WaveRecorder.RecorderStatus As Integer

- Functions
  - AudioUtil.GetAppVolume() As AudioUtil.StereoVolume

- Methods
  - AudioUtil.MuteSystemVolume()
  - AudioUtil.SetAppVolume(Integer)
  - AudioUtil.SetAppVolume(Integer, Integer)
  - AudioUtil.SetAppVolume(AudioUtil.StereoVolume)
  - AudioUtil.AudioPlayer.LoadFile(String)
  - AudioUtil.AudioPlayer.UnloadFile
  - AudioUtil.AudioPlayer.Play(Opt: AudioPlayMode)
  - AudioUtil.AudioPlayer.Seek(Long)
  - AudioUtil.AudioPlayer.Seek(TimeSpan)
  - AudioUtil.AudioPlayer.Pause
  - AudioUtil.AudioPlayer.Resume
  - AudioUtil.AudioPlayer.Stop
  - AudioUtil.AudioPlayer.Dispose
  - AudioUtil.WaveRecorder.Record
  - AudioUtil.WaveRecorder.Stop
  - AudioUtil.WaveRecorder.Play
  - AudioUtil.WaveRecorder.Delete
  - AudioUtil.WaveRecorder.Save(String, Opt: Boolean)
  - AudioUtil.WaveRecorder.Dispose



Ejemplo de uso de la class WaveRecorder:

Código (vbnet) [Seleccionar] Expandir

Dim recorder As New WaveRecorder

Sub Button_Record_Click() Handles Button_Record.Click

   If Not (recorder.Status = WaveRecorder.RecorderStatus.Recording) Then
       recorder.Record()
   End If

End Sub

Sub Button_Stop_Click() Handles Button_Stop.Click

   If (recorder.Status = WaveRecorder.RecorderStatus.Recording) Then
       recorder.Stop()
   End If

End Sub

Sub Button_Play_Click() Handles Button_Play.Click

   If (recorder.Status = WaveRecorder.RecorderStatus.Stopped) Then
       recorder.Play()
   End If

End Sub

Sub Button_Delete_Click() Handles Button_Delete.Click

   If Not (recorder.Status = WaveRecorder.RecorderStatus.Empty) Then
       recorder.Delete()
   End If

End Sub

Sub Button_Save_Click() Handles Button_Save.Click

   If Not (recorder.Status = WaveRecorder.RecorderStatus.Empty) Then
       recorder.Save("C:\File.wav", overWrite:=True)
   End If

End Sub

Ejemplo de uso de la class AudioPlayer:

Código (vbnet) [Seleccionar] Expandir


Dim player As New AudioPlayer

Sub Button_LoadFile_Click() Handles Button_LoadFile.Click

   If Not player.IsFileLoaded Then
       player.LoadFile("C:\File.wav")
   End If

End Sub

Sub Button_Play_Click() Handles Button_Play.Click

   If Not (player.Status = AudioPlayer.PlayerState.Playing) Then
       player.Play(AudioPlayMode.Background)
   End If

End Sub

Sub Button_Stop_Click() Handles Button_Stop.Click

   If Not (player.Status = AudioPlayer.PlayerState.Stopped) Then
       player.Stop()
   End If

End Sub

Sub Button_PauseResume_Click() Handles Button_PauseResume.Click

   If (player.Status = AudioPlayer.PlayerState.Playing) Then
       player.Pause()

   ElseIf (player.Status = AudioPlayer.PlayerState.Paused) Then
       player.Resume()

   End If

End Sub

Private Sub Button_SeekBackward_Click(sender As Object, e As EventArgs) Handles Button_SeekBackward.Click

   Dim currentPosition As Long = CLng(player.Position.TotalMilliseconds)

   If ((currentPosition - 5000) <= 0) Then
       player.Seek(0)

   Else
       player.Seek(currentPosition - 5000)

   End If

End Sub

Private Sub Button_SeekForward_Click(sender As Object, e As EventArgs) Handles Button_SeekForward.Click

   Dim currentPosition As Long = CLng(player.Position.TotalMilliseconds)

   If Not ((currentPosition + 5000) >= player.Length) Then
       player.Seek(currentPosition + 5000)
   End If

End Sub

Sub Button_UnloadFile_Click() Handles Button_UnloadFile.Click

   If player.IsFileLoaded Then
       player.UnLoadFile()
   End If

End Sub



Código fuente:

• https://github.com/ElektroStudios/VBNetSnippets/blob/master/Audio/Audio%20Util.vb

Más snippets (o librerías según se mire xD) en:


Saludos!

[System.StackOverflowException]

cuando ejecuto el utilitario me está dando un System.StackOverflowException

Esa excepción es síntoma de estar utilizando prácticas recursivas, por algún método/algoritmo con una recursividad excesiva y/o infinita la cual con sus llamadas colapsa el tamaño de la pila o stack, provocando así un overflow.

No puedo reproducir el conflicto con el código que te mostré en lo que denominariamos "circunstancias normales" (no llevando al límite las capacidades para provocar un stack-overflow intencionado).

Muestra el código que estás utilizando ahora.

Por cierto, ¿de cuantos archivos de texto (o veces que se llama el método "Replace" y se adjunta texto al objeto "StringBuilder") estamos hablando exactamente?, es que, para que te diera esa excepción debería ser un número de veces colosal, pero no descartaré la posibilidad ya que no se cuanta magnitud de datos estás trabajando.

Saludos!