[mac9]

السلام عليكم 

طلبي هو بحث عن الشبكات الموجوده داخل المنزل فقط

يعني مثلا لو انا حابب اشبك على راوتر تبع البيت بدي كود

يقوم في هذه العمليه فقط البحث عنها 

يعني كيف مثل الصورة فقط بحث

وعند وجود اسم الشبكة اقوم بالتحديد عليه يضع اسم الشبكة في Textbox1

فقط هذه 

شكرا لكم

[dasktop]

تفضل اخي


Dim proc As New System.Diagnostics.Process()

proc.StartInfo.FileName = "netsh"
proc.StartInfo.Arguments = "wlan show networks mode=bssid"
proc.StartInfo.RedirectStandardOutput = True
proc.StartInfo.UseShellExecute = False
proc.Start()
MsgBox(proc.StandardOutput.ReadToEnd())



المصدر

https://stackoverflow.com/questions/1234...sual-basic

[mac9]

(06-08-19, 04:44 AM)dasktop كتب : تفضل اخي


Dim proc As New System.Diagnostics.Process()

proc.StartInfo.FileName = "netsh"
proc.StartInfo.Arguments = "wlan show networks mode=bssid"
proc.StartInfo.RedirectStandardOutput = True
proc.StartInfo.UseShellExecute = False
proc.Start()
MsgBox(proc.StandardOutput.ReadToEnd())



المصدر

https://stackoverflow.com/questions/1234...sual-basic

صديقي هذا الكود يعطي معلومات الاشاره تبعي وانا اريد اعمل سيرج يعني بحث ويظهرها لي

[mac9]

هل من مجيب هنا رجاءاً

[ابراهيم ايبو]

السلام عليكم اخي الكريم

هذا الكود يجلب كل الشبكات الممكن رؤيتها في محيطك 

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

[mac9]

(08-08-19, 02:18 AM)ابراهيم ايبو كتب :

السلام عليكم اخي الكريم

هذا الكود يجلب كل الشبكات الممكن رؤيتها في محيطك 

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

صحيح اخي الكود شغال فقط انا اريده في لست فيوو مثل هذا الفديو لكن الروابط غير شغاله في الوصف

https://www.youtube.com/watch?reload=9&v=KGVCL6Hiyak

انظر الى هذا الفديو

[ابراهيم ايبو]

السلام عليكم اخي الكريم
تفضل المثال مع ليست بوكس تعرض اسماء الشيكات وفي ريتش تكست التفاصيل
وعند اختيار اي شبكة من ليست بوكس سيعرض اسمها في التكست بوكس

[mac9]

(09-08-19, 05:25 PM)ابراهيم ايبو كتب : السلام عليكم اخي الكريم
تفضل المثال مع ليست بوكس تعرض اسماء الشيكات وفي ريتش تكست التفاصيل
وعند اختيار اي شبكة من ليست بوكس سيعرض اسمها في التكست بوكس

تسلم أخي برنامج شغال عاشت ايد تم تقيمك يالغالي

[ابراهيم ايبو]

الحمد لله والشكرلله

ولك اخي الكريم