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

[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"