+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [VB.NET] إرسال أمر لموجه الأوامر CMD أين الخطأ في هذا الكود (/showthread.php?tid=16117)
إرسال أمر لموجه الأوامر CMD أين الخطأ في هذا الكود - sniperjawadino - 12-06-16
السلام عليكم إخواني
أريد عند الضغط على زر
يفتح موجه الأوامر و يكتب فيه
Shell("cmd.exe")
SendKeys.Send("cd c:\ & cd windows")
SendKeys.Send("{ENTER}")
لكن عند الضغط يفنح لي الكثيييير من النوافد
لا أعرف أين الخطأ
RE: إرسال أمر لموجه الأوامر CMD أين الخطأ في هذا الكود - الوادي - 12-06-16
يا صنايبر،
اطلع على هذا الكود يمكن تلاقي فيه حاجة مفيدة
PHP كود :
Dim procStartInfo As New ProcessStartInfo("cmd")
Private Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button1.Click
procStartInfo.RedirectStandardInput = True
procStartInfo.RedirectStandardOutput = True
procStartInfo.CreateNoWindow = True
procStartInfo.UseShellExecute = False
Dim proc As Process = Process.Start(procStartInfo)
If Not IsNothing(proc) Then
proc.StandardInput.WriteLine("CD C:\Windows")
proc.StandardInput.WriteLine("DIR C:\Windows >> C:\t.txt")
proc.StandardInput.Close()
Process.Start("C:\t.txt")
MsgBox(proc.StandardOutput.ReadToEnd)
End If
End Sub
RE: إرسال أمر لموجه الأوامر CMD أين الخطأ في هذا الكود - boudyonline - 12-06-16
مرفق برنامج صغير اتمنى يفيدك
RE: إرسال أمر لموجه الأوامر CMD أين الخطأ في هذا الكود - sniperjawadino - 12-06-16
شكرا لكما
جزاكم الله على مساعدتكم