Conectarse a Internet desde vfp
Hola quisiera conectarme a Internet mediante una conexión existente desde visual foxpro 6
Espero me puedas ayudar
Espero me puedas ayudar
1 respuesta
Respuesta de Cesar RalFito
1
Esta un poco dificil pero espero que esto sirva, es una funcion con apis de windos
#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)
atte.fitocava
#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)
atte.fitocava
