Skocz do zawartości
  • 👋 Witaj na MPCForum!

    Przeglądasz forum jako gość, co oznacza, że wiele świetnych funkcji jest jeszcze przed Tobą! 😎

    • Pełny dostęp do działów i ukrytych treści
    • Możliwość pisania i odpowiadania w tematach
    • System prywatnych wiadomości
    • Zbieranie reputacji i rozwijanie swojego profilu
    • Członkostwo w jednej z największych społeczności graczy

    👉 Dołączenie zajmie Ci mniej niż minutę – a zyskasz znacznie więcej!

    Zarejestruj się teraz

Obsługa myszy na zminimalizowanej aplikacji


Rekomendowane odpowiedzi

Opublikowano

Witam. Nie wiem jak wykonać operacje na myszy w aplikacji, która jest zminimalizowana. Klawiatura działa, ale mysz nie. Próbowałem ale na mouse_event klikało i ruszało myszką normalnie, a nie w ukrytym trybie w zminimalizowanej aplikacji. Kod:
 

Imports System
Imports System.Runtime.InteropServices
Imports System.Drawing
Imports System.Windows.Forms

Public Class Form1
    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)
    Declare Auto Function FindWindow Lib "USER32.DLL" ( _
    ByVal lpClassName As String, _
    ByVal lpWindowName As String) As IntPtr
    Declare Auto Function SetForegroundWindow Lib "user32" _
        (ByVal hWnd As IntPtr) As Boolean
    Dim cocHandle As IntPtr
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        cocHandle = FindWindow("WindowsForms10.Window.8.app.0.33c0d9d", "BlueStacks App Player")
        SetForegroundWindow(cocHandle)
    End Sub
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If cocHandle = IntPtr.Zero Then
            MsgBox("Nie wykryto uruchomionej aplikacji.")
            Return
        Else
            Timer1.Start()
        End If
    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Cursor = New Cursor(Cursor.Current.Handle)
        mouse_event(&H2, 0, 0, 0, 1)
        mouse_event(&H4, 0, 0, 0, 1)
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Timer1.Stop()
    End Sub
End Class

A problemem jest czerwony mouse_event, który działa globalnie a nie na moją aplikację. Klawiaturę obsługuję tak (i działa nawet jak aplikacja jest zminimalizowana):
 

 SendKeys.Send("abc")

Lecz z myszką czegoś podobnego nie potrafię zrobić... Z góry dzięki

Zarchiwizowany

Ten temat przebywa obecnie w archiwum. Dodawanie nowych odpowiedzi zostało zablokowane.

×
×
  • Dodaj nową pozycję...