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) (Moderador: kub0x)
| | | |-+  Ayuda con este codigo para Visual Basic 2010 Porfavor ;(
0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] Ir Abajo Respuesta Imprimir
Autor Tema: Ayuda con este codigo para Visual Basic 2010 Porfavor ;(  (Leído 3,304 veces)
BrokerJoker

Desconectado Desconectado

Mensajes: 161


Ayuda y te Ayudaran.


Ver Perfil
Ayuda con este codigo para Visual Basic 2010 Porfavor ;(
« en: 21 Noviembre 2011, 00:01 am »

Bueno pues me puse a crear un autoclick y me salio pero no como yo queria
Lo que me pasa es lo siguiente
Al hora de hacer clik la flecha se queda blockeada en el sitio donde puse las coordenadas que de click
Vi otros autocliks como el Caos que no se queda la flecha blockeada alguien me puede ayudar ?

El codigo que llevo asta el momento es este :

Código:
Public Class Form1

    Dim encendido As Boolean = True
    Dim apagado As Boolean = False
    Function clickeo() As String 'hace que el mouse clickee
        mouse_event(mousclickdown, 0, 0, 0, 0)
        mouse_event(mousclickup, 0, 0, 0, 0)
        Return 0
    End Function
    Private Declare Sub mouse_event Lib "user32" (ByVal dvflags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cbuttons As Long, ByVal dvextrainfo As Long)
    Private Const mousclickup = 4
    Private Const mousclickdown = 2
    Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vkey As Long) As Integer

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Button1: Timer1.Start()
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Button2: Timer1.Stop()
    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Me.Cursor = New Cursor(Cursor.Current.Handle)
        Cursor.Position = New Point(Label2.Text, Label1.Text)
        clickeo()
    End Sub

    Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
        Label2.Text = MousePosition.X
        Label1.Text = MousePosition.Y

        Timer2.Stop()
    End Sub

    Private Sub Timer3_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer3.Tick





        If encendido = True Then
            Dim hotkey As Boolean
            hotkey = GetAsyncKeyState(Keys.F1)
            If hotkey = True Then Timer1.Start()
            apagado = True
            encendido = False

        ElseIf apagado = True Then
            Dim hotkey1 As Boolean
            hotkey1 = GetAsyncKeyState(Keys.F1)
            If hotkey1 = True Then Timer1.Stop()

            apagado = False
            encendido = True

        End If
    End Sub






    Private Sub Timer5_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer5.Tick
        Dim hotkey As Boolean
        hotkey = GetAsyncKeyState(Keys.F9)
        If hotkey = True Then Timer2.Start()

    End Sub


    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Application.Exit()
    End Sub
End Class


En línea

Interacter

Desconectado Desconectado

Mensajes: 8



Ver Perfil
Re: Ayuda con este codigo para Visual Basic 2010 Porfavor ;(
« Respuesta #1 en: 28 Noviembre 2011, 23:36 pm »

tengo el mismo Problema :C si incuentras alguna respuesta en otro lado o algun code me conctatas xfa os agradeceria un Mundo: David-Js95@Hotmail.com


En línea

BrokerJoker

Desconectado Desconectado

Mensajes: 161


Ayuda y te Ayudaran.


Ver Perfil
Re: Ayuda con este codigo para Visual Basic 2010 Porfavor ;(
« Respuesta #2 en: 3 Diciembre 2011, 20:09 pm »

dais pena , por lo menos decir que no saveis , siemrep dejais a los nuevos k se quedean con sus dudas
En línea

Unbr0ken

Desconectado Desconectado

Mensajes: 248



Ver Perfil
Re: Ayuda con este codigo para Visual Basic 2010 Porfavor ;(
« Respuesta #3 en: 3 Diciembre 2011, 21:21 pm »

dais pena , por lo menos decir que no saveis , siemrep dejais a los nuevos k se quedean con sus dudas

Más que pedirte, te exijo respeto para con nosotros.

No debes especular acerca del conocimiento de otros, de hecho tu error es de lo más básico, pero... como no te das el tiempo necesario para buscar sobre el mismo, leer un libro de programación o un tutorial sobre el manejo de APIs en .NET, no logras solucionarlo.

Si tan sólo miraras éste artículo, te dieras cuenta de tu error.

Una vez más te pido que no caigas en el despectivismo ni especulaciones acerca de la inteligencia de otros en este foro, que si no te han contestado antes por falta de tiempo o algún motivo válido, no por ignorancia y mucho menos te van a contestar ahora con tal grosería.

Salud.
« Última modificación: 3 Diciembre 2011, 21:35 pm por Unbr0ken » En línea

Cita de: Snowcrash
Discutir con desconocidos por internet es un ejercicio de imbéciles; todos acaban siendo quinceañeros arrogantes con cantidades infinitas de tiempo libre.

NO resuelvo dudas vía MP, para algo está el foro.
BrokerJoker

Desconectado Desconectado

Mensajes: 161


Ayuda y te Ayudaran.


Ver Perfil
Re: Ayuda con este codigo para Visual Basic 2010 Porfavor ;(
« Respuesta #4 en: 8 Diciembre 2011, 12:08 pm »

vale vale -.-'' perdon , creia que no me haceis caso ami :(
pero necesito urgentemente hacer eso y no encuetro solucion :(
En línea

Páginas: [1] Ir Arriba Respuesta Imprimir 

Ir a:  

WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines