Continuar con variable

[nekv]

Hola. Tengo este código:

Código: Seleccionar todo

Func ram()

        $ram = Random(1, 7, 1)

If $ram = 1 Then Return "url"

If $ram = 2 Then Return "url"

If $ram = 3 Then Return "url"

If $ram = 4 Then Return "url"

If $ram = 5 Then Return "url"

If $ram = 6 Then Return "url"

If $ram = 7 Then Return "url"

EndFunc



Func Inicio()

    $oIE = _IECreate(ram(), 0, 1, 0)

    Sleep ( 7000 )

                $oIE.Document.getelementsbytagname("input").item(1).click

                Sleep ( 35000 )

                EndFunc

Inicio()

    If @error = 0 Then

                $oIE.Document.getelementsbytagname("input").item(12).click

            ElseIf @error = 1 Then

                $Label4 = GUICtrlCreateLabel("Error!", 256, 176, 36, 17)

            Else

                $Label4 = GUICtrlCreateLabel("Error!", 256, 176, 36, 17)

                EndIf

 

Pues bien, cuando lo ejecuto va bien hasta que llega a $oIE.Document.getelementsbytagname("input").item(12).click que entonces da este error:

==> Expected a "=" operator in assignment statement.

Como hago para que siga con esa variable?

Si lo hago sin funcion, es decir todo seguido, funciona perfectamente

[Chefito]

Eso será porque las declaras con un ámbito local, y cuando sales de la función, las variables que se han creado en ésta, se destruyen. Declara fuera de las funciones (hazlas públicas), las variables que vayas a utilizar en varias funciones, como por ejemplo $oIE que es la que te da problemas (Dim as $oIE).
También piensa que puedes pasarle parámetros a las funciones, y las propias funciones pueden devolver resultados (como veo que has hecho con ram()).

Saludos.

[nekv]

Como siempre, muchas gracias.