تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[سؤال] تنفيذ امر كومند بتغير كود الامر فى التكيست بوكس ضروري
#1
Question 
السلام عليكم ورحمة الله وبركاتة 

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

استخدمت امر shell 

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

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


كود :
netsh wlan set hostednetwork mode=allow ssid=اسم الشبكة key=كلمة المرور
المطلوب هنا معرفة تغير اسم الشبكة وكلمة المرور من التكيست بوكس 1 و 2 

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

كود :
netsh wlan set hostednetwork mode=allow ssid=textbox1.text key=textbox2.text

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

لم تنجح 

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


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


كود :
netsh wlan start hostednetwork

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


كود :
netsh wlan stop hostednetwork

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

انظر الصورة  Angel

   
الرد }}}}
تم الشكر بواسطة:
#2
سلام


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

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

الزر الاول للتشغيل والزر الثاني للايقاف
كود :
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


موفقين
متغيب
الرد }}}}
تم الشكر بواسطة: elhon.tec , مبرمج بلا حدود
#3
من فضلك ضع المثال للاستفادة

PHP كود :
Private Sub Button1_Click(sender As ObjectAs EventArgsHandles Button1.Click

    ConnectToWifi
(TextBox1.textTextBox2.text)

End Sub 
الرد }}}}
تم الشكر بواسطة: مبرمج بلا حدود
#4
(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 ObjectAs EventArgsHandles Button1.Click

    ConnectToWifi
(TextBox1.textTextBox2.text)

End Sub 

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

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

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

فى  هذا الموضوع اجد الكود بلغة C# 
الموضوع هنا  رابط خارجي  Blush
الرد }}}}
تم الشكر بواسطة: الطالب , مبرمج بلا حدود
#5
سلام


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


موفقين
متغيب
الرد }}}}
تم الشكر بواسطة: مبرمج بلا حدود
#6
(02-09-15, 03:48 PM)الطالب كتب : سلام


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


موفقين

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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  ازاى اما اكتب قيمة فى التكست بوكس يتاكد انها مش موجودة فى الداتا جريدفيو araxis 1 38 منذ 6 ساعة مضت
آخر رد: ممدوح الخطيب
  ازاى اما اكتب داتا فى التكست بوكس يدور عليها فى اى سطر ويزود على cell تانية 1 araxis 14 206 منذ 11 ساعة مضت
آخر رد: araxis
  [سؤال] تغير لون كتابة التيكست بوكس ؟ Mido9 5 2,364 30-11-16, 10:16 PM
آخر رد: omferas
  [سؤال] مشكلة في إعادة تنفيذ البرنامج wael khlak 1 53 21-11-16, 11:48 PM
آخر رد: السرور
  كيف اقوم بتعبئت كمبو بوكس من جدول في اسكيول سيرفر معتز الجازوي 2 69 19-11-16, 03:10 AM
آخر رد: معتز الجازوي
  مسار قاعدة البيانات في التكست بوكس hglogtd 2 75 19-11-16, 02:19 AM
آخر رد: hglogtd
  الحذف من قاعدة البيانات بدلات تشيك بوكس في داتا جريدفيو makky 1 73 17-11-16, 10:50 PM
آخر رد: السرور
  كيف اربط ثلاثة كومبو بوكس abanoub saeed nabil 6 182 13-11-16, 11:23 PM
آخر رد: هاوي1995
  نقل قيمة من تكست بوكس الي تكست بوكس فى نموذج اخر السيد الجوهري 4 109 05-11-16, 07:39 PM
آخر رد: shwehdi4pc
Big Grin [VB.NET] الكنترولز في التول بوكس مش متفعلة Asmaa adel 0 43 30-10-16, 09:47 AM
آخر رد: Asmaa adel

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم