راهنمایی برای اجرای دستورات پشت سر هم

[Rain_Saeid]

راهنمایی برای اجرای دستورات پشت سر هم

با سلام و درود
دوستان و اساتید گرامی لطفا راهنمایی بفرمایید
میخوام چند تا از دستورات adb (دستورات اندروید) داخل وی بی ایجاد کنم که پشت سر هم اجرا بشن..

adb push c:\flash_image /sdcard/
adb push c:\recovery.img /sdcard/
adb Shell
su
mount -o remount, rw /system
cp /sdcard/flash_image /system/bin
cd /system/bin
chmod 777 flash_image
flash_image recovery / sdcard / recovery.img


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

حالا شما اگه راه حل مناسب و بهتری دارید که بشه دستورات داس رو پشت سر هم و یکی بعد از دیگری اجرا بشه، بنده رو راهنمایی بفرمایید ، حالا با بچ فایل یا بدون بچ فایل

ممنون میشم اگر راهنمایی بفرمایید
البته برای این کار این فایل رو نیاز دارید تا تست کنید ، و همچنین گوشی با سیستم عامل اندروید به کامپیوتر وصل باشه :
http://s4.picofile.com/file/7757515799/ADB_Recovery.rar.html

[setroyd]

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

[m.4.r.m]

تو گوگل یه سرچ بزن پیدا می کنی

[Rain_Saeid]

با عرض پوزش اگه در جای مناسبی سوالم رو نپرسیدم
از اساتید و مدیران خوب انجمن خواهشمندم این پست بنده رو به قسمت مربوط به خودش انتقال بدن، باتشکر

حال عزیزان راه حل مناسبی برای کار بنده نداره؟ ممنون میشم

[Rain_Saeid]

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

[m.4.r.m]

Dim strCommand As String
Dim retPointer As Long

'
'if winNt
retPointer = Shell("cmd.exe", vbMaximizedFocus)

'if win98/95/me, the following:
'retPointer = Shell("command.exe", vbMaximizedFocus)
'
'launch a command:
'activate the dos window
AppActivate retPointer
'put the command in string variable -start with a space!-
strCommand = " mkdir abcde"
'write it to the dos window:
SendKeys strCommand, True
'you've just typed something. Need to press enter?
SendKeys "{ENTER}", True

'close dos windows:
SendKeys "Exit", True
SendKeys "{ENTER}", True

[meys34]

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

Text1 حاوی متنی هست که باید اجرا شه

Shell "cmd /K " & Replace(Text1, vbCrLf, " & "), vbNormalFocus

[Rain_Saeid]

Dim strCommand As String
Dim retPointer As Long

'
'if winNt
retPointer = Shell("cmd.exe", vbMaximizedFocus)

'if win98/95/me, the following:
'retPointer = Shell("command.exe", vbMaximizedFocus)
'
'launch a command:
'activate the dos window
AppActivate retPointer
'put the command in string variable -start with a space!-
strCommand = " mkdir abcde"
'write it to the dos window:
SendKeys strCommand, True
'you've just typed something. Need to press enter?
SendKeys "{ENTER}", True

'close dos windows:
SendKeys "Exit", True
SendKeys "{ENTER}", True

با تشکر ازشما دوست عزیز
ولی از خط 13 ارور میگیره

[m.4.r.m]

اون خط رو حذف کن مشکلت حل میشه