Grazie mille oggi lo metto in pratica subito
---------- Initial Header -----------
>From : realbasic-nug dot it-bounces at lists dot realsoftware dot com
To : "REALbasic NUG Italian" realbasic-nug dot it at lists dot
realsoftware dot dot com
Cc :
Date : Fri, 4 May 2007 11:52:38 +0200
Subject : Re: contenuto da web
> Se hai un server web a disposizione e puoi caricare un file php, puoi
> fare così:
>
> file publicip.php
>
> <?
> echo $REMOTE_ADDR;
> ?>
>
> metodo rb:
>
> dim a as new HTTPSocket
> dim b as String
>
> b = a.Get("http://iltuositoweb/publicip.php";, 10)
>
> if b = "" then
>
> MsgBox "errore"
>
> else
>
> MsgBox b
>
> end if
>
>
> Prova, dovrebbe funzionare. Io non mi affiderei a un servizio
> pubblico come quello che hai fatto vedere perchè se domani cambia la
> struttura della pagina anche solo per aggiungere un messaggio
> pubblicitario il tuo codice smette di funzionare e nessuno ti avverte.
>
> Saluti, Fabio Soggia
Ivano Monti
-
333.1233236
02.9693379
-
Milano
------------------------------------------------------
Leggi GRATIS le tue mail con il telefonino i-mode? di Wind
http://i-mode.wind.it/
|