01-11-22, 08:59 AM
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 If17-12-22, 02:25 PM
(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
الأخ الدوسري
عجيب يطرح عليك أحدهم سؤالا و عندما تجيبه يصمت فلا تعلم هل إجابتك حلت مشكلته أم لا
نفس الشيء مع هذا الأخ
من المفروض على الإخوة أن يتقيدوا بنظام التنبيه بعد تلقيهم إجابات على اسئلتهم
و شكرا
