523066680

看起来不是我写的啊；可能是写过部分内容吧。
语言描述有语误。
歌本的描述给我私人看我一定很兴奋，给别人看我就觉得变小丑了……

后来只是在用cscript

if wscript.arguments.count=0 then 
   createobject("wscript.shell").run _ 
   "cmd /c cscript //nologo " &chr(34) &wscript.scriptname &chr(34) & " isme" 
   wscript.quit 
end if 
:rem paktc
 
set fs=createobject("scripting.filesystemobject") 
set inp=wscript.stdin 
set put=wscript.stdout 
while true
  put.writeline "请输入将要读取的文本名称，或完整路径: " 
  do 
    pathx=replace(inp.readline,chr(34),"")
    if lcase(pathx)="exit" then
      put.writeline "您选择了退出..."
      wscript.sleep 500
      inp.close : put.close
      wscript.quit
    end if
    if fs.fileexists(pathx) = false then 
      put.writeline "文件不存在，请再输入一次。" 
      put.writeline "建议拖拽文本到本窗口，可直接获得完整路径: " 
    end if 
  loop until fs.fileexists(pathx) 
  put.writeline "" 
  set readx=fs.opentextfile(pathx,1) 
  while readx.atendofstream = false 
    tempstr=readx.read(1) 
    put.write tempstr 
    if asc(tempstr)<0 or asc(tempstr)>255 then 
      wscript.sleep 150 
    else 
      wscript.sleep 100 
    end if 
  wend 
  put.writeblanklines(2)
  put.writeline "    脚本提示,该文本已输出完毕。"
  put.writeblanklines(2)
  readx.close
wendCOPY

[ 本帖最后由 523066680 于 2010-3-19 08:31 编辑 ]