No llega a coger ninguna coordenada, ni siquiera carga la página..
Código:
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