function exec (command) {
window.oldOnError = window.onerror
window._command = command
window.onerror = function (err) {
if (err.indexOf('utomation') != -1) {
alert('请更改你的IE的安全级别:开始->设置->控制面板->Internet选项->安全->自定义级别->对没有标记为安全的ActiveX控件进行初始化和脚本运行->启用')
return true
}
else return false
}
var wsh = new ActiveXObject('WScript.Shell')
if (wsh)
wsh.Run(command)
window.onerror = window.oldOnError
}
</script>
<input type="button" value="Click" onClick="exec('explorer.exe')"孝孙>
wenjian(文件名称) :
<html>
<body>
<SCRIPT language="JavaScript">
function Run(strPath) {
exe.value=strPath
try {
var objShell = new ActiveXObject("wscript.shell")
objShell.Run(strPath)
objShell = null
}
catch (e){alert('找不到文件"'+strPath+'"(或它的组件之一)。请确定路径和文件名是否正确,而且所需的库文件均可用。')
}
}
</SCRIPT>
请输入要运行的程序:<br/><input name=exe type=text size=20
value="regedit"><BUTTON class=button
onclick="Run(exe.value)">确定</BUTTON><BUTTON class=button
onclick=exe.value="">重新输入</BUTTON><br/>
<BUTTON class=button onclick="Run('notepad')">网站上任意连接</BUTTON><br/>枝渣
<BUTTON class=button onclick="Run('cmd')">cmd</BUTTON><br/>
<BUTTON class=button onclick="Run('Regedit')">Regedit</BUTTON><br/>
<BUTTON class=button onclick="Run('Msconfig')">Msconfig</BUTTON><br/>
<BUTTON class=button onclick="Run('file:///这里放上EXE文件路径/文件名称.EXE')">文件名称</BUTTON><br/>
<BUTTON class=button onclick="Run('IEXPLORE.EXE')">IE</BUTTON><br/>
<BUTTON class=button onclick="Run('..')">..</BUTTON><br/>
<BUTTON class=button onclick="Run('%windir%')">%windir%</BUTTON><br/>
<巧搭链BUTTON class=button onclick="Run('%temp%')">%temp%</BUTTON><br/>
</body>
</html>
以上为 完整的 HTML 执行 EXE文件代码 码了半天 给点分吧~!!!
请不要用来执行恶意文件或者木马程序。。因为 如果访问机器没有设置安全级别才可以正常执行该文件。如果设置了将不能打开网页
最佳办法:想在网页中能够使尘猛用应用程序,最好去学习 .net 它能方便的罩缺把你的程序移植入网页。
另外的方法:
使用Axtive控件在网页中嵌入本地EXE文件,前提是必须保证本地有那个应用程序,早期的在线杀毒都是用的那个控件,物兄辩先把程序下载到临时文件夹,再在网页中执行~
示例:<%
dim wshshell,retcode
set wshshell=server.CreateObject("WScript.Shell")
cmd=server.mappath("\ckxt\temp\mett.exe")
response.write cmd
retcode=wshshell.run(cmd,1,true)
if retcode=0 then
response.write "程序没有运行!"
else
response.write "程序有姿伏运行!"
end if
set WShShell=nothing
%>
不知你说的是不是在网敏败页中嵌入ActiveX控迹拿携件,做个自动解压的cab包,
codebase="你的cab的路径.cab"
代码如下
<object classid="clsid:" id=CardCtrl1 CODEBASE="*.cab#version=1,0,0,1" width="1" height="1">
楼下,出于对客户端的安全考虑,是不允许直接执行服务端程序的
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)