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