اجرای فایل‌های دارای پسوند cmd در پروژه vb.net

[saeidmobashery]

سلام و عرض ارادت بر اساتید عزیز
بنده یک فایل cmd دارم که حاوی پیش فرض‌های متنی است و با تغییر آن پیش فرض ها برنامه exe خاصی را هندل می‌کند پروژه‌ای در vb.net ساخته‌ام که محتویات فایل cmd را ویرایش می‌کند ولی نمی‌دانم چطور آن فایل cmd را از داخل پروژه با کلیک بر روی یک دکمه (باتن) اجرا کنم

سپاس از حضور اساتید گرامی در این سایت عالی

[ROSTAM2]

سلام.
بهتره بجای اون فایل cmd دستوراتش رو با تابع shell یا تابع Start از کلاس Process اجرا کنید.

[saeidmobashery]

سلام.
بهتره بجای اون فایل cmd دستوراتش رو با تابع shell یا تابع Start از کلاس Process اجرا کنید.

بلد نیستم دستورات داخل فایل cmd را به تابع shell بدهم کل متن داخلشو با عنوان مای کامنت خوندم دادم به شل ولی موفق نبود

[ROSTAM2]

بلد نیستم دستورات داخل فایل cmd را به تابع shell بدهم کل متن داخلشو با عنوان مای کامنت خوندم دادم به شل ولی موفق نبود

می شه همون cmd رو با shell اجرا کرد

[saeidmobashery]

می شه همون cmd رو با shell اجرا کرد

با چه کدی برادر جان ؟

[پرستو پارسایی]

Private Sub btnRunCMD_Click(sender As Object, e As EventArgs) Handles btnRunCMD.Click 

   Dim cmdPath As String = "C:\path\to\your\cmd\file.cmd" ' مسیر فایل cmd خود را در اینجا قرار دهید

    

    Dim startInfo As New ProcessStartInfo()

    startInfo.FileName = "cmd.exe"

    startInfo.Arguments = "/C " & cmdPath ' استفاده از /C برای اجرای دستورات در cmd و بستن آن بعد از اجرا

    startInfo.UseShellExecute = False ' تنظیم UseShellExecute به False برای اجرای cmd به صورت مستقیم

    startInfo.RedirectStandardOutput = True ' تنظیم RedirectStandardOutput به True برای دریافت خروجی cmd

    

    Dim process As New Process()

    process.StartInfo = startInfo

    process.Start()

    

    ' می توانید خروجی را دریافت کنید و انجام عملیات دیگر روی آن انجام دهید

    Dim output As String = process.StandardOutput.ReadToEnd()

    ' اینجا خروجی را می توانید استفاده کنید یا نمایش دهید

    MessageBox.Show(output)

End Sub

[saeidmobashery]

Private Sub btnRunCMD_Click(sender As Object, e As EventArgs) Handles btnRunCMD.Click 

   Dim cmdPath As String = "C:\path\to\your\cmd\file.cmd" ' مسیر فایل cmd خود را در اینجا قرار دهید

    

    Dim startInfo As New ProcessStartInfo()

    startInfo.FileName = "cmd.exe"

    startInfo.Arguments = "/C " & cmdPath ' استفاده از /C برای اجرای دستورات در cmd و بستن آن بعد از اجرا

    startInfo.UseShellExecute = False ' تنظیم UseShellExecute به False برای اجرای cmd به صورت مستقیم

    startInfo.RedirectStandardOutput = True ' تنظیم RedirectStandardOutput به True برای دریافت خروجی cmd

    

    Dim process As New Process()

    process.StartInfo = startInfo

    process.Start()

    

    ' می توانید خروجی را دریافت کنید و انجام عملیات دیگر روی آن انجام دهید

    Dim output As String = process.StandardOutput.ReadToEnd()

    ' اینجا خروجی را می توانید استفاده کنید یا نمایش دهید

    MessageBox.Show(output)

End Sub

سلام استاد عزیز و عرض ارادت
دقیق کد شما را پیاده سازی کردم ولی مسیج باکس خالیه و CMD که با اجرای خارج از پروژه فایل تکست خروجی می‌داد هیچ خروجی نشان نداد

[ROSTAM2]

سلام استاد عزیز و عرض ارادت
دقیق کد شما را پیاده سازی کردم ولی مسیج باکس خالیه و CMD که با اجرای خارج از پروژه فایل تکست خروجی می‌داد هیچ خروجی نشان نداد

حالا چرا cmd
دستوراتی ک نوشتی اینجا ارسال کن معادل Vb .net یا Script اون ایجاد بشه...

[ROSTAM2]

با چه کدی برادر جان ؟

Shell function (Visual Basic for Applications) | Microsoft Learn

' Specifying 1 as the second argument opens the application in 

' normal size and gives it the focus.

Dim RetVal

RetVal = Shell("C:\WINDOWS\NOTEPAD.EXE", 1)    ' Open Notepad.

[saeidmobashery]

حالا چرا cmd
دستوراتی ک نوشتی اینجا ارسال کن معادل Vb .net یا Script اون ایجاد بشه...

چشم برادر و سپاس از پیگیری شما
متن داخل فایل cmd :

@echo off
Exporter.exe "2" "2007-12-15" "2024-03-01" Dollar.txt 1234123454 ali1360

[ROSTAM2]

چشم برادر و سپاس از پیگیری شما
متن داخل فایل cmd :

@echo off
Exporter.exe "2" "2007-12-15" "2024-03-01" Dollar.txt 1234123454 ali1360

این فایل Exporter دقیقا چیه؟

[ROSTAM2]

از پست شاره 6 کدها رو استفاده کن

با این تغییرات

 startInfo.FileName = "Exporter.exe"

    startInfo.Arguments = "'2' '2007-12-15' '2024-03-01' Dollar.txt 1234123454 ali1360"

ولی اگر فایل Exporter.exe کنار نرم افزار نیست یا باید آدرس دقیق نوشته بشه یا در رجیستری ثبت بشه

[saeidmobashery]

از پست شاره 6 کدها رو استفاده کن

با این تغییرات

 startInfo.FileName = "Exporter.exe"

    startInfo.Arguments = "'2' '2007-12-15' '2024-03-01' Dollar.txt 1234123454 ali1360"

ولی اگر فایل Exporter.exe کنار نرم افزار نیست یا باید آدرس دقیق نوشته بشه یا در رجیستری ثبت بشه

برادر جان کد زیر را اعمال کردم :

Private Sub RunCMD_Button_Click(sender As Object, e As EventArgs) Handles RunCMD_Button.Click

Dim startInfo As New ProcessStartInfo()

startInfo.FileName = "Exporter.exe"

startInfo.Arguments = "'2' '2007-12-15' '2024-03-01' Dollar.txt 1234123454 ali1360"

startInfo.UseShellExecute = False

startInfo.RedirectStandardOutput = True

Dim process As New Process()

process.StartInfo = startInfo

process.Start()

Dim output As String = process.StandardOutput.ReadToEnd()

MessageBox.Show(output)

End Sub

خطای زیر به دست آمد :
System.ComponentModel.Win32Exception: 'The system cannot find the file specified'

[ROSTAM2]

برادر جان کد زیر را اعمال کردم :

Private Sub RunCMD_Button_Click(sender As Object, e As EventArgs) Handles RunCMD_Button.Click

Dim startInfo As New ProcessStartInfo()

startInfo.FileName = "Exporter.exe"

startInfo.Arguments = "'2' '2007-12-15' '2024-03-01' Dollar.txt 1234123454 ali1360"

startInfo.UseShellExecute = False

startInfo.RedirectStandardOutput = True

Dim process As New Process()

process.StartInfo = startInfo

process.Start()

Dim output As String = process.StandardOutput.ReadToEnd()

MessageBox.Show(output)

End Sub

خطای زیر به دست آمد :
System.ComponentModel.Win32Exception: 'The system cannot find the file specified'

برای FileName آدرس کامل استفاده کن.

[saeidmobashery]

برای FileName آدرس کامل استفاده کن.

مسیج باکس خالیه و CMD که با اجرای خارج از پروژه فایل تکست خروجی می‌داد هیچ خروجی نشان نداد

[ROSTAM2]

مسیج باکس خالیه و CMD که با اجرای خارج از پروژه فایل تکست خروجی می‌داد هیچ خروجی نشان نداد

از ویژگی Run As Administrator استفاده کنید

[saeidmobashery]

از ویژگی Run As Administrator استفاده کنید

بیشتر توضیح بدین ممنون میشم نمی دونم به چه صورتی انجام بدم

[پرستو پارسایی]

Dim processStartInfo As New ProcessStartInfo()

processStartInfo.FileName = "cmd.exe"

processStartInfo.Arguments = "/C @echo off & Exporter.exe ""2"" ""2007-12-15"" ""2024-03-01"" Dollar.txt 1234123454 ali136" ' دستور مورد نظر خود را اینجا قرار دهید

processStartInfo.Verb = "runas" ' تنظیم دسترسی مدیریتی

Process.Start(processStartInfo)

مطمئن شوید که مسیر فایل cmd و همچنین پارامترهای دستور را به درستی وارد کرده‌اید.

[saeidmobashery]

عرض سلام و احترام خدمت دوستان و اساتید عزیز

بنده موفق شدم cmd را باز کنم و برنامه مد نظرم را با کامنت‌های ورودی مخصوصش به کمک کدهای قبلی مندرج در این تاپیک ران کنم و سپاس از راهنمایی دوستان
اکنون مشکل جدیدی دارم :

پنجره cmd که باز می‌شود را بلد نیستم ببندم
از دستور زیر کمک می‌گیرم ولی گویا زودتر از اینکه پردازش تمام شود cmd را می‌بندد
process.CloseMainWindow()

در واقع به دنبال دستوری هستم که متوجه شود برنامه cmd کارش تمام شده و اگر بسته نشده آن را ببندد
این اگرش خیلی مهم است چون در مواردی نادر پنجره بسته cmd بعد از پایان کار بسته می‌شود

ممنون می‌شوم راهنمایی بفرمایید

[پرستو پارسایی]

هنگام کلیک بر روی دکمه "Start"، یک فرآیند جدید cmd.exe ایجاد می‌شود و دستورات مورد نظر شما اجرا می‌شن. سپس با استفاده از متد WaitForExit()، صبر می‌کنیم تا پردازش کامل بشه و پنجره cmd بسته شود. در صورتی که بخواهید پنجره cmd را در هر زمانی ببندید، می‌توانید از متد Kill() استفاده کنید.

Imports System.Diagnostics





Public Class Form1

    Dim cmdProcess As Process





    Private Sub StartButton_Click(sender As Object, e As EventArgs) Handles StartButton.Click

        cmdProcess = New Process()

        Dim startInfo As New ProcessStartInfo("cmd.exe")

        cmdProcess.StartInfo = startInfo

        cmdProcess.Start()





        ' اجرای دستورات مورد نظر





        ' منتظر بمانید تا پردازش کامل شود و پنجره cmd بسته شود

        cmdProcess.WaitForExit()

    End Sub





    Private Sub StopButton_Click(sender As Object, e As EventArgs) Handles StopButton.Click

        If cmdProcess IsNot Nothing AndAlso Not cmdProcess.HasExited Then

            ' بستن پنجره cmd به صورت اجباری (Forcefully)

            cmdProcess.Kill()

        End If

    End Sub

End Class

[saeidmobashery]

هنگام کلیک بر روی دکمه "Start"، یک فرآیند جدید cmd.exe ایجاد می‌شود و دستورات مورد نظر شما اجرا می‌شن. سپس با استفاده از متد WaitForExit()، صبر می‌کنیم تا پردازش کامل بشه و پنجره cmd بسته شود. در صورتی که بخواهید پنجره cmd را در هر زمانی ببندید، می‌توانید از متد Kill() استفاده کنید.

Imports System.Diagnostics





Public Class Form1

    Dim cmdProcess As Process





    Private Sub StartButton_Click(sender As Object, e As EventArgs) Handles StartButton.Click

        cmdProcess = New Process()

        Dim startInfo As New ProcessStartInfo("cmd.exe")

        cmdProcess.StartInfo = startInfo

        cmdProcess.Start()





        ' اجرای دستورات مورد نظر





        ' منتظر بمانید تا پردازش کامل شود و پنجره cmd بسته شود

        cmdProcess.WaitForExit()

    End Sub





    Private Sub StopButton_Click(sender As Object, e As EventArgs) Handles StopButton.Click

        If cmdProcess IsNot Nothing AndAlso Not cmdProcess.HasExited Then

            ' بستن پنجره cmd به صورت اجباری (Forcefully)

            cmdProcess.Kill()

        End If

    End Sub

End Class

استاد عزیز کد WaitForExit() را استفاده کردم حالا تا زمانی که cmd بسته نشود عملیات وی بی تکمیل نمی‌شود
cmd پایان پردازش را اعلام می‌کند و برای بسته شدن اینتر نیاز دارد

[پرستو پارسایی]

Imports System.Diagnostics



Public Class Form1

    Dim cmdProcess As Process





    Private Sub StartButton_Click(sender As Object, e As EventArgs) Handles StartButton.Click

        cmdProcess = New Process()

        Dim startInfo As New ProcessStartInfo("cmd.exe")

        cmdProcess.StartInfo = startInfo





        ' اضافه کردن رویداد بسته شدن به Process

        AddHandler cmdProcess.Exited, AddressOf cmdProcess_Exited





        cmdProcess.Start()

    End Sub





    Private Sub StopButton_Click(sender As Object, e As EventArgs) Handles StopButton.Click

        If cmdProcess IsNot Nothing AndAlso Not cmdProcess.HasExited Then

            cmdProcess.Kill()

        End If

    End Sub





    Private Sub cmdProcess_Exited(sender As Object, e As EventArgs)

        ' عملیات را به پایان برسانید

    End Sub

End Class

یک رویداد Exited به Process اضافه کردم. این رویداد هنگامی فراخوانی می‌شود که cmd بسته بشه. شما می‌تونید کدهای مربوط به پایان عملیات را در داخل رویداد cmdProcess_Exited قرار دهید.

[saeidmobashery]

Imports System.Diagnostics



Public Class Form1

    Dim cmdProcess As Process





    Private Sub StartButton_Click(sender As Object, e As EventArgs) Handles StartButton.Click

        cmdProcess = New Process()

        Dim startInfo As New ProcessStartInfo("cmd.exe")

        cmdProcess.StartInfo = startInfo





        ' اضافه کردن رویداد بسته شدن به Process

        AddHandler cmdProcess.Exited, AddressOf cmdProcess_Exited





        cmdProcess.Start()

    End Sub





    Private Sub StopButton_Click(sender As Object, e As EventArgs) Handles StopButton.Click

        If cmdProcess IsNot Nothing AndAlso Not cmdProcess.HasExited Then

            cmdProcess.Kill()

        End If

    End Sub





    Private Sub cmdProcess_Exited(sender As Object, e As EventArgs)

        ' عملیات را به پایان برسانید

    End Sub

End Class

یک رویداد Exited به Process اضافه کردم. این رویداد هنگامی فراخوانی می‌شود که cmd بسته بشه. شما می‌تونید کدهای مربوط به پایان عملیات را در داخل رویداد cmdProcess_Exited قرار دهید.

سپاس از زحمات سرکار خانم پارسایی ، بالاخره امشب موفق شدم