منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
لمعرفة حالة الاتصال بالانترنت - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : الأقسام التعليمية - المنتدى القديم (http://vb4arb.com/vb/forumdisplay.php?fid=90)
+--- قسم : مكتبة أكواد المنتدى (http://vb4arb.com/vb/forumdisplay.php?fid=111)
+---- قسم : مكتبة أكواد .net (http://vb4arb.com/vb/forumdisplay.php?fid=117)
+---- الموضوع : لمعرفة حالة الاتصال بالانترنت (/showthread.php?tid=6265)



لمعرفة حالة الاتصال بالانترنت - RaggiTech - 17-10-12

كاتب الموضوع : Boutemine Oualid

C#

كود :
[SIZE=2][SIZE=2][SIZE=2][[/SIZE][SIZE=2][color=#2b91af]DllImport[/color][/SIZE][SIZE=2]([/SIZE][SIZE=2][color=#a31515]"bnConn.dll"[/color][/SIZE][SIZE=2], EntryPoint = [/SIZE][SIZE=2][color=#a31515]"bnWebOk"[/color][/SIZE][SIZE=2])][/SIZE][/SIZE][/SIZE]
[SIZE=2][SIZE=2][SIZE=2][color=#0000ff]public [/color][/SIZE][SIZE=2][color=#0000ff]static [/color][/SIZE][SIZE=2][color=#0000ff]extern [/color][/SIZE][SIZE=2][color=#2b91af]Int32[/color][/SIZE][SIZE=2] IsConnected(); [/SIZE][/SIZE][/SIZE]
[SIZE=2][SIZE=2][SIZE=2][color=#0000ff]public [/color][/SIZE][SIZE=2][color=#0000ff]static [/color][/SIZE][SIZE=2][color=#0000ff]void[/color][/SIZE][SIZE=2] Main([/SIZE][SIZE=2][color=#0000ff]string[/color][/SIZE][SIZE=2][] args) [/SIZE][/SIZE][/SIZE]
[SIZE=2]{[/SIZE]
[SIZE=2][SIZE=2][SIZE=2][color=#0000ff]bool[/color][/SIZE][SIZE=2] isConnected = IsConnected() > 0; [/SIZE][/SIZE][/SIZE]
[SIZE=2]}[/SIZE]
VB.NET

كود :
<DllImport("bnConn.dll", EntryPoint:="bnWebOk")> _
Public Shared Function IsConnected() As Int32
End Function
Public Shared Function IsConnectedToInternet() As Boolean
Return IsConnected() > 0
End Function