Mensajes

En Venezuela, en este p*to país no hay ley.

gracias , @Elektro si me funciono .  de verdad me quedo impresionado de tanto conocimiento que posees sobre programacion .    . debes haber estudiado durante un buen tiempo.  Gracias , de verdad muchísimas gracias. 

PD : yo había intentado algo parecido pero no me funciono .

Código (vbnet) [Seleccionar] Expandir

TextBox2.Text = RichTextBox1.Text    Gracias de nuevo 

[vbnewline]

hola. soy yo de nuevo , jeje .     . buen me he encontrado con un problema.

bueno como dice el titulo , quiero copiar un texto de un Richtextbox y pegarlo a un textbox , bueno hasta hay es facil , pero cunado se copia al textbox no se conservan los saltos de linea . ya he intentado con vbnewline pero la verdad no se como hacerlo.

bueno tengo este codigo para copiar:

Código (vbnet) [Seleccionar] Expandir

Clipboard.SetText(RichTextBox1.Text)

y este para pegar :

Código (vbnet) [Seleccionar] Expandir

If Clipboard.GetDataObject().GetDataPresent(DataFormats.Text) = True Then
           If TextBox1.SelectionLength > 0 Then
               If MessageBox.Show("Do you want to paste over current selection?", _
                   "Cut Example", MessageBoxButtons.YesNo) = DialogResult.No Then
                   TextBox2.SelectionStart = TextBox2.SelectionStart + _
                       TextBox2.SelectionLength
               End If
           End If
           TextBox2.Paste()
       End If

el problema es que cuando pego el texto al Textbox no se conservan los saltos de linea y se pone todas la palabras pegadas . nesesito ayuda con ese problemilla .  

Gracias de antemano.  

soy Venezolano sin Cantv, que es el mejorcito ISP aqui, o sea vivo de wifi

Yo también soy venezolano sin Cantv y incluso ahora estoy es con el wifi del vecino que hackee con kalilinux .  

incluso mi internet es de 150 kb/s osea lento . pero no veo vídeos de youtube en tan vaja resolución .

por lo que tengo entendido en china la velocidad es de 1 mb/s . esto me hace pensar en :

P*TO MADURO .  

[*Pop ups o mejor conocidos como ( ventana emergente)]

para mi las cosas que no deberian existir en la Internet Son:

*Pop ups o mejor conocidos como ( ventana emergente) a mi parecer son super fastidiosos . por lo tanto deberian desaparecer.

*Spoilers. mayormente sucede en las redes sociales .

el 240p de Youtube . Apuesto a que la mayoria no usa esa resolucion.  

los  Captchas indecifrables. no me opongo a los Captchas pero hay algunos que son indescifrables y esos no deberían existir.

Gracias , todos los errores solucionados.

he hecho lo que me dices pero me salen mas errores . por eso te he mandado el proyecto por un mensaje privado. Perdoname por tantas molestias .  

bueno he colocado cada clase a mi proyectos con su mismos nombres pero ahora me dice :

Código [Seleccionar] Expandir

Error 1 'ColorizeMatches' no es un miembro de 'System.Windows.Forms.RichTextBox'.


Gracias por respoender Elektro .

en internet encontre este codigo que me busca y subralla la palabra que busco en un RichTextbox .

code que encontre en internet:

Código (vbnet) [Seleccionar] Expandir

Dim TEMPORAL As String = RichTextBox1.Text
       RichTextBox1.Clear()
       RichTextBox1.Text = TEMPORAL
       Try
           Dim BUSQUEDA As String = InputBox("BUSCAR")
           Dim INDEX As Integer
           While INDEX < RichTextBox1.Text.LastIndexOf(BUSQUEDA)
               RichTextBox1.Find(BUSQUEDA, INDEX, RichTextBox1.TextLength, RichTextBoxFinds.None)
               RichTextBox1.SelectionBackColor = Color.DarkBlue
               INDEX = RichTextBox1.Text.IndexOf(BUSQUEDA, INDEX) + 1
           End While
       Catch ex As Exception
           MsgBox(ex.Message)
       End Try


Pero el Tu codigo esta SUPER . pero al intentar abrirlo con mi vb 2010 me salen miles de errores .


bueno pase el code importante a un boton de mi proyecto pero me sale 1 error .


aqui te dejo el code que extraje y puse en mi proyecto.

Código (vbnet) [Seleccionar] Expandir

Dim rtb As RichTextBox = Me.RichTextBox1

       ' Reset selection.
       With rtb
           .SelectAll()
           .SelectionColor = .ForeColor
           .SelectionBackColor = .BackColor
           .SelectionFont = .Font
           .Select(0, 0)
       End With

       ' Perform a new selection.
       Dim find As String = Me.TextBox1.Text ' The text to find.
       Dim ignoreCase As Boolean = Me.CheckBox1.Checked
       Dim forecolor As Color = Color.LimeGreen
       Dim backcolor As Color = rtb.SelectionBackColor
       Dim font As Font = rtb.SelectionFont

       Dim occurrences As Integer = rtb.ColorizeMatches(find, ignoreCase, forecolor, backcolor, font)   ' HE AQUI EL ERROR ME DICE COLORIZEMATCHES NO ES UN MIENBRO DE SYSTEM.WINDOWS.FORM1.WINDOWSAPLICATION10
       Me.Label1.Text = String.Format("{0} occurrences", occurrences)

EL ERROR ME DICE COLORIZEMATCHES NO ES UN MIENBRO DE SYSTEM.WINDOWS.FORM1.WINDOWSAPLICATION10

[Porfavor comenten cualquier cosa.]

hola a todos , bueno . la verdad no me decido a ver donde es que debería situar este tema. asi que decidí ubicarlo aquí . si algún moderador ve este tema, le pido que si me lo pude ubicar bien .

bueno como dice el titulo es una herramienta , que sirve para la programacion en batch. y posee múltiples funciones, por ejemplo de ofuscamiento.

bueno he aquí el link:

https://mega.nz/#!FlMyWCgD!iPKLcUcGJz4chIqZ6aLgXhJ4nBDonjCuwSLVuEIbP_M

y aqui dejo ejemplos:

batch sin ofuscar:

Código (bash) [Seleccionar] Expandir

@echo off
echo/
echo hola mundo
echo/
pause


Batch ofuscado con el metodo 1:

Código (bash) [Seleccionar] Expandir

@echo off
set mevexdh=a
set roanyli=b
set ahctspg=c
set jjmjyua=d
set vxbqovb=e
set weirsgp=f
set trzujwk=g
set ovnuyow=h
set fjspulb=i
set cmbjzab=j
set uejreve=k
set ckbbcaj=l
set xxwketq=m
set rxhwlmd=n
set dtikdmo=o
set rrzvvla=p
set xopassv=q
set nlcfapu=r
set obqqqbd=s
set vlqthhs=t
set zxreuqe=u
set sbkktkc=v
set hlmrhih=w
set bxreibp=x
set jiidagd=y
set yjdbben=z
@%vxbqovb%%ahctspg%%ovnuyow%%dtikdmo% %dtikdmo%%weirsgp%%weirsgp%
%vxbqovb%%ahctspg%%ovnuyow%%dtikdmo%/
%vxbqovb%%ahctspg%%ovnuyow%%dtikdmo% %ovnuyow%%dtikdmo%%ckbbcaj%%mevexdh% %xxwketq%%zxreuqe%%rxhwlmd%%jjmjyua%%dtikdmo%
%vxbqovb%%ahctspg%%ovnuyow%%dtikdmo%/
%rrzvvla%%mevexdh%%zxreuqe%%obqqqbd%%vxbqovb%


Batch ofuscado con metodo 2:

Código (bash) [Seleccionar] Expandir


%leqcebs%@%khuqzog%e%ecgmmij%c%wkhlecr%h%utpvdsc%o%gyxshsj% %etzcaho%o%mnxlfnx%f%mlcjfac%f%eijievp%
%gcbgcgx%e%rdgqyif%c%fvykxhg%h%juktepm%o%qnrfiww%/%ewcquvc%
%gijhrga%e%xjyzicy%c%ibwasdl%h%thjdgge%o%pyhaqxk% %tabcqgb%h%jspqfdq%o%pudmvjw%l%afpgemy%a%qknrnii% %lbruhba%m%naiizmr%u%zaqpkmo%n%wwocode%d%vnhtnrz%o%ateiwyp%
%bnbmeli%e%klcjspr%c%nbmoxzo%h%pelwikr%o%dsvxojh%/%gcflatt%
%nseelyt%p%lrffxni%a%vkilrrh%u%dmsbwwa%s%pahinxc%e

Batch ofuscado con metodo 3:

Código (bash) [Seleccionar] Expandir

਍汣൳䀊捥潨漠晦਍捥潨യ攊档潨慬洠湵潤਍捥潨യ瀊畡敳

BUeno ahora una imagene:


Porfavor comenten cualquier cosa.