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!
Share on Facebook
Share on Twitter
Share on Reddit
Share on LinkedinPlease also mark the comments that contributed to the solution of the article
Content-Key: 76206
Url: https://administrator.de/contentid/76206
Printed on: April 19, 2024 at 22:04 o'clock
1 Comment
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 
