تقييم الموضوع :
  • 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

   

Exclamation اعتذر عن الانقطاع  لظروف خاصة 



الرد }}}
تم الشكر بواسطة:
#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

Exclamation اعتذر عن الانقطاع  لظروف خاصة 



الرد }}}
تم الشكر بواسطة: الطالب , مبرمج بلا حدود
#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

Exclamation اعتذر عن الانقطاع  لظروف خاصة 



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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  تظليل التكست بوكس عند وضع المؤشر مصمم هاوي 2 144 02-03-24, 08:48 AM
آخر رد: مصمم هاوي
  بحث بالكومبو بوكس لا ى جزء من النص Lathe1 3 440 28-02-24, 02:59 AM
آخر رد: معاند الحظ
  كيفية تنفيذ امر عند التعليم على checkbox بالداتا جريد فيو heem1986 2 158 21-02-24, 01:37 AM
آخر رد: heem1986
  كيفية تنفيذ أمر عرض بيانات من فورم ثان مصمم هاوي 7 329 19-02-24, 12:28 AM
آخر رد: مصمم هاوي
  تنفيذ كود عند حدوث تغيرات فى أحد جداول قاعد بيانات sql heem1986 2 247 16-02-24, 06:37 AM
آخر رد: عبدالله الدوسري
  مشكلة عدم اكتمال تنفيذ بسبب فصل الشبكة او التيار الكهربائي اثناء النتفيذ تناسيم 3 1,840 05-02-24, 10:04 PM
آخر رد: 01AHMED
  كيف ارسل مجموع 3 تكست بوكس إلى واحد بالترتيب ؟ أبووسم 3 330 18-12-23, 05:17 PM
آخر رد: أبووسم
  [سؤال] توزيع الارقام على أكثر من تكست بوكس أبووسم 11 692 17-11-23, 12:04 AM
آخر رد: أبووسم
  كود تغيير قيمة تكست بوكس فى تاريخ معين Ahmed.vb 2 907 11-10-23, 10:35 PM
آخر رد: aljzazy
  مشكلة في تنفيذ البرنامج 'microsoft.ace.oledb.12.0' provider is not registered um_noor20 6 554 13-09-23, 10:05 AM
آخر رد: um_noor20

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


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