Secure CRT脚本_securecrt 脚本语句 #$language = "vbscript-CSDN博客

本文链接：https://blog.csdn.net/weixin_43138570/article/details/102556426

本文介绍了自动化测试脚本在嵌入式系统测试中的应用，包括系统重启脚本和程序运行脚本，通过VBScript实现，可在SecureCRT中运行，以简化测试流程，提高效率。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

脚本的作用，简化操作，节省时间，比如测试IPC的时候，可以执行运行已经写好了的自动化测试脚本。

实例一（系统重启脚本）：

#$language = "VBScript"
#$interface = "1.0"



Sub Main
	Dim result
	Dim count
	count = 0
	
	crt.Screen.Synchronous = True
	
	crt.session.LogFileName = "e:\reboot.txt"
	crt.session.Log(false)
	crt.session.Log(true)

	while count <= 100
		result = crt.screen.WaitForStrings("puwell login", "Ingenic-uc1_1 login" , 30)
		
		' IF result = 0 Then
			' MsgBox "Timed out!"
			' crt.screen.Send "root" & chr(13)
			' crt.screen.Send "reboot" & chr(13)
		' Else
			' MsgBox "login now"
			crt.screen.Send "root" & chr(13)
			
			' delay 3s to wait SD card register
			' crt.Sleep 1000
			If crt.screen.WaitForString("card inserted", 3) <> True Then
				crt.screen.Send "The system detect SDcard inserted" & chr(13)
			Else
				crt.screen.Send "The system did not detect SDcard inserted" & chr(13)
			End If
			
			
			crt.screen.Send "reboot" & chr(13)
		' End If
		
		count = count + 1
	WEnd
	
	crt.session.Log(false)
	crt.Screen.Synchronous = False
End Sub

保存成文件：重启脚本.vbs

实例一（运行50次程序）：

#$language = "VBScript"
#$interface = "1.0"

	' 君正 孙冲
	' 2018.11.2
	' 测试多次开关aec导致的内存泄漏问题

Sub Main
	dim count
	count = 0

	' 同步终端
	crt.Screen.Synchronous = True

	' 开启日志
	crt.session.LogFileName = "e:\log.txt"
	crt.session.Log(false)
	crt.session.Log(true)
	
	' 执行脚本
'	crt.Screen.Send "cd /mnt/test/t20" & vbCr
'	crt.Screen.Send "./videocapture" & vbCr
	
	' 判断是否出现错误字符
'	If crt.Screen.WaitForString("__ai_dev_read") = True Then
'		crt.Dialog.MessageBox "run failed", "Error" ,ICON_INFO
'		crt.Screen.Send "ps | grep videocapture | awk '{print $1}' | xargs kill -9" & vbCr
'	End If

	While count < 50
		' 执行脚本
		crt.Screen.Send "cd /mnt/test/t20" & vbCr
		crt.Screen.Send "./sample-Ai &" & vbCr
		
		' 判断是否出现错误字符（900单位是秒，1000单位是毫秒）
		If crt.Screen.WaitForString("copy_to_user", 900) = True Then
			' crt.Dialog.MessageBox "failed copy_to_user", "Error" ,ICON_INFO
			' crt.Screen.Send "ps | grep videocapture | awk '{print $1}' | xargs kill -9" & vbCr
		Else
			
		End If
		
		crt.Screen.Send "ps | grep sample-Ai | awk '{print $1}' | xargs kill -9" & vbCr
		
		count = count + 1
		crt.sleep 1000
	wend
	
	' 结束日志
	crt.session.Log(false)
	crt.screen.Synchronous = false

End Sub

保存成文件：执行程序.vbs

使用：在Secure CRT中点击Script，然后再点击Run，在弹出的对话框中选择自己要运行的脚本即可