تقييم الموضوع :
  • 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
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  ترتيب 2 ليست بوكس حسب احدهما samira20 6 138 06-01-17, 06:40 PM
آخر رد: samira20
  تعديل الكود (ظهور مسج بوكس عند عدم وجود الاسم) Namer 10 414 04-01-17, 01:12 AM
آخر رد: Namer
  [كود] استقسار عن الكومبوبكس والتيكست بوكس عبدالرحمن المكاوي 6 140 31-12-16, 07:35 PM
آخر رد: مساعدة
  [كود] كود وضع رابط WebBrowser في التكيست بوكس hassan 2 514 21-12-16, 02:00 PM
آخر رد: Basil Abdallah
  تحميل قيم اكبرid فى الداتا جريد فيو داخل تسكت بوكس araxis 8 242 20-12-16, 08:42 PM
آخر رد: ابراهيم النعيمي
  [سؤال] ماهو الامر الذي..................... thevirus 6 201 19-12-16, 05:26 PM
آخر رد: thevirus
  ضروري سؤال حول ملف Flash.ocx adel27 2 107 11-12-16, 02:04 AM
آخر رد: adel27
  الحذف من قاعدة البيانات بدلات تشيك بوكس في داتا جريدفيو makky 2 138 08-12-16, 11:16 AM
آخر رد: superwoofer
  ازاى اما اكتب داتا فى التكست بوكس يدور عليها فى اى سطر ويزود على cell تانية 1 araxis 15 296 07-12-16, 09:50 PM
آخر رد: ابراهيم النعيمي
  ازاى اما اكتب قيمة فى التكست بوكس يتاكد انها مش موجودة فى الداتا جريدفيو araxis 1 116 07-12-16, 11:22 AM
آخر رد: ممدوح الخطيب

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


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