كيف يمكن معرفة عدد الاجهزة المشتركة علي شبكة سواء داخلية أم خارجية ؟
كيف يمكن معرفة عدد الاجهزة المشتركة علي شبكة
مغلق
أرجو الرد علي الموضوع
هل بحثت في الموقع قبل وضع السؤال؟
أعتقد الموضوع تكرر كثيراً ...
لا تحاول البحث في قسم الفيجوال بيسك فقط بل ابحث في جميع الأقسام ...
خذ مثلا هذا
الطريقة تعتمد على استعمال Windows Networking Functions ...
تحياتي
"First they ignore you, then they laugh at you, then they attack you, then you win"
===
اقتباسحُكَّامُـنَا إِنْ تَصَـدّوا لِلْحِمَــى اقْتَحَمُـوا ***** وَإِنْ تَصَدَّى لَـهُ المُسْتَعْمِـرُ انْسَحَبُـوا
هُمْ يَفْرشـُونَ لِجَيْـشِ الغَــزْوِ أَعْيُنَـهُـمْ ***** وَيَدَّعُــونَ وُثُـوبَـاً قَـبْـلَ أَنْ يَثِـبُــوا
الحَاكِمُـونَ و«وَاشُنْـطُـنْ» حُكُومَتُـهُـمْ ***** وَاللامِعُــونَ وَمَـا شَعَّـوا وَلا غَرَبُــوا
القَاتِلُـــونَ نُبُــوغَ الشَّـعْــبِ تَرْضِـيَـــةً ***** لِلْمُعْتَدِيــنَ وَمَـا أَجْـدَتْـهُـمُ الـقُــرَبُ
لَهُمْ شُمُـوخُ «المُثَنَّـى» ظَاهِـرَاً وَلَهُـمْ ***** هَـوَىً إِلَـى بَابَـك الخَرْمِـيّ يُنْتَسَـبُ
البردوني "أبو تمام وعروبة اليوم" 1971
===
اقتباسعبيد الهوى يحكمون البـلاد ***** ويحكمهــم كلّهـــم درهــــــمو تقتـادهـم شهـوة لا تنــام ***** وهـــم فـي جـهالتهــم نــــوّم
ففــي كـــلّ ناحيــة ظـالـــم ***** غبــــــيّ يسـلـّطــــه أظلـــم
أيا من شبعتم على جوعــنا ***** وجـــوع بنينـا ألـم تتخمـــوا ؟
ألم تفهموا غضبة الكادحين ***** على الظلـم ؟ لا بدّ أن تفهموا
البردوني "نحن و الحاكمون "
بالمناسبة لو استخدمت net view في Command Prompt ستحصل على ما تريد ..
اذا كان لك اهتمام بما يعطيه net.exe من نتائج بامكانك تعمل تحليل له ...
ان كنت تريد مساعدة فالأخوة لن يقصروا ...
"First they ignore you, then they laugh at you, then they attack you, then you win"
===
اقتباسحُكَّامُـنَا إِنْ تَصَـدّوا لِلْحِمَــى اقْتَحَمُـوا ***** وَإِنْ تَصَدَّى لَـهُ المُسْتَعْمِـرُ انْسَحَبُـوا
هُمْ يَفْرشـُونَ لِجَيْـشِ الغَــزْوِ أَعْيُنَـهُـمْ ***** وَيَدَّعُــونَ وُثُـوبَـاً قَـبْـلَ أَنْ يَثِـبُــوا
الحَاكِمُـونَ و«وَاشُنْـطُـنْ» حُكُومَتُـهُـمْ ***** وَاللامِعُــونَ وَمَـا شَعَّـوا وَلا غَرَبُــوا
القَاتِلُـــونَ نُبُــوغَ الشَّـعْــبِ تَرْضِـيَـــةً ***** لِلْمُعْتَدِيــنَ وَمَـا أَجْـدَتْـهُـمُ الـقُــرَبُ
لَهُمْ شُمُـوخُ «المُثَنَّـى» ظَاهِـرَاً وَلَهُـمْ ***** هَـوَىً إِلَـى بَابَـك الخَرْمِـيّ يُنْتَسَـبُ
البردوني "أبو تمام وعروبة اليوم" 1971
===
اقتباسعبيد الهوى يحكمون البـلاد ***** ويحكمهــم كلّهـــم درهــــــمو تقتـادهـم شهـوة لا تنــام ***** وهـــم فـي جـهالتهــم نــــوّم
ففــي كـــلّ ناحيــة ظـالـــم ***** غبــــــيّ يسـلـّطــــه أظلـــم
أيا من شبعتم على جوعــنا ***** وجـــوع بنينـا ألـم تتخمـــوا ؟
ألم تفهموا غضبة الكادحين ***** على الظلـم ؟ لا بدّ أن تفهموا
البردوني "نحن و الحاكمون "
أخي cipher
اشكرك علي الاهتمام بالموضوع اولا واقول لك ان الربط الذي وضعته هنا رابط دلفي وانا اريد بالفيجول بيسيك 6
فارجو اذا كان هناك رابط بالفيجول 6 ارجو ان ترفقة وجزاك الله كل خير
اخي cipher اسف لاني نسيت ارفق ذلك في المشاركة السابقة
ارجو ان توضح ما هو net view و net.exe
هو المثال بالدلفي لكن الدوال المستخدمة كلها API ابحث عنها في google وستجد أمثلة بالفيجوال بيسك او حاول تغير الكود من دلفي الي فيجوال بيسك ... ليس لدي الوقت للقيام بذلك ...
بالنسبة لـ net .exe فهو برنامج موجود في windows\system32 في انظمة nt/2k/xp/2k3
في run اكتب cmd ثم ok
في الشاشة السوداء اكتب net ستلاحظ العديد من الأوامر مثل net view, net use,net send ...
"First they ignore you, then they laugh at you, then they attack you, then you win"
===
اقتباسحُكَّامُـنَا إِنْ تَصَـدّوا لِلْحِمَــى اقْتَحَمُـوا ***** وَإِنْ تَصَدَّى لَـهُ المُسْتَعْمِـرُ انْسَحَبُـوا
هُمْ يَفْرشـُونَ لِجَيْـشِ الغَــزْوِ أَعْيُنَـهُـمْ ***** وَيَدَّعُــونَ وُثُـوبَـاً قَـبْـلَ أَنْ يَثِـبُــوا
الحَاكِمُـونَ و«وَاشُنْـطُـنْ» حُكُومَتُـهُـمْ ***** وَاللامِعُــونَ وَمَـا شَعَّـوا وَلا غَرَبُــوا
القَاتِلُـــونَ نُبُــوغَ الشَّـعْــبِ تَرْضِـيَـــةً ***** لِلْمُعْتَدِيــنَ وَمَـا أَجْـدَتْـهُـمُ الـقُــرَبُ
لَهُمْ شُمُـوخُ «المُثَنَّـى» ظَاهِـرَاً وَلَهُـمْ ***** هَـوَىً إِلَـى بَابَـك الخَرْمِـيّ يُنْتَسَـبُ
البردوني "أبو تمام وعروبة اليوم" 1971
===
اقتباسعبيد الهوى يحكمون البـلاد ***** ويحكمهــم كلّهـــم درهــــــمو تقتـادهـم شهـوة لا تنــام ***** وهـــم فـي جـهالتهــم نــــوّم
ففــي كـــلّ ناحيــة ظـالـــم ***** غبــــــيّ يسـلـّطــــه أظلـــم
أيا من شبعتم على جوعــنا ***** وجـــوع بنينـا ألـم تتخمـــوا ؟
ألم تفهموا غضبة الكادحين ***** على الظلـم ؟ لا بدّ أن تفهموا
البردوني "نحن و الحاكمون "
أخي cipher
أنا لا اعرف عن الد لفي شئ وارجو اذا كان لديك الكود ان ترفقة
وجزاك الله كل خير
هذا الكود يستخرج اسماء الأجهزة و يحفظها في ملف نصي على القرص C بإسم PC
Shell "Command.com /c Net view >C:\Pc.txt", vbHide
ملاحظة:
يمكن التعامل مع اوامر Net بنفس الطريقة السابقة و اليك مجموعة من أوامر Net
NET ACCOUNTS
NET HELP
NET SHARE
NET COMPUTER
NET HELPMSG
NET START
NET CONFIG
NET LOCALGROUP
NET STATISTICS
NET CONFIG SERVER
NET NAME
NET STOP
NET PAUSE
NET TIME
NET CONTINUE
NET PRINT
NET USE
NET FILE
NET SEND
NET USER
NET GROUP
NET SESSION
NET VIEW
تم تعديل هذه المشاركة بواسطة سلام الشرجبي في 18 ديسمبر 2005 في 10:17
أشكرك أخي سلام
بالفعل الكود نجح في عملة ولي عندك طلبين
الاول هو ان تجعل البرنامج يضع الاجهزة في ليست بوكس
الثاني هو شرح اومر net.exe والتي انت ادرجتها في المشاركة السابقة
yasserstars :
أخي العزيز يبدو أنك من النوع الكسول جداً -اعذرني لصراحتي ولكن تلك الحقيقة ...
لو جربت تبحث في google لوجدت الكثير
http://www.vbenreseau.com/wnet/wnetexemple1.htm
http://www.experts-exchange.com/Programmin...Q_21654660.html
http://support.microsoft.com/kb/q177697
يبدو أنك تعودت على أن يكون كل شئ جاهز وهذا شئ سئ بالنسبة للمبرمج . حاول تبحث عن الإجابة بنفسك أولاً ...
اقتباسالثاني هو شرح اومر net.exe والتي انت ادرجتها في المشاركة السابقة
لو تكلف نفسك شوي وتفتح الـ help في windows ستجد شرح كامل لجميع الأوامر مع أمثلة
أيضا الـ google سترشدك لكثير من المواضيع المفيدة في هذا المجال
"First they ignore you, then they laugh at you, then they attack you, then you win"
===
اقتباسحُكَّامُـنَا إِنْ تَصَـدّوا لِلْحِمَــى اقْتَحَمُـوا ***** وَإِنْ تَصَدَّى لَـهُ المُسْتَعْمِـرُ انْسَحَبُـوا
هُمْ يَفْرشـُونَ لِجَيْـشِ الغَــزْوِ أَعْيُنَـهُـمْ ***** وَيَدَّعُــونَ وُثُـوبَـاً قَـبْـلَ أَنْ يَثِـبُــوا
الحَاكِمُـونَ و«وَاشُنْـطُـنْ» حُكُومَتُـهُـمْ ***** وَاللامِعُــونَ وَمَـا شَعَّـوا وَلا غَرَبُــوا
القَاتِلُـــونَ نُبُــوغَ الشَّـعْــبِ تَرْضِـيَـــةً ***** لِلْمُعْتَدِيــنَ وَمَـا أَجْـدَتْـهُـمُ الـقُــرَبُ
لَهُمْ شُمُـوخُ «المُثَنَّـى» ظَاهِـرَاً وَلَهُـمْ ***** هَـوَىً إِلَـى بَابَـك الخَرْمِـيّ يُنْتَسَـبُ
البردوني "أبو تمام وعروبة اليوم" 1971
===
اقتباسعبيد الهوى يحكمون البـلاد ***** ويحكمهــم كلّهـــم درهــــــمو تقتـادهـم شهـوة لا تنــام ***** وهـــم فـي جـهالتهــم نــــوّم
ففــي كـــلّ ناحيــة ظـالـــم ***** غبــــــيّ يسـلـّطــــه أظلـــم
أيا من شبعتم على جوعــنا ***** وجـــوع بنينـا ألـم تتخمـــوا ؟
ألم تفهموا غضبة الكادحين ***** على الظلـم ؟ لا بدّ أن تفهموا
البردوني "نحن و الحاكمون "
اخي cipher صدقني انني حاولت بحث عن هذا الموضوع في المنتدي ولم أجد اي شيئ يفيد او يتكلم عن هذا الموضوع الا موضوع أخي أبوصابرين ولكنه لم يذكر الكود او يشرح كيف يمكن عمل ذلك كما انني حاولت ان ااخذ من ملف النص الي الليست بوكس ولكنني فشلت في عمل ذلك
هذا بالنسبة لهذا الموضوع
كما انني ااكد لك انني اول مرة اسمع عن net.exe ولم اعرف ما هو وما اوامرة وفيما يستخدم
وعلي العموم أنا اشكرك كثير علي مساعدتك
وجزاك الله كل خير
اقتباسحاول تبحث عن الإجابة بنفسك أولاً ...
اتفق مع الأخ cipher في هذا . فإذا اردت ان تتعلم لابد ان تبحث بنفسك اولاً
اما بالنسبة لإضافة الأجهزة في اللست بوكس فعليك بالتالي
1. فتح الملف النصي الذي يحتوي على اسماء الأجهزة في القرص C بإٍسم PC
و لعمل ذلك نستخدم الأمر Open . وسيكون الكود كالتالي :-
Open "C:\PC.txt" For Input As #1
هذا الكود يقوم بفتح الملف النصي للقراءة منه (For Input) و لكي تتعامل مع الملف النصي يجب أن
تعبر عنه برقم و قد عبرنا عنه بالرقم 1 (As #1)
2.استخراج اسماء الأجهزة من الملف النصي وللقيام بذلك نستخدم الأمر Input ولكن يوجد بعض الأمور
قبل استخراج اسماء الأجهزة و هي :
* كيف نميز اسماء الأجهزة عن باقي محتويات الملف النصي ?
ستلاحظ ان اسماء الاجهزة في الملف النصي مسبوقة بعلامة \\ و سنستفيد من هذه العلامة لتمييز
الأجهزة عن باقي محتويات الملف النصي .
* يجب ان نقراء الملف النصي من اوله لأخره .
و لعمل ذلك سنستخدم حلقة تكرار تنتهي بانتهاء الملف النصي .
سنقوم الآن بتحويل الكلام السابق إلى شفرات .
Dim tmp As String While Nof Eof (1) ' الأستمرار حتى نهاية الملف النصي Input #1, tmp نستدعي السطر الحالي من الملف النصي If Left(tmp ,2) = "\\" Then ' إذا كان اول حرفين من جهة اليسار "\\" list1.AddItem Right(tmp,len(tmp)-2) 'نضيف إسم الجهاز باستثناء "\\" end if wend Close #1
و سيصبح شكل الكود النهائي على هذا النحو :-
Open "C:\Pc.txt" For Input As #1 Dim tmp As String While Nof Eof (1) ' الأستمرار حتى نهاية الملف النصي Input #1, tmp نستدعي السطر الحالي من الملف النصي If Left(tmp ,2) = "\\" Then ' إذا كان اول حرفين من جهة اليسار "\\" list1.AddItem Right(tmp,len(tmp)-2) 'نضيف إسم الجهاز باستثناء "\\" end if wend Close #1
لم اضع في هذا المشاركة مثال لأنني متأكد انك من بعد هذا الشرح ستتمكن من تطبيق مثال بنفسك و ساكون جاهز للرد في حال حدوث اي مشاكل .
تحياتي .....................
تم تعديل هذه المشاركة بواسطة سلام الشرجبي في 19 ديسمبر 2005 في 12:04
هناك طريقة اخرى لا تعتمد على حفظ مخرجات الـ stdout الى ملف ثم قراءة الملف كما ذكر الأخ سلام
راجع هذا الموضوع
http://www.microsoft.com/technet/scriptcen...s_wsh_pkoy.mspx
أتمنى انك ما تكون زعلت من كلامي السابق . فقد كنت انبهك الى أنك لو حاولت تبحث عن حل المشكله بنفسك فستعرف حلاوة ولذة النجاح في التوصل الى الحل بنفسك وستتذكر حل تلك المشكلة وليس كما هو الحال لو أتاك الحل من اخرين ...
حظ موفق
"First they ignore you, then they laugh at you, then they attack you, then you win"
===
اقتباسحُكَّامُـنَا إِنْ تَصَـدّوا لِلْحِمَــى اقْتَحَمُـوا ***** وَإِنْ تَصَدَّى لَـهُ المُسْتَعْمِـرُ انْسَحَبُـوا
هُمْ يَفْرشـُونَ لِجَيْـشِ الغَــزْوِ أَعْيُنَـهُـمْ ***** وَيَدَّعُــونَ وُثُـوبَـاً قَـبْـلَ أَنْ يَثِـبُــوا
الحَاكِمُـونَ و«وَاشُنْـطُـنْ» حُكُومَتُـهُـمْ ***** وَاللامِعُــونَ وَمَـا شَعَّـوا وَلا غَرَبُــوا
القَاتِلُـــونَ نُبُــوغَ الشَّـعْــبِ تَرْضِـيَـــةً ***** لِلْمُعْتَدِيــنَ وَمَـا أَجْـدَتْـهُـمُ الـقُــرَبُ
لَهُمْ شُمُـوخُ «المُثَنَّـى» ظَاهِـرَاً وَلَهُـمْ ***** هَـوَىً إِلَـى بَابَـك الخَرْمِـيّ يُنْتَسَـبُ
البردوني "أبو تمام وعروبة اليوم" 1971
===
اقتباسعبيد الهوى يحكمون البـلاد ***** ويحكمهــم كلّهـــم درهــــــمو تقتـادهـم شهـوة لا تنــام ***** وهـــم فـي جـهالتهــم نــــوّم
ففــي كـــلّ ناحيــة ظـالـــم ***** غبــــــيّ يسـلـّطــــه أظلـــم
أيا من شبعتم على جوعــنا ***** وجـــوع بنينـا ألـم تتخمـــوا ؟
ألم تفهموا غضبة الكادحين ***** على الظلـم ؟ لا بدّ أن تفهموا
البردوني "نحن و الحاكمون "
اعتقد هناك طريقة سهلة و لا تحتاج الى دالات تخص الشبكات والطريقة هي ان جميع الاجهزة المربوطة على الشبكة اسماؤها موجودة في فولدر my network place على ما اعتقد لكن ابحث عنه فاذا وجدته يمكنك قراءة اسماء الحاسبات و ادخالها في اللست بوكس ... هل كلامي واضح؟؟
شرح مفصل لل ftp و معالجة الملفات مع سيرفر ال ftp
my E-mail : ihsanfuzzy@yahoo.com
هذا الموضوع مغلق.