Pessoal, gostaria de uma ajuda rápida...
Meu script é de mexer o cursor enquanto segura o clique do mouse, mesmo com o programa minimizado
Quero saber como desativar e ativar o script, por exemplo:
F1 Ativo o script
F2 Ativo outro Script
F3 Ativo outro script
F4 pauso o script
é com if else?
Imports System.Runtime.InteropServices
Public Class Form1
<DllImport("user32.dll", CharSet:=CharSet.Auto, CallingConvention:=CallingConvention.StdCall)> _
Public Shared Sub mouse_event(dwFlags As Integer, dx As Integer, dy As Integer, cButtons As Integer, dwExtraInfo As Integer)
End Sub
Private Const MOUSEEVENTF_LEFTDOWN As Integer = &H2
Private Const MOUSEEVENTF_LEFTUP As Integer = &H4
Private Const MOUSEEVENTF_RIGHTDOWN As Integer = &H8
Private Const MOUSEEVENTF_RIGHTUP As Integer = &H10
Dim PUNTOX As Integer
Dim PUNTOY As Integer
Dim BANDERA As Boolean = False
Public Sub CLICKIZDO()
mouse_event(MOUSEEVENTF_LEFTDOWN, PUNTOX, PUNTOY, 0, 0)
mouse_event(MOUSEEVENTF_LEFTUP, PUNTOX, PUNTOY, 0, 0)
End Sub
Public Sub CLICKDCHO()
mouse_event(MOUSEEVENTF_RIGHTDOWN, PUNTOX, PUNTOY, 0, 0)
mouse_event(MOUSEEVENTF_RIGHTUP, PUNTOX, PUNTOY, 0, 0)
End Sub
Private Sub MOVERMOUSE()
Cursor = New Cursor(Cursor.Current.Handle)
Cursor.Position = New Point(PUNTOX, PUNTOY)
End Sub
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
For Each c As Control In Controls
AddHandler c.MouseClick, AddressOf ClickHandler
Next
End Sub
Private Sub ClickHandler(sender As Object, e As MouseEventArgs) Handles Me.MouseClick
Select Case e.Button
Case MouseButtons.Left
PUNTOX = Cursor.Position.X
PUNTOY = Cursor.Position.Y + 20
MOVERMOUSE()
End Select
End Sub
End Class