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

[表示 : 全て最新50 1-99 101- 201- 301- 401- 501- 601- 701- 801- 901- 2chのread.cgiへ]
Update time : 05/09 18:48 / Filesize : 259 KB / Number-of Response : 926
[このスレッドの書き込みを削除する]
[＋板最近立ったスレ＆熱いスレ一覧 : ＋板最近立ったスレ／記者別一覧] [類似スレッド一覧]


↑キャッシュ検索、類似スレ動作を修正しました、ご迷惑をお掛けしました

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

1 名前：あらかわ [2005/08/21(日) 02:46:02 ]: 過去スレ
HTA研究会
piza2.2ch.net/tech/kako/996/996763278.html

Web制作板のHTAスレ
pc8.2ch.net/test/read.cgi/hp/1068286485/

あとはまかせた
656 名前：デフォルトの名無しさん [2008/03/08(土) 21:07:16 ]: ドラッグでウィンドウ動かすサンプルある？
657 名前：デフォルトの名無しさん mailto:sage [2008/03/09(日) 00:35:24 ]: <div>とかじゃなくてウインドウ自体を動かすの？
658 名前：デフォルトの名無しさん mailto:sage [2008/03/09(日) 21:24:09 ]: 試したことはないが出来そう
クリックでフラグON
mousemoveで差分取って動かす
659 名前：デフォルトの名無しさん mailto:sage [2008/03/10(月) 01:26:16 ]: ttp://www.stekolla.com/editor/
660 名前：デフォルトの名無しさん mailto:sage [2008/03/10(月) 12:45:53 ]: >>656
昔、俺がした質問。
>マウスドラッグでウィンドウの移動を行いたいのですがwindow.moveBy() でアクセスが拒否されます。
>右ボタンならドラッグできるのですが左ボタンでドラッグするにはどうすればよいでしょうか？

<html>
<head>
<hta:application border="none"/>
<script>
var move = new Object();
function mouseDown() {
document.body.setCapture();
move.x = window.event.screenX;
move.y = window.event.screenY;
document.body.attachEvent("onmousemove", mouseMove);
document.body.attachEvent("onmouseup", mouseUp);
}
function mouseMove() {
window.moveBy(window.event.screenX - move.x, window.event.screenY - move.y);
move.x = window.event.screenX;
move.y = window.event.screenY;
}
function mouseUp() {
document.body.detachEvent("onmousemove", mouseMove);
document.body.detachEvent("onmouseup", mouseUp);
document.body.releaseCapture();
}
</script></head>
<body onmousedown="mouseDown()">ドラッグテスト</body></html>
661 名前：デフォルトの名無しさん mailto:sage [2008/03/10(月) 12:52:37 ]: リサイズとか移動とかするときに
左ボタン押してるとエラー出るんだよね。厄介な。
662 名前：デフォルトの名無しさん mailto:sage [2008/03/11(火) 02:26:06 ]: 右クリック仕様だ。
スクロールバーだと左ボタンでもついてくるな。visitaだが。

<html><hta:application border="none" contextmenu='no'/>
<body onmousedown="mouseDown()"><div id=d>ドラッグテスト</div><body></html>
<script>
resizeTo(200,100);
d.style.height=1300;
var move = new Object();
function mouseDown() {
document.body.setCapture();
move.x = window.event.screenX;
move.y = window.event.screenY;
document.body.attachEvent("onmousemove", mouseMove);
document.body.attachEvent("onmouseup", mouseUp);
}
function mouseMove() {
try{
moveBy(window.event.screenX - move.x, window.event.screenY - move.y)
}catch(e){;}
move.x = window.event.screenX;
move.y = window.event.screenY;
}
function mouseUp() {
document.body.detachEvent("onmousemove", mouseMove);
document.body.detachEvent("onmouseup", mouseUp);
document.body.releaseCapture();
}
</script>
663 名前：デフォルトの名無しさん mailto:sage [2008/03/11(火) 19:27:47 ]: タイトルバーをドラッグしたらウィンドウ移動できたよ！ﾋｬｯﾊｰｰｰｰｰｰﾂ!!!
664 名前：デフォルトの名無しさん mailto:sage [2008/03/11(火) 19:59:48 ]: 3点
665 名前：656 [2008/03/12(水) 20:30:12 ]: 亀だけど㌧
>>662のソースだとうまくいくな。
ただ左ドラッグで動かないようにするのはどの部分なんだ？
単純に左クリックだったらreturn false;とかならわかりやすいんだが。
しかも>>660との違いがいまいちﾜｶﾝﾈ
単にエラーになってるけどtry～catchで無視されてるってだけか？
666 名前：デフォルトの名無しさん mailto:sage [2008/03/12(水) 21:31:01 ]: let'snoteのヘルプがHTAだった。
もう十分必要なところで流行ってるじゃね？
667 名前：662 mailto:sage [2008/03/12(水) 23:39:30 ]: >>665
その通り、catch(e){何もしない}
他の違いはスクロールバーをアクティブにさせているのとcontextmenu='no'
668 名前：デフォルトの名無しさん mailto:sage [2008/03/12(水) 23:51:21 ]: でも右で移動って不自然だよな。
こういうちょっとした所で残念賞なんだよなhtaは
669 名前：デフォルトの名無しさん mailto:sage [2008/03/15(土) 15:42:11 ]: <script language="javascript"></script>内で、ファイル保存、ファイルオープン、フォルダセレクトのダイアログを表示させる方法を教えてください
確かに前使ってた記憶があるんだが、ソースもないし検索してもさっぱり見つからない
670 名前：デフォルトの名無しさん mailto:sage [2008/03/15(土) 16:00:08 ]: showModalDialog
671 名前：デフォルトの名無しさん mailto:sage [2008/03/15(土) 18:03:09 ]: タグをもっと増やして欲しい。
672 名前：デフォルトの名無しさん mailto:sage [2008/03/15(土) 18:10:14 ]: そこでHTCですよ
673 名前：デフォルトの名無しさん [2008/03/16(日) 18:57:33 ]: >>669
scripting.cocolog-nifty.com/blog/2007/02/windows2000wsh5_ee23.html
これ嫁
674 名前：デフォルトの名無しさん mailto:sage [2008/03/18(火) 02:35:08 ]: vistaのコンパネって実はhtaだったりしないかなぁ
htaだったらsauceを参考にしたい部分が山ほど有るんだが
675 名前：デフォルトの名無しさん mailto:sage [2008/03/18(火) 02:40:13 ]: sauceってフランス語？
676 名前：デフォルトの名無しさん mailto:sage [2008/03/18(火) 03:24:30 ]: 英語にあるけど？
677 名前：デフォルトの名無しさん mailto:sage [2008/03/18(火) 09:14:54 ]: この文脈ではsourceだろうな。
678 名前：デフォルトの名無しさん mailto:sage [2008/03/19(水) 15:45:27 ]: >>674
しらべりゃわかるだろ？
679 名前：デフォルトの名無しさん mailto:sage [2008/03/19(水) 18:52:18 ]: そりゃ調べて分からない事なんて無いな
680 名前：デフォルトの名無しさん mailto:sage [2008/03/19(水) 18:53:42 ]: >>679
驕りすぎ。

人間は万物の長とでも思ってるのか？
681 名前：デフォルトの名無しさん mailto:sage [2008/03/19(水) 22:59:56 ]: 万物の長の意味がわかってるのか？
682 名前：デフォルトの名無しさん mailto:sage [2008/03/19(水) 23:40:39 ]: 中国の城
683 名前：デフォルトの名無しさん mailto:sage [2008/03/20(木) 01:05:27 ]: Ctrl+Pできる？
684 名前：デフォルトの名無しさん mailto:sage [2008/03/20(木) 10:48:16 ]: >>683
できるにきまってる
685 名前：デフォルトの名無しさん mailto:sage [2008/03/20(木) 11:25:39 ]: いい加減に城
686 名前：デフォルトの名無しさん mailto:sage [2008/03/20(木) 12:56:05 ]: できるならhtmlとれる
687 名前：デフォルトの名無しさん [2008/03/20(木) 21:14:47 ]: それは右クリックソース表示とは違うのか
とられたくなければ、キーイベントnullでreturnしとけばよい
688 名前：デフォルトの名無しさん [2008/03/24(月) 12:57:14 ]: なんかの間違いで半年ぶりくらいにこのスレ開くが
案外伸びてるな。
689 名前：デフォルトの名無しさん mailto:sage [2008/03/26(水) 14:26:06 ]: コンパネで右クリックソース表示できんだろ？
690 名前：デフォルトの名無しさん mailto:sage [2008/03/26(水) 21:08:48 ]: タスクマネージャーでmshtaが起動してないからHTAのわけないんだよ
691 名前：デフォルトの名無しさん mailto:sage [2008/03/26(水) 21:18:26 ]: >>690
リソース内のファイル拡張子は .hta だ。
692 名前：デフォルトの名無しさん mailto:sage [2008/03/27(木) 00:18:46 ]: タイトルバーをクリックしたときのイベントって拾えますか？
693 名前：デフォルトの名無しさん mailto:sage [2008/03/28(金) 17:09:52 ]: 無理じゃね？なんとなく
694 名前：デフォルトの名無しさん mailto:sage [2008/03/28(金) 17:56:20 ]: タイトルバーなくして、自分でタイトルバーもどきを作れば？
695 名前：デフォルトの名無しさん mailto:sage [2008/03/29(土) 13:01:30 ]: タイトルバーの機能って何だ？
左端のアイコンをクリックスるとメニューが出る
右端にクローズとか最大化とかのボタンを設置
それ以外をドラッグするとウィンドウ全体をスクロール
ダブルクリックすると最大化←→解除
696 名前：デフォルトの名無しさん mailto:sage [2008/03/29(土) 13:40:00 ]: <hta:application caption="no">
<img src="title_Bar_modoki.jpg" style="position:absolute;">
697 名前：デフォルトの名無しさん mailto:sage [2008/04/01(火) 19:28:40 ]: htaをexeにしようと思ってhtabox使ったんだが
アイコンが強制的に変えられる。
なんかアイコン変えるソフトってある？
698 名前：デフォルトの名無しさん mailto:sage [2008/04/01(火) 20:29:45 ]: こんなレベルの奴がHTA使ってるなんて信じられないぜ（　ﾟдﾟ）ﾎﾟｶｰﾝ

あ、もしかして4/1ネタ？
699 名前：デフォルトの名無しさん mailto:sage [2008/04/03(木) 18:51:16 ]: >>698より省力なレスをしてやろう
>>697 resourse hacker
700 名前：デフォルトの名無しさん mailto:sage [2008/04/04(金) 00:20:27 ]: resourse（笑）
701 名前：デフォルトの名無しさん mailto:sage [2008/04/04(金) 01:04:06 ]: resauce(正)
702 名前：デフォルトの名無しさん mailto:sage [2008/04/04(金) 02:21:27 ]: まったく持って(正)でないし
IMEで英語辞書ONにしてリソースで変換したほうが早い
703 名前：デフォルトの名無しさん mailto:sage [2008/04/04(金) 16:58:24 ]: まったく持って（笑）
704 名前：デフォルトの名無しさん mailto:sage [2008/04/04(金) 17:02:10 ]: 国語辞書をまったく持ってないのか？
705 名前：デフォルトの名無しさん mailto:sage [2008/04/04(金) 17:08:34 ]: >>704ｗｗ
706 名前：デフォルトの名無しさん mailto:sage [2008/04/04(金) 21:51:06 ]: 遺憾と言わざる負えない
707 名前：デフォルトの名無しさん mailto:sage [2008/04/07(月) 23:11:52 ]: 書いた後でcとsに気が付いたけどわざわざ訂正するまでもないかと思った。
708 名前：デフォルトの名無しさん mailto:sage [2008/04/08(火) 00:53:11 ]: HTAの中で
<a href="www.yahoo.co.jp" target="_blank">ほげ</a>
と書いてこれをクリックすると、標準のブラウザーではなくIEでリンク先が開いてしまいます
標準のブラウザーで開くにはどうしたら良いのでしょうか
709 名前：デフォルトの名無しさん mailto:sage [2008/04/08(火) 01:02:12 ]: レジストリから標準のブラウザを調べて
WshShell.Run()する
710 名前：デフォルトの名無しさん mailto:sage [2008/04/08(火) 01:05:58 ]: 直接url指定でいけるんじゃね？
711 名前：デフォルトの名無しさん mailto:sage [2008/04/08(火) 01:08:33 ]: 言われてみればそうだね
712 名前：デフォルトの名無しさん mailto:sage [2008/04/08(火) 01:18:13 ]: <html><head>
<script type="text/jscript">
var WshShell = new ActiveXObject("WScript.Shell");
function go() { WshShell.Run(event.srcElement.href); return false; }
</script></head>
<body><div><a href="www.yahoo.co.jp/" onclick="return go()">Yahoo!</a></div></body>
</html>
713 名前：デフォルトの名無しさん mailto:sage [2008/04/12(土) 01:18:12 ]: じゃあHTA内でURLを開くには？
714 名前：デフォルトの名無しさん mailto:sage [2008/04/12(土) 01:25:38 ]: iframe
715 名前：デフォルトの名無しさん mailto:sage [2008/04/12(土) 09:14:31 ]: <object type="text/html" data="google.com/">
でもいけるはず
716 名前：デフォルトの名無しさん mailto:sage [2008/04/13(日) 13:25:59 ]: HTAの中にiframeでhtmlを表示してるのですが
1.親のHTAからiframeの中のhtmlのオブジェクトにアクセスする
2.子のhtmlが「自分は今HTAの中で実行されている」or「自分は今html単体で実行されている」かを判断する
にはどうしたら良いのか教えてください

javascript iframe　でググったサンプルを試してもことごとく使えないのですが、htaの時にはセキュリティかかってるのかな
717 名前：デフォルトの名無しさん mailto:sage [2008/04/13(日) 13:38:41 ]: <title>親です。</title>
<iframe src="kodomo.htm" application="yes"></iframe>

<title>子です。</title>
<script>
document.write(parent.document.title);
</script>
718 名前：デフォルトの名無しさん mailto:sage [2008/04/13(日) 14:25:06 ]: ありがとう
719 名前：デフォルトの名無しさん mailto:sage [2008/04/13(日) 14:33:16 ]: htaと同じく無セキュリティ状態になるから外のWEBは表示しないほうがいいぞ。
720 名前：デフォルトの名無しさん mailto:sage [2008/04/14(月) 17:20:37 ]: function adoSaveText(filename, text, charset){//テキストファイルを保存する
/*charset の値の例:
_autodetect, euc-jp, iso-2022-jp, shift_jis, unicode, utf-8,...
*/
try {
var stream, text;
stream = new ActiveXObject("ADODB.Stream");
stream.type = 2;
stream.charset = charset;
stream.open();
stream.writeText(text);
stream.saveToFile(filename, 2);
stream.close();
}catch(e){
return e;
}
}
rez=adoSaveText("ほにゃらら.txt","text","unicode")
で、
rez['name']=Error
rez['number']=-2146825284
rez['description']=ファイルへ書き込めませんでした。
rez['message']=ファイルへ書き込めませんでした。

な、エラーが返ってきたのですが、当然"ほにゃらら.txt"を開いているアプリケーションはありませんし
"ほにゃらら.txt"をリネームすることも出来ます

急に何の前触れもなく発生するんですが、原因分かる人教えてください
721 名前：デフォルトの名無しさん mailto:sage [2008/04/14(月) 17:42:10 ]: ADODB.Stream htaでぐぐれんこん
722 名前：デフォルトの名無しさん mailto:sage [2008/04/14(月) 18:38:58 ]: もちろんググったが、セキュリティが理由で書き込めないのしか見つからない
本当に「いきなり」書き込めなくなるんだ

で、諦めて放置してたら書き込めるようになっていたりする
723 名前：1 mailto:sage [2008/04/14(月) 22:52:07 ]: で、諦めて放置してたら書き込めるようになっていたりする

ってもう解決したみたいに言っちゃったけど、>>720の原因はまだ分かっていないので回答よろしくお願いします
724 名前：デフォルトの名無しさん mailto:sage [2008/04/14(月) 22:52:49 ]: 名前欄は間違えた
725 名前：デフォルトの名無しさん mailto:sage [2008/04/15(火) 00:52:42 ]: 自己解決
726 名前：デフォルトの名無しさん mailto:sage [2008/04/15(火) 02:20:56 ]: 教えて
727 名前：デフォルトの名無しさん mailto:sage [2008/04/15(火) 13:28:09 ]: ＞ファイルへ書き込めませんでした。
は
＞セキュリティが理由で書き込めないの
だろ？
728 名前：デフォルトの名無しさん mailto:sage [2008/04/15(火) 15:03:27 ]: フォルダの権限とか
729 名前：デフォルトの名無しさん mailto:sage [2008/04/15(火) 18:10:00 ]: >>727
セキュリティを返るような事は一切していないのに書き込めなくなるんだよ
730 名前：デフォルトの名無しさん mailto:sage [2008/04/15(火) 18:11:55 ]: どう解決したのか教えてくれよ
731 名前：デフォルトの名無しさん mailto:sage [2008/04/15(火) 18:31:30 ]: >716,718,720,722-725,729が俺なんだけど

配列Aのデータを
for(i=0;i<A.length;i++){
　A[i]をファイル"ほにゃらら.txt"に書き込み
　インラインフレームのsrcを"ほにゃらら.txt"にして、インラインフレームを更新
}
って事をしていた
で、A[0]をファイルに書き込むのは成功するんだけど、A[1]以降は必ず失敗していた

配列Aの長さは毎回変わるから、A.length=1の時は正常に書き込めていて
A.length>1&&i>1の時だけファイルの書き込みエラーが発生していたんだけど、配列の長さは手動で決定している訳じゃないから
＞本当に「いきなり」書き込めなくなるんだ
と、思ったわけ

で、ここまで来れば分かると思うけど
インラインフレームのsrcを"ほにゃらら.txt"にして、インラインフレームを更新
ってのが原因だった

インラインフレームの更新は
document.getElementById('log').src="ほにゃらら.txt";
こうやって行っていたんだけど、これは、インラインフレームが読み込み中
つまり"ほにゃらら.txt"をロックしている時に次の命令（＝A[i]をファイル"ほにゃらら.txt"に書き込み）に移行しちゃって
インラインフレームとして読み込み中の"ほにゃらら.txt"に書き込もうとしてエラーが発生していたというわけ

おしまい
732 名前：デフォルトの名無しさん mailto:sage [2008/04/15(火) 19:25:24 ]: ありがと。
733 名前：デフォルトの名無しさん mailto:sage [2008/04/15(火) 20:27:09 ]: >な、エラーが返ってきたのですが、当然"ほにゃらら.txt"を開いているアプリケーションはありませんし

が嘘だったってこと？
734 名前：デフォルトの名無しさん mailto:sage [2008/04/15(火) 20:43:15 ]: なら分かるわけがないな
735 名前：デフォルトの名無しさん mailto:sage [2008/04/15(火) 20:47:14 ]: >>733
for(i=0;i<A.length;i++){
　A[i]をファイル"ほにゃらら.txt"に書き込み
　インラインフレームのsrcを"ほにゃらら.txt"にして、インラインフレームを更新
}
を、実行したら2ループ目移行は上記の理由でエラーになる
それが「エラーが起きて書き込めない」って思った理由

インラインフレームの更新は人間にとっては一瞬だから
テストしたらエラーが出る
↓←この間に読み込みが終わった
うーん、もしかしてファイルにロックがかかってるのか？
チェックしてみよう

まさかmshta.exe内部でファイルロックしてエラー起こしてるとはね
736 名前：デフォルトの名無しさん mailto:sage [2008/04/16(水) 13:58:10 ]: まさか自分で開いておきながら
>な、エラーが返ってきたのですが、当然"ほにゃらら.txt"を開いているアプリケーションはありませんし
とはね
737 名前：デフォルトの名無しさん mailto:sage [2008/04/16(水) 18:42:10 ]: もうやめてっ！　とっくに731のライフはゼロよ！！
738 名前：デフォルトの名無しさん mailto:sage [2008/04/16(水) 20:16:32 ]: >>720を読めば「ロックしているアプリケーションは無いのに書き込めない理由が分からない
ロックしているアプリケーションがない根拠はリネーム出来るから」って分かりそうなものだが
分からなかったのか
739 名前：デフォルトの名無しさん mailto:sage [2008/04/17(木) 12:59:40 ]: 意味不明
740 名前：デフォルトの名無しさん mailto:sage [2008/04/17(木) 19:28:22 ]: まぁ本人には意味分かって当然だよな。
741 名前：デフォルトの名無しさん mailto:sage [2008/04/17(木) 21:23:08 ]: そりゃリネームや同一ドライブ上の移動ならね
ファイルではなくファイルとは別に管理されてる
「ファイルの置かれてる場所」の情報を弄るだけだから
まあ、そういうことも出来ないようなロックの仕方もあるけどね
742 名前：MagicHu mailto:mynightelfplayer@hotmail.com [2008/04/18(金) 00:10:23 ]: 首先用 ExtractIcon 获取图像句柄然后用 OleCreatePictureIndirect 函数保存图像
まず、API関数ExtractIcon使って、IconのHandlerを取得する。
取得したHandlerがOleCreatePictureIndirectの引数として、HandlerのIconが保存できます
道が見つかりました、ただし、また試してなかった。
743 名前：デフォルトの名無しさん mailto:sage [2008/04/18(金) 01:22:23 ]: 2chもグローバルになったもんだなぁ
744 名前：デフォルトの名無しさん mailto:sage [2008/04/18(金) 01:42:12 ]: >>741
またわけわからんことほざいて
745 名前：デフォルトの名無しさん mailto:sage [2008/04/18(金) 22:09:14 ]: >>742
日本語でおｋ
746 名前：MagicHu mailto:mynightelfplayer@hotmail.com [2008/04/19(土) 16:26:16 ]: EXE から　iconを取得
HTA：
<html><head><title>タイトル</title>
<script language=vbscript>

Sub window_onload()

Set myXlsAPP = CreateObject("Excel.Application")
myXlsAPP.Visible = False
Set myTEST = myXlsAPP.Workbooks.Open("c:\book1.xls")
myXlsAPP.Run("SaveIcon")
myTEST.Close()
myXlsAPP.Quit
End Sub
</script>
</head>
<Body>
</Body>
<input type = "image" src ="c:\cd.ico" alt="Ea" style="Height:20;Weidth:20">
</html>
747 名前：MagicHu mailto:mynightelfplayer@hotmail.com [2008/04/19(土) 16:32:31 ]: VBA www.china-askpro.com/msg7/qa48.shtml
中国の資料。Sourceが長いすぎ、すみません、この掲示板に書き込みできない。
748 名前：MagicHu mailto:mynightelfplayer@hotmail.com [2008/04/19(土) 16:34:04 ]: Public Sub SaveIcon()
hIcon = Excel.ExecuteExcel4Macro("CALL(""shell32"",""ExtractIconA"",""JJCJ"",0,""D:\Program Files\Warcraft III\Frozen Throne.exe"",0)")
' DestroyIcon hIcon
Dim icn As StdPicture
Set icn = CreateOlePicture(hIcon)
SavePicture icn, "c:\cd.ico"
End Sub
749 名前：MagicHu mailto:mynightelfplayer@hotmail.com [2008/04/19(土) 16:40:11 ]: Public Const PICTYPE_ICON = 3 ' The picture type is an icon. When this value occurs in the PICTDESC structure, it means that the icon field of that structure contains the relevant initialization parameters.

' Type - OleCreatePictureIndirect
Public Type GUID
Data1 As Long
Data2 As Integer
Data3 As Integer
Data4(7) As Byte
End Type

' Type - OleCreatePictureIndirect / OleLoadPicture
Public Type PICTDESC_ICON 'picType = PICTYPE_ICON
cbSizeOfStruct As Long 'UINT // Size of the PICTDESC structure.
PicType As Long 'UINT // Type of picture described by this structure, which can be any of the following values: PICTYPE_UNINITIALIZED, PICTYPE_NONE, PICTYPE_BITMAP, PICTYPE_METAFILE, PICTYPE_ICON, PICTYPE_ENHMETAFILE
hIcon As Long 'HICON // The HICON identifying the icon assigned to the picture object.
End Type

Public Declare Function OleCreatePictureIndirect Lib "OLEPRO32.DLL" (ByRef PicDesc As Any, ByRef RefIID As GUID, ByVal fPictureOwnsHandle As Long, ByRef IPic As StdPicture) As Long 'As IPicture) As Long
750 名前：MagicHu mailto:mynightelfplayer@hotmail.com [2008/04/19(土) 16:40:45 ]: Public Function CreateOlePicture(ByVal PictureHandle As Long, _
Optional ByVal BitmapPalette As Long = 0, _
Optional ByVal MetaHeight As Long = -1, _
Optional ByVal MetaWidth As Long = -1, _
Optional ByRef Return_ErrNum As Long, _
Optional ByRef Return_ErrDesc As String) As StdPicture
On Error Resume Next

Dim ReturnValue As Long
Dim PicInfo_ICON As PICTDESC_ICON
Dim ThePicture As StdPicture 'IPicture
Dim rIID As GUID

' Set the correct GUID for the "OleCreatePictureIndirect" API
With rIID
.Data1 = &H20400
.Data4(0) = &HC0
.Data4(7) = &H46
End With

PicInfo_ICON.cbSizeOfStruct = Len(PicInfo_BMP)
PicInfo_ICON.PicType = PICTYPE_ICON
PicInfo_ICON.hIcon = PictureHandle
ReturnValue = OleCreatePictureIndirect(PicInfo_ICON, rIID, 1, ThePicture)
' Return the new picture
Set CreateOlePicture = ThePicture
End Function
751 名前：MagicHu mailto:mynightelfplayer@hotmail.com [2008/04/19(土) 16:42:27 ]: EXEから、ICONを取得して、保存する。
No746 HTA
No 748，749，750 VBA
752 名前：デフォルトの名無しさん mailto:sage [2008/04/19(土) 23:09:00 ]: 詳しくないから間違ってるかもしれないが、VBA依存してるから役立たずじゃないか？
EXEを直接解析して抽出、保存できたほうが便利だし
753 名前：デフォルトの名無しさん mailto:sage [2008/04/20(日) 19:41:38 ]: んで、そのicoをhtaで表示するには？
754 名前：MagicHu mailto:mynightelfplayer@hotmail.com [2008/04/20(日) 23:40:44 ]: 確かに、もし、すべでのソースがHTAで作りできれば、素晴らしいですのに。
HTA、下記の制限あります。
①HTAが直接APIを呼び出しができない
②画像Object使えない。
③更に、VBS使えるStreamがTextStreamだけです。
ExtractIconAがEXEの中のICON資源のHandleだけ取得できます。
Handle取得後、ICONファイルを保存まで、せめて、画像Object、または　MemoryStreamが必要です。
HandleがらStdPicture（画像Object）への道が、OleCreatePictureIndirectメソッドが使えるの方法。
StdPictureがVB系のOBJ、ただし、VBSで使えない。
Handle　から　MemoryStream　への方法見つかりません。
画像ObjecObj、VBAで直接SavePictureを使います、すぐにICOファイルが出来ます。
もし、VBA使わない、もう１つ道ある：RES。
この道が試してました。Res://FileName/%233/ID　この形式のICON資源がHTMLで表示できない、
もし、資源のファイル名分かります、たとえば　Res://NotePad.exe/1.icoが、HTMLで画像が表示できる。
ただし、EXEのICON資源、ファイル名がありません、資源番号だけつきます。
ちなみに、Res://FileName/%233/ID　IEで表示されるのものが読めないの文字列。
この文字列直接保存すれば、ICONファイルが取得できない。
EXEファイルのICON、HTAで表示の方法、
以上です、変な日本語、すみません。
（上の方欲しいの機能、休みの時に、家で20時間以上Webで調査しました、予想な結果出るの瞬間、とても嬉しい。）
755 名前：デフォルトの名無しさん [2008/04/21(月) 00:19:34 ]: ↑
翻訳ソフトつかってるの？
756 名前：デフォルトの名無しさん mailto:sage [2008/04/21(月) 02:07:51 ]: 給我一些錢

[ 続きを読む ] / [ 携帯版 ]

read.cgi ver5.27 [feat.BBS2 +1.6] / e.0.2 (02/09/03) / eucaly.net products.
担当:undef