View Full Version : سوال: در جستجوی دستور Ping در برنامه تحت شبکه VB
odiseh
سه شنبه 28 خرداد 1387, 15:45 عصر
سلام
اگه بخواهیم با VB به یه کامپیوتر Ping کنیم، دستوری توی VB6.0 وجود داره؟
.:KeihanCPU:.
سه شنبه 28 خرداد 1387, 18:17 عصر
از Cmd استفاده کن
دستوراتتو به Cmd ارسال کن و بعد نتایج به برنامه ارسال بشه.
حال واسه چی میخوای؟
odiseh
چهارشنبه 29 خرداد 1387, 09:23 صبح
از Cmd استفاده کن
دستوراتتو به Cmd ارسال کن و بعد نتایج به برنامه ارسال بشه.
حال واسه چی میخوای؟
میشه یه مثال بزنی تشکر
.:KeihanCPU:.
پنج شنبه 30 خرداد 1387, 00:43 صبح
ابتدا 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}"
vBulletin® v4.2.5, Copyright ©2000-1403, Jelsoft Enterprises Ltd.