X
تبلیغات
رایتل
گروه تکنولوژی و آموزشی کامپیوتر استان البرز

تبادل اطلاعات و اطلاع رسانی بین هنرآموزان گروه کامپیوتر ( فنی و حرفه ای ) استان البرز - کرج

دوستان
آخرین مطالب
امکانات جانبی

اجرای دستوارت DOS در محیط VB


ابتدا Command Prompt را فراخوانی می کنیم , خوب برای فراخوانی از تابع Shell استفاده میکنیم :

Shell "cmd.exe"


 اکنون یک شیء ایجاد می کنیم تا بتوانیم از طیق آن به هسته Dos دسترسی داشته باشیم :


Dim WinShell
Set WinShell = CreateObject("Wscript.shell")


خوب حالا می توانید به راحتی هر دستوری که دارید میتوانید اجرا کنید در آخر هم دستور تابع Sendkeys کلید Enter را اجرا کرده و دستور اجرا میشود:


WinShell.SendKeys " Dos دستور مورد نظر برای اجرا در "
WinShell.SendKeys "{ENTER}"


به مثاهای زیر توجه کنید که به ترتیب اولی برای ایجاد پوشه ای به نام Visual Basic در درایو C و دستور دوم برای نمایش پوشه های موجود در درایو C و دستور سوم برای Format فلاپی دیسک می باشد .

'For Create Folder With Dos Prompt :

WinShell.SendKeys "MD C:\Visual" & " Basic"

WinShell.SendKeys "{ENTER}"

'For Showing C Directory :

WinShell.SendKeys "Dir C:\"
WinShell.SendKeys "{ENTER}"

'For Format Floppy Disk Of Dos :

WinShell.SendKeys "format A:"

WinShell.SendKeys "{ENTER}"


ن : گروه کامپیوتر فنی و حرفه ای
ت : دوشنبه 24 بهمن‌ماه سال 1390
موضوعات
صفحات
آرشیو مطالب
امکانات جانبی

قالب بلاگفا

قالب وبلاگ

purchase vpn

بازی اندروید