Mensajes

Ok , yo al poner ese código me sale un error que dice : Error   1   La instrucción no es válida en un espacio de nombres.  

Y me subraya Private Sub esperar(ByVal espera As Long)


El codigo quedaria así :

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
   Declare Function GetTickCount Lib "kernel32" Alias "GetTickCount" () As Long

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

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

   Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
       Windows.Forms.Cursor.Position = New Point(TextBox1.Text, TextBox2.Text)
       mouse_event(mouseclickdown, 3, 7, 1, 2)
       mouse_event(mouseclickup, 2, 5, 9, 3)

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

   Private Sub Timer3_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer3.Tick, Timer4.Tick
       Label1.Text = Cursor.Position.X
       Label2.Text = Cursor.Position.Y
   End Sub

   Private Sub RadioButton1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton1.CheckedChanged
       Timer1.Interval = (1)
   End Sub

   Private Sub NumericUpDown1_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NumericUpDown1.ValueChanged
       Timer1.Interval = NumericUpDown1.Value
   End Sub

   Private Sub NumericUpDown2_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NumericUpDown2.ValueChanged
       Timer1.Interval = NumericUpDown2.Value
   End Sub
End Class
Private Sub esperar(ByVal espera As Long)
   Dim inicio As Long
   Dim fin As Long
   inicio = GetTickCount()
   fin = inicio + espera 'espera es el tiempo del contador en milisec
   While fin > GetTickCount
       DoEvents()
   End While
End Sub

Estoy empezando y esto no lo manejo lo suficiente bien ¿Sabrias decirmelo?

Compañero ,todo eso donde lo pongo . ¿En Form1 , timer1 ?

En ese caso le pondré milisegundos pero dime una cosa . ¿En que parte del código lo pongo? , ¿Cuál sería el código en milisegundo?

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)

Muchas gracias por la ayuda , ya se que soy algo novato en esto pero me podeis ayudar en una última cosa? , En el Timer 1 pongo su codigo al transformarlo de VB.Net a C# que es System.Windows.Forms.Cursor.Position = new Point(TextBox1.Text, TextBox2.Text);
mouse_event(mouseclickdown, 0, 0, 0, 0);
mouse_event(mouseclickup, 0, 0, 0, 0);


Y me salta 6 errores en los cuales me dice que mouse_event , mouse_event , mouseclickup , mouseclickdown y TextBox1 , TextBox2 no existen en el contexto actual .

Esto ultimo del timer es muy importante para que este programa funcione . Gracias .

Me pone : Error   1   No se puede encontrar el tipo o el nombre de espacio de nombres 'DllImport' (¿falta una directiva using o una referencia de ensamblado?)   C:\Users\Daniel\Desktop\Proyectos del C#\Autoclick Exterminium\Autoclick Exterminium\Form1.cs   19   10   Autoclick Exterminium

Error   2   No se puede encontrar el tipo o el nombre de espacio de nombres 'DllImportAttribute' (¿falta una directiva using o una referencia de ensamblado?)   C:\Users\Daniel\Desktop\Proyectos del C#\Autoclick Exterminium\Autoclick Exterminium\Form1.cs   19   10   Autoclick Exterminium

[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.

Cree este mensaje sin querer y ahora no se eliminarlo -.-

[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.