[jam3h]

ممكن طريقة اخفاء ملف bat عند ضغط على زر في اداة
لدي اداة اوامر ملف bat  اريد تختفي نافذه وان يعمل bat

[Anas Mahmoud]

كود :

   Dim params As String = "C:\command.bat"
   Dim myProcess As New ProcessStartInfo
   myProcess.FileName = "cmd.exe"
   myProcess.Arguments = params
   myProcess.WindowStyle = ProcessWindowStyle.Hidden
   Process.Start(myProcess)

https://stackoverflow.com/a/7619427/14137871
https://stackoverflow.com/a/1096626/14137871

[jam3h]

اخي انا اضع ملفات bat في My.Resources
هذا كود وضعته في ازرار
My.Computer.FileSystem.WriteAllText("C:\Windows\temp\run.bat", My.Resources.cleen, False)
Process.Start("C:\Windows\temp\run.bat")

[Anas Mahmoud]

كود :

 Dim params As String = "C:\Windows\temp\run.bat"
My.Computer.FileSystem.WriteAllText(params , My.Resources.cleen, False)
  Dim myProcess As New ProcessStartInfo
  myProcess.FileName = "cmd.exe"
  myProcess.Arguments = params
  myProcess.WindowStyle = ProcessWindowStyle.Hidden
  Process.Start(myProcess)

[jam3h]

ظهر خطا
[URL="https://mrkzgulfup.com/"][COLOR="Mintcream"]مركز الخليج[/COLOR][/URL]

[Anas Mahmoud]

كود :

 Dim params As String = "C:\Windows\temp\run.bat"
My.Computer.FileSystem.WriteAllText(params , My.Resources.cleen, False)
 Dim myProcess As New ProcessStartInfo
 myProcess.FileName = "cmd.exe"
 myProcess.Arguments = params
 myProcess.WindowStyle = ProcessWindowStyle.Hidden
 Process.Start(myProcess)

اعذرني
نعرف المتغير اولا ثم نستخدمه

[jam3h]

الكود لم يظهر اخطاء ولكن عند تجربة الزر لايعمل انا وضعت داخل امر bat
@cd/d "e:\XuanZhi\LDPlayer"
dnconsole launch --index 0
echo DONE!

[kiki]

عليك من التاكد من مسار الملف

[Anas Mahmoud]

من باب العلم بالشيء جربتها وعملت تماما

كود :

       Dim p As New Process()
       p.StartInfo.FileName = "F:\test.bat"
       p.StartInfo.UseShellExecute = False
       p.StartInfo.CreateNoWindow = True
       p.StartInfo.WindowStyle = ProcessWindowStyle.Hidden

       p.Start()

[jam3h]

هدا الكود يعمل مع ملفات موجودة في الكمبيوتر انا ملف تبعي موجود داخل My.Resources اداة