Enviar mensaje a la consola del CS

[001]

Hola, queria saber como puedo hacer para escribir en la consola del Counter-Strike averigue y se que la ventana se llama "valve001" probe usando los sendkeys pero siempre hay algun error, asi que queria saber si alguien me puede ayudar.

Gracias.

[[W]inmaster]

Esto no va qui Esto av en Videojugeos
saludos

[001]

Esto no va qui Esto av en Videojugeos
saludos

pero es programacion 
jeje

[ranefi]

Hola, queria saber como puedo hacer para escribir en la consola del Counter-Strike averigue y se que la ventana se llama "valve001" probe usando los sendkeys pero siempre hay algun error, asi que queria saber si alguien me puede ayudar.

Gracias.

Buen día 001. Nunca he jugado CS pero creo que este ejemplo puede serte útil.

Agregar 1 control CommandButton e insertar el siguiente código

Código:

Private Declare Function FindWindow Lib "user32" _
    Alias "FindWindowA" (ByVal lpClassName As String, _
    ByVal lpWindowName As String) As Long

Private Declare Function ShowWindow Lib "user32" _
    (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long


Private Sub Command1_Click()
    Dim Variable As String, Valor As String
   
    Variable = "C:\WINDOWS\system32\cmd.exe"
   
        Valor = FindWindow(vbNullString, Variable)
   
        ShowWindow Valor, 1
   
    SendKeys "{H}" & "{o}" & "{l}" & "{a}"
End Sub

Espero te sirva. Nos vemos.


PD: En este ejemplo debe estar abierta la consola de MS-DOS. Ve a Inicio-->Ejecutar y escribe CMD.

[001]

el codigo que me pasaste funciono, otra pregunta:

necesito inyectarle un thread al CS y que escriba en una ventana llamada "valve001"

como hago?

justo esta parte de inyectar threads nose bien 

PD: el proceso del CS es hl.exe

[ranefi]

el codigo que me pasaste funciono, otra pregunta:

necesito inyectarle un thread al CS y que escriba en una ventana llamada "valve001"

como hago?

justo esta parte de inyectar threads nose bien 

PD: el proceso del CS es hl.exe

Buen día 001. Para inyectar los procesos entra ------->
Para ver este enlace Registrate o Inicia Sesion

aquí

<-------

Para buscar y escribir en la ventana valve001 sólo modifica la parte del código que te di, debe ser aquí ----------> Variable = "C:\WINDOWS\system32\cmd.exe"

El código quedaría así:

Agregar 1 control CommandButton e insertar el siguiente código

Código:

Private Declare Function FindWindow Lib "user32" _
    Alias "FindWindowA" (ByVal lpClassName As String, _
    ByVal lpWindowName As String) As Long

Private Declare Function ShowWindow Lib "user32" _
    (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long


Private Sub Command1_Click()
    Dim Variable As String, Valor As String
   
    Variable = "valve001"
   
        Valor = FindWindow(vbNullString, Variable)
   
        ShowWindow Valor, 1
   
    SendKeys "{H}" & "{o}" & "{l}" & "{a}"
End Sub

Espero esto te sirva. Nos vemos.