VBA: Wie zu einer Anwendung im Vollbildmodus wechseln?

25.04.2020, 05:43

Ich möchte mit VBA aus Excel zum Spiel GTA online wechseln. GTA läuft schon, und zwar im Vollbildmodus. Was mache ich da ohne Fenster und ohne Fenstertitel? Weil ja AppActivate einen Fenstertitel erfordert. Ich spiele GTA und führe eine Statistik über Rennerfolge. Dafür wechsle ich aus dem Spiel mittels AHK zu Excel, trage dort mittels eines VBA-Programms schnell die Daten ein und will ebenso schnell wieder zurück zu GTA, weil das Spiel ja weiterläuft. Der Fenstertitel wäre "Grand Theft Auto V", wenn da ein Fenster wäre.

2 Antworten

geri3d
Nutzer, der sehr aktiv auf gutefrage ist
im Thema Windows 10
25.04.2020, 09:33

Beim grossen Bruder VB gibt es in meine kleinen Textdatei ein Schipsel aber ich weiss nicht inwieweit du das in ExcelVBA reinstöpselst.

Das Beispiel ist mit minimized aber das ist ja nur eine Konstante, hier mein...

Minimize Fremdes fernster


           'Threading.Thread.Sleep(1000)
           'Dim hWnd As IntPtr
           'Dim wp As WINDOWPLACEMENT
           'hWnd = VlcProcess.MainWindowHandle
           'GetWindowPlacement(hWnd, wp)
           'wp.showCmd = SW_SHOWMINIMIZED
           'SetWindowPlacement(hWnd, wp)




   Private Structure POINTAPI
       Dim X As Integer
       Dim Y As Integer
   End Structure


   Private Structure RECT
       Dim Left As Integer
       Dim Top As Integer
       Dim Right As Integer
       Dim Bottom As Integer
   End Structure


   Private Structure WINDOWPLACEMENT
       Dim length As Integer
       Dim flags As Integer
       Dim showCmd As Integer
       Dim ptMinPosition As POINTAPI
       Dim ptMaxPosition As POINTAPI
       Dim rcNormalPosition As RECT
   End Structure


   Private Const SW_SHOWMINIMIZED As Short = 2
   Private Const SW_SHOWMAXIMIZED As Short = 3
   Private Const SW_SHOWNORMAL As Short = 1

   Private Declare Function GetWindowPlacement Lib "user32" (ByVal hwnd As IntPtr, ByRef lpwndpl As WINDOWPLACEMENT) As Integer
   Private Declare Function SetWindowPlacement Lib "user32" (ByVal hwnd As IntPtr, ByRef lpwndpl As WINDOWPLACEMENT) As Integer
Woher ich das weiß:Hobby
IchMalWiederXY
Von gutefrage auf Grund seines Wissens auf einem Fachgebiet ausgezeichneter Nutzer
VBA
25.04.2020, 19:03

Schau mal hier.
 https://www.ms-office-forum.net/forum/showthread.php?t=182047

Dreieck002 
Beitragsersteller
 25.04.2020, 20:13

Ich habs mit Hilfe von AHK und WindowsSpy hingekriegt. Zwei Tastendrücke reichen. <ctr>+<u> zu Excel aus GTA und <ctrl> + <i> wieder zurück zu GTA, auch im Fullscreen-Modus!