小编Dev*_*x25的帖子

我正试图用Osu制作一个用键盘点击的程序!.我已经尝试过SendKeys()RaiseMouseEvent()和OnMouseClick().现在我正在尝试这个并且无法获得任何工作......我一直得到的错误是PInvoke限制:无法返回变体.

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) …