1.1 導入編( GUIパワーシェルでWinコマンドを使う。GUI-PSH処理の基本原理)

@echo off &rem if not "%~0"=="%~dp0.\%~nx0" (start /min cmd /c,"%~dp0.\%~nx0" %* &exit) &rem ★DOS窓mini化
powershell -ExecutionPolicy RemoteSigned "$fln=(echo %0); $aa=(Cat $fln -Raw); $fdt=$aa.substring($aa.indexof('##'+'STT:')); Iex($fdt+'##>');"
exit; pause&exit;
##
##Ver1.061 by ryu 2024/1221 #####################################
##STT:  ★batファイルでGUI-PSH基本窓を起動(窓メニュ編)
##
using namespace System.Windows.Forms; Add-Type -AssemblyName System.Windows.Forms,System.Drawing; ##★GUI
function dbg($cc){ [MessageBox]::Show($cc) }; function dbc($zcc){ Write-Host $zcc; }; function dbt($cc){ $mMain.Text="[V1.061]"+$cc;} ##★DBG
function MsgYesNo($cc0,$cc1,$cc2){ $cc2="YesNo"; return [MessageBox]::Show($cc1,$cc0,$cc2); };##★YesNo
function ssView($bb){ $tBox.Text=$bb.substring( $bb.indexof("`n<"+"##" )); $tBox.SelectionStart=0; dbt($fln); }; ##★表示
##★メイン窓／編集窓の生成   ##★窓寸法(WW,HH)  ##★文字種類/寸法  ##★背景色
$mMain =New-Object Form -Pro @{ Size="920,620"; }; $szFont="BIZ UDゴシック"; $tBox =New-Object TextBox -Pro @{ Font="$szFont,13"; BackColor="#F0F0C0";
     Dock="Fill"; Multiline=$True; AcceptsReturn=$True; ScrollBars=[ScrollBars]::Vertical;  }; $mMain.Controls.Add($tBox);
$mMain.MainMenuStrip =$dListMenu =New-Object MenuStrip -Pro @{ Font="$szFont,12"; }; $mMain.Controls.Add($dListMenu);
function ssDMnMenu($zcc){ $zmm=New-Object ToolStripMenuItem; $zmm.Text=$zcc; $dListMenu.Items.AddRange($zmm); $global:szMnBas=$zmm; return $zmm;}
function ssDMnMSet($zcc){ $zmm=New-Object ToolStripMenuItem; $zmm.Text=$zcc; $szMnBas.DropDownItems.AddRange($zmm); $global:szMnBas2=$zmm; return $zmm;}
(ssDMnMenu "[反映]").add_Click({ dbg "[反映保存]`n`n$fln`n[bak]`n$fln.bak"; $zcc=Cat $fln -Raw; SC ($fln+".bak") $zcc -Force;
    SC $fln ($zcc.substring(0,$zcc.indexof("`n<#"+"#V"))+$tBox.Text) -Force; }); (ssDMnMenu "[編集]").add_Click({ notepad $fln });
(ssDMnMenu "[bak]").add_Click({ notepad ($fln+".bak") }); (ssDMnMenu "[Help]").add_Click({ Start "https://ryupapa008.blogspot.com/2024/08/guiwin.html#_List1.1.5" });
##★マウス[WC]操作 ##★DOS処理 ##★explorer処理 ⇒ ★psh追加⇒★画面設定⇒MainDLG表示 ##★Tool窓起動
$tBox.Add_DoubleClick({ $ln=((($tBox.Text).substring(0,$tBox.SelectionStart)).split("`n")).count-1; $zcc=($tBox.Lines[$ln]-split"##")[0];
    if( $zcc.startsWith("> ") ){ $zcc=$zcc.substring(1); if($zcc.contains(" cd ") ){ Iex($zcc) }; Start Cmd -Arg "/k $zcc"; return; }; 
    if( $zcc.startsWith(">> ")){ $zcc=$zcc.substring(2);
        if($zcc.contains("explorer ")){;}else{ $zcc=($zcc.replace(" shell:","explorer shell:")).replace(" ms-","explorer ms-"); };
        Start -NoN Cmd -Arg "/c $zcc"; };
}); $fladd=$fln.replace(".bat","_add.ps1"); if( Test-Path $fladd ){ . $fladd; }; ssView($fdt); $mMain.ShowDialog();


<##Ver1.01--by ryu------------------------------------------------------
##  Windows Cmd 利用(行をダブルクリック起動)

>  Dir c:\                       ##[Dos] Dir起動 ・・・・[>]Dos窓利用
>  Ver & Date /t                 ##[Dos] Verとdateの起動
>  cd  c:\tmp                    ##[Dos] フォルダ移動([>]のみ)
>  Dir                           ##[Dos] 上記フォルダでDir起動

>> notepad                       ##[Exe] メモ帳起動・・・[>>]Dos窓無し
>> calc                          ##[Exe] 電卓
>> desk.cpl \,3                  ##[Dlg] デスプレイのDlg設定
>> ms-settings:                  ##[Dlg] 設定のDlg窓
>> control                       ##[Lst] コントロールパネル
>> hdwwiz.cpl                    ##[Lst] デバイスマネージャ
>> rundll32 shell32,#61          ##[Dlg] ファイル名を指定実行のBOX

>> ms-clock:                     ##[Dlg] アラーム＆クロック
>> shell:AppsFolder              ##[Dir] アプリ一覧フォルダ⇒[WC]起動
>> shell:Downloads               ##[Dir] ダウンロードのフォルダ