[kebboud]

(22-08-18, 10:51 PM)elgokr كتب :

السلام عليكم ورحمة الله وبركاته

ابسط كود لتطبيق اوامر الدوس مباشر من خلال VB.NET

عليك اضافة الـ Sub التالى

كود :

   Shared Sub RunCommandCom(command as String, arguments as String, permanent as Boolean)
       Dim p as Process = new Process()
       Dim pi as ProcessStartInfo = new ProcessStartInfo()
       pi.Arguments = " " + if(permanent = true, "/K" , "/C") + " " + command + " " + arguments
       pi.FileName = "cmd.exe"
       p.StartInfo = pi
       p.Start()
   End Sub

من ثم قم باستدعاء الكود التالى لتطبيق اوامر الدوس

كود :

MyUtilities.RunCommandCom("DIR", "/W", true)

حتى لا يذهب صاحب الكود

فالمصدر هنا

تحياتى لك

وتمنياتى لك التوفيق

شكرا أخي الجوكر على الكود المهم فعلا ..
و شكرا على احترام إبداعات الآخرين..
أنت فعلا إنسان نزيه و نبيل