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

 

 


Tema destacado: Entrar al Canal Oficial Telegram de elhacker.net


  Mostrar Mensajes
Páginas: [1]
1  Programación / Programación Visual Basic / Re: [Ayuda] Hacer que al apretar F1/F2 Active/Desactive un Botón en: 6 Diciembre 2010, 01:54 am
Si es Visual Basic 2008 Express
Ayudame :l Porfavor
2  Programación / Programación Visual Basic / Re: [Ayuda] Hacer que al apretar F1/F2 Active/Desactive un Botón en: 6 Diciembre 2010, 01:23 am
Ok, mira cuando pongo esto;
Código:
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.
3  Programación / Programación Visual Basic / Re: [Ayuda] Hacer que al apretar F1/F2 Active/Desactive un Botón en: 6 Diciembre 2010, 01:05 am
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
4  Programación / Programación Visual Basic / [Ayuda] Hacer que al apretar F1/F2 Active/Desactive un Botón en: 6 Diciembre 2010, 00:55 am
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!   :-\
5  Programación / Programación Visual Basic / Re: Ayuda! en: 5 Diciembre 2010, 23:17 pm
  :huh:
6  Programación / Programación Visual Basic / Ayuda! en: 5 Diciembre 2010, 22:37 pm
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:
<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.
Páginas: [1]
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines