xshell添加vbs脚本

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