xshell窗口获取到某些字符串时执行某些操作
例子,当获取到'Tue Jun'时输入pwd命令
Sub Main
xsh.Screen.Synchronous = true
'xsh.Session.Sleep(3000)'
Dim Count:sum = 5
'While sum <> 0'
While(1)
'*** WaitForString ***
xsh.Screen.WaitForString("Tue Jun")
sum = sum - 1
'*** Send ***y
xsh.Screen.Send("pwd")
xsh.Screen.Send VbCr
xsh.Session.Sleep(300)
Wend
End Sub
自动调试
Sub Main
xsh.Screen.Synchronous = true
'xsh.Session.Sleep(3000)'
While(1)
'*** WaitForString ***
xsh.Screen.WaitForString("DDR is 128MiByte")
xsh.Screen.Send("mmmmmmmmmmmmmm")
xsh.Screen.Send VbCr
xsh.Session.Sleep(500)
xsh.Screen.Send("usb port 0;usb start;fatload usb 0 80008000 symphony.bin;go 80008000;")
xsh.Screen.Send VbCr
xsh.Session.Sleep(300)
Wend
End Sub