码迷,mamicode.com
首页 > 其他好文 > 详细

HTA - OnKeyDown

时间:2018-09-27 10:33:57      阅读:187      评论:0      收藏:0      [点我收藏+]

标签:size   fun   rbo   sub   creat   use   table   set   ati   

<HTML>

<HEAD>

<TITLE>The Peoples Network in Portsmouth Terms and Conditions of Use</TITLE>

<BODY BGCOLOR="#004e98" TEXT="FFFFFF" LINK="FFFFFF" ALINK="FFFFFF" VLINK="FFFFFF">

</HEAD> <hta:application showintaskbar = "yes" caption = "no" border = "thick" contextmenu = "no" innerborder = "no" scroll = "no" singleinstance = "yes" resizable = "yes" windowstate = "maximize" >

<SCRIPT LANGUAGE="VBScript">

Sub LogOnScript Set wshShell = CreateObject("WScript.Shell") wshshell.run "TASKKILL /F /IM mshta.exe" Set wshshell = nothing End Sub

</SCRIPT>

<SCRIPT LANGUAGE="JavaScript">

document.write("&nbsp;")

function No_AltF4() {

var tecla=window.event.keyCode;

var alt=window.event.altKey;

if (alt && tecla==115) {event.keyCode=116; event.returnValue=false;}

if (tecla==91) {event.keyCode=116; event.returnValue=false;}

}

</SCRIPT>

<BODY onKeyDown="javascript:return No_AltF4();">

<CENTER> <TABLE cellSpacing=2 cellPadding=2 width="900" border=0> <TBODY> <TR bgColor=#004e98> <TD>

<CENTER> <IMG src="Logo.jpg">

</CENTER>

<FONT face=Arial color=#ffffff size=5> <P Align="Center"><B>The Peoples Network in Portsmouth</B></P>

<P Align="Center"><B>Terms and Conditions of Use</B></P>

</FONT>

<CENTER> <input id=runbutton class="button" type="button" value="Accept" name="Accept" onClick="LogOnScript">

</CENTER>

</BODY>

HTA - OnKeyDown

标签:size   fun   rbo   sub   creat   use   table   set   ati   

原文地址:https://www.cnblogs.com/reboost/p/9664664.html

(0)
(0)
   
举报
评论 一句话评论(0
登录后才能评论!
© 2014 mamicode.com 版权所有  联系我们:gaon5@hotmail.com
迷上了代码!