ذخیره پاسخ های shell cmd در یک متغیر و نمایش در تکست باکس

[rayka95]

با سلام
بنده میخواستم روی فرم یک تکست باکس ایجاد کنم که با وارد کردن دستورات CMD در اون پاسخ دستور را درون تکست باکس دیگری روی فرم نمایش دهد .
متاسفانه تاپیک های زیادی وجود داشت که جواب نگرفته بودند:گریه:

[محسن واژدی]

سلام علیکم
برنامه زیر مقدار برگشتی cmd را چاپ میکند:

Private Sub Command1_Click()

Dim myobj As Object, i As Integer

On Error GoTo errh

Set myobj = CreateObject("wscript.shell")
Set myobj = myobj.exec("cmd /c assoc .exe")

Me.AutoRedraw = True
Me.Cls
Do

With myobj
With .StdOut

If Not .AtEndOfStream Then

Me.Print .ReadAll()

End If

End With

End With

DoEvents
Loop While myobj.Status = "WshRunning"

Set myobj = Nothing
Me.SetFocus
Exit Sub
errh:
Me.Print "Error: " & Err.Description

End Sub
نمونه بالا فرمت تعریف شده رامعرفی میکند
بجای "cmd /c assoc .exe" پارامتر مورد نظر را جایگزین کنید

موفق باشید

[rayka95]

متاسفانه مثل بقیه تاپیک ها . درست توضیح داده نشده

[محسن واژدی]

متاسفانه مثل بقیه تاپیک ها . درست توضیح داده نشده
برنامه مشکلی ندارد و مقدار را برگشتی را کاملا" نمایش میدهد

[returnx]

متاسفانه مثل بقیه تاپیک ها . درست توضیح داده نشده

دسته گلتون درد نکنه!!
جناب mohsenvj (http://barnamenevis.org/member.php?104729-mohsenvj) بی کار نیستند که واستون خط به خط توضیح بدن...
خیلی ها حتی همین جواب رو هم نمیدن و فقط منتظرن که تاپیکی که خودشون ایجاد کردند به جواب برسه و حاضر نیستند به بقیه حتی یک کمک کوچیکی کنند...
خشبختانه جناب mohsenvj (http://barnamenevis.org/member.php?104729-mohsenvj) تو این تالار بخش عظمی از جواب ها رو میده دیگه بقیش با خودتون هست...
موفق باشید.../

[rayka95]

بنده فیلمی از یک نرم افزار وی بی اماده کردم . حجمش خیلی کمه . ولی منظور منو کامل میرسونه . شما منظور بنده رو کامل متوجه نشدید
این فیلم رو ببینید متوجه میشید .
با تشکر
ضمیمه شد

[rayka95]

ms2222 (http://barnamenevis.org/member.php?141489-ms2222)
جان
شرمنده قصد جسارت نداشتم . ولی خب یک توضیح کوچیک بد نبود . به هر حال بنده عذر خواهی میکنند . واقعا شرمنده
حلال کنید

[محسن واژدی]

سورس زیر طبق تصویری که مشاهده میکنید، تغییرات آنی محیط کنسول را نمایش میدهد
فقط ببخشید دیگر زحمت مطالعه کدها با خودتون

برای شروع ابتدا بر روی دکمه شماره 1 کلیک کنید تا cmd اجرا شود، سپس بعد از نوشتن دستور مورد نظر در جعبه دوم بر روی دکمه شماره 2 جهت شروع عملیات کلیک کنید

موفق باشید

[rayka95]

سورس زیر طبق تصویری که مشاهده میکنید، تغییرات آنی محیط کنسول را نمایش میدهد
فقط ببخشید دیگر زحمت مطالعه کدها با خودتون

برای شروع ابتدا بر روی دکمه شماره 1 کلیک کنید تا cmd اجرا شود، سپس بعد از نوشتن دستور مورد نظر در جعبه دوم بر روی دکمه شماره 2 جعبه شروع عملیات کلیک کنید

موفق باشید

اقا محسن . دست گل شما درد نکنه .
سعی میکنم همیشه توی فروم باشم و کمک شما جواب عزیزان رو بدم . ممنون
باز هم بابت طرز حرف زدنم ببخشید . حلال کن

[محسن واژدی]

باز هم بابت طرز حرف زدنم ببخشید . حلال کن

اختیار دارید
خوشحال میشویم بتوانیم مشکلی از مشکلتات هموطنان عزیز را حل کنیم

موفق باشید

[returnx]

ms2222 (http://barnamenevis.org/member.php?141489-ms2222)
جان
شرمنده قصد جسارت نداشتم . ولی خب یک توضیح کوچیک بد نبود . به هر حال بنده عذر خواهی میکنند . واقعا شرمنده
حلال کنید
ما هم قصد جسارت نداشتیم ، منظور من این بود اگه میخوایم پیشرفت کنیم هم باید خودمون تلاش کنیم هم با دیگران همکاری کنیم...
شاید جناب mohsenvj (http://barnamenevis.org/member.php?104729-mohsenvj) جواب همه ی سوالات شما رو بدونن (حتی تاپیک های دیگه) اما اگه انتظار داشته باشیم که بیان به همه ی تاپیک ها جواب بدن و توضیح خط به خط رو بنویسن یکم بی انصافیه...
اگه میخوایم پیشرفتی داشته باشیم همه باید به هم کمک کنیم نه یک عده جواب بدن بقیه استفاده کنند...
به هر حال منم از شما عذر میخوام...