- 余辉
-
知道。抖音带货是目前最火的,当然你也需要大量的视频去增加曝光率。而账号多的话,一个一个的去发视频又很麻烦,今天给大家分享我的按键精灵脚本,定时发布抖音,推荐在虚拟机中运行,工具操作会快捷很多。更多干货请加上方联系方式
Global a Global zongshu Global jiabei a = 1 zongshu = 150"设置发视频数量 jiange = 20 "间隔分钟 jiabei = 3"空闲时间间隔加倍 Do While true If a >= zongshu Then //当循环条件成立的时候,离开循环体 Exit Do End If "==========凌晨检测函数========== MyHour = Hour(Now):Myminute = Minute(Now) If MyHour >= 0 and MyHour < 6 Then Call Plugin.Msg.ShowScrTXT(0, 0, 1920, 1080, "空闲时间", "0000FF") jiange=jiange*jiabei Else Call Plugin.Msg.ShowScrTXT(0, 0, 1920, 1080, "非空闲时间", "0000FF") jiabei = 1 End If Delay 1000 "==========随机等待1-10分钟函数========== Randomize w = int(Rnd * 600) + 60 // 实现1-10分钟之间的随机延时 Do While w>0 Call Plugin.Msg.ShowScrTXT(0,0, 1920, 1080, "第"& a &"/" & zongshu &"次任务开始,随机等待"&w&"秒", "0000FF") w = w-1 Delay 1000 Loop "==========评论函数========== Dim MyRzStr, RzStr(20) RzStr(1) = "#记录生活 @抖音小助手 " RzStr(2) = "#今天拍点啥 @抖音广告手 " RzStr(3) = "#分享生活 @抖音小助手 " RzStr(4) = "#我是三亿分之一 @抖音小助手 " RzStr(5) = "#正能量 @抖音小助手 " RzStr(6) = "#生活随拍 @抖音小助手 " RzStr(7) = "#生活段子 @抖音小助手 " RzStr(8) = "#段子 @抖音小助手 " RzStr(9) = "#美好生活 @抖音小助手 " RzStr(10) = "#记录生活 @抖音企业助手 " RzStr(11) = "#每天分享正能量 @抖音小助手 " RzStr(12) = "#生活有趣多 @抖音小助手 " RzStr(13) = "#每天分享 @抖音小助手 " RzStr(14) = "#正能量段子 @抖音小助手 " RzStr(15) = "#生活段子 @抖音小助手 " RzStr(16) = "#分享生活 @抖音小助手 " RzStr(17) = "#生活达人 @抖音小助手 " RzStr(18) = "#美好生活记录 @抖音小助手" RzStr(19) = "#记录美好生活 @抖音小助手" RzStr(20) = "#我要上热门 @抖音小助手" Randomize "MyRzStr = "RzStr(" & Int((20 * Rnd) + 1) & ")" //类型不匹配 MyRzStr = RzStr(Int((20 * Rnd) + 1)) "==========以下是按键精灵录制的内容========== Call Plugin.Msg.ShowScrTXT(0, 0, 1920, 1080, "任务开始", "0000FF") Delay 3000 "Call Plugin.Msg.HideScrTXT()//刷新屏幕 "======抖老板位置====== Rem dou Hwnd = Plugin.Window.Find(0, "抖老板") sRect = Plugin.Window.GetClientRect(Hwnd) "获取窗口的4个坐标 myArray=Split(srect,"|") "分离出四个坐标 因为Split就是数组函数,所myArray虽然没有定义,也被默认定义成了动态数组变量 "MessageBox myArray(0) & "," & myArray(1) "显示出变量起始点的坐标 "将变量里的值从字符变为数字类型,然后才能用moveTo函数 doux = CLng(myArray(0)) //抖老板x坐标 douy = CLng(myArray(1))//抖老板y坐标 doubx = CLng(myArray(2)) //抖老板底部x坐标 douby = CLng(myArray(3))//抖老板底部y坐标 Call Plugin.Msg.ShowScrTXT(0, 0, 1920, 1080, "捕获抖老板坐标X:" & doux & ",捕获抖老板坐标Y:" & douy &"请确认打开窗口在最顶层", "0000FF") Delay 2000 Call Plugin.Msg.HideScrTXT()//刷新屏幕 If doux < -100 Then Call Plugin.Msg.ShowScrTXT(733, 542, 1920, 1080, "抖老板窗口已经最小化,请检查!", "0000FF") Delay 2000 Goto dou End If MoveTo doux+355,douy+250 MouseWheel 1 Delay 1 MouseWheel 1 Delay 23 MouseWheel 1 Delay 1 MouseWheel 1 Delay 54 MouseWheel 1 Delay 2 MouseWheel 1 "======发布按钮位置====== Rem fb Call Plugin.Msg.ShowScrTXT(0, 0, 1920, 1080, "判断发布按钮位置", "0000FF") Delay 1000 FindColorEx doux+145,douy+240,doux+482,douy+278,"552CFE",0,0.6,intX,intY"模糊找色判断发布视频按钮位置 If intY > 0 Then Call Plugin.Msg.ShowScrTXT(0, 0, 1920, 1080, "检测到发布按钮", "0000FF") Delay 1000 fbx = intX + 15 fby = intY + 15 Call Plugin.Msg.ShowScrTXT(0, 0, 1920, 1080, "检测到发布按钮X:" & fbx & ",检测到发布按钮Y:" & fby &"等待", "0000FF") Else Delay 1000 Call Plugin.Msg.ShowScrTXT(0, 0, 1920, 1080, "丢失发布按钮位置", "0000FF") Goto fb End If "======点击发布按钮位置====== Delay 1000 MoveTo fbx, fby Delay 4725 LeftClick 1 Rem sc MoveTo fbx+200, fby MouseWheel 1 Delay 1 MouseWheel 1 Delay 23 MouseWheel 1 Delay 1 MouseWheel 1 Delay 54 MouseWheel 1 Delay 2 MouseWheel 1 "======点击上传位置====== FindColorEx doux+600,douy+440,doux+800,douy+600,"F5F5F4",0,0.9,intX,intY"模糊找色判断上传区域位置 If intY > 0 Then Delay 1000 Call Plugin.Msg.ShowScrTXT(0, 0, 1920, 1080, "检测到上传区域", "0000FF") scx = intX + 100 scy = intY + 100 Else Delay 1000 Call Plugin.Msg.ShowScrTXT(0, 0, 1920, 1080, "丢失上传区域", "0000FF") Goto sc End If MoveTo scx,scy Delay 3957 Call Plugin.Msg.ShowScrTXT(0, 0, 1920, 1080, "点击上传区域", "0000FF") LeftClick 1 Delay 2000 Rem open "======打开文件窗口====== Hwndo = Plugin.Window.Find(0, "打开") sRecto = Plugin.Window.GetClientRect(Hwndo) "获取窗口的4个坐标 myoArray=Split(sRecto,"|") "分离出四个坐标 因为Split就是数组函数,所myArray虽然没有定义,也被默认定义成了动态数组变量 "MessageBox myArray(0) & "," & myArray(1) "显示出变量起始点的坐标 "将变量里的值从字符变为数字类型,然后才能用moveTo函数 openx = CLng(myoArray(0)) + 245 //x坐标微调 openy = CLng(myoArray(1)) + 110 //y坐标微调 MoveTo openx,openy Delay 1000 If openx > 0 Then Call Plugin.Msg.ShowScrTXT(0, 0, 1920, 1080, "捕获打开窗口坐标X:" & openx & ",捕获打开窗口坐标Y:" & openy &"请确认打开窗口在最顶层", "0000FF") Else Call Plugin.Msg.ShowScrTXT(0, 0, 1920, 1080, "请确认打开窗口在最顶层", "0000FF") Goto sc End if Call Plugin.Msg.ShowScrTXT(0, 0, 1920, 1080, "删除第一个视频", "0000FF") MoveTo openx,openy Delay 3351 LeftClick 1 Delay 1880 KeyDown "Delete", 1 Delay 122 KeyUp "Delete", 1 Delay 1439 Call Plugin.Msg.ShowScrTXT(0, 0, 1920, 1080, "确认删除", "0000FF") Delay 1000 KeyDown "Enter", 1 Delay 180 KeyUp "Enter", 1 Delay 1439 Call Plugin.Msg.ShowScrTXT(0, 0, 1920, 1080, "选择第一个视频", "0000FF") MoveTo openx, openy Delay 1000 LeftClick 1 "======Enter选中====== Call Plugin.Msg.ShowScrTXT(0, 0, 1920, 1080, "Enter选中", "0000FF") MoveTo openx, openy Delay 2657 KeyDown "Enter", 1 Delay 180 KeyUp "Enter", 1 Delay 1439 Rem ms "======视频描述====== FindColorEx doux+728,douy+377,doux+850,douy+440,"F7F7F7",0,0.9,intX,intY"模糊找色判断视频描述区域位置 If intY > 0 Then Delay 1000 Call Plugin.Msg.ShowScrTXT(0, 0, 1920, 1080, "检测到描述区域", "0000FF") msx = intX + 100 msy = intY + 15 Else Call Plugin.Msg.ShowScrTXT(0, 0, 1920, 1080, "丢失描述区域", "0000FF") Goto ms End If "======粘贴描述====== Delay 1000 Call Plugin.Msg.ShowScrTXT(0, 0, 1920, 1080, "开始编辑标题", "0000FF") MoveTo msx,msy Delay 2560 LeftClick 1 Delay 2 Delay 1000 Call Plugin.Msg.ShowScrTXT(0, 0, 1920, 1080, "粘贴标题", "0000FF") SayString MyRzStr Delay 1000 MoveTo doux+1078,douy+327 Call Plugin.Msg.ShowScrTXT(0, 0, 1920, 1080, "开始下滑", "0000FF") Delay 1290 LeftClick 1 MouseWheel -1 Delay 2 MouseWheel -1 Delay 125 MouseWheel -1 Delay 4 Delay 3102 MouseWheel -1 MouseWheel - 1 MouseWheel -1 MouseWheel - 1 MouseWheel -1 MouseWheel - 1 MouseWheel -1 MouseWheel -1 MouseWheel -1 MouseWheel -1 Delay 2 MouseWheel -1 Delay 125 MouseWheel -1 Delay 4 Delay 3102 MouseWheel -1 Delay 2 MouseWheel -1 Delay 214 MouseWheel -1 Delay 2 MouseWheel - 1 Call Plugin.Msg.ShowScrTXT(0, 0, 1920, 1080, "检测发布按钮", "0000FF") Delay 1000 FindColorEx doux+248,douby-155,doux+1080,douby-110,"552CFE",0,0.9,intX,intY"模糊找色判断视频描述区域位置 If intY > 0 Then Delay 1000 Call Plugin.Msg.ShowScrTXT(0, 0, 1920, 1080, "检测到发布按钮", "0000FF") fabux = intX + 10 fabuy = intY + 10 Else Call Plugin.Msg.ShowScrTXT(0, 0, 1920, 1080, "没有检测到发布按钮", "0000FF") End If MoveTo fabux, fabuy Call Plugin.Msg.ShowScrTXT(0, 0, 1920, 1080, "等待上传完成", "0000FF") Delay 15999 LeftClick 1 Call Plugin.Msg.ShowScrTXT(0, 0, 1920, 1080, "发布", "0000FF") Delay 3000 "==========二次检查========== FindColorEx doux+248,douby-155,doux+1080,douby-110,"552CFE",0,0.9,intX,intY"模糊找色判断视频描述区域位置 If intY > 0 Then Delay 1000 Call Plugin.Msg.ShowScrTXT(0, 0, 1920, 1080, "检测发布失败,上滑返回描述", "0000FF") MouseWheel 1 Delay 1 MouseWheel 1 Delay 23 MouseWheel 1 Delay 1 MouseWheel 1 Delay 54 MouseWheel 1 Delay 2 MouseWheel 1 Delay 1 MouseWheel 1 Delay 23 MouseWheel 1 Delay 1 MouseWheel 1 Delay 54 MouseWheel 1 Delay 2 MouseWheel 1 Delay 1 MouseWheel 1 Delay 23 MouseWheel 1 Delay 1 MouseWheel 1 Delay 54 MouseWheel 1 Delay 2 MouseWheel 1 Call Plugin.Msg.ShowScrTXT(0, 0, 1920, 1080, "上滑结束", "0000FF") Goto ms End If "==========检测同步到西瓜按钮========== Delay 3588 FindColorEx doux+915,douy+424,doux+1297,doub+653,"552CFE",0,0.9,intX,intY"模糊找色判断同步西瓜视频按钮位置 If intY > 0 Then xiguax = intX xiguay = intY Call Plugin.Msg.ShowScrTXT(0, 0, 1920, 1080, "检测到同步西瓜弹窗,关闭!", "0000FF") MoveTo xiguax+100,xiguay-90 Delay 588 LeftClick 1 End if "==========检测同步到西瓜按钮========== a = a + 1 Rem dengdai "==========等待间隔========== jiangeold = jiange Do While true If 0 >= jiange Then Call Plugin.Msg.HideScrTXT() //刷新屏幕 //当循环条件成立的时候,离开循环体 jiange = jiangeold Exit Do End If Call Plugin.Msg.ShowScrTXT(0, 0, 1920, 1080, "第"&a&"/"&zongshu&"次任务完成,等待"&jiange&"/"&jiangeold&"分", "0000FF") jiange = jiange-1 Delay 60000 loop "==========等待间隔========== "==========以上是按键精灵录制的内容========== Loop Rem finish Delay 3588 Call Plugin.Msg.ShowScrTXT(1733, 1042, 1920, 1080, "发任务结束,抖老板最小化", "0000FF") MoveTo doubx-120,douy+40 "任务结束最小化 Delay 588 LeftClick 1 EndScript
- 北有云溪
-
知道的。
除非你破坏抖音APP的进程驱动保护。这样就不会被侦测到了。