TTL_弹出框字符串比对

connect "/c=1 /baud=115200"

:start

sendkcode 28 1
sendkcode 28 1
sendkcode 28 1

goto input_Password

:input_Password
    inputbox 'First DPK addr:' 'First Input dpk addr'
    strcopy inputstr 1 12 substr01
    sendln substr01
    inputbox 'Repeat DPK addr:' 'Repeat Input dpk addr'
    strcopy inputstr 1 12 substr02
    sendln substr02

strcompare substr01 substr02

if result=0 then
    goto Password_ok
    disconnect
else
    goto input_Password

endif

 

:Password_ok
    filename_dpk = 'fw_setenv upasswd '
    strconcat filename_dpk substr02
    sendln filename_dpk