Escribir en otro programa.

[hectorzx]

El titulo de este "post" lo dice todo, mi pergunta es que como se puede escribir en otro programa, como por ejemplo en el msn.
salu2

[Ther0x]

Con sendkeys. Ejemplo:

Código:

sendkeys("hola, que tal?")

Si quieres enviar una tecla especial, como el enter tienes que buscar su caracter ascii. Puedes mirar el código ascii aquí:
Para ver este enlace Registrate o Inicia Sesion

http://www.ascii.cl/es/

Para usar un código ascii se pone esto:

Código:

sendkeys("Hola" & chr(13))

El número que va después de chr es el código ascii. En este caso representa la tecla enter.


Saludos

[47]

una aclaracion. corrigeme si estoy mal

esta bien tu codigo

Código:

sendkeys("hola, que tal?")

PERO. XDD... primero hay que crear un objecto WScript.Shell.
no??

asi de forma mas "efectiva" seria asi. incluso una implementacion extra o.O

Código:

Dim ob as object
dim txt as string
dim ventana as string

set ob = CreateObject("WScript.Shell")
txt = "SPAM!"
ventana = "El nombre de la ventana en donde escribir"
' logicamente se escribe aca el nombre exacto del titulo de la ventana
' por ejemplo en el bloc de notas, seria <Sin título - Bloc de notas>

ob.AppActivate ventana ' este comando sirve para "hacer" activa una ventana, para asi poder enviarle a esa ventana el texto
ob.SendKeys txt ' envias el texto
ob.SendKeys "{enter}" ' si mal no me equivoco, para enviar la tecla enter, lo mismo que Chr(13)...

y esop
para hacer SPAM incluso eso del texto a enviar se puede poner en un bucle for.
y usar las APIs apropiadas para listar los titulos de las ventanas

saludos

47

[Ther0x]

Solo hay que dar al botón y hacer click encima del textbox.

Para ver este enlace Registrate o Inicia Sesion

rapidshare.com/files/50895385/sendkeys.rar.html

Asi lo hago yo y funciona.


Saludos

[47]

Solo hay que dar al botón y hacer click encima del textbox.
rapidshare.com/files/50895385/sendkeys.rar.html

Asi lo hago yo y funciona.


Saludos

wow. disculpa XDD se me ha simplificado la vida jajaja. disculpa gracias por la aclaracion por asi decirlo. sera bien util. me ahorrara bastante XD

saludos

47

[hectorzx]

Hola , me habeis resuelto la duda pero ahora tengo otro pequeño problema . Yo lo q quiero es que se escriba dentro de un juego online en forma de chat, pero cuando le doi a escribir se abre el proyecto y en el juego no sale nada, ayuda ^^.

[Ther0x]

Le tienes que dar a un botón para que empiece a escribir y después abres el juego y dejas seleccionado un cuadro de texto donde se pueda escribir. Con eso debería funcionar, pero si haces click en otra parte del juego dejará de escribir. Eso está bien para hacer como dijo 47 y crear un bot spammer.

Saludos

[hectorzx]

Pero esq en el juego q te digo yo no hay ningun cuadro de texto, ya que el chat se activa cuando se pulsa la tecla "t",
Yo lo q e  echo es q cuando se pulsa una tecla(la z por ejemplo) se escriba lo q e puesto en el vb, pero eso no funciona.

Código:

if GetAsyncKeySta te(vbKeyPz) then
sendkeys("Hola" & chr(13))
end if

Código:

[Ther0x]

Si para hablar tienes que pulsar la T, haz el sendkeys de manera que primero envie la T y después el texto.

sendkeys("tHola" & chr(13))

Creo que con eso bastaría

Saludos

[hectorzx]

Ese no es el problema ^^, el problema es que lo e puesto para q al pulsar una tecla mande el mensaje.

Código:

Private Sub Timer3_Timer()
If GetAsyncKeyState(vbKey0) Then SendKeys ("tHola" & Chr(13))
End Sub

Pero el problema es que cuando pulso la tecla "0" se me minimiza el juego y se me abre el trainer. Yo creo q será xk en lugar de ejecutar las teclas en el juego las ejecuta en el trainer. Mi pregunta es que como puedo hacer q se ejecuten en el juego.

[Ther0x]

Con el c
odigo que puso 47 al principio podias elegir en que ventana se iba a escribir. Prueba eso. Para mirar el nombre del a ventana del juego vete al administrador de tareas.

Saludos

[Delxsus]

Viendo esto se me ha planteado una duda. Vereis tengo dos WinSocks uno en un pc y el ortro en el mio, bueno, alguien me podria decir como hacer que envie el sendkeys con un texto y que se ejecute en el otro pc

No se si me he explicado bien...

[>> s E t H <<]

tenes que hacer que el tuyo envie x ejemplo: spam & Text1.text
y en el otro exe, en el evento dataarrival del winsock pones (suponiendo que guarda lo que recibe en la variable Data)

Código:

if right(data,4)=spam then
SendKeys mid(Data,5)
endif

era algo asi, igual tenes que poner bien el sendkeys xq yo lo puse para mostrarte como iba nomas

Pd: espero no haberme olvidado de algun espacio

[sinu]

a mi al ejecutar el archivo se me abre el soldat...hahah a

[sinu]

Estaria bastante bien que apartir de este punto alguin pusiera un codigo como esos de los q se meten en el msn q automaticament e mandan un mensaje 

[Delxsus]

tenes que hacer que el tuyo envie x ejemplo: spam & Text1.text
y en el otro exe, en el evento dataarrival del winsock pones (suponiendo que guarda lo que recibe en la variable Data)

Código:

if right(data,4)=spam then
SendKeys mid(Data,5)
endif

era algo asi, igual tenes que poner bien el sendkeys xq yo lo puse para mostrarte como iba nomas

Pd: espero no haberme olvidado de algun espacio

Gracias gracias gracias gracias gracias y gracias!!!
Por cierto trasteando con el cliente (el mio) todavia no he encontrado la forma de enviarlo, si pudieras decirmelo... :

[Delxsus]

Con esto valddria no¿?

Código:

Private Sub Command1_Click()
SockMain.SendData "spam & Text1.text"
End Sub

[>> s E t H <<]

esta mal, seria asi

Private Sub Command1_Click()
SockMain.SendD ata "spam" & Text1.text
End Sub


disculpa que no conteste antes