Mensajes

Estan siendo objetivos.
A veces, una "cosa simple", tiene mucho complejo.
Decir quiero hacer un auto es facil, pero estudiarse todo lo de mecanica no lo es.
Te doy un ejemplo mas relacionado? Fijate lo tedioso que es hacer una ventana usando las API de Windows.

Los chicos lo que te estan diciendo es lo que tenes que seguir.
El HWND de un elemento es un identificador que guarda windows del mismo.
En Windows, cada cosa es como una ventana, cada boton, cada menu, cada cosa tiene su HANDLER (un manejador, u identificador).

Lo que se te esta sugiriendo es que uses:

GetWindowRect para obtener una estructura de tipo RECT, que dice las coordenadas de una ventana/control en la pantalla.

FindWindow que encuentra una ventana ya sea por el titulo, o por la clase (la "clase" es un parametro que se le asigna a una ventana/control cuando es creado).

Despues de eso, que uses SendInput para enviar ese click (ese INPUT, que esta definido por una estructura que se llama MOUSEINPUT) para enviarla.

Para saber cual es el HWND del boton/cosa que quieras clickear, si tenes el Spy++(Viene con el Visual Studio) te puede dar una pista al respecto. Sino, lo que tendrias que hacer, es saber el nombre de la clase, saber la ventana donde esta contenido, o --haciendo una solucion re chapucera-- asumiendo que hay un solo boton/control que dice eso, obtener el texto segun la funcion GetDlgItemText y si el texto y la clase son las que corresponden, ahi tenes tu HWND.

Espero que asi lo entiendas, porque le puse todo lo menos tecnico que pude.

Mi problema es que no se bien unir todo esto...


Bueno dejen, ya fue, tiro todo el proyecto a la ***** :S, estuve leyendo y no entendí nada...

Solo cuesta esperar que venga alguien bueno y me pase el código completo :S

Para ustedes que saben todo, no les cuesta nada gastar 2 minutos de su vida en un código urgente para ayudarme a mi.

Son programas, quiero tratar de llegar a ese objetivo, pero no me ayudan.

Pero es mucho :S

Yo quiero hacer solo 1 simple cosa, no quiero aprenderme y estudiarme todo :S, no quiero entrar muy adentro al tema, solo hacer lo que plantie en el tema.


Si me ayudarías más profundo te agradecería :S


Para vos debe ser facil pasarme el código completito :$

Bueno, tengo un juego, "CLIENTE/SERVIDOR", que me lo tiran con turbinas tipo By Volks o Botnets.


¿Me podrían pasar códigos para defenderlo?

Aclaro qe es Host Pago, no puedo meter programas apartes, ya que solo puedo tener 1 exe y las cosas de mi juego en el host, por eso, estoy buscando códigos de seguridad, para frenar las turbinas y especialmente los botnets.


Está programado en Visual Basic 6.0

Leí, pero no lo entendí.

Osea, es facil decirme que me falta en ese código para que a esa coordenada que está en el timer haga click ahí.

Buenisimo, pero me podes explicar como funciona?

Porque no lo entiendo.

Mira como me quedo:  
Option Explicit

Private Declare Function SendMessage Lib "user32.dll" Alias "SendMessageA" (ByVal hwnd As Long, ByVal Msg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long

Private Sub Form_Load()
 ScaleMode = 3
 Timer1.Interval = 16
End Sub

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)

 Static CountClickX15Y15 As Long

 If Button = vbLeftButton And x = 650 And y = 380 Then
   CountClickX15Y15 = CountClickX15Y15 + 1
   Caption = CountClickX15Y15
 End If

End Sub
Function Make_lParam(ByVal x As Integer, ByVal y As Integer) As Long
 Make_lParam = x Or (y * &H10000)
End Function

Private Sub Timer1_Timer()
  Call SendMessage(Me.hwnd, &H201, &H0&, Make_lParam(650, 380))
  Call SendMessage(Me.hwnd, &H202, &H0&, Make_lParam(650, 380))
End Sub





Modifique eso de and y = 15 and x = 15 y lo del timer1  quedo así el timer1:
Private Sub Timer1_Timer()
  Call SendMessage(Me.hwnd, &H201, &H0&, Make_lParam(650, 380))
  Call SendMessage(Me.hwnd, &H202, &H0&, Make_lParam(650, 380))
End Sub

650 = x
380 = y



Pero, sigue sin hacer click en esa coordenada .



Igual, gracias por tratar de ayudarme :S

Buenisimo, pero dudas.

1ero, para que el command1 abre el Pinball?
Yo no pedí eso :S

2do

Donde configuro que me haga click?
Donde está para poner la coordenada X y la Y?

Gracias...

El 1er codigo va en un modulo y el 2do en el form.

Agrego 1 timer 1 command button.

En el modulo, acá:
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)

  Static CountClickX15Y15 As Long

  If Button = vbLeftButton And x = 630 And y = 390 Then
    CountClickX15Y15 = CountClickX15Y15 + 1
    Caption = CountClickX15Y15
  End If

End Sub


Me tiró a CAPTION  "VARIABLE NO DEFINIDA"

¿Como la declaro y en donde me recomendas?

Function Make_lParam(ByVal x As Integer, ByVal y As Integer) As Long
  Make_lParam = (x And &HFFFF&) Or (y * &H10000)
End Function


¿?


Así?

Pero, que en un timer pongo frmmain.make

O que?

Y tendría que poner: X = COORDENADA

Y: Y = COORDENADA

Pero, no entiendo ese código.

La cosa es que en un timer pase eso.

¿Pongo ese código en un timer?

Pero donde modifico las coordenadas?


Ayudaaaa

Me están dando muchas cosas para estudiar en Ingles.


Me aseguran que esto me llevaría al exito de lo que quiero?

Me pueden explicar algo ustedes?