كيفية تنشيط الاتصال بالانترنت(لا القطع)

وجدتها!!!!!!!!!!!!!!!!

general -declarations

Private Declare Function InternetAutodial Lib "wininet.dll" _

(ByVal dwFlags As Long, ByVal dwReserved As Long) As Long

Private Const INTERNET_AUTODIAL_FORCE_ONLINE = 1

Private Const INTERNET_AUTODIAL_FORCE_UNATTENDED = 2

Private Declare Function InternetAutodialHangup Lib "wininet.dll" _

(ByVal dwReserved As Long) As Long

Private Sub cmd_click()

If InternetAutodial(INTERNET_AUTODIAL_FORCE_UNATTENDED, 0) Then

MsgBox "You're Connected!", vbInformation

End If