Marwanco قام بنشر يناير 24, 2018 مشاركة قام بنشر يناير 24, 2018 السلام عليكم ورحمة الله وبركاته اخواني الاعزاء امل مساعدتي في عمل كود يعرض حالة الانترنت في مربع نص بحثت بالانترنت ولم اجد سوى هذا الشرح بسم الله الرحمن الرحيم السلام عليكم ورحمه الله وبركاته كود فيجوال بيسك لتشغبل البرنامج لو الاتصال بالانترنت يعمل فقط كود فيجوال بيسك للتاكد من الاتصال بالانترنت كود بسيط بالفيجوال بيسك يسمح للبرنامج ان يعمل اذا كان الانترنت يعمل اما ان كان الانترنت لا يعمل فان البرننامج لن يعمل قم بانشاء موديل فى برنامجك من قائمه PROJECT اختار PROJECT PROPERTIES ومنها اجعل STARTUP الى SUB MAIN قم بنسخ هذا الكود فى الموديل Option Explicit Private Const FLAG_ICC_FORCE_CONNECTION As Long = &H1 Private Declare Function InternetCheckConnection Lib "wininet.dll" Alias "InternetCheckConnectionA" (ByVal lpszUrl As String, ByVal dwFlags As Long, ByVal dwReserved As Long) As Long Sub Main() If InternetCheckConnection("http://www.google.com/", FLAG_ICC_FORCE_CONNECTION, 0&) = 0 Then MsgBox "You need Internet connection to run this program!" Else Form1.Show End If End Sub ايضا وجدت كود ثاني وهو المطلوب لانه يعرض حالة الانترنت في مربع نص If My.Computer.Network.IsAvailable Then MsgBox("Computer is connected.") Else MsgBox("Computer is not connected.") End If ولكن للاسف لم استطيع تشغيله في قاعدة بيانات اكسس 2010 ارجوا مساعدتي وجزاكم الله خيرا رابط هذا التعليق شارك More sharing options...
kanory قام بنشر يناير 24, 2018 مشاركة قام بنشر يناير 24, 2018 وعليكم السلام ورحمة الله اخي انظر هنا في ٢٩/٨/٢٠٠٣ at 17:41, امير عاطف said: هذا هو كود التحقق من الاتصال بالانترنت للخ الكريم عبد الله فتحي جزاه الله كل خير بسم الله الرحمن الرحيم تحياتي لك أخي أمير على هذا المجهود الرائع .. هذا الكود للتأكد من حالة الاتصال بالإنترنت، وأنا متأكد أنه توجد أكواد أصغر من ذلك بمراحل، ولكن هذا هو المتاح حالياً: 1. بداية قم بإنشاء موديول جديد، وضع فيه الكود التالي كما هو: 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 ثم بعد ذلك اذهب إلى كود الفورم وقم بوضع الكود التالي في أعلى الفورم وفي قسم التصريحات العامة General_Declartion 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 بعد أن انتهينا مما سبق الآن نصل إلى النقطة الأخيرة، لكي نتأكد من حالة الاتصال ضع الكود التالي في حدث الضغط على الزر، ويقوم الكود التالي بإظهار رسالة تبين حالة الاتصال، ويمكنك طبعاً تغيير الأمر بما تريده، سواء فتح ملف أكسل أو غيره ... If IsConnected() = True Then MsgBox ("الجهاز متصل بالانترنت") Else MsgBox ("الجهاز غير متصل بالانترنت") End If في حالة حدثت أي مشاكل أو سوء في الفهم يمكنك السؤال أخي العزيز أبو وليد .. ولقد أرفقت ملف يحتوي على نموذج فقط يمكنك مشاهدته ... يوجد كود آخر أقل من الكود السابق ولكنه سيحتاج إلى استخدام الأداة Winsock وأعتقد أنك لا تريد استخدام أدوات ... Check.rar 1 رابط هذا التعليق شارك More sharing options...
Marwanco قام بنشر يناير 24, 2018 الكاتب مشاركة قام بنشر يناير 24, 2018 9 دقائق مضت, kanory said: وعليكم السلام ورحمة الله اخي انظر هنا اشكرك ياخوي على ردك ومساعدتك ولكن المثال في كل الاحول يعطيني اني غير متصل بالانترنت مع اني جربت قطع الاتصال واعادته ارجوا المساعدة في هذي النقطه رابط هذا التعليق شارك More sharing options...
kanory قام بنشر يناير 24, 2018 مشاركة قام بنشر يناير 24, 2018 للاسف اخي ليس لدي اوفيس ١٠ لاجرب 1 رابط هذا التعليق شارك More sharing options...
jjafferr قام بنشر يناير 24, 2018 مشاركة قام بنشر يناير 24, 2018 شوف هذا الرابط ، تم مناقشة نفس الموضوع جعفر 2 رابط هذا التعليق شارك More sharing options...
sandanet قام بنشر يناير 24, 2018 مشاركة قام بنشر يناير 24, 2018 بعد اذن الاخوة الكرام .. تفضل جرب المثال المرفق example.zip 2 رابط هذا التعليق شارك More sharing options...
Marwanco قام بنشر يناير 27, 2018 الكاتب مشاركة قام بنشر يناير 27, 2018 في 1/24/2018 at 22:09, sandanet said: بعد اذن الاخوة الكرام .. تفضل جرب المثال المرفق example.zip اشكرك ياخوي هذا المطلوب جزاك الله الف خير رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.