Goto in VBScript

Goto is archaic. No one should be using GOTO since at least 20-30 years ago, when nothing else was available. Even more than that. In 1968, Edsger Dijkstra published a paper called "Goto statement considered harmful". The only valid use of Goto nowadays is with On Error.



There is certainly another better way for you to deal with your problem. Your different labels all do the same thing, with different parameters. Just make one function that tries to click your object, if it doesn't exist then try the same object name on two different processes.



Here is what I would do:

Sub ClickControl(ByRef objControl, arrProcessList)

    If objControl.Exists Then

        objControl.Click

    Else

        For Each ProcessName In arrProcessList

            Set objProcess = Sys.WaitProcess(ProcessName)

            If objProcess.Exists Then

                Set objFoundControl = objProcess.FindChild(Array("WndClass", "Name"), Array(objControl.WndClass, objControl.Name))

                If objFoundControl.Exists Then

                    objFoundControl.Click

                    Exit For

                End If

            End If

        Next

    End If

End sub

You can call it by supplying an object reference and an array of the processes you wish to try, in order. For example:



ClickControl SomeMappedProcess.VBObject("txtName"), Array("XXX", "YYY", "ZZZ")



This will try to click the original object first. If the object or process does not exist, it will try to find an object of the same class with the same name in processes "XXX", "YYY", "ZZZ" in order. It will click the first object it finds and then return.