| {\rtf1\ansi\ansicpg1252\deff0\deflang1044{\fonttbl{\f0\fnil\fcharset0 MS Sans Serif;}} \viewkind4\uc1\pard\f0\fs17 This code shows you how to use functions of "wininet.dll" to connect and disconnect from the Internet. For these functions to work Internet Explorer 4.0 or greater must be installed. \par \par Place this in the General Declarations section of a form \par \par Private Declare Function InternetAutodial Lib "wininet.dll" (ByVal dwFlags As Long, ByVal dwReserved As Long) As Long \par Private Const INTERNET_AUTODIAL_FORCE_ONLINE = 1 \par Private Const INTERNET_AUTODIAL_FORCE_UNATTENDED = 2 \par Private Declare Function InternetAutodialHangup Lib "wininet.dll" (ByVal dwReserved As Long) As Long \par \par \par To prompt the user to connect to the Internet use: \par \par If InternetAutodial(INTERNET_AUTODIAL_FORCE_ONLINE, 0) Then \par MsgBox "Connected" \par End If \par \par \par To display the "Dial-up Connection" window and automatically start dialing use: \par \par If InternetAutodial(INTERNET_AUTODIAL_FORCE_UNATTENDED, 0) Then \par MsgBox "Connected" \par End If \par \par \par To disconnect an automatically dial Internet connection use: \par \par If InternetAutodialHangup(0) Then \par MsgBox "Disconnected" \par End If \par } |
Connecting to the Internet |
India web developer web development India | India web development company India ecommerce web developer