HTA�ɂ��X�N��v�g�A�v��P�[�V��

�@�u��E�U�p��Web�A�v��P�[�V��ł́AHTML�x�[�X��GUI�Ɗe��̃X�N��v�g��ActiveX�AJava�A�v��b�g�Ȃǂ�g�ݍ��킹�č��x�ȋ@�\��@�\��񋟂ł��܂��B��A�Z�L��e�B�̊֌W�ネ�[�J��t�@�C��p�ł��Ȃ��A�{��҂��g�p��Ă��u��E�U�ɂ��Č��ʂ��ς��Ă��Ǝ��p�I�ȃA�v��P�[�V��낤�Ƃ��ƕs�ւ��邱�Ƃ��ł��傤�B
�@��Ȏ��A�A�v��P�[�V��s��r�I�V��i�S�ȍ~�jInternet Explorer��C��X�g�[��ꂽWindows�Ȃ�AHTML Applications(HTA)�𗘗p��Web�y�[�W��̂Ɠ��l�̊��o�ŁA��[�J��t�@�C��Ɏ��R�ɃA�N�Z�X�\�ȃX�^��h�A��A�v��P�[�V��邱�Ƃ��ł��܂��BHTA�ł́AWeb��l��HTML+CSS+�e��X�N��v�g�Ŏ�y��GUI�⃌�C�A�E�g��쐬�ł��AActiveX�R��|�[�l��g�𗘗p��邱�Ƃ��\�ł��B��Ƃ��A�v��P�[�V��⍂�x�ȏ��s��ActiveX�R��|�[�l��g�̑��p�C��^�[�t�F�[�X�Ȃǂ�HTA�𗘗p��΁A�J��啝�ɏȗ͉��ł��邩��܂��ˁB

�@��HTA��̂͊ȒP�ŁAHTML�t�@�C��΂��̊g��q��.hta�ɕς��΃_�u��N��b�N�ŋN��ł��HTA�ɂȂ�܂��B�܂�A�K��ȕ��\��HTML�t�@�C��̊g��q��.hta�ɕς��邾��ł��P��HTA��邱�Ƃ��ł��킯�ł��i��̂悤��HTA�Ɏ��p��̗��_�͂Ȃ��ł��傤��j�B
�@��A��ɂ��ł͖ʔ��Ȃ��̂ŁA��̓��[�J��t�@�C��ɗ񋓂��Ă��t�@�C��ActiveX�R��|�[�l��g�i��f�B�A�v��C��[�j�ōĐ��HTA��Ă݂܂��B

HTA�̗�

�@��HTA�́A�ȉ��̂悤�Ȃ��̂ł��B

�N��ɓ��f�B��N�g��ɂ��list.txt��ǂݍ��
list.txt�ɗ񋓂��Ă��t�@�C��Z��N�g��j��[�ɒǉ��
�Z��N�g��j��[��I��ꂽ��A��̃t�@�C��f�B�A�v��C��[�ōĐ��

�@�܂��A�Z��N�g��j��[�ƃ��f�B�A�v��C��[��ȉ��̂悤�ɂ��Ĕz�u��Ă݂܂��B��f�B�A�v��C��[�́A�N��XID��w�肵��ActiveX�R��|�[�l��g�Ƃ��Ė��ߍ��ł��܂��B

<html>
<body>

<h2 align="center">HTA Test</h2>

<p align="center"><select name="list"></select></p>

<p align="center"><object  id="player" classid="CLSID:22D6F312-B0F6-11D0-94AB-0080C74C7E95">
</object>
</p>

</body>
</html>

�@��āA�A�v��P�[�V��̏��FileSystemObject��g�p��ă��[�J��t�@�C��list.txt��ǂݍ��݁A�Z��N�g��j��[�Ƀt�@�C��ݒ肵�܂��B

function init() {

  var fso = new ActiveXObject("Scripting.FileSystemObject");
  var f = fso.GetFile("list.txt");
  var rs = f.OpenAsTextStream();

  var i = 0;

  while (!rs.AtEndOfStream) {

    list[i] = rs.ReadLine();

    i++;

  }

  rs.close();

  for (var j=0;j<i;j++) {

    var n = document.createElement("option");
    n.text = list[j];

    document.all.list.add(n);

  }

}

�@��ŁA�A�v��P�[�V��̃Z��N�g��j��[�Ƀt�@�C��̃��X�g��ǉ��ꂽ�̂ŁA��Ƃ̓Z��N�g��j��[��OnChange�őI�΂ꂽ�t�@�C��p�X��f�B�A�v��C��[�I�u�W�F�N�g�ɓn��΍Đ��܂��B

function listChange() {

  document.all.player.FileName = document.all.list.options[document.all.list.selectedIndex].text;

}

�@�ȏ�Ŋ��ł��B��̃A�v��P�[�V��́A�g��q��.html�Ƃ��ƃu��E�U��Web�y�[�W�Ƃ��ĕ\��邱�Ƃ��o��܂��B��A��̏ꍇ�̓��[�J��t�@�C��ɃA�N�Z�X�ł��Ȃ��̂Ńt�@�C��ǂݍ��܂ꂸ�A�v��C��[�Ƃ��Ă͋@�\��܂��B

�v��O��

�@�܂��Atest.hta��_�E��[�h��瓯��f�B��N�g��Ɉȉ��̂悤��list.txt��쐬��Ă��i�t�@�C��̃p�X�́A��s��ɂ��킹��j�B

D:\BGM\no1.mid
D:\BGM\no2.mp3
D:\BGM\no3.wma

�@list.txt��test.hta�𓯂��f�B��N�g��ɒu��Atest.hta��_�u��N��b�N��Ă��B��ŃA�v��P�[�V��N��܂��̂ŁA�Z��N�g��j��[�ŉ��t��t�@�C��I��Ŏ��ۂɉ��t��邩�m�F��Ă݂܂��傤�B

�@�Ȃ��AHTA�ł�HTA:APPLICATION�^�O��g�p��邱�ƂŃA�v��P�[�V��̕\��`��Ȃǂ��J�X�^�}�C�Y�ł��܂��B��̃^�O�ŃE�C��h�E�̕\��`�Ԃ�A�C�R��A��j��[�Ȃǂ��ݒ�ł��悤�Ȃ̂ŁA��܂��ݒ肷��΂��l�C�e�B�u�A�v��P�[�V��ɋ߂��O�ρE�@�\��邱�Ƃ��o��ł��傤�B

test.hta

��x��[�J��t�@�C��Ƃ��ĕۑ��Ă��s��Ă��B

�v��O��~��O�� > Windows�v��O��~��O��

HTA�ɂ��X�N���v�g�A�v���P�[�V����

HTA�̗�

�v���O����

HTA�ɂ��X�N��v�g�A�v��P�[�V��

�v��O��