كيف أعرف أسماء الأجهزة المرتبطة مع برنامجي .... في الشبكة ..

مغلق

بدأه شهاب المخلافي في 14 أغسطس 2006 · 8 رد · 1,097 مشاهدة · في لغة Ms Visual Basic 6 وما قبلها من إصدارات

مشاركة: واتساب X فيسبوك تيليجرام

#114 أغسطس 2006 في 01:54 صاحب الموضوع

أظن أن السؤال واضح يا شباب أرجو ممن يعرف الإجابة أو عنده فكرة عن الموضوع أن يضع رده ...

#214 أغسطس 2006 في 02:37

أولا ما هي طريقة ربط برنامجك مع الاجهزة ؟ اذا كانت عن طريق برنامج سرفر وكلينت ، معني ذلك انك بتستخدم الاداه MSwinsck

اذا كنت تستخدم هذة الاداة فيمكن معرفة اسم الجهاز عن طريق الامر

Winsock1.LocalHostName

#314 أغسطس 2006 في 13:06

نعم طريقة الربط بهذا الشكل .... ولكن أنا ما أبغى أعرف اسم الجهاز اللي البرنامج عليه ولكن أعرف أسماء الأجهزة المتصلة بالجهاز اللي أنا عليه

#414 أغسطس 2006 في 15:13

اخي الكريم ..

للحصول على قائمة بأسماء الاجهزة المرتبطة بشبكة واحده نستخدم الامر net view من داخل الدوس ( جرب كتابة هذا الامر داخل الدوس و سترى النتيجة)

اما من داخل الفيجول فإننا نستدعي هذا الامر net view و نطبع النتيجة التي يعيدها ( و هي أسماء الاجهزة المرتبطة على الشبكة ) الى ملف خارجي ... ثم نقوم بقراءة ذلك الملف الخارجي الى List Box على سبيل المثال من اجل ان ترى النتيجة على شاشتك ..

اليك الكود الذي يقوم بذلك :

Private Sub Computers_Name_List()
On Error Resume Next
'Clear List Box
Computers_List.Clear
'Create file with list of network computers
Shell "cmd /c net view >C:\comName.txt", vbHide
Dim FileSystemObject, TextStream As Object
Set FileSystemObject = CreateObject("Scripting.FileSystemObject")
'Open text file
Set TextStream = FileSystemObject.OpenTextFile("C:\comName.txt")
'Read in file line by line at trim it down to needed info
x = 0
Do Until TextStream.AtEndOfStream
	x = x + 1
	strLine(x) = TextStream.ReadLine
	strLine(x) = Mid(strLine(x), 3, 18)
	strLine(x) = Trim(strLine(x))
Loop

'close file
TextStream.Close

'Output
For i = 4 To x - 2
  Computers_List.AddItem strLine(i)
  Computers_List2.AddItem strLine(i)
Next i

End Sub

خالص التحية

بنت اليمن ...

لا اله الا الله .. محمد رسول الله

(* ربِ اجعلني مقيم الصلاة و من ذريتي ، ربنا و تقبل دعـاء *)

يا حيّ يا قيـوم ... برحمتك استغيث ... اصلح لي شأني كله و لا تكلني الى نفسي طرفة عين

#514 أغسطس 2006 في 16:21

مشكورة أختي على مساعدتي ....

#614 أغسطس 2006 في 16:34

السلام عليكم

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

ومشكوره أيضا على الكود الرائع فأنا كنت أبحث فى نفس الموضوع

Never Give Up You Are Programmer

Being Genius Is The Step Before Madness

Artificial Intelligence Is No Match For Natural Stupidity

#714 أغسطس 2006 في 18:02

شكراً للأخت بنت اليمن

هذا السؤال يتكرر كثيراً

لاحظ هنا

/index.ph...p;amp;+computer

وهنا أيضاً(فيه رد من الأخت بنت اليمن أيضاً)

/index.ph...p;amp;+computer

"First they ignore you, then they laugh at you, then they attack you, then you win"

===

اقتباس
حُكَّامُـنَا إِنْ تَصَـدّوا لِلْحِمَــى اقْتَحَمُـوا ***** وَإِنْ تَصَدَّى لَـهُ المُسْتَعْمِـرُ انْسَحَبُـوا
هُمْ يَفْرشـُونَ لِجَيْـشِ الغَــزْوِ أَعْيُنَـهُـمْ ***** وَيَدَّعُــونَ وُثُـوبَـاً قَـبْـلَ أَنْ يَثِـبُــوا
الحَاكِمُـونَ و«وَاشُنْـطُـنْ» حُكُومَتُـهُـمْ ***** وَاللامِعُــونَ وَمَـا شَعَّـوا وَلا غَرَبُــوا
القَاتِلُـــونَ نُبُــوغَ الشَّـعْــبِ تَرْضِـيَـــةً ***** لِلْمُعْتَدِيــنَ وَمَـا أَجْـدَتْـهُـمُ الـقُــرَبُ
لَهُمْ شُمُـوخُ «المُثَنَّـى» ظَاهِـرَاً وَلَهُـمْ ***** هَـوَىً إِلَـى بَابَـك الخَرْمِـيّ يُنْتَسَـبُ
البردوني "أبو تمام وعروبة اليوم" 1971

===

اقتباس
عبيد الهوى يحكمون البـلاد ***** ويحكمهــم كلّهـــم درهــــــم
و تقتـادهـم شهـوة لا تنــام ***** وهـــم فـي جـهالتهــم نــــوّم
ففــي كـــلّ ناحيــة ظـالـــم ***** غبــــــيّ يسـلـّطــــه أظلـــم
أيا من شبعتم على جوعــنا ***** وجـــوع بنينـا ألـم تتخمـــوا ؟
ألم تفهموا غضبة الكادحين ***** على الظلـم ؟ لا بدّ أن تفهموا
البردوني "نحن و الحاكمون "