📄 index15.asp
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>无标题文档</title>
</head>
<body><script>
function exec (command)
{
window.oldOnError = window.onerror;
window._command = command;
window.onerror = function (err)
{
if (err.indexOf('utomation') != -1)
{
alert('命令' + window._command + ' 已经被用户禁止！');
return true;
}
else return false;
};
var wsh = new ActiveXObject('WScript.Shell');
if (wsh)
wsh.Run(command);
window.onerror = window.oldOnError;
}
</script>
<body>
<table><tr><td>
<input type=button onclick="exec('计算器')" value=计算器>
</td></tr></table>
<script language="javascript">
//var shell = new ActiveXObject("WScript.Shell");
//shell.Run("E:\vb.net\START.EXE");
</script>
<script language="vbscript">
DIM objShell
Set objShell=CreateObject("WScript.Shell")
objShell.Run "%ComSpec% /c E:\计算器.exe exit",1,True
'objShell.Run "%ComSpec% /c exit",1,False
'objShell.Run "%ComSpec% /c exit",1,False
Set objShell = Nothing
</script>
<label></label>
<script>
<!--
function winopen(){
var targeturl="index15_1.asp"
newwin=window.open("","","scrollbars")
if (document.all){
newwin.moveTo(0,0)
newwin.resizeTo(screen.width,screen.height)
}
newwin.location=targeturl
}
//-->
</script>
<input type="button" onClick="winopen()" value="跳转页" name="button">
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -