CRT自动输入文本内容

cjy11235

本内容仅适用于CRT软件，使用微软自带编程语言
使用方向：使用CRT远程路由器、交换机、服务器使用，可以自动识别文本内容进行输入，并且根绝时间生成LOG日志文件

[C] 纯文本查看 复制代码

# $language = "VBScript"
# $interface = "1.0"
' 使用方法：在同目录下创建input.txt文件，并把需要操作的命令放入文本内


' 使用的常量OpenTextFile()
'
Const ForReading = 1
Const ForWriting = 2

Sub Main
        Dim fso,fso2, fread,file, str, logfilename, logfilename2

        Set FSO = CreateObject("Scripting.FileSystemObject")


        '初步定义LOG文件名,定义文件名为时间年月日时分秒
        logfilename = "%Y-%M-%D--%h.%m.%s.log"
        crt.Session.LogFileName = logfilename

        '开启LOG记录功能
        crt.session.log true 

        '发送一个回车符
        crt.Screen.Send Chr(13)


        '注意：如果“input.txt”不存在，则将生成运行时异常。
        '
        Set file = fso.OpenTextFile("input.txt", ForReading, False)
        
        crt.Screen.Synchronous = True
        
        Do While file.AtEndOfStream <> True

        str = file.Readline

        ' 发送附加 回车（CR） 的行
        '
        crt.Screen.Send str & Chr(13)
        
        ' 在发送下一行之前等待我的提示
        '
        crt.Screen.WaitForStrings ">","#","$"
        Loop

        crt.Screen.Synchronous = False
        '关闭LOG记录功能
        crt.session.log  false


        '清理FSO缓存
        Set FSO = Nothing
End Sub

如果不向复制，可以直接下载。
蓝奏云下载链接：https://wweh.lanzouw.com/if9j32f1w9ej

注：刷命令的txt文件名需要是input.txt，如果不是，请更名，或者更改VBS文件中的名。

jomaize

特别有用

jyjjf

这个应用场景是什么？

52UFO

自动识别加上自动输入很方便

wangdeshui

下载链接呢？

lshi

怎么下载

fre1heit

怎么下载

wahahehe

感谢分享，虽然用不到，提示下，最后的下载链接丢了

trumps30

应用场景呢？

czpyy

感谢分享，先收藏了