منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

السلام عليكم ورحمة الله وبركاتة 

سؤال بأختصار بسيط اقوم بالعمل على برنامج 
مشاركة الانترنت الواي فاي على الكمبيوتر المحمول
لينقل الى الاخرين الانترنت لا سلكي 

استخدمت امر shell 

الادوات :
2 textbox
3 buttons 
-------------------

الزرار الاول خاص بأنشاء الشبكة من الاسم وكلمة المرور وهذه هى المشكلة 
بما ان الكود كالآتى :- 

المطلوب هنا معرفة تغير اسم الشبكة وكلمة المرور من التكيست بوكس 1 و 2 

قمت بتجربة كالآتي : - 


مع استخدام امر Shell 

لم تنجح 

باقى الاكواد سهلة جدا 

زرار تشغيل الشبكة 



زرار ايقاف الشبكة 



ومن يريد التجربة بعد انشاء الشبكة لا بد من عمل مشاركة الاتصال :- 

انظر الصورة 

[attachment=7751]

سلام


جرب هذا التعديل وان شاء الله يعمل،

يجب تشغيله كمسؤول

الزر الاول للتشغيل والزر الثاني للايقاف


موفقين

من فضلك ضع المثال للاستفادة

---

(01-09-15, 08:15 AM)الطالب كتب : [ -> ]سلام


جرب هذا التعديل وان شاء الله يعمل،

يجب تشغيله كمسؤول

الزر الاول للتشغيل والزر الثاني للايقاف

كود :

Private Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button1.Click
   Dim result As String = hostednetwork(TextBox1.Text, TextBox2.Text, True)
   MsgBox(result)
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
   Dim result As String = hostednetwork(Nothing, Nothing, False)
   MsgBox(result)
End Sub

Private Function hostednetwork(ByVal ssid As String, ByVal key As String, ByVal status As Boolean) As String
   Dim processStartInfo As ProcessStartInfo = New ProcessStartInfo("cmd.exe")
   processStartInfo.RedirectStandardInput = True
   processStartInfo.RedirectStandardOutput = True
   processStartInfo.CreateNoWindow = True
   processStartInfo.UseShellExecute = False
   Dim process As Process = process.Start(processStartInfo)
   If (Not (process) Is Nothing) Then
       If status Then
           process.StandardInput.WriteLine("netsh wlan set hostednetwork mode=allow", "ssid=" & ssid & ", key=" & key)
           process.StandardInput.WriteLine("netsh wlan start hosted network")
           process.StandardInput.Close()
           Return process.StandardOutput.ReadToEnd.Replace(Application.StartupPath & ">", "").Trim

       Else
           process.StandardInput.WriteLine("netsh wlan stop hostednetwork")
           process.StandardInput.Close()
           Return process.StandardOutput.ReadToEnd.Replace(Application.StartupPath & ">", "").Trim
       End If
   End If
End Function

موفقين

(01-09-15, 10:17 AM)الحزين اوى كتب : [ -> ]من فضلك ضع المثال للاستفادة

---

PHP كود :

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

    ConnectToWifi(TextBox1.text, TextBox2.text)

End Sub 


شكرا اخي الفاضل ولكن لم  تعمل بالشكل السليم 

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

تخصيص اسم الشبكة وكلمة المرور وتغيرها فى اى وقت فقط 
ولى طلب هل من صعوبة لعمل ليست بوكس فية المتصلين بالشبكة الان

---

فى  هذا الموضوع اجد الكود بلغة C# 
الموضوع هنا  رابط خارجي 

سلام


شوف هذا الرابط يوجد فيه اوامر cmd بخصوص WiFi تقدر تستخلص منها الاوامر وتجرب
How to Create a WiFi Hotspot Using the Command Prompt


موفقين

(02-09-15, 03:48 PM)الطالب كتب : [ -> ]سلام


شوف هذا الرابط يوجد فيه اوامر cmd بخصوص WiFi تقدر تستخلص منها الاوامر وتجرب
How to Create a WiFi Hotspot Using the Command Prompt


موفقين

شكرا على ردك اخي الكريم 
تبقا المشكلة قائمة لانى اريد ان يصبح متكامل 
بمعنى انا لا اريد المستخدم الدخول الى لوحة التحكم 
يتحكم فقط من خلال البرنامج