Conexion IP

Solucion 1
*--InternetDial, InternetAutoDial, InternetAutodialHangup
*--Permite conectarse a Internet utilizando la conexión existente u otra.
#DEFINE INTERNET_AUTODIAL_FORCE_ONLINE 1
#DEFINE INTERNET_AUTODIAL_FORCE_UNATTENDED 2
DECLARE INTEGER InternetDial IN wininet.dll;
INTEGER hwndParent, STRING @ lpszConnectoid, ;
INTEGER dwFlags, INTEGER @ lpdwConnection, ;
INTEGER dwReserved
DECLARE INTEGER InternetAutodial IN wininet.dll;
INTEGER dwFlags, INTEGER hwndParent
DECLARE INTEGER InternetAutodialHangup IN wininet.dll;
INTEGER dwReserved
* Conecta con una conexión determinada
strConnection = "Internet"
nConnection = 0
= InternetDial(0, strConnection, INTERNET_AUTODIAL_FORCE_UNATTENDED, nConnection, 0)
* Conecta con la conexión por defecto
*= InternetAutodial(INTERNET_AUTODIAL_FORCE_ONLINE, 0)
* Conecta mostrando el cuadro de conexión
*= InternetAutodial(INTERNET_AUTODIAL_FORCE_UNATTENDED, 0)
* Disconecta
= InternetAutodialHangup(0)
Solucion 2
* Valores para los tipos de acceso
#DEFINE INTERNET_OPEN_TYPE_PRECONFIG 0
#DEFINE INTERNET_OPEN_TYPE_DIRECT 1
#DEFINE INTERNET_OPEN_TYPE_PROXY 3
* Banderas: Algunas
#DEFINE INTERNET_FLAG_ASYNC 268435456 && 0x10000000
#DEFINE INTERNET_FLAG_FROM_CACHE 16777216 && 0x1000000
#DEFINE INTERNET_FLAG_OFFLINE 16777216
#DEFINE INTERNET_FLAG_CACHE_IF_NET_FAIL 65536 && 0x10000
DECLARE INTEGER InternetOpen IN wininet;
STRING sAgent, INTEGER lAccessType,;
STRING sProxyName, STRING sProxyBypass,;
STRING lFlags
DECLARE INTEGER InternetCloseHandle IN wininet INTEGER hInet
sAgent = "w32inetopen" && Puedes escoger cualqueir nombre
sProxyName = Chr(0) && sin proxy
sProxyBypass = Chr(0) && nada para desviar
lFlags = 0 && no utilizar banderas
hOpen = InternetOpen (sAgent, INTERNET_OPEN_TYPE_DIRECT,;
sProxyName, sProxyBypass, lFlags)
Activate screen
IF hOpen <> 0
* close the access
? "Conectado:", hOpen
= InternetCloseHandle (hOpen)
ELSE
* No se pudo tener acceso
Endif