Seguimo con WebBrowser

[JoNa?]

porque se le llama a la variable i? es que lo he visto en varios codigos y no se para que sirve exactamente esa variable :S

Saludos por adelantado

[NYlOn]

Si tienes un bucle

Código [Seleccionar] Expandir


Dim i as Integer

For i = 0 to 5
     MsgBox i
Next i


La variable i es la que va a ir aumentando hasta llegar a 5. Por ejemplo, si queres agregar en un ListBox 100 numeros, en vez de poner

Código [Seleccionar] Expandir


List1.Additem "1"
List1.Additem "2"
List1.Additem "3"
List1.Additem "4"
...
List1.Additem "100"

Pones:

Código [Seleccionar] Expandir


For i = 1 to 100
      List1.AddItem i
next i


En resumen, la variable es la que va a ir cambiando de valor.

Saludos.-

[Hans el Topo]

porque se le llama a la variable i? es que lo he visto en varios codigos y no se para que sirve exactamente esa variable :S

Saludos por adelantado

como bien ha dicho NYlOn la variable i es una variable auxiliar que se utiliza para recorrer bucles, si hay varios bucles suelen ser i,k... y lo que se te apetezca...

[sircid]

Muchas gracias che! estoy aprendiendo mucho... Ahora tengo otra pregunta, como hago para hacer un bucle en el formulario que vaya tirando numeros del 1 al 100???
Gracias!!

Especifíca más. Lo que quieres hacer es rellenar un campo con el número 1, enviar el formulario, rellenar el campo con el número 2, enviar el formulario, así hasta 100?

si es asi aqui tienes el codigo para hacerte una idea

Código [Seleccionar] Expandir

Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
Dim html As String
html = WebBrowser1.Document.documentElement.outerhtml 'obtiene el codigo fuente de la pagina
n = InStr(1, html, "ImageButton1", vbTextCompare) 'busca ImageButton1 en el codigo fuente
If n >= 1 Then ' si encuentra ImageButton1
a = a + 1 'suma 1
    If a < 100 Then ' si a es menor que 100
        WebBrowser1.Document.All("nombredelcampo") = a 'rellena el campo
        WebBrowser1.Document.Forms(0).Submit ' envia el formulario
    End If
Else ' si no encuentra imagebutton1
    WebBrowser1.Navigate "http://www.movinet.com.uy/WAPMain/MIST/SMS/(4bhkeuiwwcut5yvhznlhvd45)/WebSMSMovistar.aspx" ' carga de nuevo la página
End If
End Sub


[xDie]

Si lo que quiero hacers, es que valla poniendo numero del 1 al 100, y cada vez que coloque un numero presione el boton.. pero ese codigo que me diste no me funciono, necesito como el bucle de hans el topo, peroq eu valla lento asi da tiempo de hacer el click.. me entienden??

[Hans el Topo]

Si lo que quiero hacers, es que vaya poniendo numero del 1 al 100, y cada vez que coloque un numero presione el boton.. pero ese codigo que me diste no me funciono, necesito como el bucle de hans el topo, peroq eu vaya lento asi da tiempo de hacer el click.. me entienden??

haz que un timer dispare el evento, ¿ves? le pones tu el intervalo que quieras que se dispare, 1000 milisegundos esta bien

Código [Seleccionar] Expandir

if val(txt1.text)<>100 then
    'pulsamos y tal el boton
     txt1.text=txt1.text+1     'contamos
else
   'hemos terminado xk es 100
    timer1.enabled=false
endif

eso iría en el código....
ANTES DEPREGUNTAR OTRA VEZ BUSCA INFORMACIÓN POR TI MISMO PERRETE

[NYlOn]

Otra opcion seria usar el evento DocumentComplete. Algo asi como:

Código [Seleccionar] Expandir


Private Sub Web1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
    Static Cuenta As Integer
    If Cuenta <= 100 Then
        Cuenta = Cuenta + 1
        Web1.Document.Forms(0).NOMBREDELBOTON.Value = Cuenta
        Web1.Document.getelementbyid("Boton").Click
    End If
End Sub


Espero q te sirva, saludos.-

[xDie]

ANTES DEPREGUNTAR OTRA VEZ BUSCA INFORMACIÓN POR TI MISMO PERRETE

Gracias lo solucione antes de que contestaras, si te molesta contestar no respondas!, deja que otros lo hagan..
Por cierto gracias nylon!!! 

[Hans el Topo]

ANTES DEPREGUNTAR OTRA VEZ BUSCA INFORMACIÓN POR TI MISMO PERRETE

Gracias lo solucione antes de que contestaras, si te molesta contestar no respondas!, deja que otros lo hagan..
Por cierto gracias nylon!!! 

la cosa esta en que busques tu por ti mismo y si no entiendes como usarlo y tal preguntes... es que sino no vas a aprehender en la vida ... xD

[xDie]

Es que yo busco primero, solo que necesito que me expliquen, por que si no se como funciona como voy a saber que lo que estoy buscando es eso... Gracias