Temas

Teniendo este código :  

Código (vbnet) [Seleccionar] Expandir

Public Class Form1
   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 mouseclickup = 4
   Private Const mouseclickdown = 2
   Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vkey As Long) As Integer


'En el Timer1 ponemos:

Código (vbnet) [Seleccionar] Expandir

   Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
       Windows.Forms.Cursor.Position = New Point(Windows.Forms.Cursor.Position.X, Windows.Forms.Cursor.Position.Y)
       Timer1.Interval = NumericUpDown1.Value
       Label1.Text = Windows.Forms.Cursor.Position.X
       Label2.Text = Windows.Forms.Cursor.Position.Y

       Windows.Forms.Cursor.Position = New Point(TextBox1.Text, TextBox2.Text)

       mouse_event(mouseclickdown, 0, 0, 0, 0)
       mouse_event(mouseclickup, 0, 0, 0, 0)

       Windows.Forms.Cursor.Position = New Point(Label1.Text, Label2.Text)
   End Sub


'En el Timer2 ponemos:

Código (vbnet) [Seleccionar] Expandir

Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
       Dim hotkey As Boolean
       hotkey = GetAsyncKeyState(Keys.F9)
       If hotkey = True Then timer1.start()
       Dim hotkey1 As Boolean
       hotkey1 = GetAsyncKeyState(Keys.F10)
       If hotkey1 = True Then Timer1.Stop()
   End Sub


'En el Timer3 ponemos:

Código (vbnet) [Seleccionar] Expandir

   Private Sub Timer3_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer3.Tick
Dim Posicion As Boolean
       Posicion = GetAsyncKeyState(Keys.F7)
       If Posicion = True Then
           TextBox1.Text = MousePosition.X : TextBox2.Text = MousePosition.Y
       End If
       If Posicion = False Then
       End if
   End Sub
End Class




En este código para transformarlo en picosegundos es poniendo este codigo (segun me han dicho) :

Código (vbnet) [Seleccionar] Expandir

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


El problema de todo esto es que no sé en que lugar del codigo se coloca .
(Tengo un pc en terahercios)

[Con el button y demás también me salta error , timers , RadioButton .. Si alguien tiene los códigos estaría muy agradecido . Gracias.]

En el VB.Net e creado muchos autoclicks pero en el Visual Studio C# no me deja poner los códigos invertidos , es decir .

Los codigos los pasos del VB.Net a C# y al ponerlo en el programa Visual Studio me salta un tipo de error del : [DllImport y de private const mouseclickup = 4;
private const mouseclickdown = 2;



El codigo entero es el siguiente : [DllImport("kernel32", EntryPoint= "GetComputerNameA")]
private const mouseclickup = 4;
private const mouseclickdown = 2;
private static extern int GetComputerName(StringBuilder lpBuffer, ref int
nSize);

Con el button y demás también me salta error , timers , RadioButton .. Si alguien tiene los códigos estaría muy agradecido . Gracias.

[Con el button y demás también me salta error , timers , RadioButton .. Si alguien tiene los códigos estaría muy agradecido . Gracias.]

En el VB.Net e creado muchos autoclicks pero en el Visual Studio C# no me deja poner los códigos invertidos , es decir .

Los codigos los pasos del VB.Net a C# y al ponerlo en el programa Visual Studio me salta un tipo de error del : [DllImport y de private const mouseclickup = 4;
private const mouseclickdown = 2;



El codigo entero es el siguiente : [DllImport("kernel32", EntryPoint= "GetComputerNameA")]
private const mouseclickup = 4;
private const mouseclickdown = 2;
private static extern int GetComputerName(StringBuilder lpBuffer, ref int
nSize);



Con el button y demás también me salta error , timers , RadioButton .. Si alguien tiene los códigos estaría muy agradecido . Gracias.