اضافه کردن consol command در فرم

[r.ghost]

با سلام

دوستان چطوری می تونم در فرمم از کنسول کامند استفاده کنم

ممنون میشم کمک بفرمایید با تشکر

[ali_md110]

اگر منظورتون اجرای cmd هست

Sub runcmd()
Dim retPointer As Integer

retPointer = Shell("cmd.exe", AppWinStyle.NormalFocus)

MsgBox(retPointer)

AppActivate(retPointer)


SendKeys.Flush()

SendKeys.SendWait("fffd")


SendKeys.SendWait("{ENTER}")


SendKeys.SendWait("EXIT")


SendKeys.SendWait("{ENTER}")

End Sub