-----------------------------------------------------------
New Message on BDOTNET
-----------------------------------------------------------
From: VaibhavModak
Message 6 in Discussion
Hi, You can use any of these codes in VB 6.0 to detect the Internet connection.
---------------------------------------------------------------------------------------------
Private Declare Function InternetGetConnectedStateEx Lib "wininet.dll" (ByRef
lpdwFlags As Long, ByVal lpszConnectionName As String, ByVal dwNameLen As Integer,
ByVal dwReserved As Long) As Long
Dim sConnType As String * 255
Private Sub Command1_Click()
Dim Ret As Long
Ret = InternetGetConnectedStateEx(Ret, sConnType, 254, 0)
If Ret = 1 Then
MsgBox "You are connected to Internet via a " & sConnType, vbInformation
Else
MsgBox "You are not connected to internet", vbInformation
End If End Sub
----------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------
Private Const FLAG_ICC_FORCE_CONNECTION = &H1 Private Declare Function
InternetAttemptConnect _
Lib "wininet" (ByVal dwReserved As Long) As Long Public Function
InternetConnectionExists() As Boolean
InternetConnectionExists = (InternetAttemptConnect(ByVal 0&) = 0)
End Function Private Sub Command1_Click()
If InternetConnectionExists Then
MsgBox "Connection Present"
Else
MsgBox "Connection Not Present"
End If
End Sub
----------------------------------------------------------------------------------------------
HTH, Regards, Vaibhav Modak
-----------------------------------------------------------
To stop getting this e-mail, or change how often it arrives, go to your E-mail
Settings.
http://groups.msn.com/bdotnet/_emailsettings.msnw
Need help? If you've forgotten your password, please go to Passport Member Services.
http://groups.msn.com/_passportredir.msnw?ppmprop=help
For other questions or feedback, go to our Contact Us page.
http://groups.msn.com/contact
If you do not want to receive future e-mail from this MSN group, or if you received
this message by mistake, please click the "Remove" link below. On the pre-addressed
e-mail message that opens, simply click "Send". Your e-mail address will be deleted
from this group's mailing list.
mailto:[EMAIL PROTECTED]
