当前位置：DOS资源站 → 资料中心 → 批处理教程 → 代码查看器（hta格式）

代码查看器（hta格式）

减小字体

增大字体作者：佚名来源：本站整理发布时间：2008-5-21 21:30:18

代码：<HTML>
<HEAD>
<SCRIPT LANGUAGE="VBScript">
on error resume next
iWidth=670
iHeight=400
self.resizeTo iWidth, iHeight
</SCRIPT>
<TITLE>代码查看测试器→|BAT|HTA|VBS|-DOS资源站</TITLE>
<hta:application border="thin" sysmenu=yes MINIMIZEBUTTON=YES MAXIMIZEBUTTON=no scroll=no ShowInTaskBar=yes ></hta:application>
<style></style>
</head>

<SCRIPT LANGUAGE="VBScript">''//[VBScript代码区]←↑→↓

Const curdir="**************************"'                        ←[设置查找根目录]
CONST MyBAT="**********************\常用批量模板.bat"
CONST MyVBS="**********************\常用脚本模板.vbs"
CONST MyHTA="**********************\常用网页模板.hta"
   FName=Replace(Replace(document.location,"file:///",""),"/","\")
SUB MyCMD()
on error resume next
if bt.value="" then
   exit sub
else
   CreateObject("WScript.Shell").run "cmd.exe /c "& bt.value &" & pause>nul" ,,true
end if
END SUB
SUB Open()
if bt.value="" then bt.value=curdir end if
CreateObject("WScript.Shell").run "explorer.exe "& bt.value
bt.value=""
END SUB
SUB vEdit()
on error resume next
DIM FSO
SET FSO = CreateObject("Scripting.FileSystemObject")
   IF FSO.FileExists(bt.value) then
    FName=bt.value
    ext=FSO.getextensionname(FName)
    Select Case ext
     Case "hta"
      FName=Replace(Replace(bt.value,"file:///",""),"/","\")
    End Select
   ELSE
    FName=Replace(Replace(document.location,"file:///",""),"/","\")
   END IF
   CreateObject("WScript.Shell").run "notepad.exe "& FName
SET FSO = NOTHING
END SUB

SUB LIST()''//[列表函数块] ↓
dim fso
on error resume next
if bt.value="" then bt.value=curdir end if
set fso =CreateObject("Scripting.FileSystemObject")
if fso.FolderExists(bt.value) then
   CreateObject("WScript.Shell").run "cmd.exe /c dir "&chr(34)&bt.value&chr(34)&" /a /b /s >list_temp.test",0,true
   SET f=fso.OpenTextFile("list_temp.test",1,true)
   CODE.value=f.readall()
   f.Close
   fso.DeleteFile("list_temp.test")
end if
bt.value=""
SET fso = Nothing
END SUB
SUB MyLIST(ByVal ext)
On Error Resume Next
DIM FSO,f,Wsh,Myext
SET FSO = CreateObject("Scripting.FileSystemObject")
CreateObject("WScript.Shell").run "cmd.exe /c dir "&curdir&"\*."&ext&" /a /b /s>list_temp.test",0,true
   SET f=FSO.OpenTextFile("list_temp.test",1,true)
   bt.value=""
   CODE.value=""
   CODE.value=f.readall()
   f.Close
   FSO.DeleteFile("list_temp.test")
SET FSO=Nothing
END SUB
SUB MyExt()
On Error Resume Next
MyLIST CreateObject("Scripting.FileSystemObject").getextensionname(bt.value)
END SUB

SUB MyFile()
DIM FSO
On Error Resume Next
SET FSO = CreateObject("Scripting.FileSystemObject")
CreateObject("WScript.Shell").run "cmd.exe /c dir "&bt.value&" /a /b /s>list_temp.test",0,true
SET f=FSO.OpenTextFile("list_temp.test",1,true)
bt.value=""
CODE.value=""
While not f.AtEndOfStream
   str=f.readline()
   if fso.FileExists(str) THEN
   CODE.value=CODE.value&vbcrlf&str
   end if
Wend
FSO.DeleteFile("list_temp.test")
SET FSO=Nothing
END SUB

''//[列表函数块] ↑

SUB TestFile()''//[测试函数块] ↓
On Error Resume Next
ext=CreateObject("Scripting.FileSystemObject").getextensionname(bt.value)
Select Case ext
   Case "bat"
    MyTEST "bat"
   Case "hta"
    MyTEST "hta"
   Case "vbs"
    MyTEST "vbs"
End Select
end SUB
SUB MyTEST(ByVal ext)
On Error Resume Next
DIM FSO, f
SET FSO = CreateObject("Scripting.FileSystemObject")
SET f = FSO.OpenTextFile(".\"&ext&"Test."&ext, 2, true)
   f.Write(code.value)
   f.Close()
CreateObject("WScript.Shell").run ".\"&ext&"Test."&ext,,true
FSO.DeleteFile(".\"&ext&"Test."&ext)
SET FSO = nothing
END SUB''//[/CODE][测试函数块] ↑

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''//[CODE][查看代码块]
SUB ViewCode(ByVal FName)
On Error Resume Next
DIM FSO,f,str
SET FSO = CreateObject("Scripting.FileSystemObject")
IF FSO.FileExists(FName) then
   SET f=FSO.OpenTextFile(FName,1,true)
   str=f.readall()
   bt.value=FName
   code.value=str
   f.Close
ELSE EXIT SUB
end if
SET FSO=Nothing
END SUB

SUB vView()
On Error Resume Next
FName=bt.value
ViewCode FName
str=code.value
ext=CreateObject("Scripting.FileSystemObject").getextensionname(FName)
Select Case ext
   Case "bat"
    str="::@ECHO OFF"&vbCrLf&str&vbCrLf&"del %0"
   Case "vbs"
    str="'On Error Resume Next"&vbCrLf&vbCrLf&str&vbCrLf&"SET FSO = CreateObject("&chr(34)&"Scripting.FileSystemObject"&chr(34)&")"&vbCrLf&"f = FSO.DeleteFile(WScript.ScriptName)"
End Select
code.value=str
END SUB''//[/CODE][查看代码块]

</script>                          

<script language=javascript>
document.onmouseover = doOver;
document.onmouseout = doOut;
document.onmousedown = doDown;
document.onmouseup   = doUp;

function doOver() {
var toEl = getReal(window.event.toElement, "className", "coolButton");
var fromEl = getReal(window.event.fromElement, "className", "coolButton");
if (toEl == fromEl) return;
var el = toEl;

// alert(el);

// var cDisabled = el.getAttribute("cDisabled");
var cDisabled = el.cDisabled;
// alert(cDisabled);
cDisabled = (cDisabled != null); // If CDISABLED atribute is present

if (el.className == "coolButton")
el.onselectstart = new Function("return false");

if ((el.className == "coolButton") && !cDisabled) {
makeRaised(el);
makeGray(el,false);
}
}

function doOut() {
var toEl = getReal(window.event.toElement, "className", "coolButton");
var fromEl = getReal(window.event.fromElement, "className", "coolButton");
if (toEl == fromEl) return;
var el = fromEl;

// var cDisabled = el.getAttribute("cDisabled");
var cDisabled = el.cDisabled;
cDisabled = (cDisabled != null); // If CDISABLED atribute is present

var cToggle = el.cToggle;
toggle_disabled = (cToggle != null); // If CTOGGLE atribute is present

if (cToggle && el.value) {
makePressed(el);
makeGray(el,true);
}
else if ((el.className == "coolButton") && !cDisabled) {
makeFlat(el);
makeGray(el,true);
}

}

function doDown() {
el = getReal(window.event.srcElement, "className", "coolButton");

var cDisabled = el.cDisabled;
cDisabled = (cDisabled != null); // If CDISABLED atribute is present

if ((el.className == "coolButton") && !cDisabled) {
makePressed(el)
}
}

function doUp() {
el = getReal(window.event.srcElement, "className", "coolButton");

var cDisabled = el.cDisabled;
cDisabled = (cDisabled != null); // If CDISABLED atribute is present

if ((el.className == "coolButton") && !cDisabled) {
makeRaised(el);
}
}

function findChildren(el, type, value) {
var children = el.children;
var tmp = new Array();
var j=0;

for (var i=0; i<children.length; i++) {
if (eval("children[i]." + type + "==\"" + value + "\"")) {
tmp[tmp.length] = children[i];
}
tmp = tmp.concat(findChildren(children[i], type, value));
}

return tmp;
}

function disable(el) {

if (document.readyState != "complete") {
window.setTimeout("disable(" + el.id + ")", 100); // If document not finished rendered try later.
return;
}

var cDisabled = el.cDisabled;

cDisabled = (cDisabled != null); // If CDISABLED atribute is present

if (!cDisabled) {
el.cDisabled = true;

el.innerHTML = '<span style="background: buttonshadow; width: 100%; height: 100%; text-align: center;">' +
      '<span style="filter:Mask(Color=buttonface) DropShadow(Color=buttonhighlight, OffX=1, OffY=1, Positive=0); height: 100%; width: 100%%; text-align: center;">' +
      el.innerHTML +
      '</span>' +
      '</span>';

if (el.onclick != null) {
el.cDisabled_onclick = el.onclick;
el.onclick = null;
}
}
}

function enable(el) {
var cDisabled = el.cDisabled;

cDisabled = (cDisabled != null); // If CDISABLED atribute is present

if (cDisabled) {
el.cDisabled = null;
el.innerHTML = el.children[0].children[0].innerHTML;

if (el.cDisabled_onclick != null) {
el.onclick = el.cDisabled_onclick;
el.cDisabled_onclick = null;
}
}
}

function addToggle(el) {
var cDisabled = el.cDisabled;

cDisabled = (cDisabled != null); // If CDISABLED atribute is present

var cToggle = el.cToggle;

cToggle = (cToggle != null); // If CTOGGLE atribute is present

if (!cToggle && !cDisabled) {
el.cToggle = true;

if (el.value == null)
el.value = 0; // Start as not pressed down

if (el.onclick != null)
el.cToggle_onclick = el.onclick; // Backup the onclick
else
el.cToggle_onclick = "";

el.onclick = new Function("toggle(" + el.id +"); " + el.id + ".cToggle_onclick();");
}
}

function removeToggle(el) {
var cDisabled = el.cDisabled;

cDisabled = (cDisabled != null); // If CDISABLED atribute is present

var cToggle = el.cToggle;

cToggle = (cToggle != null); // If CTOGGLE atribute is present

if (cToggle && !cDisabled) {
el.cToggle = null;

if (el.value) {
toggle(el);
}

makeFlat(el);

if (el.cToggle_onclick != null) {
el.onclick = el.cToggle_onclick;
el.cToggle_onclick = null;
}
}
}

function toggle(el) {
el.value = !el.value;

if (el.value)
el.style.background = "URL(/images/tileback.gif)";
else
el.style.backgroundImage = "";

// doOut(el);
}

function makeFlat(el) {
with (el.style) {
background = "";
border = "1px solid buttonface";
padding = "1px";
}
}

function makeRaised(el) {
with (el.style) {
borderLeft   = "1px solid buttonhighlight";
borderRight = "1px solid buttonshadow";
borderTop    = "1px solid buttonhighlight";
borderBottom = "1px solid buttonshadow";
padding      = "1px";
}
}

function makePressed(el) {
with (el.style) {
borderLeft   = "1px solid buttonshadow";
borderRight = "1px solid buttonhighlight";
borderTop    = "1px solid buttonshadow";
borderBottom = "1px solid buttonhighlight";
paddingTop    = "2px";
paddingLeft   = "2px";
paddingBottom = "0px";
paddingRight = "0px";
}
}

function makeGray(el,b) {
var filtval;

if (b)
filtval = "gray()";
else
filtval = "";

var imgs = findChildren(el, "tagName", "IMG");

for (var i=0; i<imgs.length; i++) {
imgs[i].style.filter = filtval;
}

}