场景1:嵌入式设备需要通过串口输入“Debug”获取字符串“Password”上一行的字符串。将这个字符串输入应用neiwang.exe处理,输出的字符串再输入串口,可进入Debug模式。
XShell:
Sub Main
xsh.Screen.Synchronous = true
xsh.Screen.Send VbCr
xsh.Screen.Send VbCr
xsh.Screen.Send VbCr
xsh.Screen.Send "Debug"
xsh.Screen.Send VbCr
xsh.Screen.WaitForString "Password:"
screenrow = xsh.Screen.CurrentRow - 1
message = xsh.Screen.Get(screenrow, 1, screenrow, 40)
passwd=CreateObject("WScript.Shell").Exec( "C:\neiwang.exe " & message).stdOut.ReadAll
xsh.Screen.Send passwd
xsh.Screen.Send VbCr
xsh.Screen.Synchronous = false
End Sub
SecureCRT:
Sub Main
crt.Screen.Synchronous = True
crt.Screen.Send vbCr
crt.Screen.waitForString "#"
crt.Screen.Send vbCr
crt.Screen.waitForString "#"
crt.Screen.Send vbCr
crt.Screen.wa