A little help with 6.0 please :) *Resolved...*

[SlipKnot]

*EDIT* Easyer way of saying it:

How do you make it so when somethign in a list is selected and F1 is pressed it does soemthing every milisecond and when you press F1 again it stops. Help please.

[dglienna]

You can't really do anything that quickly. Maybe 50 milliseconds would be more realistice. What are you trying to do?

[SlipKnot]

Im trying make an autoclicker that clicks FAST, but if u cant do 1 every milisecond 50 is ok too, think you can help?

[Sir Loin]

Option Explicit
Dim intPressed As Integer
 
Private Sub List1_KeyDown(KeyCode As Integer, Shift As Integer)
 
If intPressed = 0 Then
    If KeyCode = vbKeyF1 Then
        intPressed = intPressed + 1
        MsgBox "pressed! :)"
    End If
Else: intPressed = 1
    If KeyCode = vbKeyF1 Then
        intPressed = intPressed - 1
        MsgBox "PRESSED! ;)"
    End If
End If
 
End Sub

That will do something when F1 is press, then do something else when pressed again.

-Sir Loin

[dglienna]

What do you want to do when F1 is pressed? Is it your program, or are you accessing another program?

[Black__Knight]

Hi,

This may help...

Option Explicit
Dim AutoClick As Boolean
 
Private Sub Form_Load()
    With List1
        .AddItem "AutoClick"
    End With
End Sub
 
Private Sub List1_KeyDown(KeyCode As Integer, Shift As Integer)
    Select Case KeyCode
        Case vbKeyF1
            If List1.ListIndex <> -1 Then
                AutoClick = Not AutoClick
                Timer1.Interval = 50
                Timer1.Enabled = True
            End If
    End Select
End Sub
 
Private Sub Timer1_Timer()
    Static Cnt As Long
    
    If AutoClick Then
        Cnt = Cnt + 1
        Debug.Print Cnt
    Else
        Timer1.Enabled = False
    End If
    DoEvents
End Sub

Have a good one!
BK

[SlipKnot]

didne work only pressed! no PRESSED!

[SlipKnot]

Hi,

This may help...

Option Explicit
Dim AutoClick As Boolean
 
Private Sub Form_Load()
    With List1
        .AddItem "AutoClick"
    End With
End Sub
 
Private Sub List1_KeyDown(KeyCode As Integer, Shift As Integer)
    Select Case KeyCode
        Case vbKeyF1
            If List1.ListIndex <> -1 Then
                AutoClick = Not AutoClick
                Timer1.Interval = 50
                Timer1.Enabled = True
            End If
    End Select
End Sub
 
Private Sub Timer1_Timer()
    Static Cnt As Long
    
    If AutoClick Then
        Cnt = Cnt + 1
        Debug.Print Cnt
    Else
        Timer1.Enabled = False
    End If
    DoEvents
End Sub

Have a good one!
BK

All that do is count it doesnt click.. where do i put vbKeyLButton ?

[dee-u]

You mean it will automatically click L? Try to put it here..

Private Sub Timer1_Timer()
    Static Cnt As Long
    If AutoClick Then
        Cnt = Cnt + 1
        [B]SendKeys "L"[/B]
    Else
        Timer1.Enabled = False
    End If
    DoEvents
End Sub

[SlipKnot]

No for vbkeycode lbutton is left click i want it to left click...

[dee-u]

This might help.

[SlipKnot]

Never mind, Resolved..