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.
Code
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)
EndFunc
Alles anzeigen
Es muss irgendwas mit dem Programm zu tun haben, ich habe es Testweise mit dem Windows Editor auch probiert, da funktioniert es.
Code
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
Alles anzeigen