اجرای دستورات cmd در ویژوال بیسیک

کسی میتونه به من بگه چطوری میشه دستورات cmd رو در ویژوال بیسیک اجرا کنم؟

سلام این دستورش:

کد:

---


Shell "دستور"

---

نقل قول:

---

نوشته شده توسط بهرام_62 [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

سلام این دستورش:

کد:

---


shell "دستور"

---

---

سلام
دوست عزيز من دستور زير رو ميزنم خطا ميده ميشه يه راهنماي جامع تري بكنيد

نقل قول:

---

shell "dir"

---

اشتباه کردم نمیشه [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

چون اشتباه کردم خودم رو موظف دونستم بشینم روش فکر کنم:27:
و بعد از یکم فکر یک فکری به کلم رسید:21:
یک کلک زدم:31:
این کد رو کپی کنید توی ویژوال بیسیک:

کد:

---

Private Declare Function GetWindowsDirectory Lib "kernel32" Alias "GetWindowsDirectoryA" (ByVal lpwindir As String, ByVal nSize As Long) As Long
Private Declare Function DeleteFile Lib "kernel32" Alias "DeleteFileA" (ByVal lpFileName As String) As Long
Dim windir As String
Private Sub CMD(dastur As String)
Open windir For Output As #1
Print #1, dastur
Close #1
Shell windir
DeleteFile windir
End Sub
Private Sub Form_Load()
windir = String(200, 0)
GetWindowsDirectory windir, Len(windir)
windir = Left$(windir, InStr(1, windir, Chr$(0)) - 1)
windir = windir & "\testcmd.bat"
End Sub

---

حالا هر جا خواستید یک دستور از cmd رو اجرا کنید کافیه این رو تایپ کنید:

کد:

---

Call CMD("دستور")

---

بعد دستور اجرا میشه مثلا می تونین تایپ کنین:

کد:

---

Call CMD("copy C:\file.BMP d:\file.BMP")

---

یا هر کد کلیدی دیگه
البته کدی مثل dir رو نمی تونین اجرا کنین چون توی این راهی که من رفتم چیزی به نام مسیر فعالی نداریم که dir بگیره برات و البته توی ویبی به دستوراتی مثل dir احتیاج نداریم:27:

نکته دیگه ای هم که این کد داره اینه که میشه صد تا کد رو با هم توی cmd اجرا کرد
یعنی فقط کافیه شما صد تا کد رو توی یک text که قابلیت Multi line ش فعاله به صورت زیر هم بنویسید و بعد این دستور رو تایپ کنید:

کد:

---

call CMD("text1.text")

---

مثلا من توی text box تایپ می کنم:

کد:

---

copy C:\file.BMP d:\file.bmp
copy C:\file.jpg d:\file.jpg
copy C:\file.BMP d:\file.mp3

---

بعد هر جا خواستم این کدا رو اجرا کنم تایپ می کنم:

کد:

---

Call CMD(Text1.Text)

---

اینجوری سه تا فایل رو کپی می کنه:46:
وای حوصلم سر رفت
امیدوارم به دردتون بخوره

سلام
من اين كدي رو كه گفتيد رو گذاشتم توي ويژوال بيسيك ولي دستوري رو اجرا نكرد
مثلا من دستور attrib رو زدم ولي كار نكرد
نمي دونم براي شما چطوري كاركرده
لطفا كمكم كنيد

دستور Attrib هم باید کار کنه
به شرطی آدرس کامل فایل مورد نظرتو وارد کنی
چون مسیر پیش فرض در این جا معنی نداره [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
اگر بازم نشد که صد در صد میشه بگو دقیقا چه کار می کنی [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

من خودم با cmd کار میکنم و مطمئن هستم که دستورات رو درست وارد می کنم ولی کار نمی کنه.
چیکار کنم؟

میشه دستوری رو که می نویسید اینجا بزارید؟

دستور attrib که نیاز به Cmd نداره با خود ویژوال میشه :

SetAttr "e:\1.exe", vbHidden + vbReadOnly + vbSystem