Bildschirmtastatur automatisch öffnen bei "Fenster klick"

Frost0071

Hallo Zusammen,

ich bin neu hier und habe auch gleich mal eine Frage. Eins vorweg meine Computerkenntnisse hören leider bei der Installation von Programmen auf das bedeutet meine Programmierkenntnisse sind nahezu 0.
Trotzdem möchte ich gerne ein kleines Script haben, ich hoffe oder denke das auch ziemlich einfach ist. Leider für mich aber doch eine große Hürde.

Folgendes würde ich gerne realisieren:

Ich habe bei mir in der Werkstatt einen XP Rechner der eine Maschine steuert, der PC wird über eine Touchscreen gesteuert. Jetzt gibt es da ein Feld in der Bedienoberfläche in das man Befehle mit der Tastatur eingeben kann.
Ich würde jetzt gerne die Bildschirmtastatur öffnen wenn ich genau in dieses Feld per Touch klicke. Ist das möglich? Mit der AutoIt Window Info habe ich herausgefunden das das Feld die CLASS:Edit und die INSTANCE:4 hat hilft das?
Oder was brauche ich dazu?

Vielen Dank schon mal

**alpines**

Meinst du in etwa sowas? Kannst es ja mal mit dem Editor testen und dann an dein Programm anpassen.

AutoIt

#RequireAdmin
#AutoIt3Wrapper_UseX64=y


$bStarted = False


While Sleep(100)
	If Not $bStarted and ControlGetFocus("Unbenannt - Editor") = "Edit1" Then
		ShellExecute(@WindowsDir & "\System32\osk.exe")
		$bStarted = True
	ElseIf $bStarted and ControlGetFocus("Unbenannt - Editor") <> "Edit1" Then
		Do
			ProcessClose("osk.exe")
		Until Not ProcessExists("osk.exe")
		$bStarted = False
	EndIf
WEnd

Alles anzeigen

Frost0071

Super danke werde das mal ausprobieren.

wenn ich es dann ein mein Programm anpasse dann muss ich nur das "Editor" gegen meinen Programmnamen austauschen oder?
Muss der Programmname komplet identisch sein?

Danke

**alpines**

Du musst dein Fensternamen dort reinpacken, und ggf. das Edit1 mit deinem ClassnameNN ändern.
Wenn du das ganze auf mehrere Fenster und Controls ändern willst, dann musst du ein wenig mehr ändern.

Frost0071

Okay ich denke das habe ich kapiert.

jetzt noch eine Frage, das Script beendet ja die Tastatur sobald ich wo anderst hin klicke gibt es auch eine Möglichkeit die Tastatur so lange offen zu lassen bis ich sie beende? Und dann durch erneute klick in dieses eine Feld wieder zu starten?

**alpines**

So in etwa?

AutoIt

#RequireAdmin
#AutoIt3Wrapper_UseX64=y


While Sleep(1000)
	If Not ProcessExists("osk.exe") and ControlGetFocus("Unbenannt - Editor") = "Edit1" Then
		ShellExecute(@WindowsDir & "\System32\osk.exe")
		Sleep(1000)
	EndIf
WEnd

Frost0071

Super das sieht gut aus.

Eins hab ich noch, wenn ich die Tastatur auch noch in anderen Fenstern im gleichen Programm aufrufen will kann ich das dann einfach so kopieren?

AutoIt

#RequireAdmin
#AutoIt3Wrapper_UseX64=y


While Sleep(1000)
	If Not ProcessExists("osk.exe") and ControlGetFocus("Unbenannt - Editor") = "Edit1" Then
		ShellExecute(@WindowsDir & "\System32\osk.exe")
		Sleep(1000)
	If Not ProcessExists("osk.exe") and ControlGetFocus("Unbenannt - Editor") = "Edit2" Then
		ShellExecute(@WindowsDir & "\System32\osk.exe")
		Sleep(1000)
	If Not ProcessExists("osk.exe") and ControlGetFocus("Unbenannt - Editor") = "Edit3" Then
		ShellExecute(@WindowsDir & "\System32\osk.exe")
		Sleep(1000)


	EndIf
WEnd

Alles anzeigen

**alpines**

Im Grunde ja, aber du hast immer noch Syntaxfehler drinne.

Wenn du mehrere If-Zweige hast dann musst du statt If ein ElseIf nehmen, ansonsten musst du jeden If-Zweig mit EndIf schließen.
Die ClasnameNNs musst du auch für jedes Fenster anpassen, denn die heißen nicht immer Edit1.

Hast du sonst noch Fragen oder Wünsche?

Frost0071

Okay ich hab das mal geändert.

Eine Frage noch, Brauche ich die Wartezeit von 1s? Das würde ja bedeuten das im schlimmsten Fall wenn ich ein Feld aktiviere ich mehrere Sekunden warten muss bis die Tastatur kommt oder sehe ich das falsch?
Vielen Dank für deine Hilfe @alpines hast mir sehr geholfen

AutoIt

#RequireAdmin
#AutoIt3Wrapper_UseX64=y


While Sleep(1000)
	If Not ProcessExists("osk.exe") and ControlGetFocus("Unbenannt - Editor") = "Edit1" Then
		ShellExecute(@WindowsDir & "\System32\osk.exe")
		Sleep(1000)
	ElseIf Not ProcessExists("osk.exe") and ControlGetFocus("Unbenannt - Editor") = "Edit2" Then
		ShellExecute(@WindowsDir & "\System32\osk.exe")
		Sleep(1000)
	ElseIf Not ProcessExists("osk.exe") and ControlGetFocus("Unbenannt - Editor") = "Edit3" Then
		ShellExecute(@WindowsDir & "\System32\osk.exe")
		Sleep(1000)
           EndIf
WEnd

Alles anzeigen

**alpines**

Der Sleep(1000) in der While-Loop ist dafür gedacht um die Prozessauslastung zu minimieren, den kannst du auch auf 10 runterstellen - da nimmt sich nicht viel.
Die Sleep(1000) nach der Ausführung des OSKs kannst du reintheoretisch weglassen wenn du ShellExecuteWait verwendest.

Ich weiß nicht ob dir das besser passt aber wenn du das OSK schließen willst, dann musst du zwangsweise ein anderes Control oder Fenster fokussieren (bei 1000ms Zeit ist das angenehmer und einfacher als bei 10ms) und dann kannst du erst das OSK schließen, weil ansonsten die While Loop ohne dem Sleep(1000) direkt ein neues OSK startet. Aber das ist geschmackssache.

Hier hast du das ganze mal mit ShellExecuteWait.

AutoIt

#RequireAdmin
#AutoIt3Wrapper_UseX64=y


While Sleep(10)
	If Not ProcessExists("osk.exe") and ControlGetFocus("Unbenannt - Editor") = "Edit1" Then
		ShellExecuteWait(@WindowsDir & "\System32\osk.exe")
	ElseIf Not ProcessExists("osk.exe") and ControlGetFocus("Unbenannt - Editor") = "Edit2" Then
		ShellExecuteWait(@WindowsDir & "\System32\osk.exe")
	ElseIf Not ProcessExists("osk.exe") and ControlGetFocus("Unbenannt - Editor") = "Edit3" Then
		ShellExecuteWait(@WindowsDir & "\System32\osk.exe")
	EndIf
WEnd

Alles anzeigen

Wenn du keine Fragen mehr hast dann würde ich dich sehr gerne drum bitten, den Präfix des Threads auf [gelöst] zu setzen damit in Zukunft User die nach der gleichen Lösung suchen den Thread sofort finden und sehen das es hier gelöst worden ist. Den Präfix stellst du um indem du den 1. Beitrag bearbeitest und von [offen] auf [gelöst] wechselst.

Freut mich, dass ich helfen konnte.

Frost0071

Danke ich werd ausprobieren und berichten