For 50 Delay 5000 MoveTo 555, 163 //点击文章 Delay 1000 LeftClick 1

For 50    Delay 5000    MoveTo 555, 163 //点击文章    Delay 1000    LeftClick 1    Delay 4000    MoveTo 1245, 108 //点本地文件    Delay 2000    LeftClick 1    Delay 2000    MoveTo 233, 131//点第一个文章    Delay 4000    LeftClick 1    Delay 4000    MoveTo 1000, 160//文章内容    LeftClick 1    Delay 4000    KeyDown 17, 1    KeyPress 65, 1    KeyUp 17, 1    Delay 2000    KeyDown 17, 1    KeyPress 67, 1    KeyUp 17, 1    Delay 1000    Delay 4000    MoveTo 233, 131//点第一个文章    Delay 1000    LeftClick 1    Delay 1000    GetColor=GetPixelColor(233,131)    If GetColor = "FCFCFC" Then        TracePrint "找到该点红色"        Delay 1000     喵码 = "tG8K0aT"        Set objXML=CreateObject("Microsoft.XMLHTTP")        objXML.Open "Get", "https://miaotixing.com/trigger?id="+喵码+"&text=点击83———没有文章了" , False        objXML.send        Delay 1000        MessageBox "没有文章了"//这里放找到红色的代码        Delay 1000        KeyPress "F12", 2    Else        Delay 2000 //这里放没找到白色的代码        RightClick 1        Delay 2000        KeyPress "D", 1        Delay 2000        MoveTo 682, 496//删除第一个文章        Delay 2000        LeftClick 1        Delay 4000        MoveTo 1247, 81//点360        Delay 4000        LeftClick 1        Delay 4000        //            KeyPress "Down", 10        Delay 1000        //            Delay 2000        //  点击HTML        MoveTo 344, 276 //HTML        Delay 1000        LeftClick 1        Delay 2000        MoveTo 353, 330 //选中文章内容焦点        Delay 1000        LeftClick 1        Delay 1000        KeyDown 17, 1        KeyPress 86, 1        KeyUp 17, 1        Delay 2000        MoveTo 344, 276//HTML        Delay 1000        LeftClick 1        Delay 2000        Delay 2000        MoveTo 856, 330//选中文章开头        LeftClick 1        Delay 2000        LeftDown 1        Delay 1000        Delay 1000        MoveTo 329, 330//鼠标放到文章开头        Delay 1000        LeftUp 1        Delay 1000        KeyDown 17, 1        KeyPress 67, 1        KeyUp 17, 1        Delay 1000        KeyDown 17, 1        KeyPress 66, 1        KeyUp 17, 1        Delay 1000        Delay 1000        MouseWheel 8        Delay 2000        MoveTo 700, 372//标题        Delay 2000        LeftClick 1        Delay 2000        Delay 100        Clipboard = Plugin.Sys.GetCLB()        If InStr(Clipboard, " 0 Then 喵码 = "tG8K0aT" Set objXML=CreateObject("Microsoft.XMLHTTP") objXML.Open "Get", "https://miaotixing.com/trigger?id="+喵码+"&text=点击83—内容不正确" , False objXML.send Delay 2000 MessageBox "内容不正确(不应包含0 Then            喵码 = "tG8K0aT" Set objXML=CreateObject("Microsoft.XMLHTTP") objXML.Open "Get", "https://miaotixing.com/trigger?id="+喵码+"&text=点击83—内容不正确" , False objXML.send Delay 2000 MessageBox "内容不正确(不应包含<p)"//内容不正确 Delay 200            Call Plugin.Sys.SetCLB("")'清空剪辑版内容 Delay 200            KeyPress "F12", 1 Delay 2000        End If        KeyDown 17, 1        KeyPress 86, 1        KeyUp 17, 1        Delay 1000        MouseWheel -7        Delay 2000        Delay 2000        MoveTo 517, 294//格式化文章        Delay 2000        LeftClick 1        Delay 2000        MoveTo 500, 400//点击选中文章        Delay 1000        LeftClick 1        Delay 1000        LeftClick 1        Delay 1000        LeftDown 1        Delay 1000        Delay 1000        MoveTo 450, 400//鼠标放到文章开头        Delay 1000        LeftUp 1        Delay 1000        Delay 1000        KeyDown 17, 1 KeyPress 66, 1 KeyUp 17, 1        Delay 1000        MoveTo 690, 760//保存文章        Delay 2000        LeftClick 1        Delay 10000        //MoveTo 692, 758//点击记忆列表        Delay 8000        LeftClick 1    End If EndFor 喵码 = "tHuDG40" Set objXML=CreateObject("Microsoft.XMLHTTP") objXML.Open "Get", "https://miaotixing.com/trigger?id="+喵码+"&text=点击83———发布完成50篇——End" , False objXML.send