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

 

 


Tema destacado: Únete al Grupo Steam elhacker.NET


+  Foro de elhacker.net
|-+  Programación
| |-+  Programación General
| | |-+  .NET (C#, VB.NET, ASP) (Moderador: kub0x)
| | | |-+  (Ayuda)Autoclick VB2008 PICOSEGUNDOS
0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] Ir Abajo Respuesta Imprimir
Autor Tema: (Ayuda)Autoclick VB2008 PICOSEGUNDOS  (Leído 3,409 veces)
Yo,wapo

Desconectado Desconectado

Mensajes: 2


Ver Perfil
(Ayuda)Autoclick VB2008 PICOSEGUNDOS
« en: 10 Noviembre 2013, 15:08 pm »

Buenas me gustaria que el interval de mi autoclick fuera picosegundo mi codigo es este:
Código
  1. Public Class Form1
  2.    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)
  3.    Private Const mouseclickup = 4
  4.    Private Const mouseclickdown = 2
  5.    Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vkey As Long) As Integer
  6.  
  7.  
  8. 'En el Timer1 ponemos:
  9.  
  10.    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
  11.        Windows.Forms.Cursor.Position = New Point(Windows.Forms.Cursor.Position.X, Windows.Forms.Cursor.Position.Y)
  12.        Timer1.Interval = NumericUpDown1.Value
  13.        Label1.Text = Windows.Forms.Cursor.Position.X
  14.        Label2.Text = Windows.Forms.Cursor.Position.Y
  15.  
  16.        Windows.Forms.Cursor.Position = New Point(TextBox1.Text, TextBox2.Text)
  17.  
  18.        mouse_event(mouseclickdown, 0, 0, 0, 0)
  19.        mouse_event(mouseclickup, 0, 0, 0, 0)
  20.  
  21.        Windows.Forms.Cursor.Position = New Point(Label1.Text, Label2.Text)
  22.    End Sub
  23.  
  24.  
  25. 'En el Timer2 ponemos:
  26.  
  27. Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
  28.        Dim hotkey As Boolean
  29.        hotkey = GetAsyncKeyState(Keys.F9)
  30.        If hotkey = True Then timer1.start()
  31.        Dim hotkey1 As Boolean
  32.        hotkey1 = GetAsyncKeyState(Keys.F10)
  33.        If hotkey1 = True Then Timer1.Stop()
  34.    End Sub
  35.  
  36.  
  37. 'En el Timer3 ponemos:
  38.  
  39.    Private Sub Timer3_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer3.Tick
  40. Dim Posicion As Boolean
  41.        Posicion = GetAsyncKeyState(Keys.F7)
  42.        If Posicion = True Then
  43.            TextBox1.Text = MousePosition.X : TextBox2.Text = MousePosition.Y
  44.        End If
  45.        If Posicion = False Then
  46.        End if
  47.    End Sub
  48. End Class
  49.  


« Última modificación: 14 Noviembre 2013, 02:39 am por raul338 » En línea

burbu_1

Desconectado Desconectado

Mensajes: 159


hamen gaoz


Ver Perfil
Re: (Ayuda)Autoclick VB2008 PICOSEGUNDOS
« Respuesta #1 en: 11 Noviembre 2013, 22:22 pm »

el código sería sencillo.....

Código:
Imports System.Timers
Dim nPicoSeg As Integer = 5
Dim tim1 As Timer = New Timer(nPicoSeg * 10 ^ (-9))

pero si no me equivoco..... para tener un timer en picosegundos necesitarías un procesador en terahercios..... :rolleyes:


En línea

cabrera987

Desconectado Desconectado

Mensajes: 1


Ver Perfil
Re: (Ayuda)Autoclick VB2008 PICOSEGUNDOS
« Respuesta #2 en: 4 Enero 2014, 22:18 pm »

 :-X esque quiero saber como utilisar autazo
En línea

Eleкtro
Ex-Staff
*
Desconectado Desconectado

Mensajes: 9.878



Ver Perfil
Re: (Ayuda)Autoclick VB2008 PICOSEGUNDOS
« Respuesta #3 en: 5 Enero 2014, 05:38 am »

:-X esque quiero saber como utilisar autazo

Auta que?



xD


Auto-Click  (Good)

Auta(s|z)o  (WTF!)



Porfavor, gente latina, no sigan destrozando el significado común de cualquier palabra, así como del Castellano. :¬¬
« Última modificación: 5 Enero 2014, 06:12 am por Eleкtro » 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 7,362 Último mensaje 26 Mayo 2006, 15:21 pm
por Krnl64
Ayuda con autoclick en juegos...
Programación Visual Basic
piojento 7 3,173 Último mensaje 1 Enero 2007, 19:17 pm
por ~~
(ayuda vb2008)
.NET (C#, VB.NET, ASP)
themonsterbest 0 1,618 Último mensaje 14 Diciembre 2011, 15:54 pm
por themonsterbest
Autoclick visual basic 2008 picosegundos
Programación General
Yo,wapo 1 2,448 Último mensaje 10 Noviembre 2013, 14:35 pm
por Mad Antrax
¿Como le pongo a un autoclick una velocidad de picosegundos? « 1 2 »
.NET (C#, VB.NET, ASP)
milenio204 10 7,867 Último mensaje 27 Enero 2014, 15:44 pm
por Eleкtro
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines