هل انا متصل بالانترنت او لا

جرب استخدام اداة ال winsock وقم بفحص الخاصية LOCALIP فاذا كانت لاتساوي "127.0.0.1" معناه انك متصل بالانترنت والا فإنك غير متصل

IF winsock1.localip<>"127.0.0.1" then 
msgbox "you are connected to internet"
else
msgbox "you are not connected"
end if

الف شكر لك mostafazidani

فكره حلوه أخي mostafazidani

جزاك الله خيرا

في الخدمة

الطريقة خاطئة للاسف

جربتها

الطريقة خاطئة للاسف

جربتها

وين الخطأ

جربها وشوف

اخي ham22 في برنامجي Abo Sabreen Messenger v2.1

اذهب الى tools ومن ثم Connection type and status سوف تظهر لك رسالة تبين نوع الاتصال

اذا زبطت مع ال adsl وان شاء الله انا متاكد انها سوف تزبط فلا تتردد في طلب الكود

أخي العزيز مصطفى الطريقة خاطئة و لن أقول لك السبب لكني سأطرخ عليك سؤالا

ماذا لو كان الكمبيوتر عنصر من كمبيوترات آخرين يكونون شبكة محلية ؟؟ أي رقم أي بي سنفحص ؟

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

أخي أبو صابرين :

الأخ طلب الكود فأرسلته الى برنامجك !!!!!!!!!!!!

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

و أسف لو كان كلامي ضايقك

-------------- الـــــــــــــــــــــــــحل -----------------------

أما بالنسبة للطريقة التي يمكنك اتباعها و تعطي نتائج جيدة فهي استعمال ال API الخاص بهذه العملة و هو

Private Declare Function InternetGetConnectedStateEx Lib "wininet.dll" (ByRef lpdwFlags As Long, ByVal lpszConnectionName As String, ByVal dwNameLen As Integer, ByVal dwReserved As Long) As Long

تضعه طبعا في منطقة ال General

و هذه الدالة ترجع لك القيمة 1 اذا كان هناك اتصال و أيضا عن طريق ماذا أنت متصل

اما اذا كنت غير متصل فسترجع لك 0

ا-*-

الكود الكامل

Private Sub Command1_Click()
Dim Con As Long
Dim ConnectionType As String * 255
Con = InternetGetConnectedStateEx(0, ConnectionType, 254, 0)
If Con = 1 Then
MsgBox "You are Connected To Internet Via : " & ConnectionType
Else
MsgBox "You are Not Connected to Internet"
End If
End Sub

و السلام عليكم

مشكروين شباب وماقصرتوا

وشكر خاص للاخ crazy-man الله يطول عمرك

عندي سؤال ثاني وطرحته في المنتدى ولكن للاسف ما في احد ساعدني

السؤال هو كيف يمكنني الغاء برنامجي من بدء التشغيل؟

لاني وضعته مع بدء التشغيل وعندي في خيارات البرنامج خيار يمنع تشغيل البرنامج نهائيا دون حذفه من الجهاز

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

اكرر شكري لكم جميعا