لأهل الخبرة : ما هو الكود الذي يمكنني من التأكد بأن جهازي متصل بالإنترنت ؟

اخى اعتقد انه الاتي

ضع الكود التالي في الموديل

Public Declare Function RasEnumConnections Lib "RasApi32.dll" Alias _
	"RasEnumConnectionsA" (lpRasCon As Any, lpcb As Long, _
	lpcConnections As Long) As Long
Public Declare Function RasGetConnectStatus Lib "RasApi32.dll" Alias _
	"RasGetConnectStatusA" (ByVal hRasCon As Long, lpStatus As Any) As Long
Public Const RAS95_MaxEntryName = 256
Public Const RAS95_MaxDeviceType = 16
Public Const RAS95_MaxDeviceName = 32

Public Type RASCONN95
dwSize As Long
hRasCon As Long
szEntryName(RAS95_MaxEntryName) As Byte
szDeviceType(RAS95_MaxDeviceType) As Byte
szDeviceName(RAS95_MaxDeviceName) As Byte
End Type

Public Type RASCONNSTATUS95
dwSize As Long
RasConnState As Long
dwError As Long
szDeviceType(RAS95_MaxDeviceType) As Byte
szDeviceName(RAS95_MaxDeviceName) As Byte
End Type

ثم هذا الكود في الفورم

Public Function IsConnected() As Boolean

	Dim TRasCon(255) As RASCONN95
	Dim lg As Long
	Dim lpcon As Long
	Dim RetVal As Long
	Dim Tstatus As RASCONNSTATUS95

	TRasCon(0).dwSize = 412
	lg = 256 * TRasCon(0).dwSize

	RetVal = RasEnumConnections(TRasCon(0), lg, lpcon)

	If RetVal <> 0 Then
		MsgBox "ERROR"
		Exit Function
	End If

	Tstatus.dwSize = 160
	RetVal = RasGetConnectStatus(TRasCon(0).hRasCon, Tstatus)

	If Tstatus.RasConnState = &H2000 Then
		IsConnected = True
	Else
		IsConnected = False
	End If

End Function

و يمكنك وضع command button للتأكد من وجود اتصال

Private Sub Command1_Click()
	If IsConnected() = True Then
		MsgBox ("الجهاز متصل بالانترنت")
	Else
		MsgBox ("الجهاز غير متصل بالانترنت")
	End If
End Sub

نتمنى الدعاء

أخي الكريم

شمس الزناتي

أسأل الله العلي القدير أن يزيدك من العلم وأن يغفر لك ولوالديك

وأن يزيدك من النعيم ويهب لك الأجر الكبير

ولك تحيتي وتقديري

وجار تجربة الكود

تم تجربة الكود

شغال 100 %

ربي يعطيك العافية

ويبارك لك في علمك

تحيتي لك

السلام عليكم

انا جربت هذا الكود واشتغل 100%

ولكن مع ال Dail up بس

اي النت العادي عن طريق خط التليفون

ولكن مع ال ADSL

لم يطلع اي رسالة تفيد انه فعلا متصل

وشكرا

السلام عليكم

أنظرو لهذا الرابط فقد يساعدكم

فى شىء مع العلم أننى لم أجربه

وهو بعنوان :

VERY improper way of testing if connected to net

إضغط هنا للوصل للرابط

السلام عليكم

اخوي الكريم

MohamedAliSalim

كلامك مزبوط 100 %

جربته على ال ADSL ولم ينجز العملية

ويخبرني بأنه لا يوجد اتصال

نبهتني لخطوه مهمة

أتمنى أن يساعدنا الأخ شمس الزناتي

أما بالنسبة للكود الذي دلنا عليه الأخ

zain50

جربته ولكنه بطيء جدا ً

ولم يقوم باعطائي أي رساله

تحيتي للجميع

بسم الله الرحمن الرحيم

إليك هذه الطريقة المجرّبة على الـModem والـADSL وهي تعمل بشكل ممتاز 100%

للتأكد بشكل يقيني أنك متصل بالإنترنت عليك التأكد أن هناك Bytes يحصل لها عملية Send وَ Receive

فللتأكد بشكل نهائي عليك تجربة الإتصال بأي موقع للتأكد أنك متصل بالإنترنت

قم بوضع هذه التعريفات في قسم التعريفات

Public Declare Function InternetCheckConnection Lib "wininet.dll" Alias "InternetCheckConnectionA" (ByVal lpszUrl As String, ByVal dwFlags As Long, ByVal dwReserved As Long) As Long
Public Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Long, ByVal lpFileName As String) As Long
Public Const FLAG_ICC_FORCE_CONNECTION = &H1

وفي البرنامج :

If Not InternetCheckConnection("http://www.google.com", FLAG_ICC_FORCE_CONNECTION, 0&) = 0 Then

msgbox" You are connected"

else 

msgbox" You are not connected

end if

لا تنساني من الدعاء :lol:

والسلام,

السلام عليكم

هذا تعقيب على كلام الأخ zain50

اخي زين قرأت بعض الردود على الموضوع الذي دليتنا عليه

وكان هذا رد أحد الزوار

-----------------------------

If you are on a slow connection, this code will take a while to complete... If netscape website is down, it will fail. If you have DNS server problems it will fail. That's a useless piece of code. Sorry pal.

-----------------------------

ويبين فيه مساوئ الكود .

تحيتي لك

السلام عليكم

اخوي ابن الشريف

بارك الله في جهودك

ولكن الكود لا يعمل على DSL

إلى الآن لم اجربه على المودم ولكن حتى لو أنه يعمل على المودم

فهو لا يعمل على DSL

أتمنى لك التوفيق في الدنيا والآخرة

وأن يزيدك الله من العلم والعفو والعافيه

بارك الله فيك اخوي

تحيتي للجميع

السلام عليكم جميعا ً

وبعد محاولات عدة

توصلت إلى موضوع في نفس الموقع الذي دلنا عليه الأخ zain50 وفقه الله

الموضوع بعنوان

a Better way of testing if connected to the NET

وهو موجود على هذا الرابط

http://www.planetsourcecode.com/vb/scripts...33&lngWId=1

الكود يقوم باختبار الآتي :

IsNetConnectViaLAN

IsNetConnectViaModem

IsNetConnectViaProxy

IsNetConnectOnline

IsNetRASInstalled

GetNetConnectString

ولضمان وجود الكود وضعته لكم في المرفق

بارك الله فيكم جميعا ً

بالتعاون نصل

ولكم كل تحية وتقدير

a_Better_way_of_testing_if_connected_to_the_NET.zip

السلام عليكم ورحمة الله وبركاته

اخي معرفة حالة الاتصال تعتمد على الحصول على رقم الـ IP

في المثال المرفق تجده يختبر الايبي فاذا وجده يساوي "127.0.0.1" فهذا يعني انك غير متصل

اما غير ذلك فبالطبع انت متصل بالانترنت

حمل المرفق وهو يعمل مع الدايل أب والدي اس ال

طبعا لأنه يعتمد على اختبار رقم الايبي

ارجو ان تكون وضحت الفكرة

بالتوفيق

الى اللقااء

Net_State.rar

الاختبار الفعلي للاتصال بالانترنت..يجب أن يتم عبر اختبار استقبال بيانات فعليا من الانترنت ..

وبالتالي أري أن الكود الذي وضعه الأخ ابن الشريف بالمشاركة 8 هو الأصلح ..

جزاكم الله جميعا مليووون خير لهذا الموضوع

الرائع وبالأخص صاحب الموضوع "anonym"

وكل من قدم المساعدة له ,, وبالمناسبة أرجو

الإهتمام بالموقع الأجنبى الذى وضعت رابطه

من قبل فهو مفيد جدا للمبرمجين

ما شاء الله تبارك الله

والله التعاون شيء جميل

بالنسبه لكلام أخي

MR^King

وجهة نظره جدا ً جميله

ولكن هنالك تعليق بسيط

عند اتصالي بأي شبكه سوف يتغير الآي بي من 127,0,0,1

إلى آي بي آخر

حتى وان كانت الشبكه لا تحتوي على اتصال بالانترنت

فما رأيك بهذا الرأي

وجاري تجربة الكود المرفق

وفقك الله اخي

اخي الكريم Pharaonic_Guy

والله جربت الكود ولم يعمل على DSL

بارك الله فيك وفي وجهة نظرك

أخي zain50

الله يسمع منك

بارك الله فيك

أخي الكريم

وسنواصل العمل باذن الله

تحيتي للجميع

أخي العزيز anonym

الفكرة سليمة ومنطقية تماما .. ويمكن تنفيذها بطرق أخري يدويا غير الاعتماد علي تلك الدالة ..

يمكن عمل اتصال مع موقع ويب علي بورت 80 ومراقبة مسار التنفيذ (هل سيتم الاتصال أم لا)

يمكن إضافة أوامر ببروتوكول HTTP ونراقب هل توجد بيانات مستقبلة..

يمكن استخدام ابسط شيء وهو دالة gethostbyname..وذلك لإتيان الـ IP لأي موقع مشهور ..وبالتالي إذا نجحت الدالة وتم إيجاد ال IP لموقع مثل ياهو مثلا .. فهذا يعني أن الجهاز متصل فعليا بالانترنت والعكس ..

سأحاول أن أوفيك بمشروع غدا بإذن الله ..

السلام عليكم

اخي الكريم

Pharaonic_Guy

كلامك سليم 100 %

وأنا في انتظارك

تحيتي لك

يا جماعة انا اسف جدا لتأخري في الردود بس و الله انا في الجيش و بتابع المواضيع في ايام الاجازات

و الحمد لله انكوا قدرتوا توصلوا للحل و دة خلق تعاون بينكم

اما عن رايي فانا اؤيد فكرة الاخ MR^King

و اسف تاني على التأخير

اسف علي التأخير ..النت كان فاصل عندي اليومين الماضيين

المشروع المرفق يمكن اعتماده في أي برنامج يعتمدعلي فحص وجود النت قبل إجراء أي عملية تتعلق بالنت ..

وكما قلت سابقا .. يمكن استخدام طرق عديدة وقد استخدمت منها طريقة معتمدة علي معرفة IP لأي موقع تحدده ..

عن طريق استخدام الدالة gethostbyname .. فإذا عادت بصفر .. فالسبب المنطقي هو أنه لا يوجد اتصال بالانترنت ..ما دمت قد استخدمت موقع شهير وغير قابل لأن ينتهي في المستقبل ..

Check_Connection.rar