Public Declare Function GetAsyncKeyState Lib "user32" (ByVal vkey As Long) As Integer
计时器写入
If GetAsyncKeyState(&H201) < 0 Then Dim x =System.Windows.Forms.Cursor.Position.X.ToString() Dim y = System.Windows.Forms.Cursor.Position.Y.ToString() MessageBox.Show(x & "," & y) End If