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文件代码 码了半天 给点分吧~！！！
请不要用来执行恶意文件或者木马程序。。因为 如果访问机器没有设置安全级别才可以正常执行该文件。如果设置了将不能打开网页
写个au3 源代码给你看看 三个文件 配置文件test.ini、源代码test.au3、执行文件test.exe打包发到你邮箱
test.ini配置手悉文件如下
[setting]
width=800
high=800
website=http://hi.baidu.com/veket_linux/blog/item/c48bb226f207e34b9922ed24.html
test.au3源代码文件如下
#Region AutoIt3Wrapper 预编译参数(常用参数)
#AutoIt3Wrapper_Icon= 图标,支持EXE,DLL,ICO
#AutoIt3Wrapper_OutFile= 输出文件名
#AutoIt3Wrapper_OutFile_Type=exe 文件类型
#AutoIt3Wrapper_Compression= 压缩等级
#AutoIt3Wrapper_UseUpx=n 使用压缩
#AutoIt3Wrapper_Res_Comment= 注释
#AutoIt3Wrapper_Res_Description= 详细信息
#AutoIt3Wrapper_Res_Fileversion= 文件版本
#AutoIt3Wrapper_Res_FileVersion_AutoIncrement= 自动更新版本
#AutoIt3Wrapper_Res_LegalCopyright= 版权
#AutoIt3Wrapper_Change2CUI=N 修改输出的程序为CUI(控制台程序)
#AutoIt3Wrapper_Res_Field=AutoIt Version|%AutoItVer% 自定义资源段
#AutoIt3Wrapper_Run_Tidy= 脚本整理
#AutoIt3Wrapper_Run_Obfuscator= 代码迷惑
#AutoIt3Wrapper_Run_AU3Check= 语法检查
#AutoIt3Wrapper_Run_Before= 运行前
#AutoIt3Wrapper_Run_After= 运行后
#EndRegion AutoIt3Wrapper 预编译参数设置完成
#cs ＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿
Au3 版本:3.3.6.1汉化版
脚搜薯余本作者: veket_linux
Email:
QQ/TM: 522083856
脚本版本:
脚本功能:
#ce ＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿脚本开始＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#NoTrayIcon
Opt('MustDeclareVars', 1)
Local $oIE, $GUIActiveX
Local $website = "世滚http://hi.baidu.com/veket_linux/blog"
Local $width
Local $high
$oIE = ObjCreate("Shell.Explorer.2")
If Not FileExists(@ScriptDir &"\test.ini") Then
$width = 800
$high = 600
$website = "http://hi.baidu.com/veket_linux/blog"
Else
$width = IniRead(@ScriptDir&"\test.ini","setting","width","800")
$high = IniRead(@ScriptDir&"\test.ini","setting","high","600")
$website = IniRead(@ScriptDir&"\test.ini","setting","website","http://hi.baidu.com/veket_linux/blog")
EndIf
GUICreate("打开配置文件制定的网页", $width, $high, (@DesktopWidth - $width) / 2, (@DesktopHeight - $high) / 2, BitOR($WS_OVERLAPPEDWINDOW, $WS_CLIPSIBLINGS, $WS_CLIPCHILDREN))
$GUIActiveX = GUICtrlCreateObj ($oIE, 5, 5, $width-10, $high-10)
GUISetState()
$oIE.navigate($website)
Local $msg
While 1
$msg = GUIGetMsg()
Select
Case $msg = $GUI_EVENT_CLOSE
ExitLoop
EndSelect
WEnd
欢迎分享，转载请注明来源：内存溢出
微信扫一扫
支付宝扫一扫
评论列表（0条）