巧用脚本自动化烧写文件系统

在调试过程中，调试人员需要对flash进行烧写文件系统和内核。采用redboot或U-boot作为引导程序，需要调试人员在串口终端里输入一系列下载、烧写、配置命令。这里介绍一种简单的方法，巧妙利用SecrueCRT的执行脚本功能，简化烧写过程。

脚本采用的是VBSCRIPT语言，在网上能搜出大量的资料，这里不一一叙述。这里只是将我使用的脚本贴出来，思路是相通的，大家只要依葫芦画瓢即可。我采用的是ReadBoot引导程序。

# $language = "VBScript"

# $interface = "1.0"

Sub Main

Dim rc

'下载至RAM

crt.screen.send "  load -rv -h 192.168.1.155 -p 69 -b 0x20410000 rootfs.arm.ext2.gz" & Chr(13)

crt.screen.WaitForString "RedBoot> ",40

'下载至flash

crt.screen.send "  fis create -b 0x20410000 -l 0x680000 -f 0x10020000 -e 0x20410000 rootfs" & Chr(13)

rc=crt.screen.WaitForString("?",10)

If (showError = 1 And rc <> 1) Then

' error occured

pmt = "Error occured when exec:" & vbCrLf & cmd & vbCrLf & "Continue?"

sel = msgbox(pmt, vbOKCancel, "Information" )

If sel = vbCancel Then

Exit Sub

End If ' rc = vbCancel

End If ' ShowError = 1 And rc <> 1

crt.screen.send "y" & vbCrLf

crt.screen.WaitForString "RedBoot> ",60

crt.screen.send "fco" & vbCrLf

crt.screen.send  vbCrLf

crt.screen.WaitForString ">> ",10

crt.screen.send "fis load -b 0x20410000 rootfs" & vbCrLf

crt.screen.send "fis load -b 0x21000000 zimage" & vbCrLf

crt.screen.send "exec" & vbCrLf

crt.screen.WaitForString ">>",5

crt.screen.send vbCrLf

crt.screen.WaitForString ":",10

crt.screen.send vbCrLf

crt.screen.send vbCrLf

crt.screen.send vbCrLf

crt.screen.send vbCrLf

crt.screen.send vbCrLf

crt.screen.send vbCrLf

crt.screen.send vbCrLf

crt.screen.send vbCrLf

crt.screen.WaitForString "?",5

crt.screen.send "y" & vbCrLf

End Sub

不过，值得注意的是，在实际使用secureCRT过程中，经常发现复制粘贴时会漏掉头一个字符，导致命令出错。所以，这里有个关键点是将要输入的命令前多输入几个空格，避免漏掉头一个字符。

这样，是不是简单多了！