1
VB Findwindow findet Fenster nicht
Hallo,
ich bin am verzweifeln und zwar soll mein Programm(kann man das so sagen?) stoppen bevor nicht ein anderes Programm geschlossen wird!
Das ganze habe ich jetzt mit Findwindow probiert doch der arbeitet einfach weiter!
Test mit Windows Spiel Minesweeper war kein Problem.
Hier mal der Code:
Ich habe eine Pause von 5 Sekunden mit eingebaut da das Programm 2-3 Sekunden braucht um zu starten(siehe Shell)
Laut Microsoft Spy++
Heißt die Windows Caption "Navigator"
und der Class Name "#32770 (Dialog)".
Habe ich irgendetwas nicht beachtet?
Ich muss dabei auch gleich sagen das ich noch nicht so fit in VB bin!
ich bin am verzweifeln und zwar soll mein Programm(kann man das so sagen?) stoppen bevor nicht ein anderes Programm geschlossen wird!
Das ganze habe ich jetzt mit Findwindow probiert doch der arbeitet einfach weiter!
Test mit Windows Spiel Minesweeper war kein Problem.
Hier mal der Code:
Option Explicit
Private Declare Function FindWindow Lib "user32" Alias _
"FindWindowA" (ByVal lpClassName As Any, ByVal _
lpWindowName As Any) As Long
Private Sub Form_Load()
Shell Pathname:="D:\fleet\prog\navigator.exe", Windowstyle:=vbNormalFocus
Dim Pausenlänge, Start, Ende
Pausenlänge = 5 '
Start = Timer '
Do While Timer < Start + Pausenlänge
DoEvents
Loop
While FindWindow("Navigator", 0&)
DoEvents
Wend
MsgBox "Navigator wurde beendet.", vbInformation + vbOKOnly
End
End SubIch habe eine Pause von 5 Sekunden mit eingebaut da das Programm 2-3 Sekunden braucht um zu starten(siehe Shell)
Laut Microsoft Spy++
Heißt die Windows Caption "Navigator"
und der Class Name "#32770 (Dialog)".
Habe ich irgendetwas nicht beachtet?
Ich muss dabei auch gleich sagen das ich noch nicht so fit in VB bin!
Auf Facebook teilen
Auf Twitter teilen
Auf Reddit teilen
Auf Linkedin teilenBitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben
Content-ID: 76206
Url: https://administrator.de/contentid/76206
Ausgedruckt am: 22.11.2024 um 19:11 Uhr
1 Kommentar
Dashier müsste gehn:
es heißt ja auch
und nicht
While FindWindow(0&, "Navigator") Private Declare Function FindWindow Lib "user32" Alias _
"FindWindowA" (ByVal lpClassName As Any, ByVal _
lpWindowName As Any) As Long Private Declare Function FindWindow Lib "user32" Alias _
"FindWindowA" (ByVal _
lpWindowName As Any, ByVal lpClassName As Any) As Long 
