Mensajes

Si es Visual Basic 2008 Express
Ayudame :l Porfavor

Ok, mira cuando pongo esto;

Código [Seleccionar] Expandir

Private Sub Timer1_Timer()
    If GetAsyncKeyState(vbKeyF1) = -32767 Then
        'Timer1.Start()
        Timer1.enabled = True
    End If

    If GetAsyncKeyState(vbKeyF2) = -32767 Then
        'Timer1.Stop()
        Timer1.enabled = False
    End If
End Sub
Me sale abajo; error;
La instruccion no es valida en un espacio de nombres.

[BotónActivar]

Aver, ahi te va el codigo:
Public Class Fondo

   Declare Sub mouse_event Lib "user32" Alias "mouse_event" (ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cButtons As Long, ByVal dwExtraInfo As Long)
   Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

   End Sub


   Private Sub MyMethod()
       Windows.Forms.Cursor.Position = New System.Drawing.Point(Windows.Forms.Cursor.Position) 'Draws the point, there my cusor is
       mouse_event(&H2, 0, 0, 0, 1) 'Cursor will go down (like a click)
       mouse_event(&H4, 0, 0, 0, 1) 'Cursor goes up again End Sub
   End Sub

   Private Sub Copyright_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Copyright.Click

   End Sub

   Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Contacto.Click

   End Sub

   Private Sub BotónActivar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BotónActivar.Click
       Timer1.Start()
   End Sub

   Private Sub Salir_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Salir.Click
       End
   End Sub

   Private Sub BotónDesactivar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BotónDesactivar.Click
       Timer1.Stop()
   End Sub

   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
       TextBox1.Text = TextBox1.Text + 1
   End Sub

   Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
       MyMethod()
   End Sub
End Class

Todo funciona a la perfeccion, mira, quiero que donde sale BotonActivar y BotonDesactivar, aprete f1 y f2 para activar y desactivar

Bueno, nadie me respondo en el post de el autoclick, pero lo logré hacer. Lo unico que me falta es que cuando yo aprete F1 se active, y cuando aprete F2 se desactive
Solo eso, porfavor!   

 

Hola amigos, soy nuevo en el foro, y MUY novato en esto de Visual Basic
Tengo el 2008 Express
Y estoy creando un programa tipo AutoClick, que se llamará ZeroClick 1.0
Bueno.
Yo, en photoshop diseñe la foto de fondo, puse un texto que dice que está creado por mi, y 2 botones, uno que dice Activar [ F1 ] y otro Desactivar [ F2]
Si no saben, el autoclick es un programa que cuando uno hace click en un boton, o apreta una combinacion con el teclado, se activa y el mouse da clicks rapidos constantes hasta que uno haga click en desactivar o lo desactive con una combinación
Yo, tengo los botones listos, pero sin ninguna función, osea los apreto y no pasa nada.
Tengo El diseño listo, pero no se como hacer que al apretar el boton de activar, por ejemplo, se active, y tambien dar la opcion de al apretar F1 que se active.
Quiero darle funcionalidad a esos 2 Botones, alguien me ayuda?
PORFAVOR!

EDITO;
ESTO ES LO QUE LLEVO

Código [Seleccionar] Expandir

<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class Fondo
    Inherits System.Windows.Forms.Form

    'Form reemplaza a Dispose para limpiar la lista de componentes.
    <System.Diagnostics.DebuggerNonUserCode()> _
    Protected Overrides Sub Dispose(ByVal disposing As Boolean)
        Try
            If disposing AndAlso components IsNot Nothing Then
                components.Dispose()
            End If
        Finally
            MyBase.Dispose(disposing)
        End Try
    End Sub

    'Requerido por el Diseñador de Windows Forms
    Private components As System.ComponentModel.IContainer

    'NOTA: el Diseñador de Windows Forms necesita el siguiente procedimiento
    'Se puede modificar usando el Diseñador de Windows Forms. 
    'No lo modifique con el editor de código.
    <System.Diagnostics.DebuggerStepThrough()> _
    Private Sub InitializeComponent()
        Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(Fondo))
        Me.Copyright = New System.Windows.Forms.Label
        Me.BotónActivar = New System.Windows.Forms.Button
        Me.BotónDesactivar = New System.Windows.Forms.Button
        Me.SuspendLayout()
        '
        'Copyright
        '
        Me.Copyright.AutoSize = True
        Me.Copyright.Font = New System.Drawing.Font("Arial", 11.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.Copyright.Location = New System.Drawing.Point(12, 279)
        Me.Copyright.Name = "Copyright"
        Me.Copyright.Size = New System.Drawing.Size(386, 18)
        Me.Copyright.TabIndex = 0
        Me.Copyright.Text = "Creado por xZeerO.- o The.Killer.xP [ BoomBang.CL ]"
        '
        'BotónActivar
        '
        Me.BotónActivar.AccessibleDescription = "Activa ZeroClick y Comienza a Clickear!"
        Me.BotónActivar.Cursor = System.Windows.Forms.Cursors.Hand
        Me.BotónActivar.Font = New System.Drawing.Font("Arial", 14.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.BotónActivar.Location = New System.Drawing.Point(12, 192)
        Me.BotónActivar.Name = "BotónActivar"
        Me.BotónActivar.Size = New System.Drawing.Size(133, 59)
        Me.BotónActivar.TabIndex = 1
        Me.BotónActivar.Text = "Activar [ F1 ]"
        Me.BotónActivar.UseVisualStyleBackColor = True
        '
        'BotónDesactivar
        '
        Me.BotónDesactivar.AccessibleDescription = "Desactiva ZeroClick y Deja de Clickear!"
        Me.BotónDesactivar.Cursor = System.Windows.Forms.Cursors.Hand
        Me.BotónDesactivar.Font = New System.Drawing.Font("Arial", 14.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.BotónDesactivar.Location = New System.Drawing.Point(213, 192)
        Me.BotónDesactivar.Name = "BotónDesactivar"
        Me.BotónDesactivar.Size = New System.Drawing.Size(168, 59)
        Me.BotónDesactivar.TabIndex = 2
        Me.BotónDesactivar.Text = "Desactivar [ F2 ]"
        Me.BotónDesactivar.UseVisualStyleBackColor = True
        '
        'Fondo
        '
        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
        Me.BackgroundImage = CType(resources.GetObject("$this.BackgroundImage"), System.Drawing.Image)
        Me.ClientSize = New System.Drawing.Size(393, 297)
        Me.Controls.Add(Me.BotónDesactivar)
        Me.Controls.Add(Me.BotónActivar)
        Me.Controls.Add(Me.Copyright)
        Me.Cursor = System.Windows.Forms.Cursors.Default
        Me.Name = "Fondo"
        Me.Text = "Form1"
        Me.ResumeLayout(False)
        Me.PerformLayout()

    End Sub
    Friend WithEvents Copyright As System.Windows.Forms.Label
    Friend WithEvents BotónActivar As System.Windows.Forms.Button
    Friend WithEvents BotónDesactivar As System.Windows.Forms.Button

End Class

Ahora, mis preguntas son,
-¿Cómo hago para hacer que al apretar F1 y F2 en el teclado, Se active y se desactive?
- ¿Cómo hago para que cuando se active, ya sea apretando el teclado o clickeando en el botón, comienze/pare a/de dar clicks?

Solo necesito eso, porfavor alguien que responda.