ابتدا 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}"
طبقه بندی: نمونه سوال ، پروژه دانشجویی، پروژه برنامه نویسی، ویژوال بیسیك، سورس رایگان، نمونه كار برنامه نویسی، دانلود كتاب و جزوه رشته كامپیوتر،
برچسب ها: Dos، Command Prompt، ویژوال بیسیک، Format،
دنبالک ها: پرتال تخصصی کامپیوتر،
اینم یه برنامه عالی که خیلیها دنبالش بودند. فیلم برداری از صفحه دسکتاپ با ویژوال بیسیک
این برنامه رو یکی از دوستان به اسم آقا آرش نوشتن.
امیدوارم مورد قبول باشه.
لینک دانلود: دانلود فایل
حجم فایل: ١٧ کیلوبایت
طبقه بندی: نمونه كار برنامه نویسی، سورس رایگان، ویژوال بیسیك، دانلود كتاب و جزوه رشته كامپیوتر،
برچسب ها: ویژوال بیسیک، فیلم برداری از صفحه دسکتاپ،
اینم آموزش گزارش گیری با DataReport در ویژوال بیسیک.
درخواست داده بودن .
شرمنده که یه کمی دیر شد.
لینک دانلود : دانلود فایل
حجم فایل : 452 کیلوبایت
طبقه بندی: ویژوال بیسیك، سورس رایگان، دانلود كتاب و جزوه رشته كامپیوتر،
برچسب ها: DataReport، دانلود، ویژوال بیسیک،
درباره مدیریت وب
