【办公类-22-03】20240417 UIBOT模拟上传获取流量券，并删除内容-编程知识

背景需求：

为了获得CSDN每天两张的流量券，我每天都绞尽脑汁制作2个上传博文。

最近要育婴师考试和单位里的各类任务，我实在没有精力写代码了，于是我试试，能不能“假装”上传足够的篇数，先将每周的流量券都拿到

本阶段挑战：

1篇、5篇、7篇、12篇

于是我用UIBOT写代码，模拟每天博文上传的流程，并循环上传

一、设计代码，模拟上传篇目

Dim temp
For i = 1 To 12 step 1
Mouse.Action(@ui"链接<a>_发布","left","click",10000,{"bContinueOnError": false, "iDelayAfter": 300, "iDelayBefore": 200, "bSetForeground": true, "sCursorPosition": "Center", "iCursorOffsetX": 0, "iCursorOffsetY": 0, "sKeyModifiers": [],"sSimulate": "simulate", "bMoveSmoothly": false})
Delay(6000)
Keyboard.InputText(@ui"多行文本<textarea>1",'测试测试测试'&i,true,20,10000,{"bContinueOnError": false, "iDelayAfter": 300, "iDelayBefore": 500, "bSetForeground": true, "sSimulate": "message", "bValidate": false, "bClickBeforeInput": false})
Delay(1000)Mouse.Action(@ui"内联框架<iframe>2","left","click",10000,{"bContinueOnError": false, "iDelayAfter": 300, "iDelayBefore": 200, "bSetForeground": true, "sCursorPosition": "Center", "iCursorOffsetX": 0, "iCursorOffsetY": 0, "sKeyModifiers": [],"sSimulate": "simulate", "bMoveSmoothly": false})
For v = 0 To 6 step 1Keyboard.Input("12345678901234567",{"iDelayAfter": 300, "iDelayBefore": 200, "sSimulate": "message"})
NextMouse.Wheel(7,"down", [],{"iDelayAfter":300, "iDelayBefore":200})
Mouse.Action(@ui"按钮<button>_添加文章标签","left","click",10000,{"bContinueOnError": false, "iDelayAfter": 300, "iDelayBefore": 200, "bSetForeground": true, "sCursorPosition": "Center", "iCursorOffsetX": 0, "iCursorOffsetY": 0, "sKeyModifiers": [],"sSimulate": "simulate", "bMoveSmoothly": false})Mouse.Action(@ui"文本<span>_python","left","click",10000,{"bContinueOnError": false, "iDelayAfter": 300, "iDelayBefore": 200, "bSetForeground": true, "sCursorPosition": "Center", "iCursorOffsetX": 0, "iCursorOffsetY": 0, "sKeyModifiers": [],"sSimulate": "simulate", "bMoveSmoothly": false})Mouse.Action(@ui"文本<span>_文章摘要","left","click",10000,{"bContinueOnError": false, "iDelayAfter": 300, "iDelayBefore": 200, "bSetForeground": true, "sCursorPosition": "Center", "iCursorOffsetX": 0, "iCursorOffsetY": 0, "sKeyModifiers": [],"sSimulate": "simulate", "bMoveSmoothly": false})Keyboard.InputText(@ui"多行文本<textarea>2",'测试测试测试'&i,true,20,10000,{"bContinueOnError": false, "iDelayAfter": 300, "iDelayBefore": 500, "bSetForeground": true, "sSimulate": "message", "bValidate": false, "bClickBeforeInput": false})Delay(3000)
Mouse.Action(@ui"按钮<button>_新建分类专栏1","left","click",10000,{"bContinueOnError": false, "iDelayAfter": 300, "iDelayBefore": 200, "bSetForeground": true, "sCursorPosition": "Center", "iCursorOffsetX": 0, "iCursorOffsetY": 0, "sKeyModifiers": [],"sSimulate": "simulate", "bMoveSmoothly": false})Mouse.Action(@ui"文本<span>_Python","left","click",10000,{"bContinueOnError": false, "iDelayAfter": 300, "iDelayBefore": 200, "bSetForeground": true, "sCursorPosition": "Center", "iCursorOffsetX": 0, "iCursorOffsetY": 0, "sKeyModifiers": [],"sSimulate": "simulate", "bMoveSmoothly": false})
Delay(3000)Mouse.Action(@ui"文本<span>_发布博客1","left","click",10000,{"bContinueOnError": false, "iDelayAfter": 300, "iDelayBefore": 200, "bSetForeground": true, "sCursorPosition": "Center", "iCursorOffsetX": 0, "iCursorOffsetY": 0, "sKeyModifiers": [],"sSimulate": "simulate", "bMoveSmoothly": false})Delay(5000)Mouse.Action(@ui"文本<span>_管理博文","left","click",10000,{"bContinueOnError": false, "iDelayAfter": 300, "iDelayBefore": 200, "bSetForeground": true, "sCursorPosition": "Center", "iCursorOffsetX": 0, "iCursorOffsetY": 0, "sKeyModifiers": [],"sSimulate": "simulate", "bMoveSmoothly": false})Delay(5000)
Next

代码展示：

20240416uibot刷CSDN流量券

刷完12条，目录上就有12条的“测试测试测试X”的内容

12篇奖励的流量券都领取了

二、接下来需要删除目录里面的上传内容

为了怕删错内容，一定要获取指定名称的题目

Dim temp
For i = 1 To 9 step 1Keyboard.InputText(@ui"输入控件<input>2",'测试测试测试'&i,true,20,10000,{"bContinueOnError": false, "iDelayAfter": 300, "iDelayBefore": 500, "bSetForeground": true, "sSimulate": "message", "bValidate": false, "bClickBeforeInput": false})Mouse.Action(@ui"文本<span>_搜索","left","click",10000,{"bContinueOnError": false, "iDelayAfter": 300, "iDelayBefore": 200, "bSetForeground": true, "sCursorPosition": "Center", "iCursorOffsetX": 0, "iCursorOffsetY": 0, "sKeyModifiers": [],"sSimulate": "simulate", "bMoveSmoothly": false})
Delay(2000)
Mouse.Action(@ui"文本<span>","left","click",10000,{"bContinueOnError": false, "iDelayAfter": 300, "iDelayBefore": 200, "bSetForeground": true, "sCursorPosition": "Center", "iCursorOffsetX": 0, "iCursorOffsetY": 0, "sKeyModifiers": [],"sSimulate": "simulate", "bMoveSmoothly": false})Delay(2000)
Mouse.Move(1742, 655, false,{"iDelayAfter": 300, "iDelayBefore": 200})
Mouse.Click("left", "click", [],{"iDelayAfter": 300, "iDelayBefore": 300})
Delay(1000)Mouse.Action(@ui"文本<span>_确定","left","click",10000,{"bContinueOnError": false, "iDelayAfter": 300, "iDelayBefore": 200, "bSetForeground": true, "sCursorPosition": "Center", "iCursorOffsetX": 0, "iCursorOffsetY": 0, "sKeyModifiers": [],"sSimulate": "simulate", "bMoveSmoothly": false})Keyboard.Press("R", "press", ["Ctrl"],{"iDelayAfter": 300, "iDelayBefore": 200, "sSimulate": "simulate"})Delay(3000)
Next