23-04-19, 11:40 AM
وعليكم السلام ورحمة الله وبركاته
على خير ان شاء الله
خد وقتك وستتمكن من اتمام الامر
وبخصوص الخروج من حلقة For عند التحقق
فقط انت كل ما تحتاج اليه داخل حلقة For
كود شرط تحقق اذا تم الاتصال بالاتصال يتم الخروج من حلفة For
الكود ويضح الفكرة كمثالكود :
For ip As Integer = 1 To 255
If Server.Connect("192.168.1." & ip, 2269) Then
ipserver = "192.168.1." & ip
Exit For
End If
Next
MsgBox(ipserver)
تذكر بان الكود فى المثال لا له صلة ولا صحيح
لما تستخدمه من مسميات وادوات
ولكن فقط اشير الى فكرة كيفية جلب الـ ip
وعند التاكد ارساله خارج For مع اغلاق For
تحياتى لك
وتمنياتى لك التوفيق
{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]
ساهم دائماً فى لكل من يقوم بالمساهمة
فى حل المشكلة او الاستفسار لديك فالجميع هنا يعمل
على مساعدة الاخرين لوجه الله وان تحتسب له اجر عند الله
▼ شرح كيفية عمل قاعدة بيانات تعمل على اكثر من جهاز على الشبكة الداخلية
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]
ساهم دائماً فى لكل من يقوم بالمساهمة
فى حل المشكلة او الاستفسار لديك فالجميع هنا يعمل
على مساعدة الاخرين لوجه الله وان تحتسب له اجر عند الله
▼ شرح كيفية عمل قاعدة بيانات تعمل على اكثر من جهاز على الشبكة الداخلية