HTAをもっと流行らせる計画 Part2

HTAをもっと流行らせ� ..

259:デフォルトの名無しさん
09/09/15 15:49:55
FileSystemObjectのMoveFileで、ファイルの作成日時が書き換わることがあるんだが
再現性が無くて困っています。詳細知っているかた教えて下さい。

こんな関数を使って、ファイルをどんどん移動させると、2/3くらいの確立でファイル作成日時が変っていることがあった

function MoveFile(from,to){
fso = new ActiveXObject('Scripting.FileSystemObject');
var moto,ato,kekka;
moto = new Date(fso.GetFile(from).DateCreated).getTime();
fso.MoveFile(from,to);
ato = new Date(fso.GetFile(to).DateCreated).getTime();
kekka="";
kekka+="\""+from+"\"を\n\""+to+"\"にリネームしました。\n";
if(moto==ato){kekka+="タイムスタンプは変更ありません。";
}else{kekka+="タイムスタンプが\n"+moto+"\n↓\n"+ato+"\nに書き換わっています！な、なんで…";
}
alert(kekka)
}

260:デフォルトの名無しさん
09/09/15 16:55:19
同じドライブ　→変わらない
異なるドライブ→変わる

261:デフォルトの名無しさん
09/09/15 22:18:03
解決した。

えと、ドライブは同じ、フォルダも同じで名前だけ変えてもタイムスタンプは変っちゃった。
んでそのファイル名のパターンに問題があったらしくて
"ほげ.txt"→"temp_0.txt"
"temp_0.txt"→"ほげ.txt"
"かげ.txt"→"temp_0.txt"
"temp_0.txt"→"かげ.txt"
"まげ.txt"→"temp_0.txt"
"temp_0.txt"→"まげ.txt"
みたいにリネームしてた。んで、"temp_0.txt"にリネームする時に
前回のファイルのタイムスタンプが何故か反映されちゃったみたい。数字をランダムに変えたら大丈夫になった。

という訳でした。

262:デフォルトの名無しさん
09/09/16 00:52:00
つまらん

263:デフォルトの名無しさん
09/09/19 04:07:29
ウィンドウのタイトルを変更するには、どうしたらいいの？

264:デフォルトの名無しさん
09/09/19 09:30:01
document.titleだけどマジで言ってんの？

265:デフォルトの名無しさん
09/09/19 12:54:27
ありがとう。
window.titleでも受け付けてくれれば良いのに。

266:デフォルトの名無しさん
09/09/19 16:17:03
なんで？

267:デフォルトの名無しさん
09/09/20 12:04:03
>>261 死ねクズ

268:デフォルトの名無しさん
09/09/20 13:49:34
なんで？

269:デフォルトの名無しさん
09/09/20 18:44:46
ステータスバーを表示するには、どうしたらいいの？

270:デフォルトの名無しさん
09/09/20 21:23:05
>>269
COM呼び出し：
<object id="statusBar" width="100%" height="20" classid="CLSID:8E3867A3-8586-11D1-B16A-00C0F0283628"></object>　みたいな。
// 環境依存だっけ？　未確認。

＠秘密工場さんとこのCOMコンポーネント：
Tray Control　とか。
URLﾘﾝｸ(hyons.hp.infoseek.co.jp)

擬似ステータスバー：
table要素とかをステータスバーに見立てて styleで position:absolute で、とか。

271:デフォルトの名無しさん
09/09/20 22:28:41
>>270
おおおおおこれは凄いtopmostやホットキーが出来るのか！！！！

しばらくはHTAでいいや

272:270
09/09/21 00:47:27
>>270
擬似ステータスバーどっかで見たよな～ … って探してみた

WSH Lab. 掲示板記事検索プログラム (WshLab.hta)
参考になるかも

273:デフォルトの名無しさん
09/09/21 15:33:05
なんでhtaにステータスバーを最初から入れなかったのかな？

274:デフォルトの名無しさん
09/09/23 22:14:53
その前にメニューバーだろ。Windows的に。

275:デフォルトの名無しさん
09/09/23 23:29:30
＞メニューバー
付いて無いものはしょうがないしねぇ。

代替手段としては

MS Officeが入ってるなら
簡単なツールバーを HTA に追加する
URLﾘﾝｸ(www.microsoft.com)
とか

HTC使うとか
PSDKの Samplesディレクトリにある \Web\behaviors\library\coolbar　みたいな
// 余談だけどPSDKの \Samples\Web\behaviors\library\ には他にもHTCのサンプル（menuとか）色々あるね

あ、あと前スレでXML使ったライブラリとか紹介されてたっけ。

あとは
YUIやJQueryなんか使う方法とか、か。

276:デフォルトの名無しさん
09/09/24 12:04:31
>>275
メニューバーの代替で "coolbar"とか "簡単なツールバーを" とかちょっと強引過ぎたか

こっちの方がいいかも

JSLook

Menu Bar, Tool Bar, Status Bar ほかWindowsアプリケーションのようなUI、
HTA向きの（というか流用できそうな）javascript製GUIライブラリ。
//まだ開発中みたいだし、ライセンスもよく分からないし、紹介していいものかどうか迷ったんだけど
//学習用にも使えそうだし、とりあえず取扱注意ってことで

URLは…ググル先生に聞いて下さい。

//中級者以上の人は自分で実装する人も少なくないだろうし
//方法は他にも色々あるけど、とりあえずここまで

連投スマソ

277:デフォルトの名無しさん
09/10/04 07:11:22
<hta:application>の閉じタグってどうするのが実装的には正しいのか気になった
閉じない、<hta:application />、</hta:application>のどれだろう

msdnのHTA Developers Centerでは閉じてないんだけど、みんなはどうしてる？

278:デフォルトの名無しさん
09/10/04 09:21:40
>>277
リファレンスには

"
　The HTA:APPLICATION element requires a closing tag.
　
　<HTA:APPLICATION ... > ... </HTA:APPLICATION>
　
　Because the HTA:APPLICATION element is an empty tag, it can also be closed using the following shortcut.
　
　<HTA:APPLICATION ... />
"
ってあるね

HTA:APPLICATION Object
URLﾘﾝｸ(msdn.microsoft.com)(VS.85).aspx

279:デフォルトの名無しさん
09/10/04 10:34:51
>>278
閉じる決まりなのか。知らなかった。

280:デフォルトの名無しさん
09/10/04 12:35:43
タグなんだから閉じるのは当たり前だろうga

もしかして<br>や<pr>は閉じちゃだめとか思ってないか？

281:デフォルトの名無しさん
09/10/04 13:21:50
<pr>……？

282:デフォルトの名無しさん
09/10/04 13:25:36
<pgr>

283:277
09/10/04 13:25:39
>>278
ありがとう
これからは</hta:application>で閉じるようにするよ

>>280
閉じなければならないけど、sgmlのDTDによっては「閉じは"省略"しなければならない」だね
語弊があってｽﾏｿ

284:278
09/10/04 16:02:18
>>283
いやいや別に省略形で構わないんじゃないの？ <HTA:APPLICATION ... /> みたいに。

285:デフォルトの名無しさん
09/10/04 22:48:50
HTAはHTML Applicationであって、XHTMLではないとか、そんな話じゃね

286:278
09/10/04 23:53:42
いやだからリファレンスに "～it can also be closed using the following shortcut.～" ってあるんだから
閉じタグの</hta:application> 使っても省略形の <hta:application ... /> でも好きな方使えばいいじゃん。
XHTMLとかは関係ないでしょ、この場合。

一応断っておくけど >>280-282 は俺とは別の人ね
// ID出ない板は面倒くさいな

287:デフォルトの名無しさん
09/10/29 10:50:14

岡田外務大臣ｷﾀ━━━(ﾟ∀ﾟ)━━━ !!!!!
h‍ttp‍:‍/‍/‍q‍b5.2‍ch.net/t‍est/rea‍d.cgi‍/sak‍u2ch/1256‍630318/1

早く記念カキコしないと埋まっちゃうｗｗｗ

288:デフォルトの名無しさん
09/10/29 12:37:40
規制されるよ

289:デフォルトの名無しさん
09/11/04 01:01:36
最初のスレからGUI関係の情報サルベージしてきた（『YUIやJQueryなんか』以外）

MAKOTO3.NET - dhtml samples - 154,157　「oncontextmenuイベント」
URLﾘﾝｸ(www.makoto3.net)

dhtmlgoodies - DHTML List based context menu(javascript)
URLﾘﾝｸ(www.dhtmlgoodies.com)
dhtmlgoodies - Menu Scripts （ついでに追加）
URLﾘﾝｸ(www.dhtmlgoodies.com)

DHX - DHML GUI部品色々
URLﾘﾝｸ(scbr.com)

JavaScript DHTML examples - GUI Components
URLﾘﾝｸ(www.java2s.com)

jshtaframework - GUI関係ではMenuとかStatusBarとかToolBarとか
URLﾘﾝｸ(code.google.com)

HTALite Framwork, rev b - GUI関係ではToolbarとかStatusBarとかPopUp(tooltip?)とか
URLﾘﾝｸ(www.scriptinganswers.com)

MSDNから追加
Behaviors Library
URLﾘﾝｸ(msdn.microsoft.com)

こういうのもありかな？
CSS Menu, CSS Menu Generator - Horizontal, Vertical, Drop Down, DHTML CSS Menu
URLﾘﾝｸ(www.mycssmenu.com)

Licenseはそれぞれのサイトで確認よろ

290:デフォルトの名無しさん
09/11/09 06:22:56
WindowsPE3.0にHTA実行環境が追加できるらしいね。
データ復旧をするときに自作ツールが使えて便利かも。

URLﾘﾝｸ(www.computerworld.jp)
WinPE-HTA-Package：HTAアプリケーションのサポート
WinPE-MDAC-Package：MDAC（Microsoft Data Access Component）のサポート
WinPE-Scripting-Package：WSHのサポート
WinPE-WMI-Package：WMIのサポート
WinPE-XML-Package：Microsoft XML Parserのサポート

Windows7のインストーラにはメモ帳がついてるんだけど、ペイントもつけてくれてればよかったのにな。
エラーのときとか画面を保存できるし。

291:デフォルトの名無しさん
09/11/29 00:52:57
ふつうに作ったhta、
Windows7でも問題なく動いてます？

292:デフォルトの名無しさん
09/11/29 14:39:32
htt関連のコントロールが使えないのが地味に痛い。
ガジェットと統合してくれたらいいのになあ、と思うが絶対にないだろう。

293:デフォルトの名無しさん
09/11/29 14:41:59
はい？

294:デフォルトの名無しさん
09/12/15 05:31:41
IE8みたいに、システムのDPIに合わせて自動的にズームする機能つかないかなあ
<hta:application autozoom="yes"> とか

120DPIだと画面が小さい小さい・・・

295:デフォルトの名無しさん
10/02/06 14:36:31
あけました、おめでとうございました。

296:デフォルトの名無しさん
10/02/06 15:33:04
ずっと巡回してたのに明けてないのにまだ気付かなかったｗ

297:デフォルトの名無しさん
10/02/06 19:38:08
来年もよろしく

298:デフォルトの名無しさん
10/02/18 02:27:33
>>289
別にJQueryとかYUIでよくないか？

299:デフォルトの名無しさん
10/02/18 12:21:48
ちょっと釣られてみるか

HTAで使うようなStatusBarなんかの需要があった場合、選択肢は色々あるってだけの話
>>289にも（『YUIやJQueryなんか』以外）ってあるだろ？
誰もJQueryとかYUIを使っちゃ駄目なんていってないんだから使いたきゃどんどん使えよ

300:デフォルトの名無しさん
10/02/20 06:58:16
何が釣られてみるだカスが
わざわざそんな誰も使ってないようなの出さなくていいんじゃないのって事
誰も使用感すらレポしてねえし

301:スレタイ嫁
10/02/20 09:32:14
久しぶりにカキコミがあると思えば…

302:デフォルトの名無しさん
10/02/20 11:45:31
あーレポね。んじゃ>>289の中から少しだけ。
・HTALite Framwork
コンポーネントとしてHTCファイルが一つのシンプルなフレームワーク、UIもシンプル、HTA作る時の雛型として使ったりする。
　- 最初からToolbar、StatusBarが使える。
　- JQuery,YUIにはHTCないので>>299的にいえばその辺で選択肢が広がるか。
・menuはdhtmlgoodiesのを使った事があるくらいかな。他のは試してない。
・もう一つのフレームワーク、jshtaframeworkもまだ試してない。
・dhtmlgoodiesみたいなサイトは手抜きしたい時なんかにワンポイントで必要なものを探すのに見たりするかな。
//最近HTA書いてねー身なんでこれ以上はやめとく

どっちにしてもHTAは色んな使い方がされてんだから情報も色々あっていいんじゃね、って思うけどね。スレタイ的に。

303:デフォルトの名無しさん
10/02/23 13:34:16
URLﾘﾝｸ(itpro.nikkeibp.co.jp)

304:hidebou
10/02/23 14:11:13
何年か前にHTABOXというツールを書いた者です。
HTAという機構は素晴らしいのですが結局MSHTA.EXE経由では自由度が低かったものですから
MSHTA.EXEに代わる実行EXEをフリーソフトとしてリリースしました。
「HTABOXコア」
URLﾘﾝｸ(www.vector.co.jp)
まだサーバーの準備が整っていないのでエンコード機能を提供できるのは後日になりますが
お暇な時に遊んでいただいてご意見をいただければ助かります。

305:デフォルトの名無しさん
10/02/23 14:29:59
正真正銘のメニューいいですのう
topmostを希望します。

306:デフォルトの名無しさん
10/02/23 14:41:24
メニューはちゃんとアクセレータも使えるんですね！
って、本物なんだから当たり前か。でも凄い

307:hidebou
10/02/23 21:21:23
お試しいただいてありがとうございます。
メニューについては本当に基本的な部分しか記述していなくて、お恥ずかしいのですが
いままでのHTAには不足していた部分ですので、喜んでいただいて励みになります。

308:hidebou
10/03/03 20:44:53
正直なところMSHTA.EXEを置き換えていいものなのかについて今更ながら悩んでいます。
その先に何が起こるのかについて怯えていると言っていい状況です。
これを実現するのが夢でしたが、私は私自身を支えきれなくなりそうです。

309:デフォルトの名無しさん
10/03/03 21:27:56
期待してます！！

310:hidebou
10/03/04 02:28:07
ありがとうございます。それは危険だというご意見もあろうかと思うのですが、
エンコーダーのリリース準備を進めさせていただきます。

311:デフォルトの名無しさん
10/03/05 18:29:07
HTABOXコア、個人的にはプログレスバーとスクロールバーとツリーボックスと…
あぁキリが無いやｗ

この辺のオブジェクトの増加に力を入れて欲しいです。

312:hidebou
10/03/05 21:11:55
ご要望ありがとうございます。

ツールバーとツリービューに関しては開発過程で実験済みですので、スクリプトから
簡便に呼び出せるオブジェクトに仕上げて追加したいと考えておりますが、本体XEが
複雑になるのは避けたいので、スクリプトから各種コモンコントロールを扱うDLLを
設計する手法になるだろうと思います。

最も望ましいのは私以外の方がそういうライブラリをどんどん発表できる受け皿として
HTABOXが認知されてゆくことだとも考えております。

313:デフォルトの名無しさん
10/03/06 16:23:06
別スレ作れよ

314:hidebou
10/03/06 16:58:59
ご迷惑かけて申し訳ありません。
今夜、自身のURLにご意見をいただけるよう整備いたします。

315:デフォルトの名無しさん
10/03/06 17:04:24
過疎スレなんだから別に構わんだろ

316:デフォルトの名無しさん
10/03/06 20:15:26
石頭ｗ

317:デフォルトの名無しさん
10/03/06 22:04:33
えー他スレ見るのめんどいからこのスレに逐一報告してよ

318:hidebou
10/03/07 02:55:12
ぐうたらでサーバーの整備を遅らせた私が悪いわけですから、背中を押していただいた
気持ちで、本番サーバーへの移行を行っています。

319:hidebou
10/03/07 16:24:15
サーバーの準備が整いました。
URLﾘﾝｸ(kuroda.bglb.jp)
がHTABOXのトップページです。同ページからHTBOXコア1.10のLZHをロードできます。
このLZHにはエンコーダーであるhtabox.htmが含まれます。この動作を見ればHTABOX
の全体像をご理解いただけるのではと考えております。サイト各ページの最下部にスレッド
形式掲示板へのリンクを置きましたので、お気軽にご意見をお寄せください。

320:デフォルトの名無しさん
10/03/07 18:25:37
今時lzhは無いわー、と思った。zipでいいじゃん。

321:hidebou
10/03/08 10:03:06
補足させてください。
名前を引き継ぎましたので旧HTABOXと同じ隠蔽手法と思っている方もいらっしゃるでしょうが、
まったく別の原理でソースが見えない状態を作っていることを付け加えます。

322:デフォルトの名無しさん
10/03/08 21:15:23
起動に必要なファイル(hta,html,icon等)を単一EXEにして実行出来るようにするの出来ないですか？
EXEアイコンも好きなのにしたいんですが・・・。

323:hidebou
10/03/09 00:01:26
その質問に理由を説明しながらお答えすると長くなり、不快に思う方もいらっしゃる
かも知れませんので、319:にあるURLの掲示板で回答をいたします。

324:デフォルトの名無しさん
10/03/09 08:51:00
>>321
具体的には秘密？

>>313
こいつ、この世に存在しなければよかったのに。

325:hidebou
10/03/09 09:01:54
>>324
秘密どころか、原理と実験ソースを当サイトで公開しています。

326:デフォルトの名無しさん
10/03/09 09:05:05
拡張子 html と引数指定の時に拾ってくれないのですが……

あと、メニューは
<tr>
　<td>めにゅー1</td>
　<td>めにゅー1-1</td>
　<td>めにゅー1-2</td>
</tr>
のほうが直感的ではないでしょうか。
さらに言えば ul とかで階層メニューを作れるとうれしい。

327:hidebou
10/03/09 09:24:06
「拡張子 html と引数指定の時に拾ってくれないのですが…… 」
の意味をもう少し具体的に

328:hidebou
10/03/09 09:29:34
ulはツリービュー用に使う予定です

329:hidebou
10/03/09 09:34:30
いやulでもメニューのほうがいいかな？悩んでいます

330:デフォルトの名無しさん
10/03/09 12:10:54
>>327
test.exe と test.html を同じディレクトリに置いたり、
コマンドラインから test.exe data.html とか入力して実行しても
ファイルを発見できないときの表示になるということです。

また、
> <hta:application>で唯一有用な機能である
とか言われると他の項目を使っている人は悲しくなると思うのですが、
ウィンドウスタイルを変更したりする API は実装される予定はあるのでしょうか。

ついでに、自分自身のウィンドウハンドルはできれば window オブジェクトのメソッドとかで取得できると
楽チンでうれしい。

331:hidebou
10/03/09 13:28:17
>>330
起動時の不具合をこちらでも確認しました。同じディレクトリに自身と同じ
名前のhtmが既存し、別名のhtmをドロップ起動すると起こっているようです。
早急に対応いたします。
WindowのスタイルについてはしかるべきAPIを追加いたします。
有益な情報をありがとうございました。

332:hidebou
10/03/09 14:01:37
>>330
引数での起動ファイル指定時、アイコンドロップだとフルパスが取得できますが、
手動指定だと入力したファイル名しかないことを見落としていました。
同名htmがある場合は引数よりファイルの存在が優先されるのは仕様です。

333:hidebou
10/03/09 15:25:23
第一引数で起動する場合、カレントディレクトリを基準に絶対パス変換を行う修正
が完了しました。できれば330さんに問題が解決したか確認していただけると助かります。
URLﾘﾝｸ(kuroda.bglb.jp)

334:デフォルトの名無しさん
10/03/09 16:12:22
すれ違いだ

335:hidebou
10/03/09 17:16:56
スレッド作成しました。以降HTABOXコア関連の話題は下記へお願いします。

ｽﾚﾘﾝｸ(tech板)

336:324
10/03/09 20:40:46
>>325
あー、そうなのね。

>>321を見て、フリだけかよと思って
しまったもので。

今度、サイトを見にいくよ。

337:デフォルトの名無しさん
10/03/10 10:48:22
>>336
URLﾘﾝｸ(kuroda.bglb.jp)

338:デフォルトの名無しさん
10/03/19 18:29:02
IE8をインストールしたら
HTAのフォント表示がおかしくなった
英文の時はいいんだけど
日本文を表示する時にバカデカいサイズになってしまう

339:デフォルトの名無しさん
10/03/19 20:54:41
お気に入りの整理で使われているshellnamespaceはhtaでは使えないのですか？

340:デフォルトの名無しさん
10/03/21 09:13:43
HTA から標準入出力を使うというのは
神ブログ等に記載があるが、
自作の何かを試してみて「無効なハンドルです」と言われた場合
window.close()してから
objFso.StdOut.WriteLine などすれば良いと思う

341:デフォルトの名無しさん
10/03/21 13:16:54
勘違いかも
コマンドラインを　| sort など
パイブラインやリダイレクトに食わせる
必要があるということかな

342:デフォルトの名無しさん
10/03/21 14:27:06
CreateProcess()でsubsystem=windowsのexeを起こすとき、
標準入出力でconsoleは引き継がないというのがOSのルールだよ

343:デフォルトの名無しさん
10/03/21 16:04:43
ありがとー確認します
いま（人力)OCRを作ってるのさ

344:デフォルトの名無しさん
10/03/21 16:48:57
メモ00：
<HTA:(タブや空白)APPLICATION
id="xxx"
>
と書いてたらid属性が機能しなかった。知らねえよそんなの。
というか HTAコロンAPPLICATION タグということかな。

メモ01:
iframe 内から親ウィンドウが見えないなーと思ったら、
iframe タグの application 属性を yes にする必要あり
MSDN の HTML Applications 概要に説明あり

345:デフォルトの名無しさん
10/03/21 21:04:12
スクリプトエンジンにperl使えば何でもあり。極めて楽チン。

346:デフォルトの名無しさん
10/03/21 21:51:54
あなたがそう言うなら

347:デフォルトの名無しさん
10/03/22 22:22:16
perl 使わんでも、ActivexPosh 使えば何でもあり。

348:デフォルトの名無しさん
10/03/27 22:52:52
HTA をwsfにて使用
hta.wsf (をUnicode で保存)

<?xml version="1.0"?>
<package>
<job id="main"><script language="VBScript"><![CDATA[
Set objShell = CreateObject("Wscript.Shell")
Set objDOM = CreateObject("MSXML2.DOMDocument")
objDOM.Load Wscript.ScriptFullName
objShell.Run "mshta.exe " & """about:" & _
objDOM.childNodes(1).childNodes(1).childNodes(0).nodeValue & """"
Set objDOM = Nothing
]]></script></job>
<job id="HTA"><![CDATA[
<head><HTA:APPLICATION></head>
<body>helloworld</body>
]]></job>
</package>

349:デフォルトの名無しさん
10/03/28 00:03:02
Windows7でデスクトップ左端の分離ツールバーができなくなったんだけど、
だれかHTAで作ってくれないか？

350:デフォルトの名無しさん
10/03/28 18:05:15
>>348
それをやるメリットがよく分からない

351:デフォルトの名無しさん
10/03/28 20:35:26
.wsf に vbs と js と hta を
入れて「ひとりパイプライン」を作ると。
ファイルが一つで済んで
デスクトップが散らばらない

352:デフォルトの名無しさん
10/03/28 22:07:21
>>351
なにをいってるのか意味がよく分らない

353:デフォルトの名無しさん
10/03/29 00:11:53
<html><head><script language="VBScript">
sub window_onload
msgbox typename(WebOC.object.Document)
end sub
</script></head><body>
<object id="WebOC" classid="clsid:8856F961-340A-11D0-A96B-00C04FD705A2" width="100%" height="100%">
<param name="location" value="c:\">
<object></body></html>
IShellFolderView?が取れないんだけど、どうすりゃ取れるの？

354:デフォルトの名無しさん
10/03/29 01:43:01
>>353
VBScriptがいけないのかも

<html><head>
<script language="JScript">
function getTarget1() {return WebOC.Document;}
function getTarget2() {return WebOC.document;}
</script>
<script language="VBScript">
sub window_onload
msgbox typename(WebOC.object.Document)
msgbox typename(WebOC.object.document)
msgbox typename(getTarget1())
msgbox typename(getTarget2())
end sub
</script>
</head><body>
<object id="WebOC" classid="clsid:8856F961-340A-11D0-A96B-00C04FD705A2" width="100%" height="100%">
<param name="location" value="c:\">
</object></body></html>

355:354
10/03/29 02:34:02
適当に書いたのでJScriptとVBScriptで参照してるオブジェクトが違ってしまってるけど、
WebOC.object.DocuemtとWebOC.Docuemtnは同じなので結果に影響はないはず

356:デフォルトの名無しさん
10/03/29 14:46:28
VBScriptは大文字小文字の区別がないからVBScriptではできないってことですか
なんとまぁ

357:デフォルトの名無しさん
10/03/29 17:37:43
WebOC.[Docuemnt]もだめ

358:デフォルトの名無しさん
10/03/29 23:55:21
>>351
サンプル作ろうとしたけど
二重引用符でハマってしまった
忘れて

359:デフォルトの名無しさん
10/03/31 14:49:29
名前空間を区別するのが.objectのはずなのに

360:デフォルトの名無しさん
10/04/01 19:24:25
contenDocumentもだめ

361:デフォルトの名無しさん
10/04/02 14:25:53
>>348
getresourceを知らんのか

362:デフォルトの名無しさん
10/04/02 17:08:41
<resource>はhtaでhtmlを埋め込む時は使えないな。どうする？

363:デフォルトの名無しさん
10/04/10 12:08:20
<?xml version="1.0"?><package><job id="main"><script language="VBScript"><![CDATA[
Rem パイプ内でhta.wsf ユニコードで保存
Set objShell = WScript.CreateObject("Wscript.Shell")
Set objDOM = WScript.CreateObject("MSXML2.DOMDocument")
objDOM.load(WScript.ScriptFullName)
objShell.Run "cmd.exe /c dir c:\ | " & "mshta.exe " & Replace("""" & "about:" &_
objDOM.childNodes(1).childNodes(1).childNodes(0).nodeValue & """", vbLf, "") & _
" | " & "cscript.exe //Nologo " & """" & WScript.ScriptFullName & """" & _
" //job:VBS " & " | " & "sort /r && pause"]]></script></job>
<job id="HTA"><![CDATA[<HTA:APPLICATION navigable='yes'>
<script language='JScript'>function InOut(){
FSO = new ActiveXObject('Scripting.FilesystemObject');
In = FSO.getStandardStream(0);Out = FSO.getStandardStream(1);
while (!In.atEndOfStream){Out.writeLine(In.readLine());};
Out.writeLine(window.document.getElementById('inputbox').value);
window.close();Out.writeLine('HTA called.');};
</script><body>helloworld<form action='#' onsubmit='InOut()'>
<input type='text' id='inputbox'/><input type='submit'/></form></body>]]></job>
<job id="VBS"><script language="VBScript"><![CDATA[Do Until Wscript.StdIn.AtEndOfStream
Wscript.StdOut.WriteLine Wscript.StdIn.ReadLine
Loop : Wscript.Echo "VBS called."]]></script></job></package>

364:デフォルトの名無しさん
10/04/10 13:07:12
mshta.exe の引数の文字数が 5XXover だと
xp+ie6 にて動かなかった
vista+ie8 ではそうでもない

365:デフォルトの名無しさん
10/04/10 14:18:56
めんどくさいだけでなにがいいのか

366:デフォルトの名無しさん
10/04/10 14:27:56
>>364
vista+ie8 でもだめだろ
mshta javascript:かvbscript:の中でCreateObject("MSXML2.DOMDocument")・・・
すれば文字数制限にかからんよ

367:デフォルトの名無しさん
10/04/10 21:23:36
>>366
しばらく考えさせていただきます
DOM系のなんかで出来ないか画策中

368:デフォルトの名無しさん
10/04/11 13:12:22
>>365 できたよ　こんな感じか　ありがと
<?xml version="1.0"?><package><job id="main"><script language="VBScript">
<![CDATA[Rem htaInPipe2.wsf Unicodeで保存
Set objShell = WScript.CreateObject("Wscript.Shell")
objShell.Run "cmd.exe /c dir c:\ | " & "mshta.exe " & _
"""" & "javascript:" & "objShell=new ActiveXObject('Wscript.Shell');" & _
"objDOM=new ActiveXObject('MSXML2.DOMDocument');" & _
"objDOM.load('" & replace(Wscript.ScriptFullName, "\", "\\") & "');" & _
"document.write(objDOM.childNodes(1).childNodes(1).childNodes(0).nodeValue)" & _
"""" & " | " & "sort /r && pause"]]></script></job>
<job id="HTA"><![CDATA[<HTA:APPLICATION navigable='yes'>
<script language='JScript'>function InOut(){
FSO = new ActiveXObject('Scripting.FilesystemObject');
In = FSO.getStandardStream(0);Out = FSO.getStandardStream(1);
while (!In.atEndOfStream){Out.writeLine(In.readLine());};
Out.writeLine(window.document.getElementById('inputbox').value);
Out.writeLine(window.document.getElementById('inputbox').value);
window.close();Out.writeLine('HTA called.');};
</script><body>mshta.exe (か cmd.exe) の引数としては TooLong な HTA
<form action='#' onsubmit='InOut()'><input type='text' id='inputbox'/>
<input type='submit'/></form></body>]]></job></package>

369:デフォルトの名無しさん
10/04/11 20:13:55
document.write(objDOM.selectSingleNode('/package/job[@id=""HTA""]').childNodes(0).nodeValue);

370:デフォルトの名無しさん
10/04/14 21:27:47
複数の *.hta を開くと Win7 のタスクバーで一つでまとまるのではなく、複数になってしまいます。
ほかのアプリのように一つのアイコンにまとめることはできないでしょうか？

Win7のところで聞くべきなのかもしれませんがよろしくお願い致します。

371:デフォルトの名無しさん
10/04/14 21:50:01
htaはmainwindowがないから無理

372:デフォルトの名無しさん
10/04/15 21:23:33
HTAの質問とは言えないかもしれないんですが
<input type="file" id="idHoge">
でファイルオープンダイアログを開いた場合に
そのダイアログで何かが選択されたか、キャンセルされたかを判別したいんですが
何か良い方法は無いでしょうか。

idHoge の値を、ダイアログを開く前と後で比較していたんですが
これだと前回と同じファイルを選択した場合にキャンセルと区別が付かないです。
idHoge に onChange で動作を書けばいいかと思ったんですが、
同じファイルが選択された場合はonChangeも動作しませんでした。

373:372
10/04/15 21:33:37
すいません、解決しました。

374:デフォルトの名無しさん
10/04/16 09:30:00
解決したら解答かけよw

375:372
10/04/16 12:23:20
入力されてる値をクリアするだけでも良かったんで
window.location.reload()　で全体をリロードしてリセットする事にしました。

376:デフォルトの名無しさん
10/04/16 20:07:25
FORM.reset()

377:372
10/04/16 20:53:10
>>376
おお、こっちの方が良さそうですね。
ありがとうございます！

378:デフォルトの名無しさん
10/04/19 22:47:16
<?xml version="1.0"?><package><job id="a"><script language="VBScript"><![CDATA[
Rem なんちゃってLibrary.wsf Unicode で保存
Set objDOM = CreateObject("MSXML2.DOMDocument")
objDOM.load(Wscript.ScriptFullName)
Execute objDOM.selectSingleNode("/package/job[@id=""VBLib""]").childNodes(0).childNodes(0).nodeValue
]]></script><script language="Jscript"><![CDATA[
eval(objDOM.selectSingleNode("/package/job[@id='JLib']").childNodes(0).childNodes(0).nodeValue);
]]></script><script language="VBScript"><![CDATA[
CreateObject("Wscript.Shell").Run "mshta.exe ""about:"&s("a","b","c")&J(Array("d","e"))&""""
]]></script></job><job id="JLib"><script language="Jscript"><![CDATA[
function s(){var result = "";
for(var i=0; i<arguments.length; i++){
result += arguments[i];}return result;}
]]></script></job><job id="VBLib"><script language="VBScript"><![CDATA[
Function J(arrArg)
J = Join(arrArg, "")
End Function]]></script></job></package>

379:デフォルトの名無しさん
10/04/19 22:53:16
×　eval は使っちゃいけません
○　でも objIE に Put&GetProperty するより簡単です

380:デフォルトの名無しさん
10/04/22 16:03:44
>>378
いみふ
>>368
javascript:document.write(f())のdocument.write()はいらんよ
javascript:f()で値がHTMLとして評価されるよ

381:デフォルトの名無しさん
10/04/22 23:53:49
job が複数あるときに job ごとに
function s(){...} と書くのは
大変なのでこうしようという提案です

write なしで動きました

382:デフォルトの名無しさん
10/04/23 23:41:21
vista でイケて
xp でダメだったのは
c:\users と c:\documents and settings の違いかもと
ようやく思い至りました

383:デフォルトの名無しさん
10/04/24 18:54:12
>>382
ジャンクションがあるから関係ないんじゃ？

384:デフォルトの名無しさん
10/04/25 08:30:29
すいませんジャンクションてなんどすか

cmd.exe 以下の　dir やら　| やら　&& pause やらの
文字数の合計がリミットを超えたのかと想像しましたが

385:デフォルトの名無しさん
10/04/25 11:21:21
XPだと8191文字までだな。
Vistaは知らん。

コマンドプロンプト (Cmd.exe) のコマンドライン文字列の制限
URLﾘﾝｸ(support.microsoft.com)

386:デフォルトの名無しさん
10/04/25 15:44:20
>>383 は関係ないだろ
>>385 も関係ないだろ
>>364 の話が分ってないんだろ

387:デフォルトの名無しさん
10/04/25 18:24:01
長い文字列は環境変数で渡せば？

388:デフォルトの名無しさん
10/04/26 19:50:01
もうちょっと読みやすく書けないものか

389:デフォルトの名無しさん
10/04/30 02:44:46
ieから<a href=hoge.hta>をクリックするとhtaがieの後ろに回るんだけどなんでだろう？

390:デフォルトの名無しさん
10/04/30 23:17:09
hoge.htaをieで開くんでねーの？

391:デフォルトの名無しさん
10/05/01 00:12:36
ねーよ

392:デフォルトの名無しさん
10/05/01 10:45:56
>>388
いちレスにおさめるため
でたらめにケズってます

393:デフォルトの名無しさん
10/05/01 10:49:06
<?xml version="1.0"?><package><job id="a"><script language="VBScript"><![CDATA[
Rem Pipe を分ける.wsf Unicodeで保存
Set objShell = CreateObject("Wscript.Shell")
Set objPipe = objShell.Exec("cmd.exe /c (for /L %i IN (1, 1, 123) DO @dir c:\) | find "":"" ")
Set objPipe2 = objShell.Exec("cmd.exe /c sort /r | mshta.exe " & _
"""" & "javascript:" & "objDOM=new ActiveXObject('MSXML2.DOMDocument');" & _
"objDOM.load('" & replace(Wscript.ScriptFullName, "\", "\\") & "');" & _
"objDOM.selectSingleNode(""/package/job[@id='HTA']"").childNodes(0).nodeValue" & """")

Do Until(objPipe.StdOut.AtEndOfStream)
objPipe2.StdIn.WriteLine objPipe.StdOut.ReadLine
Loop]]></script></job><job id="HTA"><![CDATA[<head><script language = "VBScript">
Sub DisplayStdIn() : Set objFso = CreateObject("scripting.FilesystemObject")
Set objStdIn = objFso.GetStandardStream(0) : str=""
document.getElementById("atextarea").value=""
Do Until objStdIn.AtEndOfStream : str = str & objStdIn.ReadLine & vbcrlf
Loop : document.getElementById("atextarea").value = str: End Sub
</script><style type="text/css">.texttype { height:100%; width:100%; }
</style></head><body onload="DisplayStdIn()">
<p class="texttype"><TEXTAREA id="atextarea" wrap="off" class="texttype">
</TEXTAREA></p></body>]]></job></package>

394:デフォルトの名無しさん
10/05/01 10:57:30
文字数制限にそなえパイプを分けようとしたら
objShell.Exec を使うという普通の話になりました
Exec でも縦棒使えたのかーあるいは　cmd.exe単品を起動して
後ろの引数は(Exec曰く)知ったことではない
と予想

objShell.Run も味があって捨てがたいな
一万文字流し込めないかな

395:デフォルトの名無しさん
10/05/01 18:28:05
なにがいいのか

396:デフォルトの名無しさん
10/05/01 22:26:35
If all you have is a hammer, everything looks like a nail.

397:デフォルトの名無しさん
10/05/04 15:12:00
URLﾘﾝｸ(www1.u-netsurf.ne.jp)　　のページの
下のサンプルがIE８で動かないんですが何ででしょうか？

■ HTML版Hello World(hello.html)

<script language="VBScript">

</script>

<html>
<body>
<input type="button" name="InputBtn" onmoune="HelloWorld" value="Go!">
</body>
</html>

398:デフォルトの名無しさん
10/05/04 20:22:24
>>397
・onmouneをonclockに変える。
・script要素をhtml要素の中に入れる。

399:デフォルトの名無しさん
10/05/04 22:49:51
作者に聞けば？

400:398
10/05/04 23:56:31
onclockじゃねえや、onclickだったorz

401:デフォルトの名無しさん
10/05/05 14:03:55
作者と同レベル

402:デフォルトの名無しさん
10/05/05 19:30:57
>>399
本人だろ

403:デフォルトの名無しさん
10/05/07 16:38:04
>>398
onmoune→onclickだけで動いた
script要素はhtml要素の外でもいいみたい

404:デフォルトの名無しさん
10/05/07 22:01:17
なんか見ないほうが良さそうなサンプルだにゃあ

405:デフォルトの名無しさん
10/05/08 00:25:33
>>397,403
script要素をhtml要素の外に書いてるコードなんて初めて見た。
こんなクソコード真似しちゃ駄目だよ。

406:デフォルトの名無しさん
10/05/08 15:40:50
それほどおかしくないよ
<html>
<body>
あいうえお
</body>
</html>
<html>
<body>
かきくけこ
</body>
</html>
をひらいてみ

407:デフォルトの名無しさん
10/05/08 16:57:01
いいえ、おかしいです

408:デフォルトの名無しさん
10/05/08 17:13:21
>>406
仕様上正当なのか、たまたま動いてるだけなのかは区別しような。

409:デフォルトの名無しさん
10/05/08 17:22:49
たまたまじゃないだろ

410:デフォルトの名無しさん
10/05/08 23:15:02
たまたまだよ。

「html要素はHTML文書中に一つだけ」と規格で決まってる。
IEは規格からかなり外れたHTMLも無理矢理表示する傾向があるから
表示されてしまうけど、HTML文書としては完全に間違い。

規格を読むなり
URLﾘﾝｸ(validator.w3.org) や
URLﾘﾝｸ(openlab.ring.gr.jp) で
チェックするなりした方がいい。

411:デフォルトの名無しさん
10/05/08 23:26:36
確率論において、2つの事象が独立であるというのは、ある事象と別の事象の両方が成立する確率が、
それぞれの確率の積で表わされることを言う。2つの確率変数が独立であるというのは、「ある確率変数
の値が一定範囲に入る事象」と「別の確率変数の値が別の一定範囲に入る事象」が、考えられるどのよ
うな「一定範囲」（「考えられる」とは通常ボレル集合族を指す）を定めても、事象として独立であることを言う。
二つの事象が独立といった場合は、片方の事象が起きたことが分かっても、もう片方の事象の起きる確率
が変化しないことを意味する。二つの確率変数が独立といった場合は、片方の変数の値が分かっても、
もう片方の変数の分布が変化しないことを意味する。

412:デフォルトの名無しさん
10/05/09 02:41:26
すれ違い

413:デフォルトの名無しさん
10/05/21 17:01:03
>>393
exec("cmd")はコンソール開くから使いたくねぇな

414:デフォルトの名無しさん
10/05/22 17:53:12
run("cmd",0)だな

415:デフォルトの名無しさん
10/05/26 14:13:24
exec("cmd",0)

416:デフォルトの名無しさん
10/06/10 17:12:50
特定のウェブページを、Chromeスタイルで表示してくれる、Internet Explorerの拡張機能「Google Chrome Frame」がnew ActiveXObjectに対応してくれれば
html5のhtaが作れるのに・・・

417:デフォルトの名無しさん
10/06/30 15:11:59
HTA？なんぞそれ？と思って調べてみたらいいねこれ　
VBSctipr JavaScript HTML Perlも使えるとは

と　最初はよかったんだ　最初は・・・

HTA入門のページを見て　簡単なHTAを作ってみようと思って　
少し前作っていたWSHのソースをHTAのソースにコピペして　ボタンクリックで実行したらエラー連発

ググってみたらWSHは一部の機能が使えないとか
Wscript.sleepだの Wscript.echoが使えないとか・・・orz

418:デフォルトの名無しさん
10/06/30 15:17:51
>>417
Wscript.echo は alertで代用できるからいいけどsleepが代用できないという

var WScript;
WScript = WScript.CreateObject("WScript.Shell");

も動かないとかもうね・・・
HTAはWSHを使う人にはとっつきにくいのかもね

419:デフォルトの名無しさん
10/06/30 16:50:55
DOSのバッチでSleepはPingで代用できるけどそういうことできない？

420:デフォルトの名無しさん
10/06/30 17:20:30
>>418
それ、wshの .js でも動かないだろｗ
---------------------------
エラー: 'WScript' は Null またはオブジェクトではありません。
---------------------------

<script language="JScript">
var WScript;
WScript = new ActiveXObject("WScript.Shell");
</script>

<script language="VBScript">
Dim WScript
Set WScript = CreateObject("WScript.Shejll")
</script>

sleepはフリーズするから嫌われるぞ。
window.setTimeoutでごまかすか、時間のかかる処理は外部プロセス起動するといい。

421:デフォルトの名無しさん
10/07/01 02:51:03
>ググってみたらWSHは一部の機能が使えないとか
その一部以外の機能は何？

422:デフォルトの名無しさん
10/07/01 03:06:13
えっ？

423:デフォルトの名無しさん
10/07/01 03:17:46
>>429
Win32_PingStatus

424:デフォルトの名無しさん
10/07/01 17:14:57
' これは単に短い遅延を作成するためのスリープ関数です。
Sub Sleep(tmpSeconds)
Dim dtmOne,dtmTwo
dtmOne = Now()
While DateDiff("s",dtmOne,dtmTwo) < tmpSeconds
dtmTwo = Now()
Wend
End Sub