[vbs] Mi primer HTA =D

Bueno, os dejo mi primer HTA que interactua con el vbs, con variables y funciones y tal :xD

Código:

<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