资源说明：

抖音自动发短视频脚本（智能依次发布已存储好的视频文件从1-6）

讲真，选择视频那段代码还没有完善，但是也可以正常使用。

测试要求：分辨率：720*1280*192dpi 模拟器：逍遥模拟器

资源作者：

资源代码：

Dim yanshi,dspbt_bj,dspyx_bj,jg,bjmz,dspxy
yanshi = 1500 
bjmz = "请输入短视频标题以及短视频的坐标位置"
UI.NewLayout (bjmz)
UI.SetOnShow(bjmz, 布局显示事件)
UI.Show (bjmz) 
dspbt_bj = UI.GetValue("dspbt") 
dspyx_bj = UI.GetValue("dspxy") 
Function 布局显示事件() 
    UI.AddTextView bjmz, "文字框1", "短视频标题："
    UI.AddEditText bjmz, "dspbt", "我刚刚发布一段短视频，快来看看吧！", 300, 50
    UI.AddTextView(bjmz, "文字框2", "短视频1-6：")   
    UI.AddEditText bjmz, "dspxy", "6", 100 
End Function
Do
    If CmpColorEx("338|1235|E3E923,334|1251|FFFFFF,338|1267|E5EB23,376|1235|5F3CF4,380|1251|FFFFFF,376|1267|613DF6",0.9) = 1 Then
        TracePrint "抖音初始界面"
        Delay yanshi
        Tap 518, 1255 //消息
        Delay yanshi
        Tap 355,1251 //发布
    ElseIf CmpColorEx("35|55|FFFFFF,101|56|D8D56A,356|1209|552CFE,359|1278|FFFFFF",0.9) = 1 Then
        TracePrint "拍摄界面"
        Delay yanshi
        Tap 626,1187 //上传
        Delay yanshi
    ElseIf CmpColorEx("9|30|EFEFEE,0|140|15CEFA,186|113|483F3D,347|49|B0ADAC,360|139|FFFFFF,691|57|E7E7E7",0.9) = 1 Then
        TracePrint "选择视频" // 120,291, 351|278|  605|277|  127|511|  365|507|  578|515| 
        Delay yanshi
        dspxy = dspyx_bj["dspxy"]
        TracePrint dspxy
        If Int(dspxy) = 1 Then
            Tap 120, 291 //选择第1个视频
        ElseIf Int(dspxy) = 2 Then
            Tap 351,278 //选择第2个视频
        ElseIf Int(dspxy) = 3 Then
            Tap 605,277 //选择第3个视频
        ElseIf Int(dspxy) = 4 Then
            Tap 127,511 //选择第4个视频
        ElseIf Int(dspxy) = 5 Then
            Tap 365,507 //选择第5个视频
        ElseIf Int(dspxy) = 6 Then
            Tap 578,515 //选择第6个视频
        End If
        Delay yanshi 
    ElseIf CmpColorEx("619|8|7454F5,705|44|5437DB,620|44|552CFE,705|8|5A3CDE,48|1155|15CEFA,53|1229|12C6F2",0.9) = 1 Then
        TracePrint "剪辑界面"
        Delay yanshi
        Tap 664,28 //下一步
        Delay yanshi 
    ElseIf CmpColorEx("35|27|DEDDDC,47|79|F6F5F4,617|41|FFFFFF,605|51|FFFFFF,616|60|FFFFFF,627|1209|552CFE,703|1242|5F3EDC,626|1242|5E3FDE,702|1208|5F3FDE",0.9) = 1 Then
        TracePrint "剪辑完成界面"
        Delay yanshi
        Tap 665, 1224 //下一步
        Delay yanshi 
    ElseIf CmpColorEx("464|1162|FEFEFF,464|1161|6C49FE,33|1065|3B3130,33|1064|1A0F0E,346|55|1A0F0E,346|56|B5B2B1",0.9) = 1 Then
        TracePrint "最终发布"
        Delay yanshi
        //InputText "我刚刚发布一段短视频，快来看看吧！"
        jg = UTF8.Len(dspbt_bj["dspbt"]) 
        For i = 1 To jg
            Delay 50
            KeyPress UTF8.StrGetAt(dspbt_bj["dspbt"], i)
        Next
        Delay yanshi
        Tap 463,1170 //最终发布
        Delay yanshi
    Else
        TracePrint 0
    End If
    Delay yanshi
    Sys.ClearMemory() //释放内存
Loop