>* Verify if we are connected to the Internet >* expC1 A Web address >FUNCTION IsConnected >PARAMETERS tcWebAddress >LOCAL llConnect >Declare Integer InternetCheckConnection in Wininet.dll String Url, Long dwFlags, Long Reserved >llConnect=InternetCheckConnection(tcWebAddress,1,0)>0 > > >* Initiating Inet connection using a modem >FUNCTION ConnectToTheInternet >LOCAL lnConnection >#DEFINE INTERNET_AUTODIAL_FORCE_ONLINE 1 >#DEFINE INTERNET_AUTODIAL_FORCE_UNATTENDED 2 >#DEFINE INTERNET_AUTODIAL_FAILIFSECURITYCHECK 4 > >DECLARE INTEGER GetActiveWindow IN user32 > >DECLARE INTEGER InternetDial IN wininet; > INTEGER hwndParent, STRING lpszConnectoid, INTEGER dwFlags,; > INTEGER @lpdwConnection, INTEGER dwReserved > >lnConnection=0 > >InternetDial(GetActiveWindow(),'MyProvider',INTERNET_AUTODIAL_FORCE_ONLINE,@lnConnection,0) >>