pa-0

function Update-dotNETVideo
{
    [CmdletBinding()]
    param (
        # A path to subtitle file of folder where the subtitles are located.
        [Parameter(Mandatory = $true,
            ValueFromPipeline = $true,
            ValueFromPipelineByPropertyName = $true,
            ValueFromRemainingArguments = $false,
            Position = 0,

pa-0

#from http://lostechies.com/erichexter/2012/11/02/download-all-the-build-videos-while-you-sleep/

[Environment]::CurrentDirectory=(Get-Location -PSProvider FileSystem).ProviderPath 
$rss = (new-object net.webclient)
#Set the username for windows auth proxy
$rss.proxy.credentials=[system.net.credentialcache]::defaultnetworkcredentials
$a = ([xml]$rss.downloadstring("http://channel9.msdn.com/Events/Build/2012/RSS/wmvhigh")) 
$a.rss.channel.item | foreach{  
    $url = New-Object System.Uri($_.enclosure.url) 
    $file = $url.Segments[-1] 

pa-0

$sourcePath = 'HKLM:\software\Microsoft\Speech_OneCore\Voices\Tokens' #Where the OneCore voices live
$destinationPath = 'HKLM:\SOFTWARE\Microsoft\Speech\Voices\Tokens' #For 64-bit apps
$destinationPath2 = 'HKLM:\SOFTWARE\WOW6432Node\Microsoft\SPEECH\Voices\Tokens' #For 32-bit apps
cd $destinationPath
<#cleanup
$listOldVoices = Get-ChildItem $destinationPath
foreach($voice in $listOldVoices) {
    if ($voice.PSChildName.StartsWith("TTS_") -or $voice.PSChildName.StartsWith("IVONA 2")) {
        $path = $voice.PSPath
        Remove-Item -Path $path -Recurse

pa-0

#!/bin/sh

# Convert ANSI (terminal) colours and attributes to HTML

# Licence: LGPLv2
# Author:
#    http://www.pixelbeat.org/docs/terminal_colours/
# Examples:
#    ls -l --color=always | ansi2html.sh > ls.html
#    git show --color | ansi2html.sh > last_change.html

pa-0

#requires -version 5.1
Function Test-IsWindowsTerminal {
    [cmdletbinding()]
    [Outputtype([Boolean])]

    Param()

    Write-Verbose "Testing processid $pid"

pa-0

#Requires AutoHotkey v2.0

OnMessage(   0xF, PaintTitle)
OnMessage(  0x14, EraseBkgnd)
OnMessage(  0x83, NcCalcSize)
OnMessage(  0x84, NcHitTest)
OnMessage(  0xA4, NcRButtonDown)
OnMessage( 0x2A2, NcMouseLeave)

pa-0

Sub EditComment()
  If ActiveDocument.Comments.Count = 0 Then Exit Sub
  For i = 1 To ActiveDocument.Comments.Count
    If (Selection.Start >= ActiveDocument.Comments(i).Scope.Start) And _
       (Selection.Start <= ActiveDocument.Comments(i).Scope.End) Then
        ActiveDocument.Comments(i).Author = InputBox(ActiveDocument.Comments(i).Author _
     & vbCrLf & vbCrLf & ActiveDocument.Comments(i).Range.Text, "Author", ActiveDocument.Comments(i).Author)
   End If
  Next
End Sub

pa-0

Option Explicit

Private fileName As String

Public Sub ExportProperties()
    On Error GoTo ErrorHandler
    
    Let fileName = InputBox("Export properties to ...", "Export", fileName)
    
    Open fileName For Output As #1

pa-0

@ECHO OFF
rem Работаем с Rar5, если это не нужно удалить ключи -ma 

ECHO ┌─────────────────────────────────────────────────┐
ECHO │      Бекап шаблонов Word/Excel/Outlook          │
ECHO └─────────────────────────────────────────────────┘

"C:\Program Files\WinRAR\rar.exe" a -ma -pbak -ed -ep -dh -m5 -s -idcd -agYYYY-MM-DD -r "F:\Backups\VBA.bak\" "%userprofile%\AppData\Roaming\Microsoft\Шаблоны\Normal.dotm" "%userprofile%\AppData\Roaming\Microsoft\Excel\XLSTART\PERSONAL.XLSB"

ECHO.

pa-0

Sub Macro1()
  ' 挿入/変更/削除以外の変更履歴を一括承諾する
  ' https://docs.microsoft.com/ja-jp/office/vba/api/word.wdrevisiontype
  For Each myRev In ActiveDocument.Revisions
    myType = myRev.Type
    Select Case myType
      Case _
           wdRevisionDisplayField, _
           wdRevisionParagraphNumber, _
           wdRevisionParagraphProperty, _