sourceCRT 开发vbs测试

$language = "VBScript"

$interface = "1.0"

' This automatically generated script may need to be
' edited in order to work correctly.

Sub Main
while 1
crt.Screen.Send "uav_cmd_test -set_cam_res 3 4032 3024 30"
crt.Screen.Send VbCr
crt.Sleep 20000
crt.Screen.Send "uav_cmd_test -set_cam_res 3 3840 2160 30"
crt.Screen.Send VbCr
crt.Sleep 20000
crt.Screen.Send "uav_cmd_test -set_cam_res 3 1920 1080 30"
crt.Screen.Send VbCr
crt.Sleep 20000
crt.Screen.Send "uav_cmd_test -set_cam_res 3 1920 1080 60"
crt.Screen.Send VbCr
crt.Sleep 20000
crt.Screen.Send "uav_cmd_test -set_cam_res 3 1920 1080 90"
crt.Screen.Send VbCr
crt.Sleep 20000
crt.Screen.Send "uav_cmd_test -set_cam_res 3 4032 2160 30"
crt.Screen.Send VbCr
crt.Sleep 20000
crt.Screen.Send "uav_cmd_test -set_cam_res 3 1280 720 30"
crt.Screen.Send VbCr
crt.Sleep 20000
crt.Screen.Send "uav_cmd_test -set_cam_res 3 1280 720 60"
crt.Screen.Send VbCr
crt.Sleep 20000
crt.Screen.Send "uav_cmd_test -set_cam_res 3 1280 720 90"
crt.Screen.Send VbCr
crt.Sleep 20000
crt.Screen.Send "uav_cmd_test -set_cam_res 3 2704 1520 30"
crt.Screen.Send VbCr
crt.Sleep 20000
crt.Screen.Send "uav_cmd_test -set_cam_res 3 2704 1520 60"
crt.Screen.Send VbCr
crt.Sleep 20000
WEnd
End Sub