疑問学園　万が一　学部

2026年7月25日土曜日

ファイル仕分け

@echo off

setlocal EnableDelayedExpansion

set "SRC=\\192.168.0.100\UFX-Desktop\textEdit\screenshots"

pushd "%SRC%"

for %%F in (MARKET_*.png) do (

set "D=%%~nF"

set "D=!D:~7,8!"

if not exist "!D!" mkdir "!D!"

move "%%F" "!D!\"

)

popd

pause

2026年7月5日日曜日

cd /d "%~dp0"

管理者権限で .cmd を実行すると「ファイルが見つかりません」と表示される場合、原因の多くはカレントディレクトリが変わることです。

バッチの先頭に次を追加します。

cd /d "%~dp0"

%~dp0 は、実行中の .cmd ファイルがあるフォルダーを表します。

%~dp0 の分解

たとえば E:\Tool\Install.cmd を実行した場合：

変数結果

%0 E:\Tool\Install.cmd

%~d0 E: （ドライブ）

%~p0 \Tool\ （フォルダー）

%~n0 Install （名前）

%~x0 .cmd （拡張子）

%~dp0 E:\Tool\ （最もよく使う）

%~nx0 Install.cmd

%~f0 E:\Tool\Install.cmd

記述意味

%0 実行中のバッチファイル名

%~f0 バッチファイルのフルパス

%~d0 ドライブレターのみ

%~p0 フォルダー部分のみ

%~dp0 ドライブ＋フォルダー（最重要）

%~n0 ファイル名のみ（拡張子なし）

%~x0 拡張子のみ

%~nx0 ファイル名＋拡張子

%CD% 現在の作業フォルダー

%TEMP% 一時フォルダー

%USERNAME% ログオンユーザー名

%COMPUTERNAME% PC名

----------------------------------------------------------------------

@echo off

cd /d "%~dp0"

rem フォルダがなければ作成

if not exist "%COMPUTERNAME%" (

mkdir "%COMPUTERNAME%"

)

rem ドライバーをエクスポート

pnputil /export-driver * "%COMPUTERNAME%"

pause

rem ドライバーをインポート

pnputil /add-driver "%COMPUTERNAME%\*.inf" /subdirs /install

pause

2025年11月27日木曜日

教程,入門資料

TkinterでGUIを作ろう

https://cauldron.sakura.ne.jp/thinkpython/thinkpython/Tkinter.pdf

Python3入門 Kivy による GUI アプリケーション開発，サウンド入出力，ウェブスクレイピング

http://www.k-techlabo.org/www_python/python_main.pdf

Python教程

https://liaoxuefeng.com/books/python/introduction/index.html

極･楽 python 講座

https://www.isc.meiji.ac.jp/~ri03037/ICTappli2/step04.html

JavaScript入門

http://www.k-techlabo.org/www_js/javascript_main.pdf

2025年11月10日月曜日

sfc /scannow 「一部の破損ファイルは修復できなかった」とある場合

「一部の破損ファイルは修復できなかった」とある場合、次の手順で修復を進めることができます。順番にやると高確率で直ります。

DISM コマンドを実行

sfc では修復できないときは、Windows のコンポーネントストア自体が壊れていることが多いです。

次の手順で DISM（Deployment Image Servicing and Management）ツールを使って修復します。

管理者権限のコマンドプロンプトを開きます。

（スタート → 「cmd」を検索 → 「管理者として実行」）

次の3つを順番に実行してください：

DISM /Online /Cleanup-Image /CheckHealth

DISM /Online /Cleanup-Image /ScanHealth

DISM /Online /Cleanup-Image /RestoreHealth

終わったらもう一度以下を実行します：

sfc /scannow

→ 「破損ファイルは見つかりませんでした」と出ればOKです。

END

2025年6月18日水曜日

Windowsでコマンドラインからポート443をファイアウォールで開放する方法

netsh advfirewall firewall add rule name="Allow TCP 443" dir=in action=allow protocol=TCP localport=443

このコマンドは：

ルール名：Allow TCP 443

通信方向：受信 (in)

アクション：許可 (allow)

プロトコル：TCP

ポート：443

を許可します。

netsh で 443ポート開放ルールの確認方法

netsh advfirewall firewall show rule name=all | findstr "443"

2025年5月8日木曜日

DISM イメージ復元に関するコマンドの記録

Hyper-V Mount CMD

wpeutil InitializeNetwork

:netlink

net use n: \\172.23.176.1\Hyper-V inter2012 /USER:inter

if %errorlevel% gtr 1(

goto netlink

)

net time \\172.23.176.1 /set /y

diskpart /s n:\CreatePartitions-UEFI.txt

dism /Apply-Image /ImageFile:n:\Win11Hyper-v.wim /Index:1 /ApplyDir:W:

W:\Windows\System32\bcdboot W:\Windows /s S:

start ms-cxh:localonly

rem UUID（ユニバーサリー・ユニーク・アイデンティファイア）

wmic csproduct get UUID

rem SID（セキュリティ・アイデンティファイア）

whoami /user

2025年4月26日土曜日

ms-cxh:localonly コマンド

start ms-cxh:localonly

windows11 ローカルカウント作成してWindowsを利用する方法です．

2024年3月25日月曜日

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Debug.Print "Worksheet_SelectionChange(Byval Target As Range)"
Dim returnLine As Integer
Dim sline As Integer
Dim eline As Integer
Dim lastXup As Long
sline = 3
eline = 4
'日付の入力
If Cells(Target.Row, 3) <> "" Then
dbCheck Target
Else
'Cells(Target.Row, 7) = ""
End If
'カーソルの移動
If Target.Column > eline - 1 Then
Cells(Target.Row + 1, sline).Activate
End If
If ActiveCell.Value = "" Then
lastXup = Cells(Rows.Count, 3).End(xlUp).Row
Cells(lastXup + 1, sline).Activate
End If
End Sub

Excel VBA セル内容の読み上げ

Public Function spk(ByVal Target As Range)
On Error GoTo Myerror
If Not IsError(Target.Value) And TypeName(Target.Value) <> "Variant()" And Target.Value <> "" Then
Dim arr() As String
Dim i As Long
Dim leng As Long
leng = Len(Target.Value)
ReDim arr(leng - 1)
For i = 0 To leng - 1
arr(i) = Mid(Target.Value, i + 1, 1)
Next i
For Each x In arr
Select Case Asc(x)
Dim sv As String
Case 47 To 58
sv = "数字の "
Case 64 To 91
sv = "大文字の "
Case 96 To 123
sv = "小文字の "
End Select
Application.Speech.Speak sv & x, "True"
Next x
End If
Myerror:
Debug.Print "Myerror"
End Function

2023年5月18日木曜日

Thunderbolt 有効にするためにDiscrete_Thunderbolt(TM)_Support をEnabledにしてください

ASUS マザーボードの場合

Advanced→Thunderbolt(TM)Configuration → Discrete Thunderbolt(TM)Support

MSI マザーボードの場合

Settings→Advanced→Intel(R) Thunderbolt→ Discrete Thunderbolt(TM)Support

BIOSTAR マザーボードの場合

Advanced→Thunderbolt(TM)Configuration →Discrete_Thunderbolt(TM)_Support

Discrete Thunderbolt(TM)Support 項目を有効にしなくても
Thunderbolt コントロールセンターを繋がれたThunderboltデバイス
に表示されますが、接続の状態では未接続のままになる、機能はしません。

未接続

接続済み

承認の仕様は変更されたようです、Windows11では承認の必要ないデバイスが
そのままで承認されます、承認の画面が出ません。Windows10では全ての接続は
認証必要のようです。

END

2023年2月22日水曜日

Windows11オフラインインストール BypassNRO.cmd の中身

Windows11オフラインインストール BypassNRO.cmd の中身
BypassNRO.cmd はWindows11インストールメディアに付属したものです．

Windows11ネットワーク接続せずに、オフラインインストールができます、

簡単な手順

1．インストールの途中でネットワークを接続する画面まで、
Shift⁺F10 コマンドプロンプトを開く

2． ¥oobe¥BypassNRO.cmd を実行します

3． PCが再起動されます、起動後に
「インターネットに接続していません」 → 「制限された設定で続行」
順にクリックするとインストールが続きます

BypassNRO.cmd の中身はレジストリの追加にとなります．

**ネットワーク接続画面前に，reg add 手動でレジストリを追加する場合，
再起動しないで済む

END

2023年2月10日金曜日

Windows11インストール方法はChatGPTに聞いてみた

Windows 11はまだリリースされていません。最新のWindowsオペレーティングシステムはWindows 10です。Windows 10をインストールする方法を示します。

Windows11のリリースは2021年10月5日となりますが、この回答に見るとChatGPT
の情報は最新ではない、次に質問したときに10と11入れ替えだだけに見えます。

END

2023年1月19日木曜日

Above 4G Decoding を Disabled に設定する場合

下記も無効にしてください。

1. BIOSのAdvanced → Thunderbolt(TM) Configuration → Discrete Thunderbolt(TM) Support をDisabled

2. Resize Bar supportをDisabled

に設定後に Above 4G Decoding をDisabledに設定する．

END

2022年10月28日金曜日

ネットワーク切れたときに警告音

ネットワークがよく切れる、切れたときに警告音を発生するように

import ping3
import winsound

while True:
    val = ping3.ping('8.8.8.8')
    if val == None or val == False:
        print("warning")
        winsound.Beep(2000, 500)
        winsound.Beep(5000, 500)
    print(val)

コード変更

# pip install pygame

import socket
import pygame

HOST = 'www.google.com'
PORT = 80
BUFFER_SIZE = 1024

pygame.mixer.init()
alarm_sound = pygame.mixer.Sound('alarm.wav')

while True:
    try:
        s = socket.socket(socket.AF_INET, socket.SOCK_STREAM)
        s.connect((HOST, PORT))
        s.sendall(b'GET / HTTP/1.1\r\n\r\n')
        data = s.recv(BUFFER_SIZE)
        s.close()
        pygame.time.wait(5000)  # 
    except:
        alarm_sound.play()
        pygame.time.wait(5000)  # 