Goji.hta로 저장하고 효과를보기 위해 실행하십시오
<html> <title> Gozi Chess Interface- Zh159 </title> <hrad> <meta http-equiv = "content-type"content = "text/html; charset = gb2312"> <hta : applactID = "myHyliapp"applactName = "Gozi Chess 인터페이스- Zh159 "Border ="Thin "Borderstyle =" "버전 ="1.0 "scroll ="no "icon ="c : /windows/system32/wuaucclt.exe "Innerborder ="no "contextmenu ="no "caption ="yes "m aximizebutton = "no"minimizebutton = "yes"showintaskbar = "yes"singleinstance = "yes"sysmenu = "yes"windowstate = "normal"navigable = "yes"/> </hrad> <script language = "javascript"> </script> <script anlower = "vbscript"> </script> <style> {width : 24; 높이 : 24; 커서 : 핸드;} </style> <body background = "bg.gif"scroll = "no"style = "backgring : steelblue; color : #ffffff;"> <테이블 elign = "Center"CellPacing = "0"셀 패딩 = "10"BorderColor = "#fffff"style = "font : 13px ^; <tr align = "center"> <td> <테이블 셀 패키는 = "0"cellPadding = "0"BorderColor = " #ffffff"style = "font : 21px 简体; border : 2px solid #ffffff;"> <script language = "vbscript"> str = "abcdefghijklmnopqrs"<t to len (str.). align = 'center'> "n = 1 to len (str) str = mid (str, i, 1) strn = strn = mid (str, n, 1) tdstr ="<td id = 'gui_ "& strn &"'class = 'guiwh'> <span onclick = 'test (this)'onMouseOver = 'innerText = "" "" "" "" "; onMouseOut = 'innerText = ""┼ "" "; style.color =" "" "" "'> ┼ </span> </td>"s = "┼"┼ "if (stri ="a "및 strn ="a ") 그런 다음 .write rowns (tdstr, s,"┌ ") if str ="A " (tdstr, s, "┬") if (stri = "a"및 strn = "s"). 그런 다음 .write replace (tdstr, s, "┐") if not (stri = "a"또는 str = "s") 그런 다음 strn = "a"way (tdstr, s, "├")가 아닌 경우 (strn = "또는 strn ="s "). "a"또는 str = "s") 그런 다음 strn = "s"라면. strn = "s") 그런 다음. 다음 .write (tdstr, s, "┘") 다음 .write "</tr>"다음 </script> </table> </td> <td> <td> <span id = "pc"> <button> 컴퓨터를 먼저 다운로드하려면 <br> </td> </tab> </tab> </tab. 언어 = "vbscript"> width = 660 높이 = 550 Window.Resizeto 너비, 높이 Ileft = (Window.Screen.width-width)/2 itop = (Wind "●"pc.style.display = "none"end sub sub titledocument.title = "gozi -zh159 -"& formatdateTime (now, 1) & ""& weekdayname (nowday (now)) & ""& formatdateMe (now, 3) End Subtitle : setInterval "title ()", 500 </hteval "", 500