Página 1 de 1

Continuar con variable

Publicado: 29 May 2009, 17:53
por 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

Re: Continuar con variable

Publicado: 29 May 2009, 18:49
por 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.

Re: Continuar con variable

Publicado: 30 May 2009, 00:38
por nekv
Como siempre, muchas gracias. :smt002