[الطالب]

سلام


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

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

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

كود :

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

موفقين