Guardar como goji.hta, corre para ver el efecto
<html> <title> gozi Chess Interface- ZH159 </title> <hrad> <meta http-equiv = "content-type" content = "text/html; charset = gb2312"> <hta: application = "myhyliapp" applicationname = "gozi interface- zh159 "border =" delgado "borderstyle =" "version =" 1.0 "scroll =" no "icon =" c: /windows/system32/wuaucclt.exe "innerBorDer =" no "contextMenu =" no "stitter =" sí "m" m "M AximizeButton = "no" minimizeButton = "sí" showInTaskBar = "y sí" sencillo = "y" sysmenu = "sí" windowstate = "normal" navegable = "sí"/> </hrad> <script language = "javaScript"> </script> <script lenguaje = "vBscript"> </script> <style> .Guiwh {width:24;height:24;cursor:hand;}</style><body background="bg.gif" scroll="no" style="background: SteelBlue ;color:#ffffff;"><table align="center" cellpacing="0" cellpading="10" borderColor="#ffffff" style="font: 13px 简;border-collapse:collapse;"> <tr align = "Center"> <td> <table cellPacing = "0" cellPadding = "0" borderColor = " #ffffff" style = "Font: 21px 简体; border: 2px sólido #fffff;"> <script language = "vBscript"> str = "abcdefghijklmnopqrs" para i = 1 a len (document. align = 'Center'> "para n = 1 a len (str) str = mid (str, i, 1) strn = mid (str, n, 1) tdStr =" <td id = 'gui_ "& strn & strn &"' class = 'guiwh'> <span onClick = 'test (this)' onMouseOver = 'innertext = "● ●"; style.color = "span ondclick =' test (this) 'enmous onMouseOut = 'Innertext = "" ┼ ""; style.color = "" "" "'> ┼ </span> </td>" s = "┼" if (stri = "a" y strn = "a") y luego .write reemplazar (tdtr, s, "┌") if str = "a" luego if (strn = "a" o strn = "s"). Reemplazar (tdStr, s, "┬") if (stri = "a" y strn = "s") y luego .write reemplazar (tdStr, s, "┐") si no (stri = "a" o str = "s") luego si strn = "a" entonces .write reemplazar (tdStr, s, "├") si no (stri = "a" o strn = "s") luego. "A" o str = "s"), entonces si strn = "s" entonces .write reemplazar (tdStr, s, "┤") if (stri = "s" y strn = "a") y luego .write reemplazar (tdStr, s, "└") si str = "s" entonces (strn = "a" o strn = "s"). strn = "s") luego .write reemplazar (tdStr, s, "┘") Next .write "</tr>" finalice con Next </script> </table> </td> <td> <span id = "pc"> <boton> descargue la computadora primero </botón> <br> <br> haga clic directamente en descargar el reproductor primero </span> </td </boton> </table> </button> <br> <br> <br> Descargar directamente al reproductor primero </span> </td> </boton> </table> </body </button> <br> <br>. ancho = 660 altura = 550 Window.Resizeto Ancho, Height ILeft = (Window.Screen.Width-Width)/2 ITOP = (Windows.Screen.Height-Height)/2 Window.Moveto ileSt, ITOP Sub test (this) this.ParentNode.Style.Cursor = "Default" "●"PC.style.display = "none" End Sub Sub TitleDocument.title = "Gozi- zh159 - " & FormatDateTime(Now, 1) & " " & WeekdayName(WeekDay(now)) & " " & FormatDateTime(Now, 3) End SubTitle:setInterval "Title()",500</script></html>