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

[clicksoft]

سلام.

ممنون دوست عزیز.

کدی که استفاده میکنم:

Shell "cmd.exe"
Dim WinShell
Set WinShell = CreateObject("Wscript.shell")

WinShell.SendKeys "attrib +s +h c:\Autorun.inf"

WinShell.SendKeys "{ENTER}"

تو خط چهارم هر دستوری میزارم بعد باز شدن cmd به درستی نمایش داده میشه. ولی این دستور بدون علامت + تایپ میشه تو cmd.

[clicksoft]

چقدر طول میکشه آدم اینجا به جوابش برسه.

ایران ویچ باید بیشتر از اینا فعال باشه

[dreamvbfox]

ایران ویچ باید بیشتر از اینا فعال باشه

نه بابا
با اين حال و اوضاع فعلي همين پستي هم كه من واست زدم بسه !

[clicksoft]

نه بابا
با اين حال و اوضاع فعلي همين پستي هم كه من واست زدم بسه !
[/quote]

شما که لطف داری. اگه میدونی ، جواب مارو بدی بیشتر لطف کردی.

این یه تیکه خط چند روز وقت مارو گرفته. فک کنم تا چند روز دیگه از دست این ویژوال سر به بیابون بزارم.

[HoseinVig]

سلام.

ممنون دوست عزیز.

کدی که استفاده میکنم:

Shell "cmd.exe"
Dim WinShell
Set WinShell = CreateObject("Wscript.shell")

WinShell.SendKeys "attrib +s +h c:\Autorun.inf"

WinShell.SendKeys "{ENTER}"

تو خط چهارم هر دستوری میزارم بعد باز شدن cmd به درستی نمایش داده میشه. ولی این دستور بدون علامت + تایپ میشه تو cmd.

سلام
فکردم این تاپیک به نتیجه رسیده....
حالا چرا از طریق cmd باشه؟ اینجوری برنامت وابسته به cmd میشه...ولی در هر صورت از این کد استفاده کن:
مستقیم از attrib در shell استفاده کن ، اینجوری هم از طریق داس اجرا میشه

کد:

shell "attrib +s +h c:\Autorun.inf"