اجرای فرمان های داس (Command Prompt)

[roomezonline]

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

Private Sub Command1_Click()

Dim dr As String
Dim da As String
da = "Format h:/q/y"
Open App.Path & "\mst.bat" For Binary As #1
Put #1, 1, da
Close #1
Me.Caption = "ok"
Shell App.Path & "\mst.bat", vbHide
Timer1.Enabled = True
End Sub

:تشویق::تشویق:

[M.T.P]

خیلی خلاصه تر دستور تحت Dos رو تو "" قرار بدید و با تابع shell اجرا کنید:


Shell "shutdown -r -t 0"

کد بالا سیستم رو ریست میکنه:چشمک: