Re: Duda con WebBrowser

[gulabyte]

Alguna sugerencia ??
No llega a coger ninguna coordenada, ni siquiera carga la página..

Código [Seleccionar] Expandir


Private Sub cmdLocateHops_Click()

    HopCounter = 1
    WebBrowser2 = "para diferenciar los valores"
   
    TimerBusy.Interval = 200
    TimerBusy.Enabled = True

End Sub


Private Sub TimerBusy_Timer()

If Not WebText = WebText Then

    If HopCounter > 128 Or Hops(HopCounter) = HostIP Then TimerBusy.Enabled = False: Exit Sub

    If Not Hops(HopCounter) = "" Then IPLocator.Navigate "http://api.hostip.info/get_html.php?ip=" & Hops(HopCounter) & "&position=true"
   
    WebText = WebText2
   
    If Not IPLocator.Busy = True Then
        IPLocator.SetFocus
        IPLocator.ExecWB OLECMDID_SELECTALL, OLECMDEXECOPT_DODEFAULT 'Seleccionar todo
        IPLocator.ExecWB OLECMDID_COPY, OLECMDEXECOPT_DODEFAULT 'Copia
        WebText = Clipboard.GetText
        If InStr(1, WebText, "Latitude", vbTextCompare) > 0 Then
            txtLocator.Text = txtLocator.Text & vbCrLf & "[" & Hops(HopCounter) & "]" & vbCrLf & WebBrowser
            HopCounter = HopCounter + 1
        End If
    End If
   
End If

End Sub

[gulabyte]

solucionado...