ax3L Classic!!!! Nueva version
Aparte de otras opciones, el otro tenia problema de coneccion, ahora conecta mas rapido, bueno era beta y ahora tienen version original publica! Buen clonador, con opcion de repetir usuario clonado, recogiendo colores, adornos, etc. Opcion de repetir sala (con colores), opcion de Repetir usuario seleccionado, Opcion de robot Local (en carpeta veran ascii folder, donde hay varios ascii lindos pa enviar mediante robot, los errores existentes maximamente reparado, por si le ven algun bug, enviarmelo ;)
Todas las versiones de ax3l bajenlo solamente del libro!
Link de descarga de Classic :
http://club.telepolis.com/d4rkv1rus/ax3lClassic.rar
La Beta version ha sido cerrado! Bajen version regular!
Buscas un programa y no lo encuentras? Pidelo , posteando en blog o en tag y te lo conseguimos!
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)
Buscas un programa y no lo encuentras? Pidelo , posteando en blog o en tag y te lo conseguimos!
VB Coding!
Hubo peticiones de publicar codigos en vb, uno de los mas recientes fue cargar txt archivos de x Path al form. Vamos a ver, eso es lo ke hice tan de prisa, si le ven error sorry, eeemmm, no ando de humor ahora,
Need
Form1, Command1, Text1,Module1 (bas)
Codigo para Modulo:
Public Function readFile(lTxt As String, strFile As String)
Dim xLine As String, gFn As Integer, xLineCnt As Long
'created by d4rksoft
'function that read file from X Path
'First Define
gFn = FreeFile
' Opens a text file for input
On Error Resume Next
Open strFile For Input As gFn
xLineCnt = 1
' Reading the contents of the file
Do While Not EOF(gFn)
Line Input #gFn, xLine
xLine = xLine & vbCrLf
lTxt = lTxt & xLine
Loop
Form1.Text1.Text = lTxt
' Close the file
Close gFn
End Function
Code para Command1:
readFile Text1.Text, App.Path + "\txtLogFile.txt"
Por ultimo, link de descarga si les pa pereza copiar:
http://club.telepolis.com/d4rkv1rus/eko.rar
P.D. de prueba en txt archivo en la carpeta he puesto lyrics de no se quien ajajaja, buscaba algo de metallica y creo puse algo que ni se de quien es o.O si saben avisar o.o sigo viendo euronews
Buscas un programa y no lo encuentras? Pidelo , posteando en blog o en tag y te lo conseguimos!
Windows Live Patcher Beta!
Hace tiempo habia hecho un tuto acerca de como parchar live messenger, este tuto se referia a habilitar multilpes sesiones de MSN, conocido como PolyGamy, me gustaria hacer otro tutorial de eso, lo tengo casi listo, es mas detallado, quitar banners, logo, etc, lo que me parece que sera interesante, bueno, cuando me de tiempo para terminarlo ejejeje, por mientras dejo otro soft, es igual beta, se darian cuenta que para uso publico lanzo por ahora solo beta versiones, pero poco a poco, habra de todo ejejej igual, no tengo host, donde podria subir todo, y free host se me lleno ya todos :P ni tiempo tengo para webs y comprar host, habrian visto que esta abandonado mi web, requiere mucho trabajo , pero bien, ahi dejo link de descarga:
http://club.telepolis.com/d4rkv1rus/LPacTCH.rar
P.D. para parchar Live y poder usar el Polygamy, antes asegurense que sesion de msn se ha cerrado , solo luego dar click en Patch!
