Simple way to repeat!
Bueno, no tengo foro, por lo tanto cosas que preguntan o piden, tengo que postear en blog, pues va, uno de los más solicitados códigos para clientes LatinChat es Crear Tal Repetidora que recoja data tal cual, o sea original, bueno, esta opción tampoco lleva mi cliente, no me había fijado en esto, pero ahora que han preguntado me dio curiosidad y ahi pequeño código, de cómo crearlo, para los usuarios que ocupan fuente xTremebeta y tienen creado esta funcion por módulo general, y usan control textbox, sería siguiente:
En este caso se trata de Private Sub Text25_Change(), inside this event u have to put this code
'BY D4RK
If InStr(Text25.Text, "<font color='FF41FF'>") <> 0 Then colorclon = "<font
color='FF41FF'>": Text25.Text = Replace(Text25.Text, "<font
color='FF41FF'>", "")
If InStr(Text25.Text, "<font color='000000'>") <> 0 Then colorclon = "<font
color='000000'>": Text25.Text = Replace(Text25.Text, "<font
color='000000'>", "")
If InStr(Text25.Text, "<font color='173A6A'>") <> 0 Then colorclon = "<font
color='173A6A'>": Text25.Text = Replace(Text25.Text, "<font
color='173A6A'>", "")
If InStr(Text25.Text, "<font color='F31717'>") <> 0 Then colorclon = "<font
color='F31717'>": Text25.Text = Replace(Text25.Text, "<font
color='F31717'>", "")
If InStr(Text25.Text, "<font color='1F9912'>") <> 0 Then colorclon = "<font
color='1F9912'>": Text25.Text = Replace(Text25.Text, "<font
color='1F9912'>", "")
If InStr(Text25.Text, "<font color='FFEA00'>") <> 0 Then colorclon = "<font
color='FFEA00'>": Text25.Text = Replace(Text25.Text, "<font
color='FFEA00'>", "")
If InStr(Text25.Text, "<font color='FFA200'>") <> 0 Then colorclon = "<font
color='FFA200'>": Text25.Text = Replace(Text25.Text, "<font
color='FFA200'>", "")
If InStr(Text25.Text, "<font color='A50694'>") <> 0 Then colorclon = "<font
color='A50694'>": Text25.Text = Replace(Text25.Text, "<font
color='A50694'>", "")
If InStr(Text25.Text, "<B>") <> 0 Then tipo(0) = "<B>"
If InStr(Text25.Text, "<U>") <> 0 Then tipo(1) = "<u>"
If InStr(Text25.Text, "<I>") <> 0 Then tipo(2) = "<i>"
and then u should create another replace of srtings like this:
Text25.Text = Replace(Text25.Text, "</CENTER>", "")
Text25.Text = Replace(Text25.Text, "<CENTER>", "")
Text25.Text = Replace(Text25.Text, "<img src='a:", " ")
Text25.Text = Replace(Text25.Text, "' height=1>", " ")
Text25.Text = Replace(Text25.Text, "<>", "")
Text25.Text = Replace(Text25.Text, "<I>", "")
Text25.Text = Replace(Text25.Text, "</I>", "")
Text25.Text = Replace(Text25.Text, "</CENTER>", "")
Text25.Text = Replace(Text25.Text, "<CENTER>", "")
Text25.Text = Replace(Text25.Text, "<img src='a:", " ")
Text25.Text = Replace(Text25.Text, "' height=1>", " ")
Text25.Text = Replace(Text25.Text, "</font>", "")
Text25.Text = Replace(Text25.Text, "<img src="" ondragover=", " ")
Text25.Text = Replace(Text25.Text, ";break", " ")
Text25.Text = Replace(Text25.Text, "<img src='' onpaste=()';>", " ")
Text25.Text = Replace(Text25.Text, "<img dynsrc=", " ")
Text25.Text = Replace(Text25.Text, "http://www.cutefunpages.com/vgif.gif", "
")
Text25.Text = Replace(Text25.Text, "loop=1", " ")
Text25.Text = Replace(Text25.Text, "height=1>", " ")
U will need one label for ' replacing icons data, something like this :
Text25.Text = Replace(Text25.Text, "<IMG SRC=" & Label1.Caption & "http://ltimages.latinchat.com/img/list-new/1.gif"
& Label1.Caption & ">", "//00") etc etc
thats all ( si lo expilcara en español,no sé si me saldría bien lol, no puedo presumir que términos de programación en español me los se perfectamente)
Post a Comment