elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: Guía actualizada para evitar que un ransomware ataque tu empresa


+  Foro de elhacker.net
|-+  Programación
| |-+  Programación General
| | |-+  .NET (C#, VB.NET, ASP)
| | | |-+  Programación Visual Basic (Moderadores: LeandroA, seba123neo)
| | | | |-+  El Mouse Constantemente Clikc
0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] Ir Abajo Respuesta Imprimir
Autor Tema: El Mouse Constantemente Clikc  (Leído 2,457 veces)
nahueld

Desconectado Desconectado

Mensajes: 53


<NEWBIE>


Ver Perfil
El Mouse Constantemente Clikc
« en: 17 Abril 2008, 01:30 am »

Hola señores y señoras, bueno, acà estoy primero dando mi bienvenida:D!
Ahora,  Hago este Post porqe miren yo lo que queria Hacer es que el Mouse este constantemente haciendo Clikc, en si lo quiero para Un juego digamos como un Tipo de Macro, por ahi alguien conoce Argentum Online.
En este Juego, al apretar en una imagen lanzas un Hechizo, ha habido macros que no presisas apretar en esa imagen, esta constantemente haciendo clik si apretar
si alguien me Guia me vendria de 10! cualquier duda que no entiendan pregunten

saludos


En línea

seba123neo
Moderador
***
Desconectado Desconectado

Mensajes: 3.621



Ver Perfil WWW
Re: El Mouse Constantemente Clikc
« Respuesta #1 en: 17 Abril 2008, 01:45 am »

Hola,algo asi??

Código:
Option Explicit
Private Declare Function SetCursorPos Lib "USER32" (ByVal X As Long, ByVal Y As Long) As Long
Private Declare Sub mouse_event Lib "USER32" (ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cButtons As Long, ByVal dwExtraInfo As Long)
Private Const MOUSEEVENTF_LEFTUP = &H4
Private Const MOUSEEVENTF_LEFTDOWN = &H2

Private Sub Timer1_Timer()
SetCursorPos 50, 800
Call MouseClick(50, 800)
End Sub

Public Sub MouseClick(ByVal PosX As Long, ByVal PosY As Long)
Call mouse_event(MOUSEEVENTF_LEFTDOWN, PosX, PosY, 0, 0)
Call mouse_event(MOUSEEVENTF_LEFTUP, PosX, PosY, 0, 0)
End Sub

Private Sub Form_Load()
Timer1.Interval = 1000
End Sub

ahi te hace click cada 1 segundo en una determinada coordenada de la pantalla..

saludos.


En línea

nahueld

Desconectado Desconectado

Mensajes: 53


<NEWBIE>


Ver Perfil
Re: El Mouse Constantemente Clikc
« Respuesta #2 en: 17 Abril 2008, 18:24 pm »

Mira lo probe, esta Bueno, el tema que siempre se va para abajo..
Como seria para que haga Clik en la pocicion que yo llevo el Mouse?
« Última modificación: 17 Abril 2008, 18:33 pm por nahueld » En línea

cobein


Desconectado Desconectado

Mensajes: 759



Ver Perfil WWW
Re: El Mouse Constantemente Clikc
« Respuesta #3 en: 17 Abril 2008, 18:51 pm »

usa GetCursorPos  y reemplaza las coordenadas 50,800 por las actuales
« Última modificación: 17 Abril 2008, 18:53 pm por cobein » En línea

http://www.advancevb.com.ar
Más Argentino que el morcipan
Aguante el Uvita tinto, Tigre, Ford y seba123neo
Karcrack es un capo.
nahueld

Desconectado Desconectado

Mensajes: 53


<NEWBIE>


Ver Perfil
Re: El Mouse Constantemente Clikc
« Respuesta #4 en: 17 Abril 2008, 19:39 pm »

Pero cuales serian las actuales: 0, 0 ?
En línea

nahueld

Desconectado Desconectado

Mensajes: 53


<NEWBIE>


Ver Perfil
Re: El Mouse Constantemente Clikc
« Respuesta #5 en: 17 Abril 2008, 19:46 pm »

Listo puse 0,0 y quedo como queria.


Muchas gracias a los que me ayudaron


salduos
En línea

naderST


Desconectado Desconectado

Mensajes: 625



Ver Perfil WWW
Re: El Mouse Constantemente Clikc
« Respuesta #6 en: 17 Abril 2008, 20:02 pm »

Mira este codigo, es para hacer click izquierdo o derecho en la posicion que este el raton.
Código:
Option Explicit

Private Const MOUSEEVENTF_LEFTDOWN As Long = &H2
Private Const MOUSEEVENTF_LEFTUP As Long = &H4
Private Const MOUSEEVENTF_RIGHTDOWN As Long = &H8
Private Const MOUSEEVENTF_RIGHTUP As Long = &H10

Private Declare Sub mouse_event Lib "user32.dll" ( _
        ByVal dwFlags As Long, _
        ByVal dX As Long, _
        ByVal dY As Long, _
        ByVal cButtons As Long, _
        ByVal dwExtraInfo As Long)

Private Declare Function GetCursorPos Lib "user32.dll" ( _
        ByRef lpPoint As POINTAPI) As Long
       
Private Type POINTAPI
    x As Long
    y As Long
End Type

Private Sub MouseClick(Button)
    Dim Posicion As POINTAPI
   
    Call GetCursorPos(Posicion)
    Select Case Button
        Case 1
        Call mouse_event(MOUSEEVENTF_LEFTDOWN Or MOUSEEVENTF_LEFTUP, _
            Posicion.x, Posicion.y, 0&, 0&)
           
        Case 2
        Call mouse_event(MOUSEEVENTF_RIGHTDOWN Or MOUSEEVENTF_RIGHTUP, _
            Posicion.x, Posicion.y, 0&, 0&)
           
    End Select
End Sub

Private Sub Command1_Click()
    Timer1.Enabled = True
End Sub

Private Sub Form_Load()
    Timer1.Interval = 1
    Timer1.Enabled = False
End Sub

Private Sub Timer1_Timer()
    Call MouseClick(1)
End Sub
En línea

nahueld

Desconectado Desconectado

Mensajes: 53


<NEWBIE>


Ver Perfil
Re: El Mouse Constantemente Clikc
« Respuesta #7 en: 17 Abril 2008, 22:41 pm »

Uh re bien. gracias genio
En línea

Páginas: [1] Ir Arriba Respuesta Imprimir 

Ir a:  

Mensajes similares
Asunto Iniciado por Respuestas Vistas Último mensaje
Problema al leer un .txt que se modifica constantemente « 1 2 »
Programación Visual Basic
farlaine23 11 5,808 Último mensaje 21 Noviembre 2011, 01:50 am
por BlackZeroX
Selenium reconocer donde se entro con clikc
Scripting
CAEL20 5 4,312 Último mensaje 23 Agosto 2022, 11:38 am
por reymosquito
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines