'====== VBS ======
' Очистить корзину
'===== Flasher © =
Option Explicit: Dim WSS, Par, Str, W, i, L, Title, A
Set WSS = CreateObject("WScript.Shell")
On Error Resume Next
Par = WSS.RegRead("HKLM\SOFTWARE\Microsoft\PowerShell\3\PowerShellEngine\PowerShellVersion")
If Err.Number = 0 Then If Par >= "5" Then _
WSS.Run "powershell.exe -nologo -noninteractive -command Clear-RecycleBin -Force", 0 : WSH.Quit
On Error GoTo 0
Par = 1050 : Str = 8
With GetObject("new:{C08AFD90-F2A1-11D1-8455-00A0C91F3880}")
With .document.Application.NameSpace(10)
If .Items.Count = 1 Then Par = 1055 : Str = 13
.Self.InvokeVerb "Empty"
End With : .Quit
End With
With CreateObject("CDO.Message").AddAttachment("res://shell32.dll/6/" & Par).GetDecodedContentStream
.Type = 1
For i = 0 To Str
L = AscB(.Read(2)) * 2 : If L > 0 Then Title = CStr(.Read(L))
Next
End With
With WSS
Do : A = .AppActivate(Title) : Loop Until A
.SendKeys "~"
End With : Set WSS = Nothing |