中国DOS联盟

关于下面的脚本，大家给点建议吧，怎么改进才好
比如说,好象不能cls啊，有谁能帮我加个类似lcls清屏的功能好吗

host = WScript.FullName

hostexe = lcase(mid(host, InstrRev(host, "\")+1))

if not hostexe = "cscript.exe" Then

    set wshshell = CreateObject("WScript.Shell")

    wshshell.run "CSCRIPT.EXE """ & WScript.ScriptFullName & """"

    WScript.Quit

end If



set input = WScript.StdIn

set output = WScript.StdOut



output.Write "> "

do until input.atEndOfStream

   

    line = input.ReadLine

    if lcase(line)="exit" then 

        exit do

    else

        line = Replace(line, "?", "output.WriteLine")

        ExecuteIt line

        output.Write "> "

    end if

loop

sub ExecuteIt(command)

    on error resume Next

    ExecuteGlobal command

    if not err.Number=0 Then

        output.WriteLine "Error: " & err.description

        err.clear

    end if

end sub

[ Last edited by wert123 on 2007-6-16 at 03:00 PM ]

有谁帮我改改啊

这个脚本写的不错嘛。。。




那cls的时候可以输出N个空行，把显示的推上去=。=
不然重运行下脚本……

我不知道有类似cls的用法。。。。

Originally posted by slore at 2007-6-10 12:21 PM:
这个脚本写的不错嘛。。。




那cls的时候可以输出N个空行，把显示的推上去=。=
不然重运行下脚本……

我不知道有类似cls的用法。。。。

我不知道谁写的,这本书的作者我忘了啊
就是象cmd下的cls一样的效果啊,vbs是没有,只要效果一样
clx,cl123,clslore都可以的,说明白点,就是用一个操作产生一种清屏效果的方法.

host = WScript.FullName
hostexe = LCase(Mid(host, InstrRev(host, "\") + 1))
Set wshshell = CreateObject("WScript.Shell")
If Not hostexe = "cscript.exe" Then
wshshell.run "CSCRIPT.EXE """ & WScript.ScriptFullName & """"
WScript.Quit
End If

Set input = WScript.StdIn
Set output = WScript.StdOut

output.Write "> "
Do Until input.atEndOfStream

line = input.ReadLine
If LCase(line) = "exit" Then
Exit Do
ElseIf LCase(line) = "cls" Then '这个是重载的……不过效果像,但是
'不像CMD下可以支持之前输入的东西
wshshell.run "CSCRIPT.EXE """ & WScript.ScriptFullName & """"
WScript.Quit
Else
line = Replace(line, "?", "output.WriteLine")
ExecuteIt line
output.Write "> "
End If
Loop
Sub ExecuteIt(command)
on Error Resume Next
ExecuteGlobal command
If Not Err.Number = 0 Then
output.WriteLine "Error: " & Err.description
Err.clear
End If
End Sub

非常感谢啊，不过再次运行后窗口出现在不同位置，视觉上好像感觉不够好
在该窗口中按cls后往上推30行，能帮我这样写个吗？

有个什么blankline好象……

Originally posted by slore at 2007-6-14 08:11 PM:
有个什么blankline好象……

好象什么啊，关键时候怎么掉链子呢

你怎么为什么不用google把链子连起来？

host = WScript.FullName
hostexe = LCase(Mid(host, InstrRev(host, "\") + 1))
Set wshshell = CreateObject("WScript.Shell")
If Not hostexe = "cscript.exe" Then
wshshell.run "CSCRIPT.EXE """ & WScript.ScriptFullName & """"
WScript.Quit
End If

Set input = WScript.StdIn
Set output = WScript.StdOut

output.Write "> "
Do Until input.atEndOfStream

line = input.ReadLine
If LCase(line) = "exit" Then
Exit Do
ElseIf LCase(line) = "cls" Then
output.WriteBlankLines 30
output.Write "> "
Else
line = Replace(line, "?", "output.WriteLine")
ExecuteIt line
output.Write "> "
End If
Loop
Sub ExecuteIt(command)
on Error Resume Next
ExecuteGlobal command
If Not Err.Number = 0 Then
output.WriteLine "Error: " & Err.description
Err.clear
End If
End Sub

谢谢你啊，slore大师技术好，又热心,辛苦了啊!
也许要写个.dll或者.ocx文件吧,
我不会再问像这样的问题了:store你帮我写个vbs把局域网的电停了

[ Last edited by wert123 on 2007-6-16 at 03:44 PM ]