P.T.A.M.
Administrator
Joined: 08 Oct 2003
Posts: 752
Location: Greece
|
 Posted: Oct 10th, 2003 07:43 AM Post subject: Show The Internet Connection Dialog |
 |
|
| Code: | Private Declare Function IsNetworkAlive Lib "SENSAPI.DLL" (ByRef lpdwFlags As Long) As Long
Private Declare Function InternetAutodial Lib "wininet.dll" (ByVal dwFlags As Long, ByVal dwReserved As Long) As Boolean
Sub ConnectInternet()
If IsNetworkAlive(lRet) = 0 Then
InternetAutodial 1, 0
End If
End Sub
Private Sub Form_Load()
ConnectInternet
End Sub |
_________________
No one is completely useless. They can at least be an example of what to avoid. |
|
