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

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

262:258
06/09/09 15:39:27
ShellNameSpace
HTAでは使えなくなりましたが、HTAから出したダイアログ内では使えます。

コントロールが、わざわざダイアログかどうかをチェックして、
ダイアログでなかったら使えないようにすることに、
何かメリットがあるとは思えないので、
よくある、セキュリティ上の問題を回避、軽減する弥縫策でしょうか。

なので、HTAでShellNameSpaceを使うときの回避策は、
HTAからダイアログを出して、その中でShellNameSpaceを使うことです。

ファイルが２つに分かれるのが面白くないので、ひとつで済ます方法を
２パターン考えました。
自身をダイアログで呼び出し、中で切り分ける。
空のダイアログを作って中身を書き換える。
どちらも、使い慣れてないせいか、かなり面倒でした。

263:デフォルトの名無しさん
06/09/18 11:42:58
htaでグーグルマップのAPIを使ったアプリは作成できるのかな。
問題点があるとしたらなんだろう。

264:デフォルトの名無しさん
06/09/18 23:29:30
用途が思いつかないことかな。

265:デフォルトの名無しさん
06/09/21 00:51:04
HTAでframeを使いたいときは、必ずソースファイルのhtmを
用意する必要があるんですかね？

何がしたいかというと、bodyから何から全てスクリプトで動的に
生成していきたいのです。

266:デフォルトの名無しさん
06/09/21 00:53:42
>>265
document.writeしてもだめだったっけ？

267:デフォルトの名無しさん
06/09/21 01:26:07
>>265
>>256みたいに
<frame src=javascript:'HTML記述'>
<frame src=vbscript:"HTML記述">
はどうでしょう。

268:デフォルトの名無しさん
06/09/22 15:27:27
わざわざframe使わなくても，div(或いはtableのtd)の中身を動的に生成するのじゃだめなの?

269:デフォルトの名無しさん
06/09/23 03:17:42
>>266
frame タグの仕様で src に URL を指定しないといけないのですが
そのURLをファイルとして用意する以外に方法はないかと。

で、>>267 さんの提案を試してみましたがなかなかうまくいきません…。
javascript:document.write(...) でいけるかと思ったのですが失敗。

>>268
たとえば、エラーメッセージと本メッセージでスクロール領域を
分けたいのですよね～。

frame ってXSSの温床になってるせいもあってかセキュリティも厳しくて、
どうも使い勝手がイマイチなのが残念。

270:デフォルトの名無しさん
06/09/23 07:49:37
<div style="overflow:scroll"></div>
でいいやん。

271:デフォルトの名無しさん
06/09/23 09:31:29
俺もframe要らないと思うよ。
frameが無いと出来ないことってほとんど無いだろうし。

272:267
06/09/23 20:28:46
>>265
こんな感じで、ヒントエクスプローラバーをやってみましたが、うまく行きましたよ。
<script>
function source(){return '<'+'html>\r\n'+'<'+'head>\r\n'+'<'+'/head>\r\n'+'<'+'body>\r\n'+'<'+'img src=tips.gif>\r\n'+'<'+'/body>\r\n'+'<'+'/html>\r\n\r\n';}
</script>
<frameset>
<frame src="javascript:parent.source()">
</frameset>

273:デフォルトの名無しさん
06/09/25 23:21:20
皆々さん、ありがとう！
確かに、やろうとしたかったことは fram を使わずにできました。
HTA:APPLICATION タグでスクロールを無効にして、

<div id="result" style="width: 100%; height: 50%; overflow: auto; margin: 0px;"></div>
<hr />
<div id="error" style="width: 100%; height: 50%; overflow: auto; margin: 0px;"></div>

とすれば、ほぼフレームと同じ見た目になりますね！
（枠を移動させるまではできませんが…。もちろんscriptをガリガリ書けばできるでしょうけど。）

それとは別に、>>272さんのワザは勉強になりました。
document.write するんでなくてそのまま評価されるんですね。

ただ、HTMLとしてなら成功しましたが、HTA では「オブジェクトでサポートされていない
プロパティまたはメソッドです。javascript:parent.source()」
とエラーになってしまいました。

274:デフォルトの名無しさん
06/09/25 23:31:53
せきゅりちいゾーンがちがうからね。
>>138 とかすればノーガードになる。

275:デフォルトの名無しさん
06/09/27 00:54:42
>>274さんありがとうございます！

うほっ、そんな属性があったとは。ステキ。
自分もまだまだ勉強不足です。

しかしセキュリティゾーンは面倒だなあ。
Vista/IE7になったらもっと面倒になりそう…。

276:デフォルトの名無しさん
06/10/03 21:54:14
>>243
subst

277:デフォルトの名無しさん
06/10/09 08:04:22

初歩的なことかもしれないけど､教えてください。
やりたいことはフレーム分割をして､それぞれに任意のオブジェクトを配置したいのです。
しかし､タグ解説サイトを見ると､フレームの中身はsrcで指定したhtmlを読ませるだけで
frameset､frameタグを書いたファイル自身で､フレーム内の内容を記述する解説が見つかりません。
もちろんHTAでも外部のhtmlを参照できるのは知っていますが､便宜上1ファイルに纏めたいので
上記のことをやる方法を教えてください。現在はとりあえずフレーム自体は表示されるのですが､
frameタグの中に何を書いても一切表示されません。
VBSはだいぶ前から使っているのですが､GUIを作成する手段としてHTAを使い始めたばかりで
HTML関連を扱うのはこれが始めてなので悪戦苦闘しています。宜しくお願いします。

とりあえずcols="50,*"で<input type="button"/>を左右に一つずつ配置する
サンプルでも書いていただけるとありがたいのですが。

278:デフォルトの名無しさん
06/10/09 08:51:39
>>277

<html>
<head>
<script>
function load() {
　　 with (frame1.document) {
　　　　 open("text/html", "replace");
　　　　 write('<html><body><div><input type="button"/></div></body></html>');
　　　　 close();
　　 }
　　 with (frame2.document) {
　　　　 open("text/html", "replace");
　　　　 write('<html><body><div><input type="button"/></div></body></html>');
　　　　 close();
　　 }
}
</script>
</head>
<frameset cols="50%,*" onload="load()">
　 <frame id="frame1" />
　 <frame id="frame2" />
</frameset>
</html>

279:278
06/10/09 08:55:40
一々open()やwrite()使わないで，
frame1.document.body.innerHTML = '<html><body><div><input type="button"/></div></body></html>';
でもよい。

280:277
06/10/09 09:26:00
>>278-279
なるほど､スクリプトで書くわけですか。
どうりでタグ解説サイトを漁っても見つからないわけだ。

とにかく､教えていただいた
document.writeとdocument.body.innerHTMLで
目的は果たせます。ありがとうございました。

281:デフォルトの名無しさん
06/10/11 21:01:01
>>191
関連情報（？）見付けたので投稿してみる
HTAで引数を使う
URLﾘﾝｸ(wscript.name)
　via WSH Lab. 掲示板

282:デフォルトの名無しさん
06/10/13 16:58:04
では、こんなのも。
HTAでコマンドラインの引数を分離するVBScript関数
URLﾘﾝｸ(www.vector.co.jp)

283:デフォルトの名無しさん
06/10/26 18:04:38
コマンドライン引数を分離するVBScript関数ってこれじゃだめなの？
URLﾘﾝｸ(www.microsoft.com)

284:デフォルトの名無しさん
06/10/26 18:55:37
mahta.exe c:\short\path\name\hoge.hta a b c
でやってみて。

285:284
06/10/26 18:58:20
typo
mshta.exe

286:デフォルトの名無しさん
06/10/27 01:17:30
面倒なので別のプログラムにやらせたりしてた。

// arg.js - コンパイル方法: jsc arg.js
import System;
var arg: String[] = Environment.GetCommandLineArgs();
for (var i: int = 1; i < arg.Length; i++)
　　 Console.WriteLi(arg[i]);


<html><head><hta:application id="Hta" /><script>
var WshShell = new ActiveXObject("WScript.Shell");
function GetCommandLineArgs() {
　　 return WshShell.Exec("arg.exe " + Hta.commandLine).StdOut.ReadAll().split(/\r\n/);
}
</script></head><body><dl><dt>Command Line:</dt><script>
var c = GetCommandLineArgs();
for (var i = 0; i < c.length; i++)
　　 document.write('<dd>' + i + ': ' + c[i] + '</dd>');
</script></body></html>

287:デフォルトの名無しさん
06/10/27 01:19:17
Console.WriteLi → Console.WriteLine

288:デフォルトの名無しさん
06/10/27 14:42:29
VistaとIE７で、HTAの扱いどうなってんの？
背景透過の容易性とか、アクティブデスクトップ機能とかあるんかいな

289:デフォルトの名無しさん
06/10/27 18:20:47
IE7入れて自分の目で確認したらいい。
OSの差は無いから。

290:デフォルトの名無しさん
06/11/08 00:28:14
HTAでAPIとか使わないで画像の合成して書き出しって可能？

291:デフォルトの名無しさん
06/11/08 00:31:54
BMPぐらいならなんとかできるかも？

292:デフォルトの名無しさん
06/11/08 00:35:03
IMGタグとかフィルタとか

293:デフォルトの名無しさん
06/11/08 00:57:39
やっぱADODB.Streamあたりでごりごりやるのかね……

294:デフォルトの名無しさん
06/11/08 01:14:14
ADODB.StreamもAPIだよ。
Win32APIではないけどね。

295:デフォルトの名無しさん
06/11/08 01:19:27
……そう言っちまったら「APIでない」のって何があるんだ……
window配下のオブジェクトツリーだけは「組み込み」ってことで特別扱い?

296:デフォルトの名無しさん
06/11/08 01:45:27
｢そう言っちまったら｣って…w
COMコンポはどう考えたってAPIとしか言えないだろ。

297:BMPをごりごり書いてみたｗ
06/11/08 03:21:03
<html><head>
<script language="VBScript">
Dim BmpFileHeader, BmpInfoHeader, BmpImageData
Dim BmpImageWidth, BmpImageHeight, BmpImageLineBytes
BmpFileHeader = Array(66,77, 54,0,0,0, 0,0, 0,0, 54,0,0,0)
BmpInfoHeader = Array(40,0,0,0, 0,0,0,0, 0,0,0,0, 1,0, 24,0, 0,0,0,0, 0,0,0,0, 0,0,0,0, 0,0,0,0, 0,0,0,0, 0,0,0,0)
BmpImageData = Array()
Sub SetArrayLong(arr, index, LongNum)
Dim num, i
num = CLng(LongNum)
For i = 0 To 3
arr(index + i) = num Mod &H100
num = num \ &H100
Next
End Sub
Sub SetBmpSize(x, y)
BmpImageWidth = x
BmpImageHeight = y
BmpImageLineBytes = ((x * 3 + 3) \ 4) * 4
SetArrayLong BmpFileHeader, 2, 54 + BmpImageLineBytes * y
SetArrayLong BmpInfoHeader, 4, x
SetArrayLong BmpInfoHeader, 8, y
ReDim BmpImageData(BmpImageLineBytes * y - 1)
End Sub
Sub SetPixel(x, y, r, g, b)
Dim index
index = (BmpImageHeight - y - 1) * BmpImageLineBytes + x * 3
BmpImageData(index) = b
BmpImageData(index+1) = g
BmpImageData(index+2) = r
End Sub

298:　↓　　続く　　　　　　　　　
06/11/08 03:21:41
Sub SaveBmpFile()
Dim strm, i
Set strm = CreateObject("ADODB.Stream")
strm.Type = 2 ' = adTypeText
strm.Charset = "iso-8859-1"
strm.Open
For Each i In BmpFileHeader
strm.WriteText ChrW(i)
Next
For Each i In BmpInfoHeader
strm.WriteText ChrW(i)
Next
For Each i In BmpImageData
strm.WriteText ChrW(i)
Next
strm.SaveToFile "test.bmp", 2
End Sub
Sub Main()
SetBmpSize 32, 32
dim i
for i=0 to 31
SetPixel i,i, 255,0,0
next
SaveBmpFile
End Sub
</script>
</head>
<body><button onclick="Main()">SAVE BMP FILE</button></body>
</html>

299:デフォルトの名無しさん
06/11/08 12:56:57
>>297-298

これ何？

300:デフォルトの名無しさん
06/11/08 13:18:07
BMPファイルを救う

301:デフォルトの名無しさん
06/11/08 14:45:44
普通、VBSやJSで処理が可能かどうか、駄目そうなら他のLLではどうか、
C++や他で作ったDLLを利用するかしないか、
でインターフェイス(GUI)にHTAを選ぶかどうか、ジャマイカ？

302:デフォルトの名無しさん
06/11/08 19:10:47
>>301
そんな普通に考えていたら最終的にHTAを選択する確率は限りなく0に近くなるだろ？
やっぱしHTAに対する盲目的な愛が必要だと思うんだ。

303:デフォルトの名無しさん
06/11/08 20:17:14
大切なことはHTAで何ができるかじゃあない．
我々がHTAのために何をしてあげられるかということなんだ．

304:301
06/11/08 20:40:26
限りなく0...www
AHKにもGUIあるしねぇ。
>>301 のは
『HTAで○○出来る？』っていうの観るとさぁ。萎えるんだ、最近。
トシのせいかな。いや、愛が足りてないのかな？

305:デフォルトの名無しさん
06/11/08 20:42:04
いや単に心の狭い小さな人間だから。

306:290
06/11/08 22:05:53
うぉっ

教えて君でごめんちゃい。
自分で調べても出来そうな方法が見つからなかったけど、
ここの住人の人たちはレベル高そうなんで、
なにか良い方法をしってるかも？と思って軽い気持ちで聞いちゃった。
「API使わないで」ってのは、「DynaCallつかってWin32API」とかって一蹴されそうなんで
入れてみただけなんですよ・・・そんなイジメないで・・・
職場の環境上HTAぐらいしか選択肢がないもんで。

てか、ADODB.Stream使った方法とかすげぇ。
この方法を使うと絵もかけちゃったりするのか、マジ感動。
ほんと勉強になりまっす

HTAで出来ることと出来ないことの切り分けが未熟なんで
迷惑かけてすいませんでした。
自分でももうすこし調べて頑張ってみるよん

307:デフォルトの名無しさん
06/11/08 23:40:14
あれ、HTAでADODB.StreamのLoadFromFileが
エラー: このコンピュータの安全性の設定により、ほかのドメインのデータソースへのアクセスは禁止されています。
になりません？
どの設定でしょう？

308:デフォルトの名無しさん
06/11/08 23:46:18
とりあえずさ､エラーが出たらそのエラー文でそのままググる癖付けろよ。
殆どの場合､聞くより早く解決するし､｢ググれカス｣とか言われずに済む。

309:デフォルトの名無しさん
06/11/08 23:54:34
でも、ローカルのHTAからローカルのファイルにアクセスできないんですよ。
こういう例はググっても出てきませんが。。。

310:デフォルトの名無しさん
06/11/09 00:02:48
もうバカとしか言えないな。
HTAの話でもないし､放置してもいいでしょ。

311:デフォルトの名無しさん
06/11/09 00:20:09
……そう言っちまったら「HTAの話」って何があるんだ……
window配下のオブジェクトツリーだけは「組み込み」ってことで特別扱い?

312:デフォルトの名無しさん
06/11/09 00:28:14
> window配下のオブジェクトツリー
HTML

313:デフォルトの名無しさん
06/11/09 00:28:25
>309
もしかしてノートンとか入れてる?

314:デフォルトの名無しさん
06/11/09 01:23:49
>もしかしてノートンとか入れてる?
入ってます。そのせいでしょうか？

315:デフォルトの名無しさん
06/11/09 10:27:43
よくノートンなんて入れる気になるな

316:デフォルトの名無しさん
06/11/09 10:44:48
スクリプト遮断をオフにしても駄目。
ADODB.Streamには、ScriptBlockingInprocServer32キーがない。
ノートンは関係ないのでは？

317:デフォルトの名無しさん
06/11/09 11:25:29
<?xml version="1.0" encoding="shift_jis"?>
<package>
<component>
<public>
<method name="CreateObject" dispid="0" internalName="xCreateObject" />
</public>
<script language="VBScript"><![CDATA[
Option Explicit
Public Function xCreateObject(ProgID)
Set xCreateObject=CreateObject(ProgID)
End Function
']]></script>
</component>
</package>
というWSCを作って、
<html><head><script language="VBScript">
Sub window_onload()
Set xCreateObject=GetObject("script:" & location.pathname & "\..\CreateObject.WSC")
Set Stream=xCreateObject("ADODB.Stream")
MsgBox TypeName(Stream)
Stream.Open
Stream.Type=2
Stream.Charset="shift_jis"
Stream.LoadFromFile location.pathname
MsgBox Stream.ReadText(-1)
End Sub
</script></head><body></body></html>
てな具合にWSCでCreateObjectさせるとエラーにならないですよ。

318:デフォルトの名無しさん
06/11/09 22:35:29
HTAにドロップするにはレジストリをいじらないといけないと聞きました
他の人に自作のHTAを提供したいのですがレジストリは変えたくないそうです
HTABOXというソフトを使って、exeファイルにドロップして起動できるようになるのでしょうか？
自分の環境はレジストリを変えているので確認できません

319:デフォルトの名無しさん
06/11/09 22:59:07
当然exeにすれば､exefileのドロップハンドラが適用されるようになるよ。
あとはvbs､jsなどを介するとか。D&Dを受け付けないだけで引数が渡せないわけじゃないから
スクリプトにD&Dさせて､スクリプトからhtaに引数を渡すって方法もある。

320:デフォルトの名無しさん
06/11/10 01:05:06
>>318
>>240でcmdファイルにすればいいんじゃないの。

321:デフォルトの名無しさん
06/11/10 01:16:03
↓のようなの作ってD&Dできるようにしたことがある。
// test.js
var HtaFile = "d:\\hta\\test.hta";
@if (@_jscript_version >= 7)
import System;
import System.Diagnostics;
import System.IO;
var args : String[] = Environment.GetCommandLineArgs();
for (var i = 0; i < args.Length; i++)
　　 args[i] = '"' + args(i).Replace('\\', '\\\\').Replace('"', '\\"') + '"';
Process.Start('mshta.exe', '"file:///' + HtaFile + '"'
　　 + ' var args=[' + String.Join(",", args) + '];');
@else
var args = WScript.Arguments;
var a = [];
for (var i = 0; i < args.length; i++)
　　 a.push('"' + args(i).replace(/\\/g, '\\\\').replace(/"/g, '\\"') + '"');
new ActiveXObject("WScript.Shell").Run('mshta.exe "file:///' + HtaFile + '"'
　　 + ' var args=[' + a.join() + '];');
@end

それで、HTAの方は
<hta:application id="Hta" />
<script>
eval(Hta.commandLine.replace(/^".*?" /, ""));
のようにして

322:デフォルトの名無しさん
06/11/10 01:35:06
>>318
MSHTA.EXE フルパス.HTA
のショートカットを作ればいいだけじゃないの。

323:デフォルトの名無しさん
06/11/10 01:47:07
過去の遺産になりつつあるbatchファイルでもいいんでないか？

324:デフォルトの名無しさん
06/11/10 19:26:29
>>319-323　ありがとうございます。いろいろ方法があるんですね
即理解できるほど頭良くないのでじっくり吟味します。

325:デフォルトの名無しさん
06/11/11 17:17:33
少ない内容を背景で誤魔化してる例見つけた
URLﾘﾝｸ(sei.qee.jp)
HTAも結局デザインセンス如何で結構使ってもらえるかも

326:デフォルトの名無しさん
06/11/13 01:23:02
>>325
HTA自体、もともとIE(の普通のコンテンツ)からセキュリティと
GUIの制約を一部はずしたものなので、無理にデザインセンスとか
いわなくても、少しだけ気をつければダイアログベースのアプリ
のようなものなら、VBで作るexeのアプリとほとんど区別つかない
ものは比較的簡単にできると思う。

URLﾘﾝｸ(www2.wbs.ne.jp)
にある「jseval」とか、見かけダイアログだし、ほとんどキーボードで
操作できるし、普段HTAと意識することなく普通に便利に使ってる。
デザインよりも内容じゃないの。

327:デフォルトの名無しさん
06/11/14 19:28:46
>>324
レジストリ云々はこのあたりの話しじゃね？→　>>191
OSがXPSP2なら無問題ジャネ？

328:デフォルトの名無しさん
06/11/15 12:16:08
それならHTAでの引数の扱い方も一緒に
>>281-283
それから
URLﾘﾝｸ(pc.2ch.net)
の182

329:デフォルトの名無しさん
06/11/23 16:48:11
>>241の出典発見
URLﾘﾝｸ(www.vector.co.jp)
　>>241←Yさん本人？　…まさかね

330:デフォルトの名無しさん
06/11/24 20:18:56
こっちにHTAネタが
ｽﾚﾘﾝｸ(tech板:742番)

331:デフォルトの名無しさん
06/11/26 13:11:47
>326
そこそこ詳しい人なら中身で評価するけどね・・・
パソ初級者レベルだと見た目が良くないとダメだよ。
うちの嫁がそう。
あとブランド名か。

332:デフォルトの名無しさん
06/11/26 17:13:03
qooxdoo、Yahoo UI Library、Prototype Window Class とか
javascriptのライブラリ使えば結構リッチなGUIになるけどね。そいや >>198 もあったね。
スクリプタな人は嫌うのかな？

333:デフォルトの名無しさん
06/11/27 09:02:24
HTAは一見単なるHTMLファイルと見紛うような
見た目のチープさがいいんだよ！！

334:デフォルトの名無しさん
06/11/27 16:13:50
エエエエエェェ(;´Д`)ェェエエエエエエエエ

335:デフォルトの名無しさん
06/11/27 18:18:43
GUIなしのHTAの利用法を忘れてはいけません。
インラインで書けるスクリプトホスト。
Windowオブジェクトが組み込みで使えるスクリプトホスト。
例えば、>>330

336:デフォルトの名無しさん
06/11/27 19:01:28
>>335
batファイル作るんならもう一つwshファイル作った方が早くね？

と思ったが、doskeyマクロとかに登録するともしかしてコンソールで便利に使えるのかな？

337:デフォルトの名無しさん
06/11/28 19:44:42
>>336
例えば、>>330をWSHファイルで作ると、どう？
かえって手間が掛かるのでは？

338:デフォルトの名無しさん
06/12/14 07:20:47
現在の時刻に従って選択肢のデフォルトをAMかPMかに変えたいのですが、

<HTML>
<BODY>
AM/PM　<SELECT name=selAmPm size=1>
　　　　<OPTION name=optAm value=AM>AM</OPTION>
　　　　<OPTION name=optPm value=PM>PM</OPTION></SELECT><BR>

<SCRIPT LANGUAGE></SCRIPT>
</BODY>
</HTML>

options(0)というようにインデックス0でなく、名前optAmで参照したいのですが、
どうやるといいのでしょうか？

　　　　selAmPm.optAm.selected = true;
　　　　selAmPm.options.optAm.selected = true;
　　　　selAmPm.options("optAm").selected = true;

どれもダメだった・・・orz

339:デフォルトの名無しさん
06/12/14 09:03:25
> selAmPm.options("optAm").selected = true;
で出来るよ。
但し｢name=optAm｣ではなく｢id=optAm｣ね。(両方でもいいけど)
HTA関係ないHTMLの基礎。

340:デフォルトの名無しさん
06/12/14 10:03:46
セキュリティ脆弱性があるから、HTAの関連付けを外せ、と巷間で言われてますが、
そんなに危ない？
対策としては、拡張子を適当に変えるだけでもよいのでは？HTBとか。

341:デフォルトの名無しさん
06/12/14 10:38:44
関連付け外したり､拡張子変えたりで対策出来ると思ってるようなバカには危ないかもな。
きちんと対策してれば何の問題もないけど。

342:デフォルトの名無しさん
06/12/14 15:28:49
EXEもHTA同様に危ないわけだが

343:デフォルトの名無しさん
06/12/14 18:41:32
>>341
バカバカってあまり言わないほうが、バカに見えないですよ。

344:デフォルトの名無しさん
06/12/14 20:09:28
>>341 1回
>>343 3回

345:デフォルトの名無しさん
06/12/14 22:06:35
バカバカバカバカ。ほらね、そうでしょ？

346:338
06/12/15 00:37:25
ありがとうございました。

347:デフォルトの名無しさん
06/12/15 14:39:32
関連付け外すのは、MSが
HTA の実行の脆弱性 - CVE-2006-1388
の回避策に挙げてるくらいだから、それなりに有効だろ。
でもそれじゃ不便だから、HTBに関連付けを変えれば、同等の効果があるんじゃないか。
HTA遣いのリスクを避ける知恵じゃないか。

348:デフォルトの名無しさん
06/12/15 17:49:17
>>307
マイコンピュータゾーンの
「ドメイン間のデータソースのアクセス」が「ダイアログを表示する。」
になっていると、そうなるみたい。なんかメッセージと合わないですが。
マイコンピュータゾーンのセキュリティを強化して、
ローカルのHTAからローカルのファイルにアクセスできないのも困ったもの。
>>317の代替手段はあるけど、ちょっと面倒ですね。

349:デフォルトの名無しさん
06/12/16 01:09:33
HTAでEscキーでウィンドウを閉じるようにはできないですか？

350:デフォルトの名無しさん
06/12/16 01:15:59
できるよ

351:デフォルトの名無しさん
06/12/19 23:38:41
ありがとう。できました。

こういうのがうまくいかないのはなぜなんでしょう？

<HTML id=maindoc onkeydown=fOnkeydown>
<BODY>
<SCRIPT>
//maindoc.onkeydown=fOnkeydown;
function fOnkeydown(){
　　　　if (window.event.keyCode == 0x0D){
　　　　　　　　alert("enter");
　　　　}
}
</SCRIPT>
</BODY>
</HTML>

「//」を取ると動きますが・・・

352:デフォルトの名無しさん
06/12/20 11:54:35
おぉ、HTAのスレがあったんですね。過疎ってますけど(ノ∀｀)ｱﾁｬｰ

自分の場合は、
番組表、天気予報、ニュースなどを取得する、
Samurizeのスクリプト(VBS)を使って、
出力結果をHTML+CSSで整形、単体で起動できるようにしてます。

353:デフォルトの名無しさん
06/12/20 12:06:11
ありきたりな使い方だな
俺もありきたりな使い方しかしてないけど

354:351
06/12/21 00:39:13
なんとなくわかりました。どうも。

355:デフォルトの名無しさん
06/12/22 15:42:17
>>198 のよりも手軽に使えるかも
DHTML Suite for applications
URLﾘﾝｸ(www.dhtmlgoodies.com)
注）ライセンス：LGPL 　…なのが玉に瑕...か

356:デフォルトの名無しさん
06/12/23 15:50:48
起動時にウインドウの位置と大きさを指定したいのですが、
マウスボタンを下げた状態でresizeToした場合にエラーが出るので
念のためマウス状態を取得して場合分けしてみたところ、fireEventで
イベントを呼び出したためかevent.buttonがうまく機能してくれません。
onloadイベントを使うと画面表示後にリサイズして見栄えが悪いので
出来ればfireEventを使いたいのですが、
この場合たまに起こる程度のエラーは諦めるしかないのでしょうね。

<html><head><script language="javascript">
document.all.tags("html")(0).onclick = function (){
if (1 & event.button) return true;
resizeTo(300, 300);
moveTo(event.screenX -150, event.screenY -150);
document.all.tags("html")(0).onclick = null;
return false;
}
while (document.all.tags("html")(0).fireEvent("onclick"));
</script><hta:application></head></html>

357:デフォルトの名無しさん
06/12/23 16:03:05
エラー拾ってリトライするか、
エラー無視してonloadで念のためもう一度やる、とかは？

358:sage
06/12/23 17:57:10
>>356
例外処理という方法があったのですね。
アドバイスありがとうございます、
おかげで期待通りの動作になりました。

359:デフォルトの名無しさん
06/12/26 14:37:26
>>355　ライセンス：LGPL　ねぇ…
Yahoo UI Libraryが出てるから魅力感じないス。
phpspotでも紹介してたスね。こっちのほうが速いけど。

// 何気にこのスレって面白い情報集まるのね　>>39 >>85　とか早い時期から注目してるし。

360:デフォルトの名無しさん
06/12/27 11:07:58
HTMLと同じように使えるので気に入ってます。
ただ，HTAではcookieは使えないようですね？
以前のデータをcookieのように保存するよい方法
がHTAにあれば，教えてください。

361:デフォルトの名無しさん
06/12/27 11:28:30
バイナリに保存しちゃえばええんちゃう？

function readBinary(file){
var adTypeBinary = 1;
var stream = new ActiveXObject("ADODB.Stream");
stream.type = adTypeBinary;
stream.open();
stream.loadFromFile(file);
stream.position = 0;
var bin = stream.read();
stream.close();
var tmpElm = new ActiveXObject("Microsoft.XMLDOM").createElement("tmp");
tmpElm.dataType = "bin.hex";
tmpElm.nodeTypedValue = bin;
return tmpElm.text;
}

function writeBinary(file,hexBinStr){
var adTypeBinary = 1;
var adSaveCreateNotExist = 1;
var adSaveCreateOverWrite = 2;
var tmpElm = new ActiveXObject("Microsoft.XMLDOM").createElement("tmp");
tmpElm.dataType = "bin.hex";
tmpElm.text = hexBinStr;
var bin = tmpElm.nodeTypedValue;
var Stream = new ActiveXObject("Adodb.Stream");
Stream.Type = adTypeBinary;
Stream.Open();
Stream.Write(bin);
Stream.Savetofile(file, adSaveCreateOverWrite);
}

362:デフォルトの名無しさん
06/12/27 14:49:50
>361
詳しいコードまで作成していただき，感謝です。これを改良して使わさせて
いただきます。

ところで，自分で教えていただいた
new ActiveXObject("ADODB.Stream");
をネットで検索すると，Ajaxの解説ページ，JavaScript Libraryのページ
などにありました。HTAに関連する他のnew ActiveXObject("...")の基本
的な機能を勉強するに，おすすめのサイトはございますか？

363:デフォルトの名無しさん
06/12/27 16:24:47
>>362
ActiveXObjectはHTA用とか関係ないから。とりあえずMSDNにはMSが作ってる
ADODB.Stream､Microsoft.XMLHTTP､MSXML2.DOMDocumentや
WSH付属のWScript.XXXXX､Scripting.FileSystemObject､Scripting.Dictionaryなどの
解説があるし､MS製以外なら制作者のHPや付属ドキュメントみれば良い。

364:デフォルトの名無しさん
06/12/27 19:25:05
>>360
cookie使えたような気がしたけど、俺の記憶違いかな

HTAらしさを醸し出すならやっぱし
behavior:url(#default#userData)

365:デフォルトの名無しさん
06/12/29 21:08:44
HTAならテキストファイルの読み書きが出来るからiniでもxmlでも好きなようにするがよろしい。

366:デフォルトの名無しさん
07/01/22 07:00:27
HTAで2ちゃんねるブラウザってありそうなんんだけど探したら無かった・・・

367:デフォルトの名無しさん
07/01/22 07:10:44
×探したら無かった・・・
○検索スキルの低さ故に見つけられなかった

でしょ。ちゃんと存在してるんだから。

368:デフォルトの名無しさん
07/01/25 07:47:05
HTA 2ちゃんねるブラウザ
で探したら無かった。

369:デフォルトの名無しさん
07/01/26 02:39:30
>>368
俺はあるかどうか知らんけど、HTAで出来てることを強調していないブラウザはその方法じゃHitしないかもね

370:デフォルトの名無しさん
07/01/27 21:23:42
HTAを起動した時に押されていたキーを取得することって出来ますか？

371:デフォルトの名無しさん
07/01/27 22:38:47
HTAの窓をサイズ固定&常に最前面表示って可能でしょうか？
どちらか片方だけでもいいので方法があれば教えてください。

372:デフォルトの名無しさん
07/01/27 23:01:03
BORDER=NONE

373:デフォルトの名無しさん
07/01/27 23:27:40
>>370
シフトキー or 文字キー ?

374:デフォルトの名無しさん
07/01/27 23:53:33
>>373
どちらでも。
何でもよいからHTAを起動した時にキーが押されていたらと言う処理がしたいのです。

375:デフォルトの名無しさん
07/01/28 14:40:26
>>370
event.shiftKey
event.keyCode

376:デフォルトの名無しさん
07/01/28 23:27:35
>>375
keycodeの方はうまく動かなかったのでshiftの方も動かないかと思ったら
onloadに組み込んでも動くみたいですね。どうもです。

377:デフォルトの名無しさん
07/02/17 11:29:58
これをスタートアップに登録しとくとPCが挨拶してくれるという
しょうもないスクリプト

<html>
<head>
<meta http-equiv="Content-Type" content="text/html"; charset="Shift_JIS">
<title>G41</title>
<HTA:APPLICATION border="dialog" SCROLL="no">
<style type="text/css">
</style>
<Script language="VBS">
Call Window.ResizeTo(300,100)
Sub wclose()
window.close()
End Sub
</Script>
</head>
<body>
おはようございます、ご主人様！
<input type="button" onClick="wclose()" value="うむ">
</body>
</html>

378:デフォルトの名無しさん
07/02/17 14:29:26
>>377
萌えが足らなくね？

<script>
var spkr = new ActiveXObject("SAPI.SpVoice");
spkr.Speak("o ha yo, go zai math, Go shou zine samar.");
window.close();
</script>

379:デフォルトの名無しさん
07/02/17 17:04:09
PM5:00を回りましたね。

<html><head><script>
function speach(msg) {
var sam = new ActiveXObject("SAPI.SpVoice");
sam.Speak(msg);
}
</script><head>
<body onload="speach(fm.msg.value)">
<form id="fm" onsubmit="speach(this.msg.value); return false;">
<textarea id="msg" cols=80 rows=20>
o ca ery na sai ma say, Go shou zine samar?
o show ku g ni nasay masu car?
o flow ni nasay masu car?
so, re, tow, mo oh?
</textarea>
<input type="submit" value="おｋ">
</form></body></html>

380:デフォルトの名無しさん
07/02/17 17:08:23
>>379はちゃんと動くけど>>378は
「型が一致しません」とか出て動かない
どこがおかしいんだろ

381:デフォルトの名無しさん
07/02/17 17:14:23
めちゃくちゃ野太い声で挨拶されたw

382:デフォルトの名無しさん
07/02/18 00:55:07
>>380
環境依存のActiveXを使ってるからだよ。
初心者はよくこういうことを注意書きも無しにやらかす。
まぁうちでは動くけどな。

383:デフォルトの名無しさん
07/02/18 12:37:46
>>382
379が動いて378が動かない環境依存のActiveXってどんなのだよ！？

384:デフォルトの名無しさん
07/02/18 12:52:45
どうしたの?

385:デフォルトの名無しさん
07/02/18 14:31:54
>>382
>>377のScriptの部分を>>378のと入れ替えて
bodyの中身を削っておみ？　動く筈。

386:385
07/02/18 15:41:56
ごめ。
安価ミスった 385での382へのアンカは　>>380ね。スマソ
>>382　へは>>383と同意見。

387:デフォルトの名無しさん
07/02/19 20:45:05
>>386
動かない。「ステートメントの末尾が不正です」って出る。

388:デフォルトの名無しさん
07/02/20 00:31:29
も～
>>378 は JScript だ。VBScript に直すと

<script language="VBS">
Set spkr = CreateObject("SAPI.SpVoice")
spkr.Speak "o ha yo, go zai math, Go shou zine samar."
window.close
</script>

389:387
07/02/20 05:31:59
>>388
動いた！

390:デフォルトの名無しさん
07/02/20 12:03:16
>>389
<Script language="VBS">を残してたのかw
378のをまんま置き換えれば動いたろうに。
てか今度からはエラーメッセージ追いかけれw

閑話休題
コードジンに『MS Agentを使った...』って記事が出てたね。
萌えを追求するならエージェント自分で作っ(ry

391:デフォルトの名無しさん
07/02/20 21:52:50
質問です。
とあるhtaファイルを作成・実行し、それをwindow.close()で閉じたのですが、
閉じた後もmshta.exeがプロセスに残ってしまいます。
原因としては何が考えられるのでしょうか？
そのhtaファイルを実行する前は、mshta.exeはプロセスにはありませんでした。
環境はwindowsXP、mshta.exeのバージョンは6.0.2900.2180です。

392:デフォルトの名無しさん
07/02/20 21:58:06
まずは「とあるhtaファイル」と「とないhtaファイル」の
違いを探して報告してください。

393:デフォルトの名無しさん
07/02/20 22:09:25
とりあえずソースを部分的に伏せたりせずにここに貼るかどっかにうpするかだな。
話はそれからだ。情報貰いたいけど情報出したくはないとか我が侭いうならさようなら。

394:デフォルトの名無しさん
07/02/20 23:24:50
if ... then
window.close()
end if
nanika
みたいにcloseの後で処理してない？

395:391
07/02/21 00:17:48
>>394
なるほど、そういうことをすると残っちゃうんですね。
>>392,393
htaの仕様ではないみたいなので、とあるの悪いところを探してみます。

ありがとうございます。

396:デフォルトの名無しさん
07/02/21 00:24:47
そんなんで残るの？

397:デフォルトの名無しさん
07/02/21 04:55:02
HTAは完全に処理を分岐させないとそういうことがままある。

398:391
07/02/21 12:59:29
原因は埋め込まれていた「読み込みに成功していないJavaApplet」でした。
Appletをとりあえず削除した状態で動かしてみると正常に終了できました。

399:デフォルトの名無しさん
07/02/23 18:17:22
IE7に入れ替えたら、XPで"htaファイルって何で実行したら良いんですか？"
と聞いてくるようになった。設定が間違えているのかな？

400:デフォルトの名無しさん
07/02/23 18:34:33
IE7入れてるけどそんなの聞いてこないよ。

401:デフォルトの名無しさん
07/02/23 22:10:07
>>399
IE7入れてないんで判らんけど
フォルダオプション確認してみれば？
HTA→mshta.exe

402:デフォルトの名無しさん
07/02/23 22:18:32
>>399
フォルダオプションで関連付けを直すのは適切でないので、まず
↓をメモ帳に貼り付けて hta.reg という名前を付けて保存して，hta.regを実行してみては
Windows Registry Editor Version 5.00

[HKEY_CLASSES_ROOT\.hta]
@="htafile"
"Content Type"="application/hta"

403:デフォルトの名無しさん
07/02/23 22:32:57
HKEY_CLASSES_ROOT\htafile は放置ですかそうですかw

404:デフォルトの名無しさん
07/02/23 22:34:53
HKEY_CLASSES_ROOT\htafile は残ってることが前提、ってことは
この手の関連付け問題を何度か扱っていればわかる。

405:デフォルトの名無しさん
07/02/23 22:44:00
何度か経験してれば､その前提が当てにならないことに気付くと思うんだが
運良く(運悪く?)そういうのに当たったこと無いのかな?

406:デフォルトの名無しさん
07/02/23 22:52:24
「前提」だから当てにならないこともあるだろ

407:デフォルトの名無しさん
07/02/24 01:14:00
>>401
フォルダーオプション見てみましたが、hta拡張子自体がなくなってました。

408:デフォルトの名無しさん
07/02/24 01:15:25
>>404
m9(^Д^)ﾌﾟｷﾞｬー

409:デフォルトの名無しさん
07/02/24 02:46:47
つ
mshta.exe /register

410:こんな朝早くからなにやってんだろ、俺
07/02/24 07:40:41
<html><head><script>
function AX(s){return new ActiveXObject(s);}
function exec(dat,arg){var fp,xd,bs,fs=AX("Scripting.FileSystemObject");
fp=fs.GetSpecialFolder(2)+"\\htaEx.exe";
xd=AX("Microsoft.XMLDOM").createElement("x"); xd.dataType="bin.base64";
xd.text=dat.replace(/\s/g,"").replace(/@(\d+)/g,
function(a,b){return Array(b*1+1).join("A")});
bs=AX("ADODB.Stream"); bs.Open(); bs.Type=1;
bs.Write(xd.nodeTypedValue); bs.SaveToFile(fp); bs.Close();
AX("WScript.Shell").Run('"'+fp+'" '+arg,1,true); fs.DeleteFile(fp); }
</script></head>
<body onload="exec(data.innerText, '/t /a:80 /c:FF00FF')">
wsh.Run("htaEx.exe /t /a:80 /c:FF00FF");<p>
/t: 最前面表示。<br>/a: 透明度％<br>/c: 透明色<br>です。<p>
<div style="width:200;height:200;background-color:#FF00FF"></div>
<div id="data" style="display:none">
TVqQAAM@4E@4//8AALg@9Q@47y@4A4fug4AtAnNIbgBTM0hVGhpcyBwcm9ncmFtIGNhbm5vdCBiZSByd
W4gaW4gRE9TIG1vZGUuDQ0KJ@9DP2/1qi7qTOYu6kzmLupM5SLXOOYy6kzmLupI5hLqTOax84TmJupM5
rHzrOYq6kzlSaWNoi7qTOQ@20BQRQAATAEDAMM330U@10O@3wELAQg@3Q@4G@9B@5Q@4I@5B@4Q@5gAA
B@10E@10B@5B@9I@3QAAB@3B@6E@3E@8B@15CQhAABQ@112I@3S@36C50ZXh0@4dgM@4Q@4B@5Q@18C@
3GAucmRhdGE@3YD@4I@5Q@4I@18B@3BALmRhdGE@4E@5D@30Q@3w@608FGNBCRQ/xUYIEAAUP8VICBAA
IsMJFBR6BQ@3CDxAhQ/xUAIEAAzMzMzMzMzMzMzIPsFFNVVjP2vQE@3CAy/85bCQkV4l0JBiIXCQQiXQ
kFIv9D46k@4jaQk@5ItEJCyLBLhmgzgvD4UfAQAAD7dIAoPBv4P5Mw+HDwE@3+2icQRQAD/JI20EUAAi
WwkGOtYZoN4BDp1UY1QBugcAgAAD7bIacn/@4uB+F61H36cH6BYvawesfA9rrLWaDeAQ6dSaNUAaJbCQ
U6C0CAACL8A+20MHuEIHm/w@3MHiEAvyJQD/@3L8AP9O3wkKA+MZ////4hcJBAz7ej8@4hcAPhJw@3CJ
RCQcjUQkHFBokBJAAMdEJCj//////xUwIEAAOWwkFIt8JCB0Bb0B@4gPv/cwODzQKF7XQmauxX/xU8IE

411:続く ↓
07/02/24 07:41:23
AADQAACABQauxX/xU4IEAAi0wkEFVRVlf/FUAgQACDfCQYAHQWaAN@3BqAGoAagBqAGr/V/8VKCBAAF9
eXTPAW4PEFMNqAGhIIEAAaFggQABqAIhcJCD/FSwgQABfXl2DyP9bg8QUw5CVEEAAwBBAAI8QQACQEU@
4MBAwMDAwMDAwMDAwMDAwMDAwIDAwMDAwMDAwMDAwMAAwEDAwMDAwMDAwMDAwMDAwMDAszMzMzMzMzMg
ewsAgAAU1ZXM9vHRCQMLAIAAP8VBCBAAIv4V2oC6EEBAACL8IP+/3UMX14zwFuBxCwCAADDjUQkDFBW6
CkBAACFwHQsOXwkFHQijUwkDFFW6BoBAACFwHXrVv8VFCBAAF9ei8NbgcQsAgAAw4tcJCRW/xUUIEAAX
16Lw1uBxCwCAADDzMzMzMzMzMzMzMzMVot0JAiNRCQIUFb/FTQgQACLRCQMiwg7TCQIdQmJcAQzwF7CC
AC4AQ@3F7CCADMD7cKM8Bmhcl0KI2b@5GaD+TByEGaD+Tl3Cg+3yY0EgI1EQdAPt0oCg8ICZoXJdd7Dz
MzMzMzMzMzMzMzMzA+3CjPAZoXJdFmNmw@4Bmg/kwchNmg/k5dw2DwP0Pt8nB4AQDwesuZoP5QXISZoP
5RncMD7fJweAEjUQIyesWZoP5YXIQZoP5ZncKD7fJweAEjUQIqQ+3SgKDwgJmhcl1rcP/JQggQAD/JQw
gQAD/JRAgQ@185DOIQAA3CEAAPIh@3OIgAAICIAADIiAAC8IQ@7OQi@8kCIAAKAiAACuIgAAvCIAAE4i
AABgIgAAciI@7BoAHQAYQBFAHg@9dQBzAGEAZwBlADoAIABoAHQAYQBFAHgAIAAvAHQAIAAvAGEAOgAx
ADAAMAAgAC8AYwA6AFIAUgBHAEcAQgBCAAoACgAgAC8AdAA6ACAAVABvAHAATQBvAHMAdABXAGkAbgBk
AG8AdwAKACAALwBhADoAIABBAGwAcABoAGEAIABCAGwAZQBuAGQAIAAoADAALQAxADAAMAApAAoAIAAv
AGMAOgAgAFQAcgBhAG4AcwBwAGEAcgBlAG4AdAAgAEMAbwBsAG8Acg@6dCE@13QCI@4gAACcIQ@12DYI
gAAKC@3JQh@13Poi@3gI@29DOIQAA3CEAAPIh@3OIgAAICIAADIiAAC8IQ@7OQi@8kCIAAKAiAACuIgA
AvCIAAE4iAABgIgAAciI@8RAUdldENvbW1hbmRMaW5lVwC5AEV4aXRQcm9jZXNzAEMBR2V0Q3VycmVud
FByb2Nlc3NJZAByAENyZWF0ZVRvb2xoZWxwMzJTbmFwc2hvd@3lwJQcm9jZXNzMzJGaXJzdFcAmQJQcm
9jZXNzMzJOZXh0VwAANABDbG9zZUhhbmRsZQBLRVJORUwzMi5kbGwAAIECU2V0V2luZG93TG9uZ1cAAG
8BR2V0V2luZG93TG9uZ1cAAFsCU2V0TGF5ZXJlZFdpbmRvd0F0dHJpYnV0ZXMAAIMCU2V0V2luZG93UG
9zAADmAU1lc3NhZ2VCb3hXAN4ARW51bVdpbmRvd3MAewFHZXRXaW5kb3dUaHJlYWRQcm9jZXNzSWQAAF
VTRVIzMi5kbGw@3cAQ29tbWFuZExpbmVUb0FyZ3ZXAABTSEVMTDMyLmRsb@334A
</div></body></html>

412:これは ↑
07/02/24 07:47:58
htaで、半透明や四角くないウィンドウをつくるためのexeを作ってみました。
Win2000/XP用です。
ファイル展開部分はおまけなのでつっこまないでください。

なお、「悪意のあるプログラム」ではありませんが、不具合はあるかもしれません。

413:デフォルトの名無しさん
07/02/24 08:24:49
怪しいので誰か代わりにやってけろ

414:デフォルトの名無しさん
07/02/24 10:19:30
>>391-397
早速、記事が。
URLﾘﾝｸ(scripting.cocolog-nifty.com)

415:デフォルトの名無しさん
07/02/24 14:11:19
>>410
こりゃ面白いな。参考にさせてもらうよ。

416:デフォルトの名無しさん
07/02/24 16:53:23
\windows\system32と\windows\ie7に同じhta.exeがあるのですが、違いがあるのですか？

417:デフォルトの名無しさん
07/02/24 16:55:40
>>416
自己レス、
hta.exe->mshta.exeでした。
タイムスタンプは、前者が新しいのですが。

418:410
07/02/24 21:45:32
>>413 だよねｗｗ
>>415 ひとばしら乙であります。

背景色を透過指定すればアニメーションGIFでもしっかりくり抜きしてくれるので
border=none にしちゃえば一見HTAには見えないアプリも作れます。

exeの内容は親プロセスのウィンドウを探して拡張スタイルを設定しているだけです。
親プロセスがHTAかどうかは確認していないので気をつけてください。
複数のウィンドウを持っている場合、誤爆する可能性があります。

不定形ウィンドウは>>21＠秘密工場さんのとこのMascot Controlでも作れるけど
これと違い単体exeなのでレジストリ登録など不要で気楽に使えると思います。

419:デフォルトの名無しさん
07/02/25 00:21:40
>>410-
よくそんな怪しいバイナリ動かす気になるな？
っていうかこれセキュリティ的には動いちゃマズイんじゃないの？

420:デフォルトの名無しさん
07/02/25 00:27:56
ビールスだった
もうだめだ

421:デフォルトの名無しさん
07/02/25 11:55:42
>>420
飲み過ぎ！

422:デフォルトの名無しさん
07/02/25 14:52:04
流行性ネコシャクシビールス

423:デフォルトの名無しさん
07/02/25 18:37:11
>>418
配布する自作プログラムにデコードしたexeをそのまま入れて再配布してもおｋ？

424:デフォルトの名無しさん
07/02/25 19:28:20
たとえおkだとしても､そんな惨めな真似するなよw

425:410
07/02/25 19:49:51
>>423
どうぞ、どうぞ。

かっくいいのができたらこのスレでも紹介してくださいね。

426:デフォルトの名無しさん
07/02/26 06:09:44
>>425
どうも。使わせてもらいます。

427:デフォルトの名無しさん
07/03/12 22:16:26
ＳＱＬ鯖なんかのインストーラの親もＨＴＡだし
簡単なものなら楽に作れるので結構いいんじゃないかと思うのでＡＧＥ

428:デフォルトの名無しさん
07/03/18 19:39:56
>>377
時間ごとにメッセージ変更してみた。

If Hour(Now()) < 12 then
Document.Write "おはようございます、ご主人様！"
ElseIf Hour(Now()) >= 12 And Hour(Now()) < 13 then
Document.Write "お昼ですね、ご主人様！"
ElseIf Hour(Now()) >= 13 And Hour(Now()) < 17 then
Document.Write "こんにちは、ご主人様！"
ElseIf Hour(Now()) >= 17 then
Document.Write "おかえりなさいませ、ご主人様！<br>"
Document.Write "ご飯にします？　それともおフロ？"
End If

次ページ