Mensajes

y el es venezolano XD

Yo pense que solo argentinos jugaban AO, que sheto.
Por Argentum :p y por que se creo en argentina xD

Hola, quiero saber si se puede hacer que cuando se detecte una serie de numeros uno abajo del otro se ejecute una accion.
Por ejemplo: Que el programa comienze a hacer clicks y si se detecta esto: 15
                                                                                                             51
                                                                                                             32
deje de hacer clicks, para ser mas preciso, dejo un video de lo que quiero lograr:
http://www.youtube.com/watch?v=clBmjPiyOd0, bueno el programa del video es una mentira ya que solo hace clicks sin parar.
Lo que quiero saber es si es posible lograr detectar cuando se obtenienen los diferentes numeros con el programa y como.
Gracias desde ya

AJAJAJAJA Venis del AO
Yo igual aca hago cheats papa
Fijate lo de puso el otro.

Te hable bien master, vos lo malinterpretaste.

Vos queres cambiar el nombre que aparece en el administrador de tareas de x programa por uno que vos quieras?

Masomenos entiendo pero no sos claro en lo que planteas y estoy en dudas.

Saludos.

No, yo quiero cambiar el caption. O si no lo reconoces lo que aparece arriba como nombre en la ventana.
Ahora que decís si es posible cambiar el nombre de administrador de tareas seria genial.

Pero principalmente lo de arriba. El nombre/caption.

Saludos!

Buenas habia echo un tema y creo que no voy a hacer mas por que casi termino esta busqueda.

Lo que quiero lograr es que la "tarea" se active con un click ( Que eso ya lo logre ) pero fuera del form.
Aca dejo el codigo del proyecto que tengo.

Código [Seleccionar] Expandir

Private Sub Command1_Click()
SetWindowPos Me.hWnd, HWND_TOPMOST, 0, 0, 0, 0, _
                            SWP_NOMOVE Or SWP_NOSIZE
End Sub

Private Sub Command2_Click()
SetWindowPos Me.hWnd, HWND_NOTOPMOST, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE
End Sub

Private Sub Form_Load()
Command1.Caption = "Siempre visible"
Command2.Caption = "Ventana Normal"
End Sub

    Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
        'Sólo basta con vbRightButton, pero puse la línea completa para que veas de dónde viene
        If Button = VBRUN.MouseButtonConstants.vbRightButton Then
             Call Tarea   'Ejecutamos la Tarea
        End If
    End Sub
     
    Private Sub Tarea()
        SetCursorPos "720", "133"
mouse_event MOUSEEVENTF_LEFTDOWN, 720, 133, 0, 0
mouse_event MOUSEEVENTF_LEFTUP, 720, 133, 0, 0
mouse_event MOUSEEVENTF_LEFTDOWN, 720, 133, 0, 0
mouse_event MOUSEEVENTF_LEFTUP, 720, 133, 0, 0
mouse_event MOUSEEVENTF_LEFTDOWN, 720, 133, 0, 0
mouse_event MOUSEEVENTF_LEFTUP, 720, 133, 0, 0
SetCursorPos "634", "335"
mouse_event MOUSEEVENTF_LEFTDOWN, 634, 335, 0, 0
mouse_event MOUSEEVENTF_LEFTUP, 634, 335, 0, 0
mouse_event MOUSEEVENTF_LEFTDOWN, 634, 335, 0, 0
mouse_event MOUSEEVENTF_LEFTUP, 634, 335, 0, 0
mouse_event MOUSEEVENTF_LEFTDOWN, 634, 335, 0, 0
mouse_event MOUSEEVENTF_LEFTUP, 634, 335, 0, 0
SetCursorPos "620", "390"
mouse_event MOUSEEVENTF_LEFTDOWN, 620, 390, 0, 0
mouse_event MOUSEEVENTF_LEFTUP, 620, 390, 0, 0
mouse_event MOUSEEVENTF_LEFTDOWN, 620, 390, 0, 0
mouse_event MOUSEEVENTF_LEFTUP, 620, 390, 0, 0
mouse_event MOUSEEVENTF_LEFTDOWN, 620, 390, 0, 0
mouse_event MOUSEEVENTF_LEFTUP, 620, 390, 0, 0
SetCursorPos "283", "344"
mouse_event MOUSEEVENTF_LEFTDOWN, 283, 344, 0, 0
mouse_event MOUSEEVENTF_LEFTUP, 283, 344, 0, 0
mouse_event MOUSEEVENTF_LEFTDOWN, 283, 344, 0, 0
mouse_event MOUSEEVENTF_LEFTUP, 283, 344, 0, 0
mouse_event MOUSEEVENTF_LEFTDOWN, 283, 344, 0, 0
mouse_event MOUSEEVENTF_LEFTUP, 283, 344, 0, 0
End Sub

Como ven no sabia como explicar la "tarea" pero ahi lo ven. Queria lograr, repito, como activarla con click derecho pero fuera del form.
Logre que se active la "tarea" pero tiene que ser click derecho dentro del formulario.

Como lo logro?

Saludos! Suerte!
Muchas Gracias!

Dejate algun screen al menos master...

Saludos.

Bueh, hanlame bien, yo te estoy hablando bien.
Te dejo una imagen.

Buenas gente!
Me descargue un programa que lo que realiza o su objetivo es el de cambiar la caption. Pero no se de mismo "exe" por asi decirlo si no de cualquier programa que este abierto....
Les dejo el link del programa para que lo analizen y vean mejor que hace.

https://mega.co.nz/#!hltWCAoT!J4Zlxwx4NKR3szHKnXxeBlLDonan3oyzg0EkLib_FDY

IMAGEN! Habia dejado el link pero no importa NO?
http://fotos.subefotos.com/ff85f956e4d295c062e35b331a4abd29o.jpg

Es bastante simple creo yo pero no se como hacerlo.
Y quisiera saber como hacerlo.

Escuche que hay un descompresor o un programa que quita los codes del proyecto de vb6 tambien queria saber que era eso. ( y se los dejo como mini ayuda )

MUCHAS GRACIAS!
Saludos!

HOLA!!!

Te dejo un ejemplo:
http://www.mediafire.com/download/daj1y2tz6j5q0b3/Mouse_Up-Down_and_Position_API__Demo.zip

GRACIAS POR LEER!!!

No es lo que busco...

Pero dentro del formulario o fuera del mismo?

Fuera del form

    Option Explicit
     
    Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
        'Sólo basta con vbRightButton, pero puse la línea completa para que veas de dónde viene
        If Button = VBRUN.MouseButtonConstants.vbRightButton Then
             Call Tarea   'Ejecutamos la Tarea
        End If
    End Sub
     
    Private Sub Tarea()
        'Aquí iría la tarea, es decir todo lo que pusiste dentro del evento Timer
    End Sub


Listo!!

Muchas Gracias! Este seria todo mi codigo del proyect asi para ver si funcionaba.

Código [Seleccionar] Expandir

Const SWP_NOMOVE = 2
Const SWP_NOSIZE = 1
Const HWND_TOPMOST = -1
Const HWND_NOTOPMOST = -2 '
Private Declare Function SetWindowPos _
    Lib "user32" ( _
        ByVal hWnd As Long, _
        ByVal hWndInsertAfter As Long, _
        ByVal X As Long, ByVal Y As Long, _
        ByVal cX As Long, _
        ByVal cY As Long, _
        ByVal wFlags As Long) As Long
Private Sub Command1_Click()
    SetWindowPos Me.hWnd, HWND_TOPMOST, 0, 0, 0, 0, _
                            SWP_NOMOVE Or SWP_NOSIZE
End Sub

Private Sub Command2_Click()
'Hacemos lo mismo que en el evento anterior, pero pasandole la otra constante
'para que deje de estar siempre encima de las demás, estado normal
SetWindowPos Me.hWnd, HWND_NOTOPMOST, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE
End Sub

Private Sub Form_Load()
    Command1.Caption = "Siempre visible"
    Command2.Caption = "Ventana Normal"
End Sub

No se si es asi como quisiste decirmelo pero lo puse asi y funciono XD
Gracias!
Suerte!