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

时间：2025-02-14 17:40:30　点击：0

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