[zooz313]

السلام عليكم اخوتي ممكن مساعدة في تنفيذ امر داخل الباور شل ..... يعني عند الضغط على البوتن يتم تنفيذ الكود

[عبدالله الدوسري]

وعليكم السلام

كود :

       Dim p As Process = New Process()
       p.StartInfo.FileName = "PowerShell.exe"
       p.StartInfo.Arguments = "اكتب الكوماند الذي تريده هنا"
       p.StartInfo.WindowStyle = ProcessWindowStyle.Hidden
       p.StartInfo.UseShellExecute = False
       p.StartInfo.CreateNoWindow = True
       p.StartInfo.RedirectStandardError = True
       p.Start()
       p.WaitForExit()
       Dim ErrorText As String = p.StandardError.ReadToEnd()
       MsgBox(p.ExitCode)
       If ErrorText <> "" Then
           MsgBox(ErrorText)
       End If

[kebboud]

(04-11-22, 10:23 AM)عبدالله الدوسري كتب : وعليكم السلام

كود :

       Dim p As Process = New Process()
       p.StartInfo.FileName = "PowerShell.exe"
       p.StartInfo.Arguments = "اكتب الكوماند الذي تريده هنا"
       p.StartInfo.WindowStyle = ProcessWindowStyle.Hidden
       p.StartInfo.UseShellExecute = False
       p.StartInfo.CreateNoWindow = True
       p.StartInfo.RedirectStandardError = True
       p.Start()
       p.WaitForExit()
       Dim ErrorText As String = p.StandardError.ReadToEnd()
       MsgBox(p.ExitCode)
       If ErrorText <> "" Then
           MsgBox(ErrorText)
       End If

الأخ الدوسري
عجيب يطرح عليك أحدهم سؤالا و عندما تجيبه يصمت فلا تعلم هل إجابتك حلت مشكلته أم لا 
نفس الشيء مع هذا الأخ 
من المفروض على الإخوة أن يتقيدوا بنظام التنبيه بعد تلقيهم إجابات على اسئلتهم 
و شكرا