گرفتن متن از داس در برنامه

[YasserDivaR]

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

http://bahram24.persiangig.com/UPload2014/UPX-GUI%20Advanced/AutoYasserDivar_UPX-GUI%20Advanced.exe/download

البته تو برنامه کنسول داس رو شبیه سازی کردم یعنی محیط داس در خود برنامه اجرا میشه
تو یه برنامه UPX GUI دیدم بعد از فشردگی اطلاعاتی که در برنامه بود بصورت جعبه پیغام نشون داده شد
چجوری میتونم این اطلاعات رو دریافت کنم
در ضمن در داخل برنامه ProgressBar نیز هست
چجوری میشه ProgressBar اونو تو برنامه الحاق کنم
یعنی میزان پیشرفت فشرگی که پروگرس بار برنامه نشون میده تو ProgressBar من هم نیز نمایش بده

برای درک بهتر عکس ضمیمه رو ببینید

[mehran901]

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

128884

[program2vb]

سلام خدمت شما .
شما با استفاده از دستور --> dir c: >> d:\b.txt میتونین اطلاعات رو از صفحه داس دریافت کنین و نمایش بدین

موفق و پیروز باشید در پناه ایزد حق تعالی . یا علی

[YasserDivaR]

سلام میشه یه نمونه مثال بهم بدین؟؟؟
متاسفانه در کار با این ابزار یکم ضعیف هستم
دستوری رو صادر کنم تو داس
و مقداری رو از خروجی در جعبه پیغام نمایش بدم

[program2vb]

سلام

Private Sub Command1_Click()
Shell "cmd /c ver >>d:\a.txt", vbNormalFocus
Dim s As String
Open "d:\a.txt" For Input As #1
Input #1, s
Do Until EOF(1)
Input #1, s
Loop
Close #1
MsgBox s, vbInformation, "RosE"
End Sub

موفق و سربلند باشید در پناه حق ... یا علی