Comment simuler le clic de la souris?

Je suis en train de faire un programme, cliquez avec le clavier comme dans Osu!.
J'ai essayé de SendKeys() RaiseMouseEvent() et OnMouseClick(). Maintenant, je vais essayer cela et ne pouvez pas obtenir quoi que ce soit au travail...
L'erreur que je reçois est PInvoke restriction: ne peut pas retourner de variantes.

Public Class Form1
    Dim onn As Boolean = False
    Declare Function mc Lib "user32.dll" Alias "mouse_event" (flag, x, y, button, extra)
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If Not onn Then
            Button1.Text = "Off"
            Label1.Text = "Status: On"
            onn = True
        ElseIf onn Then
            Button1.Text = "On"
            Label1.Text = "Status: Off"
            onn = False
        End If
    End Sub
    Private Sub Form1_KeyPress1(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles Me.KeyPress
        If onn And (e.KeyChar = "Z" Or e.KeyChar = "X" Or e.KeyChar = "z" Or e.KeyChar = "x") Then
            mc(&H2, 0, 0, 0, 0)
            mc(&H4, 0, 0, 0, 0)
        End If
    End Sub
End Class

OriginalL'auteur Devonx25 | 2013-07-01

vb.net

4

Présente des exemples de clics de la souris est actuellement lorsque la fonction est dans le "onn" état:
```
Public Class Form1
Private onn As Boolean = False
Private Declare Sub mouse_event Lib "user32" (ByVal dwFlags As Integer, _
ByVal dx As Integer, ByVal dy As Integer, ByVal cButtons As Integer, _
ByVal dwExtraInfo As Integer)
Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
Me.KeyPreview = True
Button1.Text = "Off"
End Sub
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
onn = Not onn
Button1.Text = IIf(onn, "On", "Off")
End Sub
Private Sub Form1_KeyPress1(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles Me.KeyPress
If onn Then
Select Case e.KeyChar
Case "Z", "z", "X", "x"
mouse_event(&H2, 0, 0, 0, 0)
mouse_event(&H4, 0, 0, 0, 0)
End Select
End If
End Sub
Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
Debug.Print("Button2")
End Sub
Private Sub Button3_Click(sender As Object, e As System.EventArgs) Handles Button3.Click
Debug.Print("Button3")
End Sub
End Class
```
Qui déplace le curseur vers le bouton droit?. Ce n'est pas ce que je suis en train de faire. Je ne veux pas de cliquer sur le bouton avec la souris. Le bouton s'allume. Je veux cliquer sur d'autres trucs, quand j'appuie sur z ou x, comme si je l'ai frappé le bouton de la souris. Par exemple, si je déplace la souris sur l'icône "Ajouter un Commentaire" droit maintenant et sur z ou x, Il faudrait cliquer comme si j'avais cliqué avec la souris.
Si vous voulez cliquez sur les choses avec le mouse_event() de l'API ensuite, soit vous suffit de passer la souris et cliquez sur par des zéros en tant que paramètre (comme dans votre exemple), ou vous devez spécifier les coordonnées de cliquer sur. Mon exemple met le curseur là où il était après le clic. Donc, si vous voulez ", cliquez sur autres choses", puis déplacez la souris sur que d'autres choses, effectue le clic, puis mettre la souris en arrière...
Je ne veux pas déplacer la souris avec le code. Je veux qu'il cliquez à l'endroit où il est.
Oh...votre code d'origine était presque, puis il. Comme je l'ai dit, à l'aide des zéros pour les paramètres clics, là où le curseur est actuellement. Je l'ai testé et il a bien fonctionné pour moi. Je vais poster mon code de test ci-dessus...
Avez-vous vu le lien vers la photo que j'ai ajouté en haut? Il montre ce qu'il dit quand je l'ai essayer...

OriginalL'auteur Idle_Mind

Public Class Iconform
Public Declare Auto Function SetCursorPos Lib "User32.dll" (ByVal X As Integer, ByVal Y As Integer) As Long
Public Declare Auto Function GetCursorPos Lib "User32.dll" (ByRef lpPoint As Point) As Long
Public 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)
Public Const MOUSEEVENTF_LEFTDOWN = &H2 ' left button down
Public Const MOUSEEVENTF_LEFTUP = &H4 ' left button up
Public Const MOUSEEVENTF_MIDDLEDOWN = &H20 ' middle button down
Public Const MOUSEEVENTF_MIDDLEUP = &H40 ' middle button up
Public Const MOUSEEVENTF_RIGHTDOWN = &H8 ' right button down
Public Const MOUSEEVENTF_RIGHTUP = &H10 ' right button up
Private Sub NotifyIcon1_MouseDoubleClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles NotifyIcon1.Click
SettingsForm.Show()
End Sub
Private Sub OptionsToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OptionsToolStripMenuItem.Click
SettingsForm.Show()
End Sub
Private Sub CloseToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CloseToolStripMenuItem.Click
Me.Close()
End Sub
Private Sub Form1_KeyDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles MyBase.KeyDown
Dim bHandled As Boolean = False
Dim xPos As Integer = Windows.Forms.Cursor.Position.X.ToString
Dim zPos As Integer = Windows.Forms.Cursor.Position.Y.ToString
Select Case e.KeyCode
Case Keys.Right
Windows.Forms.Cursor.Position = New Point(xPos + 10, zPos)
Case Keys.Left
Windows.Forms.Cursor.Position = New Point(xPos - 10, zPos)
Case Keys.Down
Windows.Forms.Cursor.Position = New Point(xPos, zPos + 10)
Case Keys.Up
Windows.Forms.Cursor.Position = New Point(xPos, zPos - 10)
Case Keys.D
mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0)
End Select
End Sub
End Class

OriginalL'auteur Juanjo

0

Essayez d'utiliser PerformClick() méthode:
```
Button1.PerformClick()
```
Dans votre code, il pourrait être comme:
```
If onn And (e.KeyChar = "Z" Or e.KeyChar = "X" Or e.KeyChar = "z" Or e.KeyChar = "x") Then
Button1.PerformClick()
End If
```
Je l'ai essayé et c'est pas ce que je suis en train de faire. Qui clique sur le bouton. Le bouton est censé pour l'activer, puis les touches z et x sont censés cliquez sur j'aime si j'ai cliqué sur le bouton gauche de la souris.

OriginalL'auteur Edper

Vous devez vous connecter pour publier un commentaire.