realbasic-nug.it
[Top] [All Lists]

Re: contenuto da web

To: REALbasic NUG Italian <realbasic-nug dot it at lists dot realsoftware dot com>
Subject: Re: contenuto da web
From: Fabio Soggia <rb at menssana dot to dot it>
Date: Fri, 4 May 2007 11:52:38 +0200
Delivered-to: listarchive at realsoftware dot com
Delivered-to: realbasic-nug dot it at lists dot realsoftware dot com
References: <JHIG2G$5002F5A22DC4A1295C63350D5981D467 at libero dot it>
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

<Prev in Thread] Current Thread [Next in Thread>