First of all I'm a total newby in visual basic, I needed to hack an application that kept clicking (don't ask).
Everything is nice and dandy on my pc, then I compile, move it to its final destination and I doesn't work! At first I thought it was a OS problem, but both machines has win7, I then thought it was a compilation problem, installed visual studio on the other pc, recompiled still with no luck, then it dawned on me, may it be a problem of 32bit vs 64bit?
Sadly I don't have enough knowledge about it and so I ask you.
The piece of code is this:
Private Sub mainTimer_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mainTimer.Tick
Dim keyStart As Boolean
keyStart = GetAsyncKeyState(Keys.A)
If keyStart = True Then
timeClicker.Enabled = True
timeClicker.Start()
End If
Dim keyStop As Boolean
keyStop = GetAsyncKeyState(Keys.S)
If keyStop = True Then
timeClicker.Stop()
timeClicker.Enabled = False
End If
End Sub
Private Sub timeClicker_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles timeClicker.Tick
mouse_event(mouseclickdown, 0, 0, 0, 0)
mouse_event(mouseclickup, 0, 0, 0, 0)
End Sub
MainTimer has an interval of 100 and timeClicker has an interval of 10, both are declared on the form project (not in the code). The MainTimer works perfectly (I've done tests) it's the timeClicker that doesn't work at all!
Can somebody tell me why and possibly help me understand the issue?
Thank you very much
EDIT: as requested by max
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
By the way is not a problem of mouse_event, is the timer that doesn't work.