[elhon.tec]

(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# 
الموضوع هنا  رابط خارجي