HTAでWScriptの標準入出力Stdin/Stdoutを使う方法はありますか?
という疑問でwebを漁ってたら、以下のコードを見つけたのですが、
これは何をしているか判りますか
http://www.roy.hi-ho.ne.jp/mutaguchi/bbs/list127.shtml
の
>Set oExec=wShell.Exec("MSHTA〜
>oExec.StdIn.Write fso.OpenTextFile(Left(WScript.ScriptFullName,InStrRev(WScript.ScriptFullName,"."))&"HTA").ReadAll
>oExec.StdIn.Close
の辺り。〜は専ブラだとバグる
探検
【VBScript】WSHについて話し合うスレ【JScript】
175デフォルトの名無しさん
2025/08/07(木) 11:13:25.81ID:dOHm8u8G176デフォルトの名無しさん
2025/08/07(木) 16:01:49.20ID:Pp4oXF33 意味がよくわからない
「WScript」がcscript.exeではなくwscript.exeのことなら元から標準入出力しても何も起きないけど多分そういう話ではないよね
そのソースコードは、mshta.exeを子プロセスとして起動してテキストファイルから読み込んだ内容をその子プロセスの標準入力に流してる
mshta.exeの側では標準入力から読み取った内容を実行してる
「WScript」がcscript.exeではなくwscript.exeのことなら元から標準入出力しても何も起きないけど多分そういう話ではないよね
そのソースコードは、mshta.exeを子プロセスとして起動してテキストファイルから読み込んだ内容をその子プロセスの標準入力に流してる
mshta.exeの側では標準入力から読み取った内容を実行してる
177デフォルトの名無しさん
2025/08/07(木) 16:53:21.35ID:dOHm8u8G 元々HTAとpowershell間のプロセス間通信を考えてました
WSH(WScript)とpowershellでの通信はできていたので、
ならばHTAからWScript.Stdin/Stdout相当をどうにかして得られないかという疑問に代わりました
さてGetStandardStream(0)でStdinを得るまでは何となく判りますが
そのハンドルでReadAll()これの意味が判らない
結果的にoExecにはWScript相当?が入るようですが
WSH(WScript)とpowershellでの通信はできていたので、
ならばHTAからWScript.Stdin/Stdout相当をどうにかして得られないかという疑問に代わりました
さてGetStandardStream(0)でStdinを得るまでは何となく判りますが
そのハンドルでReadAll()これの意味が判らない
結果的にoExecにはWScript相当?が入るようですが
178デフォルトの名無しさん
2025/08/07(木) 17:25:58.39ID:Pp4oXF33 あー了解
で、oExecに入るのはwShell.Exec()の結果で、起動したmshta.exeのプロセスをラップしたWshScriptExecオブジェクト
oExec.StdIn.Writeでmshta.exeの標準入力に内容を書き込んでる、これがWSH側でやってること
MSのサイトですらリンク切れしまくってたけどitmediaに解説が残ってた ttps://atmarkit.itmedia.co.jp/ait/articles/0407/08/news101_2.html
で、oExecに入るのはwShell.Exec()の結果で、起動したmshta.exeのプロセスをラップしたWshScriptExecオブジェクト
oExec.StdIn.Writeでmshta.exeの標準入力に内容を書き込んでる、これがWSH側でやってること
MSのサイトですらリンク切れしまくってたけどitmediaに解説が残ってた ttps://atmarkit.itmedia.co.jp/ait/articles/0407/08/news101_2.html
179デフォルトの名無しさん
2025/08/07(木) 17:28:32.02ID:Pp4oXF33 GetStandardStream(0).ReadAll() を実行しているのは起動されたHTAの側で、標準入力から読み込んだ内容を実行してる
リンク先サンプルだとその内容はH.HTAで、その後は裏で起動させたIEを通じてやり取りをする…という実験っぽい
というわけでHTAで標準入出力を使うには new ActiveXObject('Scripting.FileSystemObject').GetStandardStream() だけでいいと思う
手元で確認したわけではないので違ってたらごめん
リンク先サンプルだとその内容はH.HTAで、その後は裏で起動させたIEを通じてやり取りをする…という実験っぽい
というわけでHTAで標準入出力を使うには new ActiveXObject('Scripting.FileSystemObject').GetStandardStream() だけでいいと思う
手元で確認したわけではないので違ってたらごめん
180デフォルトの名無しさん
2025/08/07(木) 20:06:59.39ID:dOHm8u8G181デフォルトの名無しさん
2025/08/07(木) 21:37:56.02ID:FIb4oE/e Exec メソッド
https://learn.microsoft.com/ja-jp/previous-versions/windows/scripting/cc364356(v=msdn.10)
GetStandardStream Method
https://learn.microsoft.com/en-us/previous-versions/windows/internet-explorer/ie-developer/windows-scripting/y6hbz9es(v=vs.84)
https://learn.microsoft.com/ja-jp/previous-versions/windows/scripting/cc364356(v=msdn.10)
GetStandardStream Method
https://learn.microsoft.com/en-us/previous-versions/windows/internet-explorer/ie-developer/windows-scripting/y6hbz9es(v=vs.84)
レスを投稿する
ニュース
- 社説:国旗損壊罪の創設案 息苦しい社会にするのか | 毎日新聞 [少考さん★]
- 陰るスナックの灯、25年後に6割減も 私たちはどこに集うのか - 日経 [少考さん★]
- 【中国軍戦闘機レーダー照射】高市総理「極めて残念」中国側に強く抗議 ★2 [ぐれ★]
- ワンメーターのタクシー乗車で運転手からまさかの対応「1万円でタクシー乗っちゃダメ」に「これって私が悪い?」グラドルに同情の声 ★2 [muffin★]
- 三浦マイルド、山上被告に言及「この犯人に同情してる人 よく考えてください」北村晴男氏「まともな人間は自身の努力で人生を切り開く」 [muffin★]
- 首相の台湾答弁撤回を要求 アジア平和目指す学会が声明 (国際アジア共同体学会) [少考さん★]
- 【DAZN】フォーミュラGP【F1 2 3 SF P】Lap1823
- 【DAZN】フォーミュラGP【F1 2 3 SF P】Lap1822
- 中京競馬5回2日目チャンピオンズカップ
- 競輪実況★1622
- ジェフユナイテッド千葉実況 vs 大宮★2
- 巨専
- 【実況】博衣こよりのえちえちにじホロエアライダー🧪
- 【実況】博衣こよりのえちえちにじホロエアライダー🧪★2
- 流行語大賞選考委員「高市早苗の「働いて×5」を選ばなかったら、逆にそれは偏向」 [377482965]
- おさかなさんあつまれえ
- ホモ「(射精)とまんないよぉ」ワイ「すっご(シコシコシコシコ」
- 石破「賃上げします。残業禁止します。減税します。備蓄米売ります。中国と程よく付き合います。戦争反対」なんで降ろしたの? [261472595]
