Question

嗨，我按住Shift + Control制作小程序，然后在释放键完成后拖动鼠标绘制漂亮的矩形这在Windows和一些游戏中工作得非常好，当它是全屏:)！

2问题我试着解决它

1）一些游戏拿着鼠标并锁定中心问题你不能移动鼠标你总是喜欢它在中心

我及时尝试使用

    Me.Cursor = New Cursor(Cursor.Current.Handle)
    Cursor.Position = New Point(Control.MousePosition.X, Control.MousePosition.Y)

2）有些游戏忽略了键控制+转移我尝试放置类似的东西例如，控制+转移+ A，但这不起作用

GetKeyPress(Keys.ShiftKey) AndAlso GetKeyPress(Keys.ControlKey) AndAlso GetKeyPress(Keys.A)

我唯一看到工作的HotKey但我想在Up Down时获得舞台而且我不知道如何

<Runtime.InteropServices.DllImport("User32.dll")>
Public Shared Function RegisterHotKey(ByVal hwnd As IntPtr,
                                  ByVal id As Integer, ByVal fsModifiers As Integer,
                                  ByVal vk As Integer) As Integer
End Function

这里完整代码复制粘贴并运行它，以进行测试

Dim timerUpdate As New Timer

Private Const KEY_DOWN As Integer = &H8000
Private Declare Function GetKeyPress Lib "user32" Alias "GetAsyncKeyState" (ByVal key As Integer) As Integer

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    'form Setting transparent and hide
    Me.TransparencyKey = Color.Black
    Me.BackColor = Color.Black
    Me.FormBorderStyle = FormBorderStyle.None
    Me.Opacity = 0.0
    Me.TopMost = True
    'Timer
    timerUpdate.Interval = 1
    timerUpdate.Enabled = True
    AddHandler timerUpdate.Tick, AddressOf timerUpdate_Tick
End Sub

Protected Overrides Sub OnPaint(ByVal e As PaintEventArgs)
    'paint rectangle to border red
    Dim size = 2
    Dim RedPen As New Pen(Color.Red, size)
    Dim rect As New Rectangle(size, size, Me.ClientSize.Width - size * 2, Me.ClientSize.Height - size * 2)
    e.Graphics.DrawRectangle(RedPen, rect)
End Sub

Private Sub Form1_Resize(sender As Object, e As EventArgs) Handles MyBase.Resize
    'Refresh for drawing update
    Me.Refresh()
End Sub

Private Sub timerUpdate_Tick(sender As Object, e As EventArgs)
    Dim key_shift As Integer = GetKeyPress(Keys.ShiftKey) AndAlso GetKeyPress(Keys.ControlKey)
    Static key_shift_down As Boolean = False
    Static mousePosKeep As New Point()
    Static mousePosLast As New Point()

    If GetKeyPress(Keys.ShiftKey) AndAlso GetKeyPress(Keys.ControlKey) = KEY_DOWN Then
        If (Not key_shift_down) Then
            'keep mouse position
            mousePosKeep.X = Control.MousePosition.X
            mousePosKeep.Y = Control.MousePosition.Y
            'Move Form to mouse
            Me.Left = mousePosKeep.X
            Me.Top = mousePosKeep.Y
            'Set Key Shift To True
            key_shift_down = True
            'Make Form Vissible
            Me.Opacity = 1.0
            'this help the form to show in game when it's full screen
            'If call again make top the form And you can see it !!! :)
            Me.TopMost = True
            Console.WriteLine("key Shift+Controls Press Down")
        End If
        'Draw rectangle on mouse move

        'Move Size Form Left , Width 
        If (Control.MousePosition.X - mousePosKeep.X) > -1 Then
            Me.Left = mousePosKeep.X
            Me.Width = (Control.MousePosition.X - mousePosKeep.X)
        Else
            Me.Left = Control.MousePosition.X
            Me.Width = (mousePosKeep.X - Control.MousePosition.X)
        End If

        'Move Size Form Top , Height 
        If (Control.MousePosition.Y - mousePosKeep.Y) > -1 Then
            Me.Top = mousePosKeep.Y
            Me.Height = Control.MousePosition.Y - mousePosKeep.Y
        Else
            Me.Top = Control.MousePosition.Y
            Me.Height = mousePosKeep.Y - Control.MousePosition.Y
        End If

        Console.WriteLine("Key Shift+Controls is Down")
    Else
        If key_shift_down = True Then
            'hide form finish when shift up
            Me.Opacity = 0.0
            'nake shift to false
            key_shift_down = False

            'Do your stuff when finish
            '
            '

            Console.WriteLine("Key Shift+Controls Press Up")
        End If


        'Draw Small Point To see where is the mouse when mouse is move
        If (mousePosLast.X <> Control.MousePosition.X And mousePosLast.Y <> Control.MousePosition.Y) Then
            mousePosLast.X = Control.MousePosition.X
            mousePosLast.Y = Control.MousePosition.Y
            Me.Width = 5
            Me.Height = 5
            Me.Opacity = 1.0
            Me.TopMost = True
            Me.Left = Control.MousePosition.X
            Me.Top = Control.MousePosition.Y
            Me.Cursor = Cursors.Cross
            Console.WriteLine("Key Shift+Controls Up")
        Else
            Me.Opacity = 0.0
        End If

    End If

End Sub

谢谢

VB.NET选择区域屏幕如何忽略鼠标中的锁定中心以便游戏将鼠标移动到我想要的位置

0 个答案: