xshell添加vbs脚本

XShell自动化操作教程

最新推荐文章于 2025-10-15 13:17:14 发布

原创最新推荐文章于 2025-10-15 13:17:14 发布 · 4.9k 阅读

4 ·

CC 4.0 BY-SA版权

文章标签：

#xshell #脚本

本文介绍如何使用XShell的脚本功能实现自动化操作，包括在检测到特定字符串时执行命令和进行自动调试的过程。通过实例演示了如何设置同步模式，等待特定字符串出现，并发送预设的命令。

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