怎么把exe程序嵌入在网页中!

怎么把exe程序嵌入在网页中!,第1张

<script>

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">

楼下,出于对客户端的安全考虑,是不允许直接执行服务端程序的


欢迎分享,转载请注明来源:内存溢出

原文地址: http://outofmemory.cn/yw/12561004.html

(0)
打赏 微信扫一扫 微信扫一扫 支付宝扫一扫 支付宝扫一扫
上一篇 2023-05-26
下一篇 2023-05-26

发表评论

登录后才能评论

评论列表(0条)

保存