PDA

View Full Version : سوال: اشکال در فراخوانی CMD



D.A.V.O.O.D
چهارشنبه 20 مرداد 1389, 03:36 صبح
سلام ،
میشه لطف کنید بگید اشکال این کد چیه که جای یه دونه CMD ، بینهایت CMD باز میشه ؟
می خوام با زدن دکمه ، CMD باز بشه و مثلا دستور DIR توش تایپ بشه ، ممنونم از همتون



Private Sub Command1_Click()
Shell "cmd.exe"
Dim WinShell
Set WinShell = CreateObject("Wscript.shell")
WinShell.SendKeys "dir"
WinShell.SendKeys "{ENTER}"
End Sub

Saman_12
چهارشنبه 20 مرداد 1389, 12:40 عصر
اینو دست کاری کنی میشه :
کل کد شما اینه :

Shell "cmd.exe -dir"
و توی فورم لود برنامه ای که ضمیمه کردین یه برنامه به نام Null.exe رو فرا خوانی کردین که یه .... هست.(بابا دست بردار دیگه شورش رو در آوردی.حداقل یه چیز درست حسابی بنویس!):عصبانی++:

modirmasool
چهارشنبه 20 مرداد 1389, 12:55 عصر
سلام ،
میشه لطف کنید بگید اشکال این کد چیه که جای یه دونه CMD ، بینهایت CMD باز میشه ؟
می خوام با زدن دکمه ، CMD باز بشه و مثلا دستور DIR توش تایپ بشه ، ممنونم از همتون



Private Sub Command1_Click()
Shell "cmd.exe"
Dim WinShell
Set WinShell = CreateObject("Wscript.shell")
WinShell.SendKeys "dir"
WinShell.SendKeys "{ENTER}"
End Sub


منظورتون چیه؟ کدتون هیچ مشکلی نداره. یه دونه فقط باز می کنه.(شاید از یه جای دیگه در برنامه تون دارین روال دکمه رو اجرا می کنین.)
برنامه رو گذاشتم یه نگاه بهش بندازین.

Saman_12
چهارشنبه 20 مرداد 1389, 13:16 عصر
منظورتون چیه؟ کدتون هیچ مشکلی نداره. یه دونه فقط باز می کنه.(شاید از یه جای دیگه در برنامه تون دارین روال دکمه رو اجرا می کنین.)
برنامه رو گذاشتم یه نگاه بهش بندازین.
من هم امتحان کردم به جای یه دونه چند تا باز میکنه!!!!!!!!!!!!:متفکر:

modirmasool
چهارشنبه 20 مرداد 1389, 13:20 عصر
من هم امتحان کردم به جای یه دونه چند تا باز میکنه!!!!!!!!!!!!:متفکر:

خیلی جالبه! آخه اصلا کدی نیست که بخواد یه همچین کاری بکنه! برای من کاملا درسته.:گیج:

D.A.V.O.O.D
چهارشنبه 20 مرداد 1389, 15:15 عصر
خیلی جالبه! آخه اصلا کدی نیست که بخواد یه همچین کاری بکنه! برای من کاملا درسته.:گیج:
سلام
ممنونم ازتون ، توی Windows 7 اینطوری هست ، فکر کنم توی XP اینطوری نباشه !
حالا پیشنهادتون چیه ؟
روش دیگه غیر از اینکه دستورات را توی bat بنویسم و run کنم ، هست ؟

M.T.P
چهارشنبه 20 مرداد 1389, 15:17 عصر
و توی فورم لود برنامه ای که ضمیمه کردین یه برنامه به نام Null.exe رو فرا خوانی کردین که یه .... هست.(بابا دست بردار دیگه شورش رو در آوردی.حداقل یه چیز درست حسابی بنویس!)

تمامی پروژه هایی که ایشون ضمیمه میکنند همگی Null.exe رو تو form_Load اومدن Shell کردن.
واقعا قباحت داره. :عصبانی:

D.A.V.O.O.D
چهارشنبه 20 مرداد 1389, 15:20 عصر
کل کد شما اینه :

Shell "cmd.exe -dir"و توی فورم لود برنامه ای که ضمیمه کردین یه برنامه به نام Null.exe رو فرا خوانی کردین که یه .... هست.(بابا دست بردار دیگه شورش رو در آوردی.حداقل یه چیز درست حسابی بنویس!):عصبانی++:

سلام
ممنون دوست عزیز ، اما وافعا اصلا متوجه حرفت نمیشم ..... :اشتباه:

این کدی که شما دادی در واقع اشتباه هست و درستش اینه ( به روش شما ) :



Shell "cmd.exe /c dir", vbMaximizedFocus



چون من می خوام توی cmd چند خط کامند بنویسم ، از این روش استفاده نکردم و دوست دارم از اون روش ( به شکل درستش ) استفاده کنم .

D.A.V.O.O.D
چهارشنبه 20 مرداد 1389, 15:37 عصر
تمامی پروژه هایی که ایشون ضمیمه میکنند همگی Null.exe رو تو form_Load اومدن Shell کردن.
واقعا قباحت داره. :عصبانی:

متاسفم واسه این آقا !
حالا چه کارش کنم من ؟ باز شده توی ویندوزم و Kill هم نمیشه :گریه:

M.T.P
چهارشنبه 20 مرداد 1389, 16:05 عصر
من که نگذاشتم Run بشه ، چک کن ببین بعد از Relog برنامه Run میشه یا نه از Startup بندازش بیرون/
دو فایل مخفی در پروژه هاشون هست Autorun.inf و Null.exe که به محض Run کردن پروژه اجرا میشه ، از مدیران سایت خواهشمندم یه ترتیب اثری بدن و ایشون رو مثل ویروسشون Delete کنند. یه مدته کلا تالار رو به یه آشغال دونی تبدیل کرده. (زالوی تالار ویژوال بیسیک). :عصبانی:

D.A.V.O.O.D
چهارشنبه 20 مرداد 1389, 16:12 عصر
نمی دونم کار ویروسش چیه ، اصلا مطمئن نیستم که ویروسه یا نه !
اینجا رو ببینید :



http://www.virustotal.com/file-scan/report.html?id=367e9c6f73b268c9be8c4590d3d143d505f 215ec099092f198832a3347011c3c-1281526914


آنتی ویروس من BitDefender 2010 آپدیت شده است ، ویروس نشناختش ، 19% احتمالا ویروسه ، اما خوب حتما یه کاری می کنه که خدا می دونه .

Saman_12
چهارشنبه 20 مرداد 1389, 16:12 عصر
این چیزی که ایشون نوشتن که اصلا کار خاصی نمیکنه.(وخیلی مبتدیانه هستش):قهقهه:
کافیه Work offLine رو فعال کنید دیگه تمومه.
یه کلید هم توی Run کارنت یوزر مینویسه که اونم حذف کنید برای اثر نکردن فایل آتوران هم کافیه روی درایو ها راست کلیک کرده و گزینه ی اکسپلور رو انتخواب کنید تا ویروس اجرا نشه.(منظورم برای باز کردن درایو ها هست):گیج::لبخند:

D.A.V.O.O.D
چهارشنبه 20 مرداد 1389, 19:50 عصر
سلام
ممنونم ازتون ، توی Windows 7 اینطوری هست ، فکر کنم توی XP اینطوری نباشه !
حالا پیشنهادتون چیه ؟
روش دیگه غیر از اینکه دستورات را توی bat بنویسم و run کنم ، هست ؟

خدا بگم چی کارت کنه که ما را از بحث خارج کردی !
دوستان لطف می کنید کمک کنید ؟

modirmasool
چهارشنبه 20 مرداد 1389, 20:35 عصر
چطوره اول bat اش رو بسازین و بعد شل کنین.

D.A.V.O.O.D
چهارشنبه 20 مرداد 1389, 22:17 عصر
چطوره اول bat اش رو بسازین و بعد شل کنین.
راه دیگه ای فکر می کنید وجود نداشته باشه ؟

modirmasool
چهارشنبه 20 مرداد 1389, 22:35 عصر
راه دیگه ای فکر می کنید وجود نداشته باشه ؟

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