+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم أسئلة واستفسارات الأعضاء - المنتدى القديم (http://vb4arb.com/vb/forumdisplay.php?fid=94)
+--- قسم : قسم Visual Basic 6 وما قبله (http://vb4arb.com/vb/forumdisplay.php?fid=167)
+--- الموضوع : الاتصال بالانترنت .. (/showthread.php?tid=7449)
الاتصال بالانترنت .. - burkan - 19-12-12
سلام عليكم, شباب ابغي كود يغلق الاتصال بيكون في زر commend2 الموجود في جهازي ... وليس يغلق الااتصال من المودم مجرد يغلقه من جهازي أي عملية disconnect ...
ثم كود اخر بيكون في commend1 الاتصال اي connect
في حد يعرف ؟؟؟
او كود واحد بيعمل عملية reconnect
الاتصال بالانترنت .. - 3amo - 20-12-12
السلام عليكم ورحمة الله وبركاته
وجدت لك هذا الكود لعله يكون المطلوب
*الاتصال بالانترنيت وقطع الاتصال ومعرفة حالة الاتصال
كود :
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 Command1_Click()
' لتعرف هل انت متصل ام لا
If InternetAutodial(INTERNET_AUTODIAL_FORCE_ONLINE, 0) Then
MsgBox "You're Connected!", vbInformation
End If
End Sub
Private Sub Command2_Click()
' لكي تتصل بالانترنيت تلقائيا
If InternetAutodial(INTERNET_AUTODIAL_FORCE_UNATTENDED, 0) Then
MsgBox "You're Connected!", vbInformation
End If
End Sub
Private Sub Command3_Click()
'لقطع الاتصال
If InternetAutodialHangup(0) Then
MsgBox "You're Disconnected!", vbInformation
End If
End Sub