Foro de elhacker.net

Hola , he intentado crear una aplicacion como la de MadAntrax (MSN:KICK) en este caso simplemente que envie el numero de mensajes y el texto que te de la gana...tambien para que sirva para otras ventanas.

donde la ventana en el momento en el que la abre
ebece Conversaciòn he puesto
Osea para que abra la ventana que tu le indicas..pero a la hora de meter simbolos
salen unicamente "????" y no activa la ventana que deseo, he probado con todo tipo de letra unicode por si eso pero no va...alguna idea...Gracias

Saludos ;D

nadie  :huh: :huh: :-(

smokehack_ si puedes y si quieres mandame el proyecto a hadesatron@gmail.com, o subelo a rapidshare y postealo, es que no entiendo muy bien lo que queres decir :D.
saludos!

No me importa  :xD :xD
Veras el caso es el siguiente:
yo quiero que el programa pueda aceptar los símbolos por ejemplo:
pero cuando lo pego en el programa me sale esto:
de todos modos te dejo el source:

http://smokehack.com/multifucker.rar

Yo ya he creado lo aplicación pero el problema es que los símbolos no los admite.

Saludos

puede resultar si esos caracteres los pegas como chr(34)

quien sabe la verdad no se si esos caracteres rebasen los 255 que ay  xD nisiquiera estoy seguro de que sean 255 pero en fin es eso o un JS del Plus

Un poquitin mas explicativo PLEASE  :xD :xD

Bueno, llegue a algo asi, pero no pude hacer que el texto funcionara con unicode :/ y no creo tampoco que se pueda, puedes crear un control de usuario simulando ser un TextBox, y que el texto sea lo que se imprima en el control. pero lo veo dificil :P

Private Declare Function TextOut Lib "gdi32" Alias "TextOutW" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long, ByVal lpString As String, ByVal nCount As Long) As Long
 
Private Sub Command1_Click()
Dim TextoOut() As Byte, TextoW() As Byte, Texto, LongTxt&, Unicode$
Texto = Mid(Text1.Text, 3, Len(Text1.Text) - 3)
Texto = Split(Texto, ";&#")
For i = 0 To UBound(Texto)
    Unicode = Unicode & StrConv(ChrW(Texto(i)), vbUnicode)
Next i
TextoW = Unicode
ReDim TextoOut((UBound(TextoW) * 4))
For i = 0 To UBound(TextoW)
    TextoOut(i) = TextoW(i)
Next i
LongTxt = Len(Unicode)
Me.Cls
Me.FontSize = 18
TextOut Me.hdc, 0, 0, TextoOut, LongTxt
End Sub
 

Para convertir el texto al unicode prueba con esta web http://www.pinnacledisplays.com/unicode-converter.htm, ahi insertas el ·˙˙·٠●To6et0●٠·˙˙·, y lo conviertes, el codigo luego lo copias al Text1.text y le das al Command1, y se imprime el codigo en el Form1.

·˙˙·٠●To6et0●٠·˙˙·
 

Saludos ;)

Aca tenes el link de unos controles que soportan unicode, la verdad no los probe pero supongo que funcionan bien http://www.planetsourcecode.com/vb/scripts/ShowCode.asp?txtCodeId=68734&lngWId=1

Gracias voy a porbar a todos. La verdad es que la segunda cosa lo de convertir en unicode para este programita no me sirve pero igual para otro viejo que tenia por ahi si  :xD :xD

de todos modos Gracias a todos y bueno a probar los codigos  :xD




Saludos

Bueno al final me canse y baje tu codigo, la verdad hay mil maneras de resolver eso usando API, un par de comentarios: trata de no usar tantos timers, podrias haber resuelto todo con 1 o 2,  si es posible reemplaza los controles de usuario (dependencias) con codigo, por ejemplo tu codigo depende de un control para poner un icono en el systray, si queres aca hay una clase que hice hace un tiempo y creo es bastante buena http://www.planetsourcecode.com/vb/scripts/ShowCode.asp?txtCodeId=68948&lngWId=1 , la verdad si aprendes un poco de API se te va ha hacer mas facil.

Saludos

No se...creo que lo de systray solo esta ahi por que le subi por error pero el formulario no creo que lleve el control. Bueno como veras todavia soy nuevo en esto  :xD :xD lo de los timeres ya lo intentare arreglar  :xD :xD La clase esa  :xD :xD es bastante complicada almenos a primera vista pero ahora voy a ver tambien hay opciones que me gustaria incluir dentro del mio   :xD :xD Gracias




Saludos

Bueno aca tenes unos tips, podes utilizar el handle de la ventana en vez del nombre, para obtenerlo podes usar GetCursorPos y WindowFromPoint, despues para ponerla en foco usas SetForegroundWindow, y despues basicamente el codigo que tenes tendria que funcionar. No se si lo tenes pero te recomiendo que te bajes API-Guide te va a ser de mucha ayuda, y tiene buenos ejemplos.

jhajaj llege varios meses despues supongo que ya lo resolviste pero como no diste aki la solucion te dire que esto ·¨B¨B·٠¡ñTo6et0¡ñ٠·¨B¨B· no lo maneja como unicode tienes que usar UTF-8 y listo xD