标题: [原创]XP下用VBS写的代码编辑器 [打印本页]
作者: 3742668 时间: 2006-5-22 18:33 标题: [原创]XP下用VBS写的代码编辑器
终于能访问论坛，这几天不能访问的时候把硬盘上的东东复习了一遍，找出了这个东西出来，由于水平有限，而且对DHTML没有什么研究，所以做得很是粗糙，贴上来是为了抛砖引玉，希望有高人能帮忙修改或拿出更优秀的东东出来。
测试环境为windows XP 专业版 SP2，暂时发现代码着色方面有Bug，虽然已有解决方法，不过由于代码量的原因(用记事本写代码真的很恼火)，暂时未纠正，另外预计将来加入自动完成等功能。
ps:利用VBS脚本+DHTML，主要功能由正则表达式+wmic来完成，代码需保存为HTA类型的文件，当然也可以更改为纯粹的VBS脚本，不过那样效率低多了，而且代码更复杂。
<HTML>
<HEAD>
<title>代码编辑器--------中国DOS联盟脚本版专用</title>
<HTA:APPLICATION selection="no" SCROLL="no" contextMenu="no" />
<SCRIPT LANGUAGE="VBSCRIPT">
'*******************************************************************'
'脚本开始
'*******************************************************************'
Set shell=CreateObject("WScript.Shell")
Set fso=CreateObject("Scripting.FileSystemObject")
'*******************************************************************'
'遍历本地所有类型文件
'*******************************************************************'
Sub OptionAdd(fExt)
str = "<select size=""1"" name=""objOption"" onChange=""TestSub"">"
Set objDataFiles = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\.\root\cimv2")
Set colFiles = objDataFiles. _
ExecQuery("Select * from CIM_DataFile where extension = '" & fExt & "'")
For Each objFile in colFiles
str = str & "<option value=""" & objFile.name & """>" & _
objFile.name & "</option>"
next
str = "<label>本地脚本文件:</label>" & str & "</select>"
forOption.innerHTML = str
end Sub
'*******************************************************************'
'颜色转换
'*******************************************************************'
Sub ChangeColor
if cxs.value = "vbs" then
WinMain.innerHTML = ChangeVBS(WinMain.innerText)
else 'CMD脚本
WinMain.innerHTML = ChangeCMD(WinMain.innerText)
end if
end Sub
'*******************************************************************'
'VBS转换模块
'*******************************************************************'
Function ChangeVBS(sText)
Set re=new RegExp
re.IgnoreCase =true
re.Global=true
'注释转换
re.Pattern = "(\'.*)\r\n"
sText = re.Replace(sText,"<font color=#339999>$1</font><p>")
'转换符号为[蓝色]
re.Pattern = "(\(|\)|\&|\+|\-|\*|\%|\:|\;|\.|\""" & ")"
sText = re.Replace(sText,"<font color=#993333>$1</font>")
sText = "<table ><tr><td width='1024' " & _
"style='word-break:break-all'><ol type=1>" & _
"<br /><li>" & sText & "</table>"
sText = Replace(sText,chr(13) & chr (10) ," </li><li> ")
'转换保留字为[蓝色]
re.Pattern="(\bAnd\b|\bByRef\b|\bByVal\b|\bCall\b" & _
"|\bCase\b|\bClass\b|\bConst\b|\bDim\b|\bDo\b" & _
"|\bEach\b|\bElse\b|\bElseIf\b|\bEmpty\b|\bEnd\b" & _
"|\bEqv\b|\bErase\b|\bError\b|\bExit\b|\bExplicit\b" & _
"|\bFalse\b|\bFor\b|\bFunction\b|\bGet\b|\bIf\b|\bImp\b" & _
"|\bIn\b|\bIs\b|\bLet\b|\bLoop\b|\bMod\b|\bNext\b|\bNot\b" & _
"|\bNothing\b|\bNull\b|\bOn\b|\bOption\b|\bOr\b|\bPrivate\b" & _
"|\bProperty\b|\bPublic\b|\bRandomize\b|\bReDim\b|\bRem\b" & _
"|\bResume\b|\bSelect\b|\bSet\b|\bStep\b|\bSub\b|\bThen\b" & _
"|\bTo\b|\bTrue\b|\bUntil\b|\bWend\b|\bWhile\b|\bXor\b|Vb[a-z]*)"
sText=re.Replace(sText,"<font color=blue>$1</font>")
'转换函数和对象为[红色]
re.Pattern="(\bAnchor\b|\bArray\b|\bAsc\b|\bAtn\b" & _
"|\bCBool\b|\bCByte\b|\bCCur\b|\bCDate\b|\bCDbl\b" & _
"|\bChr\b|\bCInt\b|\bCLng\b|\bCos\b|\bCreateObject\b" & _
"|\bCSng\b|\bCStr\b|\bDate\b|\bDateAdd\b|\bDateDiff\b" & _
"|\bDatePart\b|\bDateSerial\b|\bDateValue\b|\bDay\b" & _
"|\bDictionary\b|\bDocument\b|\bElement\b|\bErr\b|\bExp\b" & _
"|\bFileSystemObject \b|\bFilter\b|\bFix\b|\bInt\b|\bForm\b" & _
"|\bFormatCurrency\b|\bFormatDateTime\b|\bFormatNumber\b" & _
"|\bFormatPercent\b|\bGetObject\b|\bHex\b|\bHistory\b|\bHour\b" & _
"|\bInputBox\b|\bInStr\b|\bInstrRev\b|\bIsArray\b|\bIsDate\b" & _
"|\bIsEmpty\b|\bIsNull\b|\bIsNumeric\b|\bIsObject\b|\bJoin\b" & _
"|\bLBound\b|\bLCase\b|\bLeft\b|\bLen\b|\bLink\b|\bLoadPicture\b" & _
"|\bLocation\b|\bLog\b|\bLTrim\b|\bRTrim\b|\bTrim\b|\bMid\b" & _
"|\bMinute\b|\bMonth\b|\bMonthName\b|\bMsgBox\b|\bNavigator\b" & _
"|\bNow\b|\bOct\b|\bReplace\b|\bRight\b|\bRnd\b|\bRound\b" & _
"|\bScriptEngine\b|\bScriptEngineBuildVersion\b" & _
"|\bScriptEngineMajorVersion\b|\bScriptEngineMinorVersion\b" & _
"|\bSecond\b|\bSgn\b|\bSin\b|\bSpace\b|\bSplit\b|\bSqr\b" & _
"|\bStrComp\b|\bString\b|\bStrReverse\b|\bTan\b|\bTime\b" & _
"|\bTextStream\b|\bTimeSerial\b|\bTimeValue\b|\bTypeName\b" & _
"|\bUBound\b|\bUCase\b|\bVarType\b|\bWeekday\b|\bWeekDayName\b" & _
"|\bWindow\b|\bYear\b|\bWscript\b)"
sText=re.Replace(sText,"<font color=red>$1</font>")
ChangeVBS = sText
end Function
'*******************************************************************'
'CMD转换模块
'*******************************************************************'
Function ChangeCMD(sText)
Set re=new RegExp
re.IgnoreCase =true
re.Global=true
'等号转换
'sText = Replace(sText,"/","<font color=#FF0000>/</font>")
re.Pattern = "(\%|\=|\/[a-z]*\b|\>|\<|\|)"
sText = re.Replace(sText,"<font color=#FF8C00>$1</font>")
'注释转换
re.Pattern = "(Rem\b.*\r\n|\bRem\b.*)"
sText = re.Replace(sText,"<font color=#20B2AA>$1</font>")
'改变符号的颜色
re.Pattern = "(\(|\)|\&|\+|\-|\*|\;|\""" & ")"
sText = re.Replace(sText,"<font size=5 color=#9932CC>$1</font>")
'改变所有命令的颜色
re.Pattern = "(\bShare\b|\bSetver\b|\bNlsfunc\b|\bMem\b|\bLh\b" & _
"|\bLoadhigh\b|\bloadfix\b|\bGraphics\b|\bForcedos\b" & _
"|\bFastopen\b|\bExe2bin\b|\bEdlin\b|\bEdlin\b|\bEdit\b" & _
"|\bDebug\b|\bDebug\b|\bAppend\b|\bSwitches\b|\bStacks\b" & _
"|\bShell\b|\bNtcmdprompt\b|\bLastdrive\b|\bInstall\b" & _
"|\bFiles\b|\bFcbs\b|\bEchoconfig\b|\bDriveparm\b|\bDosonly\b" & _
"|\bDos\b|\bDevicehigh\b|\bDevice\b|\bCountry\b|\bBuffers\b" & _
"|\bXcopy\b|\bWMIC\b|\bWinnt32\b|\bWinnt\b|\bW32tm\b" & _
"|\bVssadmin\b|\bVol\b|\bVerify\b|\bVer\b|\bUnlodctr\b" & _
"|\bTypeperf\b|\bType\b|\bTree\b|\bTracert\b|\bTracerpt\b" & _
"|\bTitle\b|\bTime\b|\bTftp\b|\bTelnet\b|\bTcmsetup\b" & _
"|\bTasklist\b|\bTaskkill\b|\bSfc\b|\bSysteminfo\b|\bSubst\b" & _
"|\bStart\b|\bSort\b|\bShutdown\b|\bShift\b|\bSetlocal\b|\bSet\b" & _
"|\bSecedit\b|\bSchtasks\b|\bSc\b|\bRunas\b|\bRsm\b|\bRsh\b" & _
"|\bRoute\b|\bRmdir\b|\bRexec\b|\bReset\b|\bReplace\b|\bRename\b" & _
"|\bRelog\b|\bRegsvr32\b|\bReg\b|\bRecover\b|\bRcp\b|\bRasdial\b" & _
"|\bQuery\b|\bPushd\b|\bPrompt\b|\bPrnqctl\b|\bPrnport\b" & _
"|\bPrnmngr\b|\bPrnjobs\b|\bPrndrvr\b|\bPrncnfg\b|\bPrint\b" & _
"|\bPopd\b|\bPing\b|\bPerfmon\b|\bPentnt\b|\bPbadmin\b|\bPause\b" & _
"|\bPathping\b|\bPath\b|\bPagefileconfig\b|\bOpenfiles\b|\bNtsd\b" & _
"|\bNtcmdprompt\b|\bNtbackup\b|\bNslookup\b|\bNetstat\b|\bNetsh\b" & _
"|\bNet\b|\bNbtstat\b|\bMsinfo32\b|\bMsiexec\b|\bMove\b" & _
"|\bMountvol\b|\bMore\b|\bMode\b|\bMmc\b|\bMd\b|\bMkdir\b" & _
"|\bMacfile\b|\bLpr\b|\bLpq\b|\bLogman\b|\bLodctr\b|\bLabel\b" & _
"|\bIrftp\b|\bIpxroute\b|\bIpseccmd\b|\bIpconfig\b|\bIf\b" & _
"|\bHostname\b|\bHelpctr\b|\bHelp\b|\bGraftabl\b|\bGpupdate\b" & _
"|\bGpresult\b|\bGoto\b|\bGetmac\b|\bFtype\b|\bFtp\b|\bFsutil\b" & _
"|\bFormat\b|\bFor\b|\bFlattemp\b|\bFinger\b|\bFindstr\b|\bFind\b" & _
"|\bFc\b|\bExpand\b|\bExit\b|\bEvntcmd\b|\bEventtriggers\b" & _
"|\bEventquery\b|\bEventcreate\b|\bEndlocal\b|\bEcho\b" & _
"|\bDriverquery\b|\bDoskey\b|\bDiskPart\b|\bDiskcopy\b" & _
"|\bDiskcomp\b|\bDir\b|\bDel\b|\bDefrag\b|\bDate\b|\bCScript\b" & _
"|\bCprofile\b|\bCopy\b|\bConvert\b|\bCompact\b|\bComp\b" & _
"|\bCmstp\b|\bCmd\b|\bCls\b|\bCipher\b|\bChkntfs\b|\bChkdsk\b" & _
"|\bChdir\b|\bChcp\b|\bChange\b|\bCall\b|\bCacls\b|\bBreak\b" & _
"|\bBootcfg\b|\bAttrib\b|\bAtmadm\b|\bAt\b|\bAssoc\b|\bArp\b)"
sText=re.Replace(sText,"<font color=blue>$1</font>")
sText = "<table><td width=""1024"" " & _
"style=""word-break:break-all""><ol type=1>" & _
"<br /><li>" & sText & "<tr></table>"
sText = Replace(sText,chr(13) & chr (10) ," </li><li> ")
ChangeCMD = sText
end Function
'*******************************************************************'
'帮助窗口
'*******************************************************************'
set oPopup = window.createPopup
sub HelpWindow
if usehelp.checked then
set oPopBody = oPopup.document.body
oPopBody.style.backgroundColor = "lightyellow"
oPopBody.style.border = "solid black 1px"
oPopBody.innerHTML = "帮助功能未完成,取消帮助见右下角"
oPopup.show WinMain.offsetleft, _
WinMain.offsettop + WinMain.offsetheight - 20, _
WinMain.offsetWidth, 20, document.body
end if
end sub
'*******************************************************************'
'运行代码
'*******************************************************************'
Sub RunCode
if cxs.value = "vbs" then
tmpfile = "temp_script.vbs"
str = tmpfile
else
tmpfile = "temp_script.bat"
str = "cmd /k " & tmpfile
end if
Set file = fso.OpenTextFile(tmpdir & tmpfile,2,True)
file.Write WinMain.innerText
file.Close
shell.Run str
End Sub
'*******************************************************************'
'保存文件
'*******************************************************************'
Sub SaveFile
Set objDialog = CreateObject("SAFRCFileDlg.FileSave")
objDialog.FileName = Cstr(date)
if cxs.value = 1 then
objDialog.FileType = ".vbs"
else
objDialog.FileType = ".bat"
end if
intReturn = objDialog.OpenFileSaveDlg
If intReturn Then
Set objFile = fso.CreateTextFile( _
objDialog.FileName & objDialog.FileType)
objFile.WriteLine WinMain.innerText
objFile.Close
end if
end Sub
'*******************************************************************'
'打开文件
'*******************************************************************'
Sub OpenFile
Set objDialog = CreateObject("UserAccounts.CommonDialog")
objDialog.Filter = "bat文件|*.bat;*.cmd|vbs 文件|*.vbs|所有文件|*.*"
'objDialog.MaxFileSize = 10000
'objDialog.FilterIndex = 1
'objDialog.InitialDir = ""
objDialog.ShowOpen
'strLoadFile = objDialog.FileName
If len(trim(objDialog.FileName)) = 0 Then Exit Sub
Set objFile = fso.OpenTextFile(objDialog.FileName,1,True)
WinMain.innerText = objFile.ReadAll
end Sub
'*******************************************************************'
'启动时自动移动到屏幕中心
'*******************************************************************'
Sub Window_OnLoad()
self.ResizeTo 1,1
self.MoveTo 300,300
'显示一个窗口
Set objWindow = window.Open("about:blank","ProgressWindow","height=15,width=250,left=300,top=300,status=no,titlebar=no,toolbar=no,menubar=no,location=no,scrollbars=no")
With objWindow
.Focus()
.ResizeTo 250,15
.document.body.style.fontFamily = "Helvetica"
.document.body.style.fontSize = "11pt"
.document.writeln "<html><body>正在搜索本地文件....</body></html>"
.document.title = "请稍侯..."
.document.body.style.backgroundColor = "buttonface"
.document.body.style.borderStyle = "none"
.document.body.style.marginTop = 15
end With
'如果系统并非XP，IE不为6.0版本则退出
strWindowsVer = shell.RegRead _
("HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\ProductName")
strIeVer = shell.RegRead _
("HKLM\SOFTWARE\Microsoft\Internet Explorer\Version")
if strWindowsVer <> "Microsoft Windows XP" or _
left(strIeVer,3) <> "6.0" then
intFlag = msgbox("操作系统不是XP或者IE版本低于6.0，是否退出?",1)
if intFlag = 1 then
self.close
else
Began
end if
else
Began
end if
objWindow.Close
End Sub
Sub Began
OptionAdd "bat"
intLeft = (document.parentwindow.screen.availwidth - 800) / 2
intTop = (document.parentwindow.screen.availheight - 600) / 2
window.resizeTo 800,650
window.moveTo intLeft, intTop
end Sub
'*******************************************************************'
'搜索本地脚本
'*******************************************************************'
Sub TestSub
Set objFile = fso.OpenTextFile(objOption.value,1,True)
WinMain.innerText = objFile.ReadAll
end Sub
'*******************************************************************'
'擦屁股
'*******************************************************************'
Sub Window_OnBeforeUnload()
On Error Resume Next
fso.DeleteFile "temp_script.vbs",True
fso.DeleteFile "temp_script.bat",True
Set shell = Nothing
Set fso = Nothing
set oPopup= Nothing
End Sub
'*******************************************************************'
'清空代码
'*******************************************************************'
Sub Clear
WinMain.innerText = ""
'WinMain.innerHTML = ""
end Sub
'*******************************************************************'
'复制到剪贴板
'*******************************************************************'
Sub ClipBoard
window.clipboardData.SetData "text", WinMain.innerHTML
end Sub
</SCRIPT>
</HEAD>
<body>
<style type="text/css">
* { padding:0; border:0; overflow:hidden; font:16px Arial;}
html,body { height:100%; margin:0;}
#box_2 { height:100%; background:#ccc;}
</style>
<center>
<div style="font-family: Trebuchet MS; font-weight:bold;">
<span style="font-size: 18pt;">代码编辑器</span>
<span style="font-size: 8pt;">Ver 1.0 by
<a href="http://www.cn-dos.net/forum/forumdisplay.php?fid=23">
3742668</a> <a href="mailto:3742668@gmail.com">
我的信箱</a></span><br></div></center><br> <div contentEditable
STYLE="padding:2; overflow:auto;background-color:lightyellow;
width:100%; height:70%;" ID="WinMain" onkeyup="HelpWindow">
</div> <BR> <center>
<INPUT STYLE="font-family: Trebuchet MS; font-size: 8pt; font-weight:
bold; border: 1px solid black;" TYPE="BUTTON" VALUE="打开文件(x)"
accesskey="x" ONCLICK="OpenFile">
<INPUT STYLE="font-family: Trebuchet MS; font-size: 8pt; font-weight:
bold; border: 1px solid black;" TYPE="BUTTON" VALUE="运行代码(r)"
accesskey="r" ONCLICK="RunCode">
<INPUT STYLE="font-family: Trebuchet MS; font-size: 8pt; font-weight:
bold; border: 1px solid black;" TYPE="BUTTON" VALUE="清空代码(c)"
accesskey="c" ONCLICK="Clear">
<INPUT STYLE="font-family: Trebuchet MS; font-size: 8pt; font-weight:
bold; border: 1px solid black;" TYPE="BUTTON" VALUE="保存文件(s)"
accesskey="s" ONCLICK="SaveFile">
<INPUT STYLE="font-family: Trebuchet MS; font-size: 8pt; font-weight:
bold; border: 1px solid black;" TYPE="BUTTON" VALUE="复制着色代码(a)"
accesskey="a" ONCLICK="ClipBoard">
<INPUT STYLE="font-family: Trebuchet MS; font-size: 8pt; font-weight:
bold; border: 1px solid black;" TYPE="BUTTON" VALUE="着色显示(d)"
accesskey="d" ONCLICK="ChangeColor"></center>
<br><div id="forOption"></div><p>
<INPUT TYPE="CHECKBOX" ID="usehelp" onfocus="WinMain.focus"
accesskey="z" class="noBorder" position: checked>
<label for="usehelp">使用帮助(<u>z</u>)</label>
<label>脚本类型:<label>
<SELECT NAME="cxs" SIZE="1" onchange="OptionAdd(cxs.value)">
<OPTION VALUE="vbs">
VBS脚本</OPTION><OPTION VALUE="bat" SELECTED>BAT脚本</OPTION><br>
</body>
</HTML>
[ Last edited by 3742668 on 2006-5-23 at 13:04 ]<HEAD>
<title>代码编辑器--------中国DOS联盟脚本版专用</title>
<HTA:APPLICATION selection="no" SCROLL="no" contextMenu="no" />
<SCRIPT LANGUAGE="VBSCRIPT">
'*******************************************************************'
'脚本开始
'*******************************************************************'
Set shell=CreateObject("WScript.Shell")
Set fso=CreateObject("Scripting.FileSystemObject")
'*******************************************************************'
'遍历本地所有类型文件
'*******************************************************************'
Sub OptionAdd(fExt)
str = "<select size=""1"" name=""objOption"" onChange=""TestSub"">"
Set objDataFiles = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\.\root\cimv2")
Set colFiles = objDataFiles. _
ExecQuery("Select * from CIM_DataFile where extension = '" & fExt & "'")
For Each objFile in colFiles
str = str & "<option value=""" & objFile.name & """>" & _
objFile.name & "</option>"
next
str = "<label>本地脚本文件:</label>" & str & "</select>"
forOption.innerHTML = str
end Sub
'*******************************************************************'
'颜色转换
'*******************************************************************'
Sub ChangeColor
if cxs.value = "vbs" then
WinMain.innerHTML = ChangeVBS(WinMain.innerText)
else 'CMD脚本
WinMain.innerHTML = ChangeCMD(WinMain.innerText)
end if
end Sub
'*******************************************************************'
'VBS转换模块
'*******************************************************************'
Function ChangeVBS(sText)
Set re=new RegExp
re.IgnoreCase =true
re.Global=true
'注释转换
re.Pattern = "(\'.*)\r\n"
sText = re.Replace(sText,"<font color=#339999>$1</font><p>")
'转换符号为[蓝色]
re.Pattern = "(\(|\)|\&|\+|\-|\*|\%|\:|\;|\.|\""" & ")"
sText = re.Replace(sText,"<font color=#993333>$1</font>")
sText = "<table ><tr><td width='1024' " & _
"style='word-break:break-all'><ol type=1>" & _
"<br /><li>" & sText & "</table>"
sText = Replace(sText,chr(13) & chr (10) ," </li><li> ")
'转换保留字为[蓝色]
re.Pattern="(\bAnd\b|\bByRef\b|\bByVal\b|\bCall\b" & _
"|\bCase\b|\bClass\b|\bConst\b|\bDim\b|\bDo\b" & _
"|\bEach\b|\bElse\b|\bElseIf\b|\bEmpty\b|\bEnd\b" & _
"|\bEqv\b|\bErase\b|\bError\b|\bExit\b|\bExplicit\b" & _
"|\bFalse\b|\bFor\b|\bFunction\b|\bGet\b|\bIf\b|\bImp\b" & _
"|\bIn\b|\bIs\b|\bLet\b|\bLoop\b|\bMod\b|\bNext\b|\bNot\b" & _
"|\bNothing\b|\bNull\b|\bOn\b|\bOption\b|\bOr\b|\bPrivate\b" & _
"|\bProperty\b|\bPublic\b|\bRandomize\b|\bReDim\b|\bRem\b" & _
"|\bResume\b|\bSelect\b|\bSet\b|\bStep\b|\bSub\b|\bThen\b" & _
"|\bTo\b|\bTrue\b|\bUntil\b|\bWend\b|\bWhile\b|\bXor\b|Vb[a-z]*)"
sText=re.Replace(sText,"<font color=blue>$1</font>")
'转换函数和对象为[红色]
re.Pattern="(\bAnchor\b|\bArray\b|\bAsc\b|\bAtn\b" & _
"|\bCBool\b|\bCByte\b|\bCCur\b|\bCDate\b|\bCDbl\b" & _
"|\bChr\b|\bCInt\b|\bCLng\b|\bCos\b|\bCreateObject\b" & _
"|\bCSng\b|\bCStr\b|\bDate\b|\bDateAdd\b|\bDateDiff\b" & _
"|\bDatePart\b|\bDateSerial\b|\bDateValue\b|\bDay\b" & _
"|\bDictionary\b|\bDocument\b|\bElement\b|\bErr\b|\bExp\b" & _
"|\bFileSystemObject \b|\bFilter\b|\bFix\b|\bInt\b|\bForm\b" & _
"|\bFormatCurrency\b|\bFormatDateTime\b|\bFormatNumber\b" & _
"|\bFormatPercent\b|\bGetObject\b|\bHex\b|\bHistory\b|\bHour\b" & _
"|\bInputBox\b|\bInStr\b|\bInstrRev\b|\bIsArray\b|\bIsDate\b" & _
"|\bIsEmpty\b|\bIsNull\b|\bIsNumeric\b|\bIsObject\b|\bJoin\b" & _
"|\bLBound\b|\bLCase\b|\bLeft\b|\bLen\b|\bLink\b|\bLoadPicture\b" & _
"|\bLocation\b|\bLog\b|\bLTrim\b|\bRTrim\b|\bTrim\b|\bMid\b" & _
"|\bMinute\b|\bMonth\b|\bMonthName\b|\bMsgBox\b|\bNavigator\b" & _
"|\bNow\b|\bOct\b|\bReplace\b|\bRight\b|\bRnd\b|\bRound\b" & _
"|\bScriptEngine\b|\bScriptEngineBuildVersion\b" & _
"|\bScriptEngineMajorVersion\b|\bScriptEngineMinorVersion\b" & _
"|\bSecond\b|\bSgn\b|\bSin\b|\bSpace\b|\bSplit\b|\bSqr\b" & _
"|\bStrComp\b|\bString\b|\bStrReverse\b|\bTan\b|\bTime\b" & _
"|\bTextStream\b|\bTimeSerial\b|\bTimeValue\b|\bTypeName\b" & _
"|\bUBound\b|\bUCase\b|\bVarType\b|\bWeekday\b|\bWeekDayName\b" & _
"|\bWindow\b|\bYear\b|\bWscript\b)"
sText=re.Replace(sText,"<font color=red>$1</font>")
ChangeVBS = sText
end Function
'*******************************************************************'
'CMD转换模块
'*******************************************************************'
Function ChangeCMD(sText)
Set re=new RegExp
re.IgnoreCase =true
re.Global=true
'等号转换
'sText = Replace(sText,"/","<font color=#FF0000>/</font>")
re.Pattern = "(\%|\=|\/[a-z]*\b|\>|\<|\|)"
sText = re.Replace(sText,"<font color=#FF8C00>$1</font>")
'注释转换
re.Pattern = "(Rem\b.*\r\n|\bRem\b.*)"
sText = re.Replace(sText,"<font color=#20B2AA>$1</font>")
'改变符号的颜色
re.Pattern = "(\(|\)|\&|\+|\-|\*|\;|\""" & ")"
sText = re.Replace(sText,"<font size=5 color=#9932CC>$1</font>")
'改变所有命令的颜色
re.Pattern = "(\bShare\b|\bSetver\b|\bNlsfunc\b|\bMem\b|\bLh\b" & _
"|\bLoadhigh\b|\bloadfix\b|\bGraphics\b|\bForcedos\b" & _
"|\bFastopen\b|\bExe2bin\b|\bEdlin\b|\bEdlin\b|\bEdit\b" & _
"|\bDebug\b|\bDebug\b|\bAppend\b|\bSwitches\b|\bStacks\b" & _
"|\bShell\b|\bNtcmdprompt\b|\bLastdrive\b|\bInstall\b" & _
"|\bFiles\b|\bFcbs\b|\bEchoconfig\b|\bDriveparm\b|\bDosonly\b" & _
"|\bDos\b|\bDevicehigh\b|\bDevice\b|\bCountry\b|\bBuffers\b" & _
"|\bXcopy\b|\bWMIC\b|\bWinnt32\b|\bWinnt\b|\bW32tm\b" & _
"|\bVssadmin\b|\bVol\b|\bVerify\b|\bVer\b|\bUnlodctr\b" & _
"|\bTypeperf\b|\bType\b|\bTree\b|\bTracert\b|\bTracerpt\b" & _
"|\bTitle\b|\bTime\b|\bTftp\b|\bTelnet\b|\bTcmsetup\b" & _
"|\bTasklist\b|\bTaskkill\b|\bSfc\b|\bSysteminfo\b|\bSubst\b" & _
"|\bStart\b|\bSort\b|\bShutdown\b|\bShift\b|\bSetlocal\b|\bSet\b" & _
"|\bSecedit\b|\bSchtasks\b|\bSc\b|\bRunas\b|\bRsm\b|\bRsh\b" & _
"|\bRoute\b|\bRmdir\b|\bRexec\b|\bReset\b|\bReplace\b|\bRename\b" & _
"|\bRelog\b|\bRegsvr32\b|\bReg\b|\bRecover\b|\bRcp\b|\bRasdial\b" & _
"|\bQuery\b|\bPushd\b|\bPrompt\b|\bPrnqctl\b|\bPrnport\b" & _
"|\bPrnmngr\b|\bPrnjobs\b|\bPrndrvr\b|\bPrncnfg\b|\bPrint\b" & _
"|\bPopd\b|\bPing\b|\bPerfmon\b|\bPentnt\b|\bPbadmin\b|\bPause\b" & _
"|\bPathping\b|\bPath\b|\bPagefileconfig\b|\bOpenfiles\b|\bNtsd\b" & _
"|\bNtcmdprompt\b|\bNtbackup\b|\bNslookup\b|\bNetstat\b|\bNetsh\b" & _
"|\bNet\b|\bNbtstat\b|\bMsinfo32\b|\bMsiexec\b|\bMove\b" & _
"|\bMountvol\b|\bMore\b|\bMode\b|\bMmc\b|\bMd\b|\bMkdir\b" & _
"|\bMacfile\b|\bLpr\b|\bLpq\b|\bLogman\b|\bLodctr\b|\bLabel\b" & _
"|\bIrftp\b|\bIpxroute\b|\bIpseccmd\b|\bIpconfig\b|\bIf\b" & _
"|\bHostname\b|\bHelpctr\b|\bHelp\b|\bGraftabl\b|\bGpupdate\b" & _
"|\bGpresult\b|\bGoto\b|\bGetmac\b|\bFtype\b|\bFtp\b|\bFsutil\b" & _
"|\bFormat\b|\bFor\b|\bFlattemp\b|\bFinger\b|\bFindstr\b|\bFind\b" & _
"|\bFc\b|\bExpand\b|\bExit\b|\bEvntcmd\b|\bEventtriggers\b" & _
"|\bEventquery\b|\bEventcreate\b|\bEndlocal\b|\bEcho\b" & _
"|\bDriverquery\b|\bDoskey\b|\bDiskPart\b|\bDiskcopy\b" & _
"|\bDiskcomp\b|\bDir\b|\bDel\b|\bDefrag\b|\bDate\b|\bCScript\b" & _
"|\bCprofile\b|\bCopy\b|\bConvert\b|\bCompact\b|\bComp\b" & _
"|\bCmstp\b|\bCmd\b|\bCls\b|\bCipher\b|\bChkntfs\b|\bChkdsk\b" & _
"|\bChdir\b|\bChcp\b|\bChange\b|\bCall\b|\bCacls\b|\bBreak\b" & _
"|\bBootcfg\b|\bAttrib\b|\bAtmadm\b|\bAt\b|\bAssoc\b|\bArp\b)"
sText=re.Replace(sText,"<font color=blue>$1</font>")
sText = "<table><td width=""1024"" " & _
"style=""word-break:break-all""><ol type=1>" & _
"<br /><li>" & sText & "<tr></table>"
sText = Replace(sText,chr(13) & chr (10) ," </li><li> ")
ChangeCMD = sText
end Function
'*******************************************************************'
'帮助窗口
'*******************************************************************'
set oPopup = window.createPopup
sub HelpWindow
if usehelp.checked then
set oPopBody = oPopup.document.body
oPopBody.style.backgroundColor = "lightyellow"
oPopBody.style.border = "solid black 1px"
oPopBody.innerHTML = "帮助功能未完成,取消帮助见右下角"
oPopup.show WinMain.offsetleft, _
WinMain.offsettop + WinMain.offsetheight - 20, _
WinMain.offsetWidth, 20, document.body
end if
end sub
'*******************************************************************'
'运行代码
'*******************************************************************'
Sub RunCode
if cxs.value = "vbs" then
tmpfile = "temp_script.vbs"
str = tmpfile
else
tmpfile = "temp_script.bat"
str = "cmd /k " & tmpfile
end if
Set file = fso.OpenTextFile(tmpdir & tmpfile,2,True)
file.Write WinMain.innerText
file.Close
shell.Run str
End Sub
'*******************************************************************'
'保存文件
'*******************************************************************'
Sub SaveFile
Set objDialog = CreateObject("SAFRCFileDlg.FileSave")
objDialog.FileName = Cstr(date)
if cxs.value = 1 then
objDialog.FileType = ".vbs"
else
objDialog.FileType = ".bat"
end if
intReturn = objDialog.OpenFileSaveDlg
If intReturn Then
Set objFile = fso.CreateTextFile( _
objDialog.FileName & objDialog.FileType)
objFile.WriteLine WinMain.innerText
objFile.Close
end if
end Sub
'*******************************************************************'
'打开文件
'*******************************************************************'
Sub OpenFile
Set objDialog = CreateObject("UserAccounts.CommonDialog")
objDialog.Filter = "bat文件|*.bat;*.cmd|vbs 文件|*.vbs|所有文件|*.*"
'objDialog.MaxFileSize = 10000
'objDialog.FilterIndex = 1
'objDialog.InitialDir = ""
objDialog.ShowOpen
'strLoadFile = objDialog.FileName
If len(trim(objDialog.FileName)) = 0 Then Exit Sub
Set objFile = fso.OpenTextFile(objDialog.FileName,1,True)
WinMain.innerText = objFile.ReadAll
end Sub
'*******************************************************************'
'启动时自动移动到屏幕中心
'*******************************************************************'
Sub Window_OnLoad()
self.ResizeTo 1,1
self.MoveTo 300,300
'显示一个窗口
Set objWindow = window.Open("about:blank","ProgressWindow","height=15,width=250,left=300,top=300,status=no,titlebar=no,toolbar=no,menubar=no,location=no,scrollbars=no")
With objWindow
.Focus()
.ResizeTo 250,15
.document.body.style.fontFamily = "Helvetica"
.document.body.style.fontSize = "11pt"
.document.writeln "<html><body>正在搜索本地文件....</body></html>"
.document.title = "请稍侯..."
.document.body.style.backgroundColor = "buttonface"
.document.body.style.borderStyle = "none"
.document.body.style.marginTop = 15
end With
'如果系统并非XP，IE不为6.0版本则退出
strWindowsVer = shell.RegRead _
("HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\ProductName")
strIeVer = shell.RegRead _
("HKLM\SOFTWARE\Microsoft\Internet Explorer\Version")
if strWindowsVer <> "Microsoft Windows XP" or _
left(strIeVer,3) <> "6.0" then
intFlag = msgbox("操作系统不是XP或者IE版本低于6.0，是否退出?",1)
if intFlag = 1 then
self.close
else
Began
end if
else
Began
end if
objWindow.Close
End Sub
Sub Began
OptionAdd "bat"
intLeft = (document.parentwindow.screen.availwidth - 800) / 2
intTop = (document.parentwindow.screen.availheight - 600) / 2
window.resizeTo 800,650
window.moveTo intLeft, intTop
end Sub
'*******************************************************************'
'搜索本地脚本
'*******************************************************************'
Sub TestSub
Set objFile = fso.OpenTextFile(objOption.value,1,True)
WinMain.innerText = objFile.ReadAll
end Sub
'*******************************************************************'
'擦屁股
'*******************************************************************'
Sub Window_OnBeforeUnload()
On Error Resume Next
fso.DeleteFile "temp_script.vbs",True
fso.DeleteFile "temp_script.bat",True
Set shell = Nothing
Set fso = Nothing
set oPopup= Nothing
End Sub
'*******************************************************************'
'清空代码
'*******************************************************************'
Sub Clear
WinMain.innerText = ""
'WinMain.innerHTML = ""
end Sub
'*******************************************************************'
'复制到剪贴板
'*******************************************************************'
Sub ClipBoard
window.clipboardData.SetData "text", WinMain.innerHTML
end Sub
</SCRIPT>
</HEAD>
<body>
<style type="text/css">
* { padding:0; border:0; overflow:hidden; font:16px Arial;}
html,body { height:100%; margin:0;}
#box_2 { height:100%; background:#ccc;}
</style>
<center>
<div style="font-family: Trebuchet MS; font-weight:bold;">
<span style="font-size: 18pt;">代码编辑器</span>
<span style="font-size: 8pt;">Ver 1.0 by
<a href="http://www.cn-dos.net/forum/forumdisplay.php?fid=23">
3742668</a> <a href="mailto:3742668@gmail.com">
我的信箱</a></span><br></div></center><br> <div contentEditable
STYLE="padding:2; overflow:auto;background-color:lightyellow;
width:100%; height:70%;" ID="WinMain" onkeyup="HelpWindow">
</div> <BR> <center>
<INPUT STYLE="font-family: Trebuchet MS; font-size: 8pt; font-weight:
bold; border: 1px solid black;" TYPE="BUTTON" VALUE="打开文件(x)"
accesskey="x" ONCLICK="OpenFile">
<INPUT STYLE="font-family: Trebuchet MS; font-size: 8pt; font-weight:
bold; border: 1px solid black;" TYPE="BUTTON" VALUE="运行代码(r)"
accesskey="r" ONCLICK="RunCode">
<INPUT STYLE="font-family: Trebuchet MS; font-size: 8pt; font-weight:
bold; border: 1px solid black;" TYPE="BUTTON" VALUE="清空代码(c)"
accesskey="c" ONCLICK="Clear">
<INPUT STYLE="font-family: Trebuchet MS; font-size: 8pt; font-weight:
bold; border: 1px solid black;" TYPE="BUTTON" VALUE="保存文件(s)"
accesskey="s" ONCLICK="SaveFile">
<INPUT STYLE="font-family: Trebuchet MS; font-size: 8pt; font-weight:
bold; border: 1px solid black;" TYPE="BUTTON" VALUE="复制着色代码(a)"
accesskey="a" ONCLICK="ClipBoard">
<INPUT STYLE="font-family: Trebuchet MS; font-size: 8pt; font-weight:
bold; border: 1px solid black;" TYPE="BUTTON" VALUE="着色显示(d)"
accesskey="d" ONCLICK="ChangeColor"></center>
<br><div id="forOption"></div><p>
<INPUT TYPE="CHECKBOX" ID="usehelp" onfocus="WinMain.focus"
accesskey="z" class="noBorder" position: checked>
<label for="usehelp">使用帮助(<u>z</u>)</label>
<label>脚本类型:<label>
<SELECT NAME="cxs" SIZE="1" onchange="OptionAdd(cxs.value)">
<OPTION VALUE="vbs">
VBS脚本</OPTION><OPTION VALUE="bat" SELECTED>BAT脚本</OPTION><br>
</body>
</HTML>
附件 1:代码编辑器.rar (2006-5-23 13:04, 5.1 K, 下载附件所需积分 1点 ,下载次数： 472)
作者: 3742668 时间: 2006-5-22 18:37
本来有个修正版的，由于试验怎么把自己的XP搞挂掉，结果真的挂了，保存在桌面的修正版也没了。
还是ps一句: 写代码还是不要用记事本，尽量还是去用editplus或uedit，自己加个语法着色就行了。
作者: doscc 时间: 2006-5-22 18:49
太深了.好多看不懂
作者: electronixtar 时间: 2006-5-22 19:54
楼主真牛人也
作者: weilong888 时间: 2006-5-22 21:34
是牛得利害啊，大脑发达啊。
作者: willsort 时间: 2006-5-23 02:04
Re 3742668:
加16分，建议标题中加入[原创][XP~]的标记。
至于编写批处理脚本，我主要使用EditPlus，在DOS下则主要还是edit。以下是我自定义的EditPlus语法着色文件。因为是来自Win98的版本，所以只是加入一些DOS和98下常用的关键字。
#TITLE=Batch
; Batch syntax file written by Will Sort.
; This file is required for EditPlus to run correctly.
#DELIMITER=,(){}[]-+*%/="'~!&|<>?:;.
#QUOTATION1='
#QUOTATION2="
#CONTINUE_QUOTE=n
#LINECOMMENT=::
#LINECOMMENT2=rem
#PREFIX4=:
#SPECIAL_STX=bat
#KEYWORD=Special commands
do
echo
exist
for
goto
if
in
pause
rem
#KEYWORD=Internal commands
cd
cls
copy
ctty
del
dir
md
rd
#KEYWORD=External commands
choice
comp
deltree
fc
format
mode
more
move
sort
xcopy
#
[ Last edited by willsort on 2006-5-23 at 02:07 ]; Batch syntax file written by Will Sort.
; This file is required for EditPlus to run correctly.
#DELIMITER=,(){}[]-+*%/="'~!&|<>?:;.
#QUOTATION1='
#QUOTATION2="
#CONTINUE_QUOTE=n
#LINECOMMENT=::
#LINECOMMENT2=rem
#PREFIX4=:
#SPECIAL_STX=bat
#KEYWORD=Special commands
do
echo
exist
for
goto
if
in
pause
rem
#KEYWORD=Internal commands
cd
cls
copy
ctty
del
dir
md
rd
#KEYWORD=External commands
choice
comp
deltree
fc
format
mode
more
move
sort
xcopy
#
作者: 3742668 时间: 2006-5-23 13:01 标题: 更正:
在 "保存文件" 的模块中，有一句 if cxs.value = 1 then 在这里应该是if cxs.value = "vbs" then 另外下面的 objFile.WriteLine WinMain.innerText这句改为调用objFile.Wite方法更形象。
真对不起大家，贴了个中间产品上来，主要功能也少了两部分，什么时候有空我会把最终版搞出来，关于代码着色方面还请美感比较好的朋友提供一下配色方案，在这个方面本人实在是TCL。
willsort:
谢谢提醒，当然更谢的是加分。
如果你和 无奈何 能一起加进来完成的话我相信能把这个东东做好，对于你们在 批處理室 管理日志 中表现出来的规范严谨，小弟是非常敬佩的。
作者: electronixtar 时间: 2006-5-23 15:12
晕～～～18行1语法错误～～～
P.S.：编辑脚本我一般用PrimalScript，支持vbs js bat cmd asp asp.net…………可以把vbs编译成exe……还有好多好多功能
作者: 3742668 时间: 2006-5-25 23:24
回楼上的:
谢谢指出毛病。关于出现这种错误，初步判断为WMI方面出了问题，似乎脚本退出的时候WINDOWS并未释放部分内存。而且根据我的经验，第一次使用WMI的查询后，它就会把数据集/索引一直驻留在内存中，使得再次查询的时候速度会很快。(以上均为个人意见，并不保证完全正确。)不过在我的电脑上还没有出现过错误，猜想是否因为数据集未断开的缘故。
由于是中间产品，且是随兴写上一两个功能，所以错误再所难免，因此还是希望大家不吝赐教。
[ Last edited by 3742668 on 2006-5-25 at 23:35 ]
作者: wwerttt 时间: 2006-5-28 20:48
牛人
作者: 3742668 时间: 2006-5-31 21:31
最近发现用vbsedit写vbs脚本还过得去，今天就贴一个上来。可惜下不到microsoft的那个编辑器，等俺有机会用正版了俺就去下一个。
嗯，顺便顶一下自己。。。
附件 1:
作者: hncscb 时间: 2006-6-7 12:52
真是牛人，学习
作者: heixingstudio 时间: 2006-6-17 18:01
好东西
作者: pangu 时间: 2006-6-18 07:48
真是牛人，学习 谢了!
作者: zzqw 时间: 2006-7-1 14:31
好好好好好好好好好好好好好好好好好好好好好好好好好好好好
好好好好好好 好好好好好好好好好好 好好好 好好好好好
好好好好好好 好好好好好好好 好好好好 好好好好好
好好好好好 好好好好好好好好好 好好好好 好好好好
好好好好 好好好好好好好好好好好好 好 好好 好好
好好 好 好好好好好好好好好好 好好好 好好 好
好好好好好 好好好好好好好好好 好好好 好好好好
好好好好 好好好好好好好好好好 好 好 好好好好好
好好好好好好好 好好好好好好好好好 好 好 好好
好好 好 好好好好好好好好好 好好好好 好好好好
好 好好 好好好好好好好好 好 好 好好好好
好好好好好 好好好好好好好好 好 好好 好 好好好好
好好好好 好好好好好好 好好 好好好好好 好好好好
好好好 好好 好好好好 好 好好 好好 好好好好
好 好好好好 好好好好好 好好好 好好好好
好好好好好好好好好好好好好好好好好好好好好好好好好好好好
作者: electronixtar 时间: 2006-12-25 12:40
今天又用到了这个好东东，再次顶～～
| Quote: | |
|
那个十分不好用
作者: yasas 时间: 2006-12-25 20:43
深了.好多看不明白
作者: redtek 时间: 2006-12-25 21:38
欣赏～～～
作者: lcazhj 时间: 2006-12-26 00:47
厉害 我什么时候能到这个地步?
作者: voiL 时间: 2006-12-26 00:51
| Quote: | |
|
看来我永远都没办法用上咯...
因为我从来没打算用正版那么奢侈...
作者: HUNRYBECKY 时间: 2006-12-26 23:10
太牛，又一圣诞大餐
作者: jmz573515 时间: 2006-12-26 23:30
好东西,顶上去.
作者: lxmxn 时间: 2006-12-27 01:28
强啊。这个脚本够我学一阵子了。
顶贴，拿分，闪人。
作者: heixing 时间: 2006-12-27 09:10
大脑好发达呀！！！
牛人
作者: 549451001 时间: 2006-12-30 08:43
好是好，但我就下载不了，郁闷！！！
作者: 8584581 时间: 2007-1-16 08:04
怎么拿分 ？
作者: electronixtar 时间: 2007-1-16 08:51
回贴就有分，看我又回一分
作者: wjq0886 时间: 2007-1-19 06:29
| Quote: | |
|
我也来赚一分。。哈！
作者: hsting 时间: 2007-1-19 11:12
利害，偶向你学习，呵呵
作者: global620 时间: 2007-1-19 12:05
好好好好好好好好好好好好好好好好好好好好好好好好好好好好
好好好好好好 好好好好好好好好好好 好好好 好好好好好
好好好好好好 好好好好好好好 好好好好 好好好好好
好好好好好 好好好好好好好好好 好好好好 好好好好
好好好好 好好好好好好好好好好好好 好 好好 好好
好好 好 好好好好好好好好好好 好好好 好好 好
好好好好好 好好好好好好好好好 好好好 好好好好
好好好好 好好好好好好好好好好 好 好 好好好好好
好好好好好好好 好好好好好好好好好 好 好 好好
好好 好 好好好好好好好好好 好好好好 好好好好
好 好好 好好好好好好好好 好 好 好好好好
好好好好好 好好好好好好好好 好 好好 好 好好好好
好好好好 好好好好好好 好好 好好好好好 好好好好
好好好 好好 好好好好 好 好好 好好 好好好好
好 好好好好 好好好好好 好好好 好好好好
好好好好好好好好好好好好好好好好好好好好好好好好好好好好
楼主是牛人啊！
作者: jgc 时间: 2007-1-19 15:50
希望楼主加上在head中加入
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
否则我电脑上打开是乱码，加入代码后解决。作者: lznetword 时间: 2007-1-26 06:38 标题: 看不太懂
看不太懂
作者: kich 时间: 2007-1-26 07:28
赞啊,楼主,我正在学VBS,跟你学了,多发代码啊,尤其是初级人员(比如我)看的代码
作者: kich 时间: 2007-1-26 07:40
请教楼主，我是新手，简单问一下您代码的意思：
==================================
Sub OptionAdd(fExt)
str = "<select size=""1"" name=""objOption"" onChange=""TestSub"">"
Set objDataFiles = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\.\root\cimv2")
Set colFiles = objDataFiles. _
ExecQuery("Select * from CIM_DataFile where extension = '" & fExt & "'")
For Each objFile in colFiles
str = str & "<option value=""" & objFile.name & """>" & _
objFile.name & "</option>"
next
str = "<label>本地脚本文件:</label>" & str & "</select>"
forOption.innerHTML = str
end Sub
==========================
可以简单对这每个语句做下解释吗？我有点看不懂，而且正好在学这个，谢谢了！！
作者: zhenyun168 时间: 2007-1-27 12:58
好东西
作者: liuyilin 时间: 2007-1-29 03:12
楼主真牛人也
作者: nams 时间: 2007-1-30 06:23
学习中
作者: 6622186 时间: 2007-2-23 13:31
"支持" 这两个字怎么弄出来的?真厉害! 我在前面加了 echo 在控制台显示,谢了!
作者: anqing 时间: 2007-2-23 13:57
真是佩服楼主你啊
作者: HUNRYBECKY 时间: 2007-3-1 23:22
我这里已经下载了MS的哪个脚本编辑器,很小,没有什么功能，但是比较方便.
作者: zxz1155 时间: 2007-3-4 14:46
呵呵,都是好东西,可就是俺看不懂,......
作者: shaodong189 时间: 2007-3-28 15:39
好，，，，，，，，，，，，，，，，，，，，，，，
作者: sf005k 时间: 2007-3-30 01:48
好深厚啊，我不会
作者: benteng302 时间: 2007-5-22 08:31
真实牛人呀。佩服！
作者: happy12380 时间: 2007-9-20 13:59
好
作者: wwek 时间: 2007-11-24 15:08
顶顶·········
作者: matthewfjnd 时间: 2007-12-14 16:22
找了好久咯...
谢谢楼主...
作者: kgdetg1127 时间: 2007-12-15 14:00
狂顶！！！！！
作者: http2www 时间: 2007-12-16 06:53
好
作者: guyawansong 时间: 2007-12-23 14:43
好，留下以后看看。。。
作者: qazqvq 时间: 2007-12-24 12:08
看不懂
作者: ljxinfeixiang 时间: 2008-1-6 03:22
下载看一看啊~~~
作者: regvip2008 时间: 2008-1-13 10:45
这样的好帖，不得不顶！
作者: warmson 时间: 2008-1-13 16:41 标题: 好长啊
怎一个牛字了的!
作者: ls365679106 时间: 2008-4-30 22:46
好好好好好好好好好好好好好好好好好好好好好好好好好好好好
好好好好好好 好好好好好好好好好好 好好好 好好好好好
好好好好好好 好好好好好好好 好好好好 好好好好好
好好好好好 好好好好好好好好好 好好好好 好好好好
好好好好 好好好好好好好好好好好好 好 好好 好好
好好 好 好好好好好好好好好好 好好好 好好 好
好好好好好 好好好好好好好好好 好好好 好好好好
好好好好 好好好好好好好好好好 好 好 好好好好好
好好好好好好好 好好好好好好好好好 好 好 好好
好好 好 好好好好好好好好好 好好好好 好好好好
好 好好 好好好好好好好好 好 好 好好好好
好好好好好 好好好好好好好好 好 好好 好 好好好好
好好好好 好好好好好好 好好 好好好好好 好好好好
好好好 好好 好好好好 好 好好 好好 好好好好
好 好好好好 好好好好好 好好好 好好好好
好好好好好好好好好好好好好好好好好好好好好好好好好好好好
作者: xtanbmy 时间: 2008-5-1 04:00
真是牛人真是牛人真是牛人
你怎么就这么牛X呀，好佩服呀！
作者: zljzsm 时间: 2008-5-10 01:25
每次上中国DOS联盟都看得我眼花缭乱。真是羡慕你们啊。看来我真的是有得学了。就不知道要到什么时候才会有你们这样的水平。哎~！
作者: joyn 时间: 2008-5-10 05:32
留个印
作者: 261621998 时间: 2008-5-10 07:54
牛人也
作者: flea00521 时间: 2008-5-10 08:48
学习中 …………跪求师傅
作者: 261621998 时间: 2008-5-10 11:17
要多少分可以下载呀?
作者: skybolt 时间: 2008-5-19 09:16
好东西，收了。谢谢
作者: ahding88 时间: 2008-9-28 15:43
谢谢楼主无私分享！！！