Autor
De momento el problema lo tengo con el WebBrowser. Bueno explico el proceso que me he planteado:
1. Primero hago el trace route y listo los hops en un listbox. [Eso ya lo hago]
2. Después hay que conseguir las coordenadas de cada salto a partir del IP para hacer las marcas.
3. Hacer marcas en API Google Maps con todos los hops (saltos)
4. Unirlos mediante rayas.
5. Mostrar mapa
Para eso tengo un WebBrowser que se encarga de cargar la pagina .htm que voy creando a partir de las opciones; y otro para conseguir las coordenadas (que tendría que ir en .visible = false). El problema es que meto en un for:
Código:
For i = 1 To 128
If Not Host(i) = "" Then 'Los saltos estan en el array Host()
WebBrowser.Navigate http://api.hostip.info/get_html.php?ip=" & Hops(i) & "&position=true" 'Direccion que devuelve las coordenadas
IPLocator.SetFocus
IPLocator.ExecWB OLECMDID_SELECTALL, OLECMDEXECOPT_DODEFAULT 'Seleccionar todo
IPLocator.ExecWB OLECMDID_COPY, OLECMDEXECOPT_DODEFAULT 'Copia
Coord = Clipboard.GetText
txtLocator.Text = txtLocator.Text & Coord
End If
Next i
If Not Host(i) = "" Then 'Los saltos estan en el array Host()
WebBrowser.Navigate http://api.hostip.info/get_html.php?ip=" & Hops(i) & "&position=true" 'Direccion que devuelve las coordenadas
IPLocator.SetFocus
IPLocator.ExecWB OLECMDID_SELECTALL, OLECMDEXECOPT_DODEFAULT 'Seleccionar todo
IPLocator.ExecWB OLECMDID_COPY, OLECMDEXECOPT_DODEFAULT 'Copia
Coord = Clipboard.GetText
txtLocator.Text = txtLocator.Text & Coord
End If
Next i
Pues las cosas así me da solo las coordenadas de la ultima direccion, osea la direccion final y lo raro es que se repite (por cada i).
Si alguien me hechase una mano...
si quereis subo el form para que lo veais, esta tambien lo de google...
Gracias de antemano,
Salu10
En línea
