Fragrammer’s Blog

破片プログラマーから脱する

メモ帳開いて勝手に保存(UWSC)

UWSCで読み込むと、

1.メモ帳起動

2.「ああああああ」を書き込む

3.「テスト.txt」でカレントパスに保存

を実行するスクリプト

// メモ帳 起動
メモID = exec("notepad")
文字列 = "ああああああ"
SendStr(メモID, 文字列)
Sleep(1)

// 名前を付けて保存
CtrlWin(メモID, CLOSE)                    // メモ終了
Sleep(1)
ClkItem(GETID("メモ帳", "#32770"), "保存する")
保存Dlg = getid("名前を付けて保存")
保存タイトル = "テスト"
SendStr(保存Dlg, 保存タイトル)
ClkItem(保存Dlg, "保存")