ShoutBox automatico

[kikeuntercio]

bueno ya lo travesie un poco jeje lo jodi por un momento pero luego gracias a Dios se compuso 

bueno cambios efectuados.
* eliminación de tag's Negritas, Saltos de linea, Enlaces de Internet
* Boton cerrar
* Boton copiar -> para guardar colocar en memoria de un solo con el formato CITA
* Imagen de Fondo
* Cambio de orientacion del formulario -> ahora es vertical
* Icono agregado al formulario y por consiguiente al de la bandeja del sistema
* 1 segundo mas de tiempo para leer
* click derecho sobre el icono de la bandeja del sistema cierra aplicacion

Si ven otros Tag's porfavor reporten aca, pronto trabaje con lo de:
las citas, imagenes y enlaces de internet.

Ups se me olvidaba la imagen 

[vlad]

wow!, el primer mod 

Solo que fijate que insisto en esto:

Código: [Seleccionar]

        'Quitando los <br /> saltos de linea
        Do
       
            lSoporte = InStr(1, Nick.Mensaje, "<br />")
            If lSoporte Then Nick.Mensaje = Replace$(Nick.Mensaje, "<br />", vbNewLine)
       
        Loop Until lSoporte = 0
        'Quitando marcas de negritas <b>
        Do
            lSoporte = InStr(1, Nick.Mensaje, "<b>")
            If lSoporte Then Nick.Mensaje = Replace$(Nick.Mensaje, "<b>", vbNullString)
       
        Loop Until lSoporte = 0

    'Quitando marcas de negritas </b>
        Do
            lSoporte = InStr(1, Nick.Mensaje, "</b>")
            If lSoporte Then Nick.Mensaje = Replace$(Nick.Mensaje, "</b>", vbNullString)
       
        Loop Until lSoporte = 0

    'Quitando marcas &nbsp;
        Do
            lSoporte = InStr(1, Nick.Mensaje, "&nbsp;")
            If lSoporte Then Nick.Mensaje = Replace$(Nick.Mensaje, "&nbsp;", vbNewLine)
       
        Loop Until lSoporte = 0

Puede reemplazarse con esto:

Código: [Seleccionar]

'Quitando los <br /> saltos de linea
Nick.Mensaje = Replace$(Nick.Mensaje, "<br />", vbNewLine)
'Quitando marcas de negritas </b>
Nick.Mensaje = Replace$(Nick.Mensaje, "<b>", vbNullString)

etc.

Porque?, porque en el replace va a quitar todos los tags en el primer loop, asi que basicamente el loop no funciona de nada  , en el caso de quitar las imagenes y/o links si da efecto, porque lo que hace ahi (como ya sabes) es sustituir cada referencia (que solo tienen como patron una marca de inicio y final) por cierto texto, asi que ahi si tiene que ser individual.

Otra onda es efectuar lo mismo sobre sBuffer para limpiar la entrada de una sola vez (ej, asi se elimina el codigo innecesario para "'Compatibilidad con "Hoy a las""

Por ultimo, supongo que no te gusto el efecto "Ghost", pero como sugerencia, si no usas el procedimiento SetGhost mejor borralo.

Junto con las APIs:
GetWindowLong
SetWindowLong
SetLayeredWindowAttributes

Solamente sugerencias ok  .

PD: Que rapido trabajas 

[kikeuntercio]

y sin nada mas como que
no entendi...
pero el programa esta hecho en visual basic
y el ejecutable lo podes correr sin tener instalado el visual basic, es posible y te requiera una dll que es la siguiente... msvbvm60.dll

[kikeuntercio]

sin framework, como te digo es posible que te pida solamente la libreria msvbvm60.dll

[kikeuntercio]

wueno otran vex vengo con los cambio que le hicimos con mis ideas y la codificacion experta de master vladimir
aca esta la captura:

v 1.0.0.101

bueno los cambios son:
si das enter o escape se esconde el formulario
habilitada otranvex la opcion de semitransparencia
borradas las mayorias de tag... aunque teniendo problemas con las CITAS... pero vladimir esta trabajando en eso.
Boton: Citar sirve para meter dentro de una cita lo que el ultimo usuario ha escrito y lo copia en memoria del portapapeles.

[vlad]

Hey eso de citar un mensaje no se me habia ocurrido!  eso si es algo bastante útil!

Gracias por tus modificaciones y buenas ideas kikeuntercio!. Ahora a ver eso de las citas, a ver que se resuelve... aunque lo que quería era enmarcar las citas en un cuadro, ej:

-Cita-------------
| El mensaje       |
| va aca            |
| adentro           |
-----------------

Pero como no se usan fuentes fijas como la Courier New se pone dificil calcular el espacio... en fin, sino solo algo como [cita] El mensaje va aca enmedio [/cita] voy a dejar...

voy a trabajar sobre tu codigo, que de todas formas esta mejor 

[vlad]

Vaya, los principales cambios en _Descargar y un nuevo procedimiento: Reemplazar

Si lo podes probar kike, para ver si no te arruine tus cambios ok? 

oh si, lo de las citas queda pendiente... deje los cambios comentados, asi como unos puntos para investigar lo de las citas...

Editado, puse el bueno, me equivoque de archivo...

[Tio B]

hey kike y vladimir, no les parece que las letras del SR son demasiado grandes?, yo estoy en el trabajo y no me gustaria que mi jefe la viera, ademas yo quiero elegir la posicion de la ventana.

[vlad]

Mira, se puede hacer una version mas disimulada, quizas de un solo par de lineas... voy a hacer una cosa, voy a modificar la version original para que sea disimulada y dejar que la version de kike sea plantosa 

[Tio B]

no, estarian solucionando el problema a medias, no pueden haber dos versiones, lo ideal seria poder elegir la apariencia no?

[vlad]

Ummm fijate que tenes razon; ya has visto el mini-mode del XMR?, Que tal algo asi?, osea, que lo mas importante del SR pase a una vista minimalista?, que sería aproximadamente al alto de un caracterer y estaria aliniado como una barra?

[Tio B]

por ahi vamos, tambien le pedia ayer a kike un boton tipo mute o antiboss, para que cuando viniera alguien no se levantara la animalita

[kikeuntercio]

hey nose que ondas con in.solit.us pero bueno aca te dejo entonces la version...

con los cambio que borth sugirio 

[Tio B]

orale, no esta mal, off supongo que ha de ser mute. lo de la transparencia esta bueno, y tiempo que es?

[kikeuntercio]

orale, no esta mal, off supongo que ha de ser mute. lo de la transparencia esta bueno, y tiempo que es?

Es el Tiempo que se tarda en esconderse el formulario, puede ir desde 2 segundos hasta 20 segundos Creo  hey men te quedamos pendiente con lo de las letras y lo de los Skin trance me paso una onda para Skin pero no pude configurarlo  asi que vere si le hago el comentario al mero Vlad

Hey seria bueno que mas mara se involucrara en este proyecto... les dire que yo estoy aprendiendo bastante ... y seguramente entre mas se unan mas cachimbon nos quedara el proyecto, y recordemos que es para todos nosotros