abfrage Programmstart
09.06.2007 23:48:00
tino
könnt Ihr mir helfen?
mit unten stehenden Code, öffne ich ein Programm, anschliesend soll dieses Programm in den Focus
genommen werden um eine Reihe von SendKeys abzusenden.
Nun meine Frage
Ich möchte eine abfrage einbauen, die soll wartet bis dieses Programm komplett geladen ist.
Möchte keine Pausen über Sekunden (Zeit) einfügen, diese sind mir zu ungenau.
Habe schon versucht andere abfragen einzubauen, diese gehen aber offt über die aktiven Anwendungen im Task- Manager diese sind aber zu früh also Anwendung nicht komplett geladen.
Ist bestimmt nicht leicht, aber könnt Ihr mir helfen?
Private Declare
Function ShellExecute _
Lib "shell32.dll" Alias "ShellExecuteA" ( _
ByVal hWnd As Long, _
ByVal Operation As String, _
ByVal Filename As String, _
Optional ByVal Parameters As String, _
Optional ByVal Directory As String, _
Optional ByVal WindowStyle As Long = vbMinimizedFocus _
) As Long
Sub Oeffne_Programm()
Dim lSuccess As Long
lSuccess = ShellExecute(0, "Open", "C:\WINDOWS\system32\mspaint.exe")
'hier Abfrage ob Programm vollständig gestartet 100%
AppActivate "Paint"
Call SendAnweisungen
End Sub
Gruss
Tino