الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

Execute commands in CMD in vb.net

بدأه Ahmmkh في 22 فبراير 2014 · 5 رد · 533 مشاهدة · في Microsoft Visual Basic.NET
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

شباب انا الحين اواجه مشكله صغيرة الحين معروف عشان تنفذ امر cmd من عالفيجوال بيسك تستخدم هذا الامر 

Shell("cmd.exe /c systeminfo")

حطيت امر systeminfo كمثال 

بس الحين لو ابغى احط امرين cmd يكون الاثنين مرتبطين ببعض مثل 

E:del test.txt

حيث E مسار القرص المضغوط

والامر التاني هو امر حذف ملف من القرص 

كيف اعملها اسوي امرين اثنين مع بعض 

وشكراً

تم تعديل هذه المشاركة بواسطة Ahmmkh في 22 فبراير 2014 في 16:44

#2

حاول تنفيذ الأمر مباشرة :

del e:test.txt
1

لا إله إلا الله ... محمد رسول الله

لو كانت مشاركتي مفيدة و تريد تشجيعي على المزيد من العطاء , فضلا قم بتقييم المشاركة

المعرًف القديم : houssam11350_11350

من مواضيعي : ArabGenCode : مولد كود و إجراءات مخزنة و واجهات لجداول سيكوال سيرفر

#3
حسام الشامي كتب:

 

حاول تنفيذ الأمر مباشرة :

del e:test.txt

فاهم اني اقدر اسوي هيك بس انا عندي شئ ثاني اريد اعمله لازم احط امرين 

#4

انا واضع هذا كمثال فقط !!

#5

السلام عليكم ..

فهمت عليك .. معك حق :)

ربما انت بحاجة لشئ آخر مثل :

Dim processStartInfo = New System.Diagnostics.ProcessStartInfo("cmd.exe")
        processStartInfo.RedirectStandardInput = True
        processStartInfo.RedirectStandardOutput = True
        processStartInfo.UseShellExecute = False
        Dim prc = System.Diagnostics.Process.Start(processStartInfo)
        If prc IsNot Nothing Then
            prc.StandardInput.WriteLine("e:")
            prc.StandardInput.WriteLine("del test.txt")
            prc.StandardInput.Close()
            Dim outputString = prc.StandardOutput.ReadToEnd()
            MsgBox(outputString)
        End If

حيث تستطيع كتابة ما تشاء من الأوامر باستخدام الدالة (prc.StandardInput.WriteLine)  .

1

لا إله إلا الله ... محمد رسول الله

لو كانت مشاركتي مفيدة و تريد تشجيعي على المزيد من العطاء , فضلا قم بتقييم المشاركة

المعرًف القديم : houssam11350_11350

من مواضيعي : ArabGenCode : مولد كود و إجراءات مخزنة و واجهات لجداول سيكوال سيرفر

#6
حسام الشامي كتب:

السلام عليكم ..

فهمت عليك .. معك حق :)

ربما انت بحاجة لشئ آخر مثل :

Dim processStartInfo = New System.Diagnostics.ProcessStartInfo("cmd.exe")
        processStartInfo.RedirectStandardInput = True
        processStartInfo.RedirectStandardOutput = True
        processStartInfo.UseShellExecute = False
        Dim prc = System.Diagnostics.Process.Start(processStartInfo)
        If prc IsNot Nothing Then
            prc.StandardInput.WriteLine("e:")
            prc.StandardInput.WriteLine("del test.txt")
            prc.StandardInput.Close()
            Dim outputString = prc.StandardOutput.ReadToEnd()
            MsgBox(outputString)
        End If

حيث تستطيع كتابة ما تشاء من الأوامر باستخدام الدالة (prc.StandardInput.WriteLine)  .

تسلم يا غالي .. الكود يعمل 100 % 

وسويت مشروعي الحمد لله باقي اشياء بسيطه 

مواضيع مشابهة