KnALLE Posted May 15, 2006 Posted May 15, 2006 Greetings, try to understand how doing the modern way without goTo, but it isnt working. The following code has no error, but it isnt executing a select line. It is working through, till the WinWaitActive line after EndSelect, please have a look: expandcollapse popup$one = 1 $multible = 2 Do WinWaitActive("Registrierungs-Editor", "Arbeitsplatz") Send("{ENTER}") Select Case WinExists("Zeichenfolge bearbeiten", "Abbrechen") Call("_oneLine" & $one) Case WinExists("Mehrteilige Zeichenfolge bearbeiten", "Abbrechen") Call("_multibleLines" & $multible) EndSelect WinWaitActive("Registrierungs-Editor", "Arbeitsplatz") Send("{F3}") Until WinActive("Registrierungs-Editor", "Das Durchsuchen der Registrierung ist beendet") #region; section for functions Func _oneLine($one) Send("{CTRLDOWN}c{CTRLUP}") WinActivate("Unbenannt - Editor","") WinWaitActive("Unbenannt - Editor","") Send("{CTRLDOWN}v{HOME}{CTRLUP}") Do Send("{F3}") Send("{SHIFTDOWN}f.{SHIFTUP}{CTRLDOWN}{ALTDOWN}ß{CTRLUP}{ALTUP}") Until WinExists("Editor", "kann nicht gefunden werden.") Send("{Space}") Send("{CTRLDOWN}ax{CTRLUP}") WinActivate("Zeichenfolge bearbeiten","Abbrechen") WinWaitActive("Zeichenfolge bearbeiten","Abbrechen") Send("{CTRLDOWN}v{CTRLUP}{ENTER}") Return EndFunc Func _multibleLines($multible) Send("{CTRLDOWN}c{CTRLUP}") WinActivate("Unbenannt - Editor","") WinWaitActive("Unbenannt - Editor","") Send("{CTRLDOWN}v{HOME}{CTRLUP}") Do Send("{F3}") Send("{SHIFTDOWN}f.{SHIFTUP}{CTRLDOWN}{ALTDOWN}ß{CTRLUP}{ALTUP}") Until WinExists("Editor", "kann nicht gefunden werden.") Send("{Space}") Send("{CTRLDOWN}ax{CTRLUP}") WinActivate("Mehrteilige Zeichenfolge bearbeiten", "Abbrechen") WinWaitActive("Mehrteilige Zeichenfolge bearbeiten", "Abbrechen") Send("{CTRLDOWN}v{CTRLUP}{ENTER}") Return EndFunc KnALLE
Developers Jos Posted May 15, 2006 Developers Posted May 15, 2006 what should this line do? Call("_oneLine" & $one) It will try to perform function: _oneLine1() which doesn't exists....... SciTE4AutoIt3 Full installer Download page - Beta files Read before posting How to post scriptsource Forum etiquette Forum Rules Live for the present, Dream of the future, Learn from the past.
Xenobiologist Posted May 15, 2006 Posted May 15, 2006 HI, try this: expandcollapse popup$one = 1 $multible = 2 Do WinWaitActive("Registrierungs-Editor", "Arbeitsplatz") Send("{ENTER}") Select Case WinExists("Zeichenfolge bearbeiten", "Abbrechen") _oneLine(1) Case WinExists("Mehrteilige Zeichenfolge bearbeiten", "Abbrechen") Call("_multibleLines" & $multible) EndSelect WinWaitActive("Registrierungs-Editor", "Arbeitsplatz") Send("{F3}") Until WinActive("Registrierungs-Editor", "Das Durchsuchen der Registrierung ist beendet") #region; section for functions Func _oneLine($one) Send("{CTRLDOWN}c{CTRLUP}") WinActivate("Unbenannt - Editor","") WinWaitActive("Unbenannt - Editor","") Send("{CTRLDOWN}v{HOME}{CTRLUP}") Do Send("{F3}") Send("{SHIFTDOWN}f.{SHIFTUP}{CTRLDOWN}{ALTDOWN}ß{CTRLUP}{ALTUP}") Until WinExists("Editor", "kann nicht gefunden werden.") Send("{Space}") Send("{CTRLDOWN}ax{CTRLUP}") WinActivate("Zeichenfolge bearbeiten","Abbrechen") WinWaitActive("Zeichenfolge bearbeiten","Abbrechen") Send("{CTRLDOWN}v{CTRLUP}{ENTER}") Return EndFunc Func _multibleLines($multible) Send("{CTRLDOWN}c{CTRLUP}") WinActivate("Unbenannt - Editor","") WinWaitActive("Unbenannt - Editor","") Send("{CTRLDOWN}v{HOME}{CTRLUP}") Do Send("{F3}") Send("{SHIFTDOWN}f.{SHIFTUP}{CTRLDOWN}{ALTDOWN}ß{CTRLUP}{ALTUP}") Until WinExists("Editor", "kann nicht gefunden werden.") Send("{Space}") Send("{CTRLDOWN}ax{CTRLUP}") WinActivate("Mehrteilige Zeichenfolge bearbeiten", "Abbrechen") WinWaitActive("Mehrteilige Zeichenfolge bearbeiten", "Abbrechen") Send("{CTRLDOWN}v{CTRLUP}{ENTER}") Return EndFunc So long, Mega GERMAN: KnALLE: Wenn du die Übergabe-Parameter nicht nutzt, dann kannst du sie auch gleich weglassen und der Funktion nicht übergeben. Es gibt auch ein deutsches Forum und ein deutsches Help-File. Scripts & functions Organize Includes Let Scite organize the include files Yahtzee The game "Yahtzee" (Kniffel, DiceLion) LoginWrapper Secure scripts by adding a query (authentication) _RunOnlyOnThis UDF Make sure that a script can only be executed on ... (Windows / HD / ...) Internet-Café Server/Client Application Open CD, Start Browser, Lock remote client, etc. MultipleFuncsWithOneHotkey Start different funcs by hitting one hotkey different times
Uten Posted May 15, 2006 Posted May 15, 2006 I would do somthing like this $one = 1 $multible = 2 do ConsoleWrite("Do select case" & @LF) Select Case 1 = WinWaitActive("Untitled -", "", 1); You need a timeout on WinWaitActive _oneLine($one ) ;Normal function call Case 1 = WinExists("C:\","") Call("_multibleLines", $multible ) ;You used & rather than a seperator "," case else ConsoleWrite("NOTHING DONE: @errror:=" & @error & @LF) EndSelect sleep(1000) Until GUIGetMsg() = -3 #region; section for functions Func _oneLine($one) Msgbox(0,"MSG", "_oneLine(" & $one & ")",10) EndFunc Func _multibleLines($multible) Msgbox(0,"MSG", "_multibleLines(" & $multible & ")",10) EndFunc This works on my system. Scite has "C:\" as its window title. Notepad should be easy to start. Please keep your sig. small! Use the help file. Search the forum. Then ask unresolved questions :) Script plugin demo, Simple Trace udf, TrayMenuEx udf, IOChatter demo, freebasic multithreaded dll sample, PostMessage, Aspell, Code profiling
KnALLE Posted May 16, 2006 Author Posted May 16, 2006 Solution is working perfectlyAs JdeB has pointed out I call a function which is not present because of the missed parameter.And right th.meger I dont work which these parameters before, but the Call- command only works with a parameter.So Im happy with the following code to make this TabletPC System independent from his first Partition.expandcollapse popup$one = 1 $multible = 2 Do WinWaitActive("Registrierungs-Editor", "Arbeitsplatz") Send("{ENTER}") Select Case WinExists("Zeichenfolge bearbeiten", "Abbrechen") _line(1) Case WinExists("Mehrteilige Zeichenfolge bearbeiten", "Abbrechen") _lines(2) EndSelect WinWaitActive("Registrierungs-Editor", "Arbeitsplatz") Send("{F3}") Until WinExists("Registrierungs-Editor", "Das Durchsuchen der Registrierung ist beendet") Exit #region; section for functions Func _line($one) Send("{CTRLDOWN}c{CTRLUP}") WinActivate("Unbenannt - Editor","") WinWaitActive("Unbenannt - Editor","") Send("{CTRLDOWN}v{HOME}{CTRLUP}") Do Send("{F3}") Send("{SHIFTDOWN}f.{SHIFTUP}{CTRLDOWN}{ALTDOWN}ß{CTRLUP}{ALTUP}") Until WinExists("Editor", "kann nicht gefunden werden.") Send("{Space}") Send("{CTRLDOWN}ax{CTRLUP}") WinActivate("Zeichenfolge bearbeiten","Abbrechen") WinWaitActive("Zeichenfolge bearbeiten","Abbrechen") Send("{CTRLDOWN}v{CTRLUP}") ControlClick("Zeichenfolge bearbeiten", "Abbrechen", 1) Return EndFunc Func _lines($multible) Send("{CTRLDOWN}c{CTRLUP}") WinActivate("Unbenannt - Editor","") WinWaitActive("Unbenannt - Editor","") Send("{CTRLDOWN}v{HOME}{CTRLUP}") Do Send("{F3}") Send("{SHIFTDOWN}f.{SHIFTUP}{CTRLDOWN}{ALTDOWN}ß{CTRLUP}{ALTUP}") Until WinExists("Editor", "kann nicht gefunden werden.") Send("{Space}") Send("{CTRLDOWN}ax{CTRLUP}") WinActivate("Mehrteilige Zeichenfolge bearbeiten", "Abbrechen") WinWaitActive("Mehrteilige Zeichenfolge bearbeiten", "Abbrechen") Send("{CTRLDOWN}v{CTRLUP}") ControlClick("Mehrteilige Zeichenfolge bearbeiten", "Abbrechen", 1) Return EndFuncIn former times of NT4.0 the system was so concise, that this was possible doing manuallygood old days. And with the hint from Uten I keep it as well as with such old systems:· Never change it as long as it is working out what you want, NEVER. Gladly next time, thank you.KnALLE, improve his English because of staying abroad soon
Recommended Posts
Create an account or sign in to comment
You need to be a member in order to leave a comment
Create an account
Sign up for a new account in our community. It's easy!
Register a new accountSign in
Already have an account? Sign in here.
Sign In Now