ممكن طريقة اخفاء ملف bat عند ضغط على زر في اداة
لدي اداة اوامر ملف bat اريد تختفي نافذه وان يعمل bat
اخي انا اضع ملفات bat في My.Resources
هذا كود وضعته في ازرار
My.Computer.FileSystem.WriteAllText("C:\Windows\temp\run.bat", My.Resources.cleen, False)
Process.Start("C:\Windows\temp\run.bat")
كود :
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)
ظهر خطا
[URL="https://mrkzgulfup.com/"][COLOR="Mintcream"]مركز الخليج[/COLOR][/URL]
كود :
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)
اعذرني
نعرف المتغير اولا ثم نستخدمه
الكود لم يظهر اخطاء ولكن عند تجربة الزر لايعمل انا وضعت داخل امر bat
@cd/d "e:\XuanZhi\LDPlayer"
dnconsole launch --index 0
echo DONE!
عليك من التاكد من مسار الملف
من باب العلم بالشيء جربتها وعملت تماما
كود :
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()
هدا الكود يعمل مع ملفات موجودة في الكمبيوتر انا ملف تبعي موجود داخل My.Resources اداة