secure crt 脚本实例-编译及升级

最新推荐文章于 2025-01-06 15:02:19 发布

原创最新推荐文章于 2025-01-06 15:02:19 发布 · 686 阅读

2 ·

CC 4.0 BY-SA版权

在调试设备程序时，操作频繁繁琐，使用 Secure CRT 脚本可将操作整理成脚本，一键完成从编译到升级的过程，无需人工干预，十分方便。

secure crt 脚本实例

为了调试设备中的程序，经常要非常频繁繁琐的操作，整理为脚本的方式就方便多了。可以一键完成从编译到升级的过程，不需要人工干预。

#$language = "VBScript"
#$interface = "1.0"
'1，在服务器上编译
'2，编译完通过tftp把image传到tftp server上
'3，切换到设备的tab，在设备的界面把image升级到设备中。
Sub main
    crt.Screen.Send "ln -s Makefile.3336 Makefile" & VbCr  '建立makefile的链接
    crt.Sleep 500
    crt.Screen.Send "make" & VbCr   '开始编译，并等待编译直到完成
    crt.Screen.WaitForString "quzhifeng@ubuntu:/mnt/sda4/zhifeng.qu/trunk/USP_DEVICE/make/arm$"
    crt.Screen.Send "cd ../../thd_marvell/image/" & VbCr 
    crt.Screen.Send "ftp 192.168.1.146" & VbCr '登录ftp服务器起
    crt.Screen.WaitForString "Name"
    crt.Screen.Send "admin" & VbCr
    crt.Screen.WaitForString "Password:"
    crt.Screen.Send "123456" & VbCr
    crt.Screen.WaitForString "ftp>"
    crt.Screen.Send "binary" & VbCr
    crt.Screen.WaitForString "ftp>"
    'crt.Screen.Send "put 8328_V00.00.02.img" & VbCr
    crt.Screen.Send "put zImage" & VbCr  '把刚刚编译出的程序上传到ftp服务器中
    crt.Screen.WaitForString "ftp>"
    'crt.Screen.Send "put msys-ac3-db.dtb" & VbCr  'dtb不用每次升级了。
    'crt.Screen.WaitForString "ftp>"
    crt.Screen.Send "quit" & VbCr
    crt.Screen.Send "cd ../../make/arm" & VbCr
    crt.Dialog.MessageBox("Compiled ok.")   '到此编译完成
    Set obj1 = crt.GetTab(1) '切换secure crt的tab，切到链接串口的界面上。
    MsgBox "tab is " & obj1.index
    Set ScreenObj1 = obj1.Screen
    ScreenObj1.Send "12345" & VbCr
    ScreenObj1.Send "a" & VbCr
    ScreenObj1.WaitForString "Marvell>>"
    ScreenObj1.Send "usb reset" & VbCr  '初始化usb的管理口，让usb的管理口可用。
    ScreenObj1.WaitForString "Marvell>>"
    ScreenObj1.Send "menu" & VbCr
    ScreenObj1.WaitForString "[Linux Boot]:"
    ScreenObj1.Send "@" & VbCr  '将编译出的程序download到内存中执行。
    ScreenObj1.WaitForString "Username:"
    ScreenObj1.Send "test01" & VbCr
    ScreenObj1.WaitForString "Password:"
    ScreenObj1.Send "123456" & VbCr  '输入用户名密码登录设备
    '在os升级的部分脚本
    'ScreenObj1.Send "config" & VbCr
    'ScreenObj1.Send "ftp get 192.168.19.200 admin 123456 8328_V00.00.02.img" & VbCr
    'crt.Screen.WaitForString "(config)#"
    'ScreenObj1.Send "upgrade os file download" & VbCr
    'crt.Screen.WaitForString "(config)#"
    'MsgBox "upgrade is ok"
End Sub