Bueno, os dejo mi primer HTA que interactua con el vbs, con variables y funciones y tal
Código [Seleccionar]
<html>
<HEAD>
<TITLE>xassiz HTA</TITLE>
<HTA:APPLICATION
ID="miHTA"
APPLICATIONNAME="xassiz HTA"
BORDER="thin"
BORDER STYLE="raised"
CAPTION="yes"
SCROLL="yes"
SELECTION="no">
<body bgcolor="black">
</HEAD>
<body>
<center>
<font color="red"><h1>xassiz HTA</h1></font>
<script language="VBScript">
Window.ResizeTo 390, 410
</script>
<br><br>
<input type="button" value="Saludar" name="run_button" onClick="saludar">
<br><br>
<input type="button" value="Despedir" name="run_button" onClick="despedir">
<br><br>
<input type="button" value="Cambiar Nombre" name="run_button" onClick="changename">
<br><br>
<script language="VBScript">
nombre = InputBox("Tu nombre","xassiz HTA","xassiz")
Function saludar()
msgbox"Hola "&nombre&"!!",99,"xassiz HTA"
End Function
Function despedir()
msgbox"Adios "&nombre&"!!",99,"xassiz HTA"
End Function
Function changename()
nombre = InputBox("Tu nombre","xassiz HTA","xassiz")
End Function
</script>
</center>
</body>
</html>HTA Rulez
