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

 

 


Tema destacado: Entrar al Canal Oficial Telegram de elhacker.net


+  Foro de elhacker.net
|-+  Programación
| |-+  Programación General
| | |-+  .NET (C#, VB.NET, ASP)
| | | |-+  Programación Visual Basic (Moderadores: LeandroA, seba123neo)
| | | | |-+  Crear un autoclick que clickie colores
0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] Ir Abajo Respuesta Imprimir
Autor Tema: Crear un autoclick que clickie colores  (Leído 1,267 veces)
pablomillon

Desconectado Desconectado

Mensajes: 12


Ver Perfil
Crear un autoclick que clickie colores
« en: 28 Marzo 2015, 00:10 am »

Bueno lo que trato es de un programa que de clicks ay moltrar una convinacion de colores como el ghost tengo esto.
Código:
Declaración:

<System.Runtime.InteropServices.DllImport("user32")>
    Private Shared Function GetAsyncKeyState(ByVal vkey As System.Windows.Forms.Keys) As Short
    End Function
    Public Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Integer,
    ByVal hWndInsertAfter As Integer, ByVal X As Integer, ByVal Y As Integer)
    Dim Count As Integer = 0
    Declare Sub mouse_event Lib "user32" Alias "mouse_event" (ByVal dwFlags As Integer, ByVal dx As Integer, ByVal dy As Integer, ByVal cButtons As Integer, ByVal dwExtraInfo As Integer)
    Private Const MouseClickUp = &H2
    Private Const MouseClickDown = &H4

--------------------------------------------------------------------------------------------------------------------------------------------------
Timer1:

Windows.Forms.Cursor.Position = New Point(Windows.Forms.Cursor.Position.X, Windows.Forms.Cursor.Position.Y)
        LinkLabel1.Text = Windows.Forms.Cursor.Position.X
        LinkLabel2.Text = Windows.Forms.Cursor.Position.Y
        Timer1.Interval = NumericUpDown1.Value
        Windows.Forms.Cursor.Position = New Point(TextBox1.Text, TextBox2.Text)
        mouse_event(MouseClickUp, 0, 0, 0, 0)
        mouse_event(MouseClickDown, 0, 0, 0, 0)

        mouse_event(MouseClickUp, 0, 0, 0, 0)
        mouse_event(MouseClickDown, 0, 0, 0, 0)

        mouse_event(MouseClickUp, 0, 0, 0, 0)
        mouse_event(MouseClickDown, 0, 0, 0, 0)
        Windows.Forms.Cursor.Position = New Point(LinkLabel1.Text, LinkLabel2.Text)

--------------------------------------------------------------------------------------------------------------------------------------------------

Timer2:

Dim Tecla As Boolean
        Tecla = GetAsyncKeyState(Keys.F1)
        If Tecla = True Then Timer1.Start()
        Dim Tecla1 As Boolean
        Tecla1 = GetAsyncKeyState(Keys.F2)
        If Tecla1 = True Then Timer1.Stop()

---------------------------------------------------------------------------------------------------------------------------------------------------

Timer3:
Dim SetPoint As Boolean
        SetPoint = GetAsyncKeyState(Keys.F3)
        If SetPoint = True Then TextBox1.Text = MousePosition.X : TextBox2.Text = MousePosition.Y


En línea

Páginas: [1] Ir Arriba Respuesta Imprimir 

Ir a:  

Mensajes similares
Asunto Iniciado por Respuestas Vistas Último mensaje
Ayuda AutoClick
Programación Visual Basic
UTU 7 6,332 Último mensaje 26 Mayo 2006, 15:21 pm
por Krnl64
Ayudenme a crear un autoclick « 1 2 3 »
Programación Visual Basic
repdom.man 20 19,569 Último mensaje 18 Febrero 2011, 20:44 pm
por raul338
crear o modificar imagenes BMP 256 colores de buena calidad
Dudas Generales
Luish@o 2 4,867 Último mensaje 30 Abril 2011, 00:30 am
por SuperDraco
crear un autoclick que clikee colores
Programación Visual Basic
sesar58 3 2,202 Último mensaje 13 Febrero 2013, 01:02 am
por Danyfirex
Como Crear Un Autoclick En C#
.NET (C#, VB.NET, ASP)
pablomillon 4 3,865 Último mensaje 15 Enero 2014, 05:33 am
por Eleкtro
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines