liang23_20211105130219.gif

$language = "VBScript"

$interface = "1.0"

' This automatically generated script may need to be
' edited in order to work correctly.
' https://www.runyf.cn

crt.Screen.Synchronous = True
Sub mysub()
    crt.Session.LogFileName = "D:\Crtvbs\log\"&log_file&".txt"
    '日志文件保存在D:\Crtvbs\log\目录
    Call crt.Session.Log(True)
    '开启会话日志
    
    crt.Screen.Send "show clock" & VbCr
    crt.Screen.Send command & VbCr
    Do while (crt.Screen.WaitForStrings("CTRL+C break","MORE",3)<>False)
        crt.Screen.Send " "
    Loop
    
    Call crt.Session.Log(False)
    '关闭会话日志
End Sub

command = inputbox("请输入要执行的命令","提示信息")
log_file = inputbox("请输入会话日志文件名","提示信息")

flag = command <> "" And log_file <> ""
If flag Then
    call mysub()
Else
    MsgBox "输入不完整"
End If
最后修改:2022 年 03 月 23 日
如果觉得我的文章对你有用,请随意赞赏