Problems to convert script

[Guest lsteinmetz]

Hello,

I have problems, to convert a V2 script into V3.

The script should fill out login fields automatically if they appear.

That means that the script must run in the backgroud.

Script (V2):

SetKeyDelay, 0

WinWaitClose, UPS32

[ADLIB]

Benutzer anmelden,, Send, JAK{TAB}1234{ENTER}

Fehler bei Objekt,, Send, !o

PROFIBOARD.DLL,, Send, {SPACE}

SQL Meldung,, Send, !o

User login,, Send, JAK{TAB}1234{ENTER}

Thanx

[jpm]

I don't undertstand your V2 script as an ADLIB section is only one line

The [ADLIB]Section

The [ADLIB] section is optional, and if present should be placed at the end of the script file. The ADLIB section is designed to cope with unexpected conditions. The ADLIB section consists of single line commands that check if a window is active and if so, send keys to it.

The ADLIB section must start with the line "[ADLIB]".

Any Way with V3 you can put any thing in the function defined by AdLibEnable(...)

you just need to transform every line with if WinExist(...) then send(...)

[Nutster]

Hello,

SetKeyDelay, 0
WinWaitClose, UPS32

[ADLIB]
Benutzer anmelden,, Send, JAK{TAB}1234{ENTER}
Fehler bei Objekt,, Send, !o
PROFIBOARD.DLL,, Send, {SPACE}
SQL Meldung,, Send, !o
User login,, Send, JAK{TAB}1234{ENTER}

To convert your ADLIB section, create an AdLib function, which you activate with AdLibEnable at the beginning of your script.

AdLibEnable("AdLibFunction")

Opt("SendKeyDelay", 1)
WinWaitClose("UPS32")

Func AdLibFunction()
    If WinExists("Benutzer anmelden") Then
        WinActivate("Benutzer anmelden")
        Send("JAK{TAB}1234{ENTER}")
    ElseIf WinExists("User login") Then
        WinActivate("User login")
        Send("JAK{TAB}1234{ENTER}")
    ElseIf WinExists("Fehler bei Objekt") Then
        WinActivate("Fehler bei Objekt")
        Send("!o")
    ElseIf WinExists("SQL Meldung") Then
        WinActivate("SQL Meldung")
        Send("!o")
    ElseIf WinExists("PROFIBOARD.DLL") Then
        WinActivate("PROFIBOARD.DLL")
        Send("{SPACE}")
    EndIf
EndFunc

Edit: Fix code.

Edited July 9, 2004 by Nutster