网站 › 『编程语言区』 › CRT自动输入文本内容

cjy11235 发表于 2024-11-14 19:04

CRT自动输入文本内容

本帖最后由 cjy11235 于 2024-11-15 16:09 编辑

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

# $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.logfalse


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

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

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

jomaize 发表于 2024-11-14 20:02

特别有用

jyjjf 发表于 2024-11-14 20:17

这个应用场景是什么？

52UFO 发表于 2024-11-14 20:31

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

wangdeshui 发表于 2024-11-14 22:04

下载链接呢？

lshi 发表于 2024-11-14 23:28

怎么下载

fre1heit 发表于 2024-11-14 23:32

怎么下载

wahahehe 发表于 2024-11-15 00:08

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

trumps30 发表于 2024-11-15 06:39

应用场景呢？

czpyy 发表于 2024-11-15 08:39

感谢分享，先收藏了

查看完整版本: CRT自动输入文本内容