فراخوانی کانکتشن

[aminvb]

سلام چطور میشه کانکتشن ADSL رو فراخوانی کرد و برای فهمیدن وصل بودن به نت باید چه کرد؟

[aminvb]

دوستان بعد از گشتن 24 ساعته داخله نت بالاخره برنامه ای با سورسش گیر آوردم که هم کانکت میکنه هم دیسکانکت هم تشخیص میده به نت وصل هستین یا نه تستش کردم 100% جواب میده

اممیدوارم به درد دوستان بخوره فقط برای ویبی 6 هست کسی تونتست معادلش کنه همین برنامه رو برای ویبی دات نت ما رو بی خیر نذاره توو همین تایپیک

[Saman_12]

سلام.
حالا چون شما زیاد اسرار کردین منم یه سرچی زدم این کلاس رو پیدا کردم (این برای Dial Up هست اگه ADSL رو هم دیدم میزارم استفاده کنید.) :


Public Class InternetDialer
Public Declare Function InternetAutodial Lib "wininet.dll" ( _
ByVal dwFlags As Int32, _
ByVal hwndParent As IntPtr _
) As Boolean

Private Const INTERNET_AUTODIAL_FORCE_ONLINE As Int32 = &H1
Private Const INTERNET_AUTODIAL_FORCE_UNATTENDED As Int32 = &H2
Private Const INTERNET_AUTODIAL_FAILIFSECURITYCHECK As Int32 = &H4
Private Const INTERNET_AUTODIAL_OVERRIDE_NET_PRESENT As Int32 = &H8

Private Declare Function InternetAutodialHangup Lib "wininet.dll" ( _
ByVal dwReserved As Int32 _
) As Boolean

Public Enum AutoDialOptions
ForceOnline = INTERNET_AUTODIAL_FORCE_ONLINE
ForceUnattended = INTERNET_AUTODIAL_FORCE_UNATTENDED
FailIfSecurityCheck = INTERNET_AUTODIAL_FAILIFSECURITYCHECK
OverrideNetPresent = INTERNET_AUTODIAL_OVERRIDE_NET_PRESENT
End Enum

Public Overloads Sub Dialup(ByVal Options As AutoDialOptions)
Dialup(Options, IntPtr.Zero)
End Sub

Public Overloads Sub Dialup(ByVal Options As AutoDialOptions, ByVal Parent _
As Control)
Dialup(Options, Parent.Handle)
End Sub

Public Overloads Sub Dialup( _
ByVal Options As AutoDialOptions, _
ByVal hwndParent As IntPtr _
)
If Not InternetAutodial(Options, hwndParent) Then
Throw _
New ApplicationException( _
"Error dialling the default internet connection." _
)
End If
End Sub

Public Overloads Sub Hangup()
If Not InternetAutodialHangup(0) Then
Throw _
New ApplicationException( _
"Error disconnecting internet connection." _
)
End If
End Sub
End Class

[aminvb]

سورسی که قرار دادم همه چی رو فراخونی میکنه Dial , ADSl