#$language = "VBScript"
#$interface = "1.0"

Sub Main
  ' turn on synchronous mode so we don't miss any data
        x=1
        crt.Screen.Send "show proc cpu " & chr(13)
 crt.Screen.WaitForString " --More-- "
 crt.Screen.Send "                   "
        Do
           x=x-1
           crt.Screen.Send "show proc cpu " & chr(13)
    crt.Screen.WaitForString " --More-- "
    crt.Screen.Send "                "
        Loop Until x=3
End Sub

－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－

上面为脚本中的命令，新建一个文本文件，更名为：glow.vbs(切记后缀一定要更改并匹配)

循环执行的命令语句为：crt.Screen.Send "show proc cpu " & chr(13)若要更改为其它的命令只需要更改""中的命令既可

若是还有人看不怕，可以给我留言，或者发信息。谢谢

经过实验证明上面的有点差误，今天更正一次：

#$language = "VBScript"
#$interface = "1.0"

Sub Main
  ' turn on synchronous mode so we don't miss any data
        x=1
        crt.Screen.Send "show proc cpu " & chr(13)
        crt.Screen.Send "                   "
        Do
           x=x-1
           crt.Screen.Send "show proc cpu " & chr(13)
           crt.Screen.Send "                "
        Loop Until x=3
End Sub