Hallo Peter,
ja - aktiv ist es, ich Aktiviere ja auch das Programm mit $dom = WinActivate("[CLASS:TfrmMain; REGEXPTITLE:(?i)(.*domizil.*)]") und kann es auch problemlos mit WinSetState($dom, "", @SW_SHOW) in den Vordergrund bringen. Über den Code funktioniert minimieren auch problemlos, aber wenn der User das Symbol drückt tut sich einfach nichts mehr.
Schließen und neu öffnen ist leider keine Option, da das Programm (Domizil) leider sehr lange braucht zum starten
Hallo
ich habe ein Skript geschrieben welches einen Wert aus Access kopiert, ein anderes Programm öffnet (bzw. wenn es schon geöffnet ist, dieses verwendet) und den Wert dann dort einfügt bzw. die Nummer sucht.
Jetzt habe ich das Problem, dass wenn das Programm schon offen ist (wenn es neu gestartet werden muss funktioniert es) sich nachher nicht mehr minimieren lässt. Also das Symbol oben rechts funktioniert einfach nicht mehr, es muss vorher extra in der Taskleiste ausgewählt werden und dann lässt es sich wieder minimieren. Hat jemand eine Idee was hier falsch sein kann.
accWohnen()
Domizil()
Func accWohnen()
Local $acc = WinActivate("[CLASS:OMain; TITLE:Access - wohnungen]")
WinSetState($acc,"",@SW_MAXIMIZE)
Sleep(250)
Send("+{TAB}")
Send("^{c}")
EndFunc
Func Domizil()
$dom = WinActivate("[CLASS:TfrmMain; REGEXPTITLE:(?i)(.*domizil.*)]")
If $dom = 0 Then
RUN("\\srvwsgdz01\DomizilPlus\bin\DomizilNetzwerkStarter.exe -PROFIL:DomizilPlus -MANDANT:WSG")
$dom = WinWait("[CLASS:TfrmMain; REGEXPTITLE:(?i)(.*domizil.*)]","")
Sleep(4500)
Else
WinSetState($dom, "", @SW_SHOW)
EndIf
ControlFocus($dom, "", "[CLASS:TnetEdit]")
Send("Personen")
Sleep(300)
Send("{Enter 2}")
Sleep(3500)
Send("{F6}")
Sleep(100)
Send("^{v}")
Sleep(100)
Send("{Tab}")
Sleep(100)
Send("{DOWN}")
Sleep(50)
Send("{DOWN}")
Sleep(50)
Send("{DOWN}")
Sleep(50)
Send("{DOWN}")
Sleep(50)
Send("{DOWN}")
Sleep(50)
Send("{UP}")
Sleep(100)
Send("{Enter}")
Sleep(200)
Send("{Enter}")
Sleep(100)
EndFuncEs muss irgendwas mit dem Programm zu tun haben, ich habe es Testweise mit dem Windows Editor auch probiert, da funktioniert es.
TEST_mit_EDITOR()
Func TEST_mit_EDITOR()
$dom = WinActivate("[CLASS:Notepad; REGEXPTITLE:(?i)(.*Editor)]")
If $dom = 0 Then
RUN("C:\Program Files\WindowsApps\Microsoft.WindowsNotepad_11.2207.11.0_x64__8wekyb3d8bbwe\Notepad\Notepad.exe")
$dom = WinWait("[CLASS:Notepad; REGEXPTITLE:(?i)(.*Editor)]")
Sleep(4500)
Else
WinSetState($dom, "", @SW_SHOW)
EndIf
ControlFocus($dom, "", "[CLASS:RichEditD2DPT]")
Send("Personen")
Sleep(300)
Send("{Enter 2}")
Send("^{v}")
Sleep(100)
Send("{Tab}")
Sleep(100)
EndFunc