//切换栏目-----------------------------------------------------------------------

2023-02-17 00:30 来源：句子网点击：

//切换栏目----------------------------------------------------------------------------------------------------------------------------------------- Rem shuo Delay 5000 MoveTo 1245, 108 //点本地文件 Delay 3500 MoveTo 1140, 108 //点本地文件 Delay 2000 LeftClick 1 Delay 2000 MoveTo 600, 35//点本地地址 Delay 4000 LeftClick 1 Delay 4000 SayString "\\192.168.2.5\本地新闻\网文\朋友圈" //本地指定栏目 Delay 2000 KeyPress "Enter", 1 Delay 4000 MoveTo 1245, 78 //点浏览器网站后台 Delay 2000 LeftClick 1 Delay 2000 //切换栏目----------------------------------------------------------------------------------------------------------------------------------------- //----------句子全部多站------------ //tangweng.cn------ 58juzi.com------kd4.cc------ xijuzi.com //65u.cc------qi6.cc------liatiao.com------ tiaozang.com //------ 58juzi.com 开始 //----------------------------------------------------------------------------------------------------------------------------------------- Rem juzi58 Delay 2000 RunApp "C:\kill.bat" Delay 2000 GetColor=GetPixelColor(700,100) If GetColor = "CC9900" Then TracePrint "找到该点浏览器继续运行" Else Delay 1000 MoveTo 1245, 78//点浏览器网站后台 Delay 2000 LeftClick 1 Delay 2000 End If Delay 5000 MoveTo 750, 50 Delay 2000 LeftClick 1 Delay 3000 SayString "58juzi.com/whzwwy/" //指定网站 Delay 2000 KeyPress "Enter", 1 Delay 4000 MoveTo 1175, 95 Delay 2000 LeftClick 1 Delay 3000 MoveTo 600, 470 Delay 2000 LeftClick 1 Delay 4000 MoveTo 246, 580 //句子栏目 //娱乐 246,210 //影视 246,250 //社会 246,290 //奇闻 246,330 Delay 4000 LeftClick 1 Delay 4000 MoveTo 1123, 82 Delay 2000 LeftClick 1 Delay 4000 For 10 Delay 5000 GetColor=GetPixelColor(310,200) If GetColor = "CC9900" Then TracePrint "找到该点红色" Else Delay 1000 喵码 = "tHuDG40" Set objXML=CreateObject("Microsoft.XMLHTTP") objXML.Open "Get", "https://miaotixing.com/trigger?id="+喵码+"&text=社会多站—句子全站———没有找到添加按纽" , False objXML.send Delay 1000 //MessageBox "没有找到添加按纽"//没有找到添加按纽停止 Delay 1000 Goto juzi58 Delay 5000 EndScript //停止脚本 End If MoveTo 275, 200 //点击文章 Delay 1000 LeftClick 1 Delay 4000 MoveTo 1245, 108 //点本地文件 Delay 2000 LeftClick 1 Delay 2000 //如果出现弹出框 Delay 5000 GetColor=GetPixelColor(500,400) If GetColor = "F0F0F0" Then TracePrint "找到该点红色" Delay 2000 KeyPress "Enter", 1 Else Delay 1000 End If //如果出现弹出框End Delay 4000 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 喵码 = "tHuDG40" Set objXML=CreateObject("Microsoft.XMLHTTP") objXML.Open "Get", "https://miaotixing.com/trigger?id="+喵码+"&text=社会多站———没有文章了" , False objXML.send Delay 2000 Goto shehuiz //MessageBox "没有文章了" Delay 1000 EndScript //停止脚本 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 // // LeftUp 1 KeyPress "Down", 10 Delay 2000 // 点击HTML MoveTo 352, 525 //HTML Delay 1000 LeftClick 1 Delay 2000 KeyDown 17, 1 KeyPress 86, 1 KeyUp 17, 1 Delay 2000 MoveTo 352, 525//HTML Delay 1000 LeftClick 1 Delay 2000 Delay 2000 MoveTo 920, 606//选中文章开头 LeftClick 1 Delay 2000 LeftDown 1 Delay 1000 Delay 1000 MoveTo 343, 606//鼠标放到文章开头 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, 222//标题 Delay 2000 LeftClick 1 Delay 2000 KeyDown 17, 1 KeyPress 86, 1 KeyUp 17, 1 Delay 1000 MouseWheel -7 Delay 2000 Delay 2000 MoveTo 442, 159//格式化文章 Delay 2000 LeftClick 1 Delay 2000 MoveTo 283, 640//保存文章 Delay 2000 LeftClick 1 Delay 19000 MoveTo 285, 306//点击记忆列表 Delay 10000 LeftClick 1 End If EndFor 喵码 = "tHuDG40" Set objXML=CreateObject("Microsoft.XMLHTTP") objXML.Open "Get", "https://miaotixing.com/trigger?id="+喵码+"&text=社会多站———发布 58juzi.com 完成10篇—句子—" , False objXML.send //----------------------------------------------------------------------------------------------------------------------------------------- //---- 58juzi.com 结束------------------------------------------------------------------------------------------------------------------------------------- //------ xijuzi.com 开始 //----------------------------------------------------------------------------------------------------------------------------------------- Rem xijuzi Delay 2000 RunApp "C:\kill.bat" Delay 2000 GetColor=GetPixelColor(700,100) If GetColor = "CC9900" Then TracePrint "找到该点浏览器继续运行" Else Delay 1000 MoveTo 1245, 78//点浏览器网站后台 Delay 2000 LeftClick 1 Delay 2000 End If Delay 5000 MoveTo 750, 50 Delay 2000 LeftClick 1 Delay 3000 SayString "xijuzi.com/whzwwy/" //指定网站 Delay 2000 KeyPress "Enter", 1 Delay 4000 MoveTo 1175, 95 Delay 2000 LeftClick 1 Delay 3000 MoveTo 600, 470 Delay 2000 LeftClick 1 Delay 4000 MoveTo 246, 580 //句子栏目 //娱乐 246,210 //影视 246,250 //社会 246,290 //奇闻 246,330 Delay 4000 LeftClick 1 Delay 4000 MoveTo 1123, 82 Delay 2000 LeftClick 1 Delay 4000 For 10 Delay 5000 GetColor=GetPixelColor(310,200) If GetColor = "CC9900" Then TracePrint "找到该点红色" Else Delay 1000 喵码 = "tHuDG40" Set objXML=CreateObject("Microsoft.XMLHTTP") objXML.Open "Get", "https://miaotixing.com/trigger?id="+喵码+"&text=社会多站—句子全站———没有找到添加按纽" , False objXML.send Delay 1000 //MessageBox "没有找到添加按纽"//没有找到添加按纽停止 Delay 1000 Goto xijuzi Delay 5000 EndScript //停止脚本 End If MoveTo 275, 200 //点击文章 Delay 1000 LeftClick 1 Delay 4000 MoveTo 1245, 108 //点本地文件 Delay 2000 LeftClick 1 Delay 2000 //如果出现弹出框 Delay 5000 GetColor=GetPixelColor(500,400) If GetColor = "F0F0F0" Then TracePrint "找到该点红色" Delay 2000 KeyPress "Enter", 1 Else Delay 1000 End If //如果出现弹出框End Delay 4000 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 喵码 = "tHuDG40" Set objXML=CreateObject("Microsoft.XMLHTTP") objXML.Open "Get", "https://miaotixing.com/trigger?id="+喵码+"&text=社会多站———没有文章了" , False objXML.send Delay 2000 Goto shehuiz //MessageBox "没有文章了" Delay 1000 EndScript //停止脚本 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 // // LeftUp 1 KeyPress "Down", 10 Delay 2000 // 点击HTML MoveTo 352, 525 //HTML Delay 1000 LeftClick 1 Delay 2000 KeyDown 17, 1 KeyPress 86, 1 KeyUp 17, 1 Delay 2000 MoveTo 352, 525//HTML Delay 1000 LeftClick 1 Delay 2000 Delay 2000 MoveTo 920, 606//选中文章开头 LeftClick 1 Delay 2000 LeftDown 1 Delay 1000 Delay 1000 MoveTo 343, 606//鼠标放到文章开头 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, 222//标题 Delay 2000 LeftClick 1 Delay 2000 KeyDown 17, 1 KeyPress 86, 1 KeyUp 17, 1 Delay 1000 MouseWheel -7 Delay 2000 Delay 2000 MoveTo 442, 159//格式化文章 Delay 2000 LeftClick 1 Delay 2000 MoveTo 283, 640//保存文章 Delay 2000 LeftClick 1 Delay 19000 MoveTo 285, 306//点击记忆列表 Delay 10000 LeftClick 1 End If EndFor 喵码 = "tHuDG40" Set objXML=CreateObject("Microsoft.XMLHTTP") objXML.Open "Get", "https://miaotixing.com/trigger?id="+喵码+"&text=社会多站———发布 xijuzi.com 完成10篇—句子—" , False objXML.send //----------------------------------------------------------------------------------------------------------------------------------------- //---- xijuzi.com 结束------------------------------------------------------------------------------------------------------------------------------------- //------ liatiao.com 开始 //----------------------------------------------------------------------------------------------------------------------------------------- Rem liatiao Delay 2000 RunApp "C:\kill.bat" Delay 2000 GetColor=GetPixelColor(700,100) If GetColor = "CC9900" Then TracePrint "找到该点浏览器继续运行" Else Delay 1000 MoveTo 1245, 78//点浏览器网站后台 Delay 2000 LeftClick 1 Delay 2000 End If Delay 5000 MoveTo 750, 50 Delay 2000 LeftClick 1 Delay 3000 SayString "liatiao.com/whzwwy/" //指定网站 Delay 2000 KeyPress "Enter", 1 Delay 4000 MoveTo 1175, 95 Delay 2000 LeftClick 1 Delay 3000 MoveTo 600, 470 Delay 2000 LeftClick 1 Delay 4000 MoveTo 246, 580 //句子栏目 //娱乐 246,210 //影视 246,250 //社会 246,290 //奇闻 246,330 Delay 4000 LeftClick 1 Delay 4000 MoveTo 1123, 82 Delay 2000 LeftClick 1 Delay 4000 For 10 Delay 5000 GetColor=GetPixelColor(310,200) If GetColor = "CC9900" Then TracePrint "找到该点红色" Else Delay 1000 喵码 = "tHuDG40" Set objXML=CreateObject("Microsoft.XMLHTTP") objXML.Open "Get", "https://miaotixing.com/trigger?id="+喵码+"&text=社会多站—句子全站———没有找到添加按纽" , False objXML.send Delay 1000 //MessageBox "没有找到添加按纽"//没有找到添加按纽停止 Delay 1000 Goto liatiao Delay 5000 EndScript //停止脚本 End If MoveTo 275, 200 //点击文章 Delay 1000 LeftClick 1 Delay 4000 MoveTo 1245, 108 //点本地文件 Delay 2000 LeftClick 1 Delay 2000 //如果出现弹出框 Delay 5000 GetColor=GetPixelColor(500,400) If GetColor = "F0F0F0" Then TracePrint "找到该点红色" Delay 2000 KeyPress "Enter", 1 Else Delay 1000 End If //如果出现弹出框End Delay 4000 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 喵码 = "tHuDG40" Set objXML=CreateObject("Microsoft.XMLHTTP") objXML.Open "Get", "https://miaotixing.com/trigger?id="+喵码+"&text=社会多站———没有文章了" , False objXML.send Delay 2000 Goto shehuiz //MessageBox "没有文章了" Delay 1000 EndScript //停止脚本 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 // // LeftUp 1 KeyPress "Down", 10 Delay 2000 // 点击HTML MoveTo 352, 525 //HTML Delay 1000 LeftClick 1 Delay 2000 KeyDown 17, 1 KeyPress 86, 1 KeyUp 17, 1 Delay 2000 MoveTo 352, 525//HTML Delay 1000 LeftClick 1 Delay 2000 Delay 2000 MoveTo 920, 606//选中文章开头 LeftClick 1 Delay 2000 LeftDown 1 Delay 1000 Delay 1000 MoveTo 343, 606//鼠标放到文章开头 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, 222//标题 Delay 2000 LeftClick 1 Delay 2000 KeyDown 17, 1 KeyPress 86, 1 KeyUp 17, 1 Delay 1000 MouseWheel -7 Delay 2000 Delay 2000 MoveTo 442, 159//格式化文章 Delay 2000 LeftClick 1 Delay 2000 MoveTo 283, 640//保存文章 Delay 2000 LeftClick 1 Delay 19000 MoveTo 285, 306//点击记忆列表 Delay 10000 LeftClick 1 End If EndFor 喵码 = "tHuDG40" Set objXML=CreateObject("Microsoft.XMLHTTP") objXML.Open "Get", "https://miaotixing.com/trigger?id="+喵码+"&text=社会多站———发布 liatiao.com 完成10篇—句子—" , False objXML.send //----------------------------------------------------------------------------------------------------------------------------------------- //---- liatiao.com 结束------------------------------------------------------------------------------------------------------------------------------------- //------ tiaozang.com 开始 //----------------------------------------------------------------------------------------------------------------------------------------- Rem tiaozang Delay 2000 RunApp "C:\kill.bat" Delay 2000 GetColor=GetPixelColor(700,100) If GetColor = "CC9900" Then TracePrint "找到该点浏览器继续运行" Else Delay 1000 MoveTo 1245, 78//点浏览器网站后台 Delay 2000 LeftClick 1 Delay 2000 End If Delay 5000 MoveTo 750, 50 Delay 2000 LeftClick 1 Delay 3000 SayString "tiaozang.com/whzwwy/" //指定网站 Delay 2000 KeyPress "Enter", 1 Delay 4000 MoveTo 1175, 95 Delay 2000 LeftClick 1 Delay 3000 MoveTo 600, 470 Delay 2000 LeftClick 1 Delay 4000 MoveTo 246, 580 //句子栏目 //娱乐 246,210 //影视 246,250 //社会 246,290 //奇闻 246,330 Delay 4000 LeftClick 1 Delay 4000 MoveTo 1123, 82 Delay 2000 LeftClick 1 Delay 4000 For 10 Delay 5000 GetColor=GetPixelColor(310,200) If GetColor = "CC9900" Then TracePrint "找到该点红色" Else Delay 1000 喵码 = "tHuDG40" Set objXML=CreateObject("Microsoft.XMLHTTP") objXML.Open "Get", "https://miaotixing.com/trigger?id="+喵码+"&text=社会多站—句子全站———没有找到添加按纽" , False objXML.send Delay 1000 //MessageBox "没有找到添加按纽"//没有找到添加按纽停止 Delay 1000 Goto tiaozang Delay 5000 EndScript //停止脚本 End If MoveTo 275, 200 //点击文章 Delay 1000 LeftClick 1 Delay 4000 MoveTo 1245, 108 //点本地文件 Delay 2000 LeftClick 1 Delay 2000 //如果出现弹出框 Delay 5000 GetColor=GetPixelColor(500,400) If GetColor = "F0F0F0" Then TracePrint "找到该点红色" Delay 2000 KeyPress "Enter", 1 Else Delay 1000 End If //如果出现弹出框End Delay 4000 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 喵码 = "tHuDG40" Set objXML=CreateObject("Microsoft.XMLHTTP") objXML.Open "Get", "https://miaotixing.com/trigger?id="+喵码+"&text=社会多站———没有文章了" , False objXML.send Delay 2000 Goto shehuiz //MessageBox "没有文章了" Delay 1000 EndScript //停止脚本 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 // // LeftUp 1 KeyPress "Down", 10 Delay 2000 // 点击HTML MoveTo 352, 525 //HTML Delay 1000 LeftClick 1 Delay 2000 KeyDown 17, 1 KeyPress 86, 1 KeyUp 17, 1 Delay 2000 MoveTo 352, 525//HTML Delay 1000 LeftClick 1 Delay 2000 Delay 2000 MoveTo 920, 606//选中文章开头 LeftClick 1 Delay 2000 LeftDown 1 Delay 1000 Delay 1000 MoveTo 343, 606//鼠标放到文章开头 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, 222//标题 Delay 2000 LeftClick 1 Delay 2000 KeyDown 17, 1 KeyPress 86, 1 KeyUp 17, 1 Delay 1000 MouseWheel -7 Delay 2000 Delay 2000 MoveTo 442, 159//格式化文章 Delay 2000 LeftClick 1 Delay 2000 MoveTo 283, 640//保存文章 Delay 2000 LeftClick 1 Delay 19000 MoveTo 285, 306//点击记忆列表 Delay 10000 LeftClick 1 End If EndFor 喵码 = "tHuDG40" Set objXML=CreateObject("Microsoft.XMLHTTP") objXML.Open "Get", "https://miaotixing.com/trigger?id="+喵码+"&text=社会多站———发布 tiaozang.com 完成10篇—句子—" , False objXML.send //----------------------------------------------------------------------------------------------------------------------------------------- //---- tiaozang.com 结束------------------------------------------------------------------------------------------------------------------------------------- //------ tangweng.cn 开始 //----------------------------------------------------------------------------------------------------------------------------------------- Rem tangweng Delay 2000 RunApp "C:\kill.bat" Delay 2000 GetColor=GetPixelColor(700,100) If GetColor = "CC9900" Then TracePrint "找到该点浏览器继续运行" Else Delay 1000 MoveTo 1245, 78//点浏览器网站后台 Delay 2000 LeftClick 1 Delay 2000 End If Delay 5000 MoveTo 750, 50 Delay 2000 LeftClick 1 Delay 3000 SayString "tangweng.cn/whzwwy/" //指定网站 Delay 2000 KeyPress "Enter", 1 Delay 4000 MoveTo 1175, 95 Delay 2000 LeftClick 1 Delay 3000 MoveTo 600, 470 Delay 2000 LeftClick 1 Delay 4000 MoveTo 246, 580 //句子栏目 //娱乐 246,210 //影视 246,250 //社会 246,290 //奇闻 246,330 Delay 4000 LeftClick 1 Delay 4000 MoveTo 1123, 82 Delay 2000 LeftClick 1 Delay 4000 For 10 Delay 5000 GetColor=GetPixelColor(310,200) If GetColor = "CC9900" Then TracePrint "找到该点红色" Else Delay 1000 喵码 = "tHuDG40" Set objXML=CreateObject("Microsoft.XMLHTTP") objXML.Open "Get", "https://miaotixing.com/trigger?id="+喵码+"&text=社会多站—句子全站———没有找到添加按纽" , False objXML.send Delay 1000 //MessageBox "没有找到添加按纽"//没有找到添加按纽停止 Delay 1000 Goto tangweng Delay 5000 EndScript //停止脚本 End If MoveTo 275, 200 //点击文章 Delay 1000 LeftClick 1 Delay 4000 MoveTo 1245, 108 //点本地文件 Delay 2000 LeftClick 1 Delay 2000 //如果出现弹出框 Delay 5000 GetColor=GetPixelColor(500,400) If GetColor = "F0F0F0" Then TracePrint "找到该点红色" Delay 2000 KeyPress "Enter", 1 Else Delay 1000 End If //如果出现弹出框End Delay 4000 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 喵码 = "tHuDG40" Set objXML=CreateObject("Microsoft.XMLHTTP") objXML.Open "Get", "https://miaotixing.com/trigger?id="+喵码+"&text=社会多站———没有文章了" , False objXML.send Delay 2000 Goto shehuiz //MessageBox "没有文章了" Delay 1000 EndScript //停止脚本 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 // // LeftUp 1 KeyPress "Down", 10 Delay 2000 // 点击HTML MoveTo 352, 525 //HTML Delay 1000 LeftClick 1 Delay 2000 KeyDown 17, 1 KeyPress 86, 1 KeyUp 17, 1 Delay 2000 MoveTo 352, 525//HTML Delay 1000 LeftClick 1 Delay 2000 Delay 2000 MoveTo 920, 606//选中文章开头 LeftClick 1 Delay 2000 LeftDown 1 Delay 1000 Delay 1000 MoveTo 343, 606//鼠标放到文章开头 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, 222//标题 Delay 2000 LeftClick 1 Delay 2000 KeyDown 17, 1 KeyPress 86, 1 KeyUp 17, 1 Delay 1000 MouseWheel -7 Delay 2000 Delay 2000 MoveTo 442, 159//格式化文章 Delay 2000 LeftClick 1 Delay 2000 MoveTo 283, 640//保存文章 Delay 2000 LeftClick 1 Delay 19000 MoveTo 285, 306//点击记忆列表 Delay 10000 LeftClick 1 End If EndFor 喵码 = "tHuDG40" Set objXML=CreateObject("Microsoft.XMLHTTP") objXML.Open "Get", "https://miaotixing.com/trigger?id="+喵码+"&text=社会多站———发布 tangweng.cn 完成10篇—句子—" , False objXML.send //----------------------------------------------------------------------------------------------------------------------------------------- //---- tangweng.cn 结束------------------------------------------------------------------------------------------------------------------------------------- //------ kd4.cc 开始 //----------------------------------------------------------------------------------------------------------------------------------------- Rem kd4 Delay 2000 RunApp "C:\kill.bat" Delay 2000 GetColor=GetPixelColor(700,100) If GetColor = "CC9900" Then TracePrint "找到该点浏览器继续运行" Else Delay 1000 MoveTo 1245, 78//点浏览器网站后台 Delay 2000 LeftClick 1 Delay 2000 End If Delay 5000 MoveTo 750, 50 Delay 2000 LeftClick 1 Delay 3000 SayString "kd4.cc/whzwwy/" //指定网站 Delay 2000 KeyPress "Enter", 1 Delay 4000 MoveTo 1175, 95 Delay 2000 LeftClick 1 Delay 3000 MoveTo 600, 470 Delay 2000 LeftClick 1 Delay 4000 MoveTo 246, 580 //句子栏目 //娱乐 246,210 //影视 246,250 //社会 246,290 //奇闻 246,330 Delay 4000 LeftClick 1 Delay 4000 MoveTo 1123, 82 Delay 2000 LeftClick 1 Delay 4000 For 10 Delay 5000 GetColor=GetPixelColor(310,200) If GetColor = "CC9900" Then TracePrint "找到该点红色" Else Delay 1000 喵码 = "tHuDG40" Set objXML=CreateObject("Microsoft.XMLHTTP") objXML.Open "Get", "https://miaotixing.com/trigger?id="+喵码+"&text=社会多站—句子全站———没有找到添加按纽" , False objXML.send Delay 1000 //MessageBox "没有找到添加按纽"//没有找到添加按纽停止 Delay 1000 Goto kd4 Delay 5000 EndScript //停止脚本 End If MoveTo 275, 200 //点击文章 Delay 1000 LeftClick 1 Delay 4000 MoveTo 1245, 108 //点本地文件 Delay 2000 LeftClick 1 Delay 2000 //如果出现弹出框 Delay 5000 GetColor=GetPixelColor(500,400) If GetColor = "F0F0F0" Then TracePrint "找到该点红色" Delay 2000 KeyPress "Enter", 1 Else Delay 1000 End If //如果出现弹出框End Delay 4000 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 喵码 = "tHuDG40" Set objXML=CreateObject("Microsoft.XMLHTTP") objXML.Open "Get", "https://miaotixing.com/trigger?id="+喵码+"&text=社会多站———没有文章了" , False objXML.send Delay 2000 Goto shehuiz //MessageBox "没有文章了" Delay 1000 EndScript //停止脚本 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 // // LeftUp 1 KeyPress "Down", 10 Delay 2000 // 点击HTML MoveTo 352, 525 //HTML Delay 1000 LeftClick 1 Delay 2000 KeyDown 17, 1 KeyPress 86, 1 KeyUp 17, 1 Delay 2000 MoveTo 352, 525//HTML Delay 1000 LeftClick 1 Delay 2000 Delay 2000 MoveTo 920, 606//选中文章开头 LeftClick 1 Delay 2000 LeftDown 1 Delay 1000 Delay 1000 MoveTo 343, 606//鼠标放到文章开头 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, 222//标题 Delay 2000 LeftClick 1 Delay 2000 KeyDown 17, 1 KeyPress 86, 1 KeyUp 17, 1 Delay 1000 MouseWheel -7 Delay 2000 Delay 2000 MoveTo 442, 159//格式化文章 Delay 2000 LeftClick 1 Delay 2000 MoveTo 283, 640//保存文章 Delay 2000 LeftClick 1 Delay 19000 MoveTo 285, 306//点击记忆列表 Delay 10000 LeftClick 1 End If EndFor 喵码 = "tHuDG40" Set objXML=CreateObject("Microsoft.XMLHTTP") objXML.Open "Get", "https://miaotixing.com/trigger?id="+喵码+"&text=社会多站———发布 kd4.cc 完成10篇—句子—" , False objXML.send //----------------------------------------------------------------------------------------------------------------------------------------- //---- kd4.cc 结束------------------------------------------------------------------------------------------------------------------------------------- //------ 65u.cc 开始 //----------------------------------------------------------------------------------------------------------------------------------------- Rem uu65 Delay 2000 RunApp "C:\kill.bat" Delay 2000 GetColor=GetPixelColor(700,100) If GetColor = "CC9900" Then TracePrint "找到该点浏览器继续运行" Else Delay 1000 MoveTo 1245, 78//点浏览器网站后台 Delay 2000 LeftClick 1 Delay 2000 End If Delay 5000 MoveTo 750, 50 Delay 2000 LeftClick 1 Delay 3000 SayString "65u.cc/whzwwy/" //指定网站 Delay 2000 KeyPress "Enter", 1 Delay 4000 MoveTo 1175, 95 Delay 2000 LeftClick 1 Delay 3000 MoveTo 600, 470 Delay 2000 LeftClick 1 Delay 4000 MoveTo 246, 580 //句子栏目 //娱乐 246,210 //影视 246,250 //社会 246,290 //奇闻 246,330 Delay 4000 LeftClick 1 Delay 4000 MoveTo 1123, 82 Delay 2000 LeftClick 1 Delay 4000 For 10 Delay 5000 GetColor=GetPixelColor(310,200) If GetColor = "CC9900" Then TracePrint "找到该点红色" Else Delay 1000 喵码 = "tHuDG40" Set objXML=CreateObject("Microsoft.XMLHTTP") objXML.Open "Get", "https://miaotixing.com/trigger?id="+喵码+"&text=社会多站—句子全站———没有找到添加按纽" , False objXML.send Delay 1000 //MessageBox "没有找到添加按纽"//没有找到添加按纽停止 Delay 1000 Goto uu65 Delay 5000 EndScript //停止脚本 End If MoveTo 275, 200 //点击文章 Delay 1000 LeftClick 1 Delay 4000 MoveTo 1245, 108 //点本地文件 Delay 2000 LeftClick 1 Delay 2000 //如果出现弹出框 Delay 5000 GetColor=GetPixelColor(500,400) If GetColor = "F0F0F0" Then TracePrint "找到该点红色" Delay 2000 KeyPress "Enter", 1 Else Delay 1000 End If //如果出现弹出框End Delay 4000 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 喵码 = "tHuDG40" Set objXML=CreateObject("Microsoft.XMLHTTP") objXML.Open "Get", "https://miaotixing.com/trigger?id="+喵码+"&text=社会多站———没有文章了" , False objXML.send Delay 2000 Goto shehuiz //MessageBox "没有文章了" Delay 1000 EndScript //停止脚本 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 // // LeftUp 1 KeyPress "Down", 10 Delay 2000 // 点击HTML MoveTo 352, 525 //HTML Delay 1000 LeftClick 1 Delay 2000 KeyDown 17, 1 KeyPress 86, 1 KeyUp 17, 1 Delay 2000 MoveTo 352, 525//HTML Delay 1000 LeftClick 1 Delay 2000 Delay 2000 MoveTo 920, 606//选中文章开头 LeftClick 1 Delay 2000 LeftDown 1 Delay 1000 Delay 1000 MoveTo 343, 606//鼠标放到文章开头 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, 222//标题 Delay 2000 LeftClick 1 Delay 2000 KeyDown 17, 1 KeyPress 86, 1 KeyUp 17, 1 Delay 1000 MouseWheel -7 Delay 2000 Delay 2000 MoveTo 442, 159//格式化文章 Delay 2000 LeftClick 1 Delay 2000 MoveTo 283, 640//保存文章 Delay 2000 LeftClick 1 Delay 19000 MoveTo 285, 306//点击记忆列表 Delay 10000 LeftClick 1 End If EndFor 喵码 = "tHuDG40" Set objXML=CreateObject("Microsoft.XMLHTTP") objXML.Open "Get", "https://miaotixing.com/trigger?id="+喵码+"&text=社会多站———发布 65u.cc 完成10篇—句子—" , False objXML.send //----------------------------------------------------------------------------------------------------------------------------------------- //---- 65u.cc 结束------------------------------------------------------------------------------------------------------------------------------------- //------ qi6.cc 开始 //----------------------------------------------------------------------------------------------------------------------------------------- Rem qi6 Delay 2000 RunApp "C:\kill.bat" Delay 2000 GetColor=GetPixelColor(700,100) If GetColor = "CC9900" Then TracePrint "找到该点浏览器继续运行" Else Delay 1000 MoveTo 1245, 78//点浏览器网站后台 Delay 2000 LeftClick 1 Delay 2000 End If Delay 5000 MoveTo 750, 50 Delay 2000 LeftClick 1 Delay 3000 SayString "qi6.cc/whzwwy/" //指定网站 Delay 2000 KeyPress "Enter", 1 Delay 4000 MoveTo 1175, 95 Delay 2000 LeftClick 1 Delay 3000 MoveTo 600, 470 Delay 2000 LeftClick 1 Delay 4000 MoveTo 246, 580 //句子栏目 //娱乐 246,210 //影视 246,250 //社会 246,290 //奇闻 246,330 Delay 4000 LeftClick 1 Delay 4000 MoveTo 1123, 82 Delay 2000 LeftClick 1 Delay 4000 For 10 Delay 5000 GetColor=GetPixelColor(310,200) If GetColor = "CC9900" Then TracePrint "找到该点红色" Else Delay 1000 喵码 = "tHuDG40" Set objXML=CreateObject("Microsoft.XMLHTTP") objXML.Open "Get", "https://miaotixing.com/trigger?id="+喵码+"&text=社会多站—句子全站———没有找到添加按纽" , False objXML.send Delay 1000 //MessageBox "没有找到添加按纽"//没有找到添加按纽停止 Delay 1000 Goto qi6 Delay 5000 EndScript //停止脚本 End If MoveTo 275, 200 //点击文章 Delay 1000 LeftClick 1 Delay 4000 MoveTo 1245, 108 //点本地文件 Delay 2000 LeftClick 1 Delay 2000 //如果出现弹出框 Delay 5000 GetColor=GetPixelColor(500,400) If GetColor = "F0F0F0" Then TracePrint "找到该点红色" Delay 2000 KeyPress "Enter", 1 Else Delay 1000 End If //如果出现弹出框End Delay 4000 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 喵码 = "tHuDG40" Set objXML=CreateObject("Microsoft.XMLHTTP") objXML.Open "Get", "https://miaotixing.com/trigger?id="+喵码+"&text=社会多站———没有文章了" , False objXML.send Delay 2000 Goto shehuiz //MessageBox "没有文章了" Delay 1000 EndScript //停止脚本 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 // // LeftUp 1 KeyPress "Down", 10 Delay 2000 // 点击HTML MoveTo 352, 525 //HTML Delay 1000 LeftClick 1 Delay 2000 KeyDown 17, 1 KeyPress 86, 1 KeyUp 17, 1 Delay 2000 MoveTo 352, 525//HTML Delay 1000 LeftClick 1 Delay 2000 Delay 2000 MoveTo 920, 606//选中文章开头 LeftClick 1 Delay 2000 LeftDown 1 Delay 1000 Delay 1000 MoveTo 343, 606//鼠标放到文章开头 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, 222//标题 Delay 2000 LeftClick 1 Delay 2000 KeyDown 17, 1 KeyPress 86, 1 KeyUp 17, 1 Delay 1000 MouseWheel -7 Delay 2000 Delay 2000 MoveTo 442, 159//格式化文章 Delay 2000 LeftClick 1 Delay 2000 MoveTo 283, 640//保存文章 Delay 2000 LeftClick 1 Delay 19000 MoveTo 285, 306//点击记忆列表 Delay 10000 LeftClick 1 End If EndFor 喵码 = "tHuDG40" Set objXML=CreateObject("Microsoft.XMLHTTP") objXML.Open "Get", "https://miaotixing.com/trigger?id="+喵码+"&text=社会多站———发布 qi6.cc 完成10篇—句子—" , False objXML.send //----------------------------------------------------------------------------------------------------------------------------------------- //---- qi6.cc 结束------------------------------------------------------------------------------------------------------------------------------------- //------结尾----------------------------------------------------------------------------------------------------------------------------------- Delay 100000 喵码 = "tHuDG40" Set objXML=CreateObject("Microsoft.XMLHTTP") objXML.Open "Get", "https://miaotixing.com/trigger?id="+喵码+"&text=社会多站———发布 -句子- 栏目全部完成" , False objXML.send //切换栏目----------------------------------------------------------------------------------------------------------------------------------------- Rem shehuiz Delay 5000 MoveTo 1245, 108 //点本地文件 Delay 3500 MoveTo 1140, 108 //点本地文件 Delay 2000 LeftClick 1 Delay 2000 MoveTo 600, 35//点本地地址 Delay 4000 LeftClick 1 Delay 4000 SayString "\\192.168.2.5\本地新闻\社会" //本地指定栏目 Delay 2000 KeyPress "Enter", 1 Delay 4000 MoveTo 1245, 78 //点浏览器网站后台 Delay 2000 LeftClick 1 Delay 2000 //切换栏目----------------------------------------------------------------------------------------------------------------------------------------- //----------社会全部多站------------ //luexiu.com------ xiumizhan.com------ yulepc.com------ rebai.cn //zwwy.cc------ tiezhe.cn------ lialun.com------ koute.cn //------ xiulao.cn------ patie.cn------ yanpa.cn------ selou.cn //------ fosou.cn------pitie.cn------qinzai.cn //------ tuhen.cn------ whydbb.com------ whhwxt.com------ wuhanyongchun.com //------ zidang.cn //luexiu.com开始 //----------------------------------------------------------------------------------------------------------------------------------------- Rem luexiu Delay 2000 RunApp "C:\kill.bat" Delay 2000 GetColor=GetPixelColor(700,100) If GetColor = "CC9900" Then TracePrint "找到该点浏览器继续运行" Else Delay 1000 MoveTo 1245, 78//点浏览器网站后台 Delay 2000 LeftClick 1 Delay 2000 End If Delay 5000 MoveTo 750, 50 Delay 2000 LeftClick 1 Delay 3000 SayString "luexiu.com/whzwwy/" //指定网站 Delay 2000 KeyPress "Enter", 1 Delay 4000 MoveTo 1175, 95 Delay 2000 LeftClick 1 Delay 3000 MoveTo 600, 470 Delay 2000 LeftClick 1 Delay 4000 MoveTo 246, 290 //社会栏目 //娱乐 246,210 //影视 246,250 //社会 246,290 //奇闻 246,330 Delay 4000 LeftClick 1 Delay 4000 MoveTo 150, 100 For 10 Delay 5000 GetColor=GetPixelColor(310,200) If GetColor = "CC9900" Then TracePrint "找到该点红色" Else Delay 1000 喵码 = "tHuDG40" Set objXML=CreateObject("Microsoft.XMLHTTP") objXML.Open "Get", "https://miaotixing.com/trigger?id="+喵码+"&text=社会多站———没有找到添加按纽" , False objXML.send Delay 1000 //MessageBox "没有找到添加按纽"//没有找到添加按纽停止 Delay 1000 Goto luexiu Delay 5000 EndScript //停止脚本 End If MoveTo 275, 200 //点击文章 Delay 1000 LeftClick 1 Delay 4000 MoveTo 1245, 108 //点本地文件 Delay 2000 LeftClick 1 Delay 2000 //如果出现弹出框 Delay 5000 GetColor=GetPixelColor(500,400) If GetColor = "F0F0F0" Then TracePrint "找到该点红色" Delay 2000 KeyPress "Enter", 1 Else Delay 1000 End If //如果出现弹出框End Delay 4000 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 喵码 = "tHuDG40" Set objXML=CreateObject("Microsoft.XMLHTTP") objXML.Open "Get", "https://miaotixing.com/trigger?id="+喵码+"&text=社会多站———没有文章了" , False objXML.send Delay 2000 Goto lishiz //MessageBox "没有文章了" Delay 1000 EndScript //停止脚本 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 2000 // 点击HTML MoveTo 352, 525 //HTML Delay 1000 LeftClick 1 Delay 2000 KeyDown 17, 1 KeyPress 86, 1 KeyUp 17, 1 Delay 2000 MoveTo 352, 525//HTML Delay 1000 LeftClick 1 Delay 2000 Delay 2000 MoveTo 920, 606//选中文章开头 LeftClick 1 Delay 2000 LeftDown 1 Delay 1000 Delay 1000 MoveTo 343, 606//鼠标放到文章开头 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, 222//标题 Delay 2000 LeftClick 1 Delay 2000 KeyDown 17, 1 KeyPress 86, 1 KeyUp 17, 1 Delay 1000 MouseWheel -7 Delay 2000 Delay 2000 MoveTo 442, 159//格式化文章 Delay 2000 LeftClick 1 Delay 2000 MoveTo 283, 640//保存文章 Delay 2000 LeftClick 1 Delay 19000 MoveTo 285, 306//点击记忆列表 Delay 10000 LeftClick 1 End If EndFor 喵码 = "tHuDG40" Set objXML=CreateObject("Microsoft.XMLHTTP") objXML.Open "Get", "https://miaotixing.com/trigger?id="+喵码+"&text=社会多站———发布luexiu.com完成10篇-社会-" , False objXML.send //----------------------------------------------------------------------------------------------------------------------------------------- //----luexiu.com结束------------------------------------------------------------------------------------------------------------------------------------- //xiumizhan.com开始 //----------------------------------------------------------------------------------------------------------------------------------------- Rem xiumizhan Delay 2000 RunApp "C:\kill.bat" Delay 2000 GetColor=GetPixelColor(700,100) If GetColor = "CC9900" Then TracePrint "找到该点浏览器继续运行" Else Delay 1000 MoveTo 1245, 78//点浏览器网站后台 Delay 2000 LeftClick 1 Delay 2000 End If Delay 5000 MoveTo 750, 50 Delay 2000 LeftClick 1 Delay 3000 SayString "xiumizhan.com/whzwwy/" //指定网站 Delay 2000 KeyPress "Enter", 1 Delay 4000 MoveTo 1175, 95 Delay 2000 LeftClick 1 Delay 3000 MoveTo 600, 470 Delay 2000 LeftClick 1 Delay 4000 MoveTo 246, 290 //社会栏目 //娱乐 246,210 //影视 246,250 //社会 246,290 //奇闻 246,330 Delay 4000 LeftClick 1 Delay 4000 MoveTo 150, 100 For 10 Delay 5000 GetColor=GetPixelColor(310,200) If GetColor = "CC9900" Then TracePrint "找到该点红色" Else Delay 1000 喵码 = "tHuDG40" Set objXML=CreateObject("Microsoft.XMLHTTP") objXML.Open "Get", "https://miaotixing.com/trigger?id="+喵码+"&text=社会多站———没有找到添加按纽" , False objXML.send Delay 1000 //MessageBox "没有找到添加按纽"//没有找到添加按纽停止 Delay 1000 Goto xiumizhan Delay 5000 EndScript //停止脚本 End If MoveTo 275, 200 //点击文章 Delay 1000 LeftClick 1 Delay 4000 MoveTo 1245, 108 //点本地文件 Delay 2000 LeftClick 1 Delay 2000 //如果出现弹出框 Delay 5000 GetColor=GetPixelColor(500,400) If GetColor = "F0F0F0" Then TracePrint "找到该点红色" Delay 2000 KeyPress "Enter", 1 Else Delay 1000 End If //如果出现弹出框End Delay 4000 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 喵码 = "tHuDG40" Set objXML=CreateObject("Microsoft.XMLHTTP") objXML.Open "Get", "https://miaotixing.com/trigger?id="+喵码+"&text=社会多站———没有文章了" , False objXML.send Delay 2000 Goto lishiz //MessageBox "没有文章了" Delay 1000 EndScript //停止脚本 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 // // MoveTo 1198, 250//选拉动条拉滚动条 // Delay 2000 // LeftDown 1 // Delay 1000 // MoveTo 1198, 650 // Delay 1000 // LeftUp 1 //文章页拉到最底下 // KeyPress "Down", 10 Delay 2000 // 点击HTML MoveTo 352, 525 //HTML Delay 1000 LeftClick 1 Delay 2000 KeyDown 17, 1 KeyPress 86, 1 KeyUp 17, 1 Delay 2000 MoveTo 352, 525//HTML Delay 1000 LeftClick 1 Delay 2000 Delay 2000 MoveTo 920, 606//选中文章开头 LeftClick 1 Delay 2000 LeftDown 1 Delay 1000 Delay 1000 MoveTo 343, 606//鼠标放到文章开头 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, 222//标题 Delay 2000 LeftClick 1 Delay 2000 KeyDown 17, 1 KeyPress 86, 1 KeyUp 17, 1 Delay 1000 MouseWheel -7 Delay 2000 Delay 2000 MoveTo 442, 159//格式化文章 Delay 2000 LeftClick 1 Delay 2000 MoveTo 283, 640//保存文章 Delay 2000 LeftClick 1 Delay 19000 MoveTo 285, 306//点击记忆列表 Delay 10000 LeftClick 1 End If EndFor 喵码 = "tHuDG40" Set objXML=CreateObject("Microsoft.XMLHTTP") objXML.Open "Get", "https://miaotixing.com/trigger?id="+喵码+"&text=社会多站———发布xiumizhan.com完成10篇-社会-" , False objXML.send //----------------------------------------------------------------------------------------------------------------------------------------- //----xiumizhan.com结束------------------------------------------------------------------------------------------------------------------------------------- //------ yulepc.com 开始 //----------------------------------------------------------------------------------------------------------------------------------------- Rem yulepc Delay 2000 RunApp "C:\kill.bat" Delay 2000 GetColor=GetPixelColor(700,100) If GetColor = "CC9900" Then TracePrint "找到该点浏览器继续运行" Else Delay 1000 MoveTo 1245, 78//点浏览器网站后台 Delay 2000 LeftClick 1 Delay 2000 End If Delay 5000 MoveTo 750, 50 Delay 2000 LeftClick 1 Delay 3000 SayString "yulepc.com/whzwwy/" //指定网站 Delay 2000 KeyPress "Enter", 1 Delay 4000 MoveTo 1175, 95 Delay 2000 LeftClick 1 Delay 3000 MoveTo 600, 470 Delay 2000 LeftClick 1 Delay 4000 MoveTo 246, 290 //社会栏目 //娱乐 246,210 //影视 246,250 //社会 246,290 //奇闻 246,330 Delay 4000 LeftClick 1 Delay 4000 MoveTo 150, 100 For 10 Delay 5000 GetColor=GetPixelColor(310,200) If GetColor = "CC9900" Then TracePrint "找到该点红色" Else Delay 1000 喵码 = "tHuDG40" Set objXML=CreateObject("Microsoft.XMLHTTP") objXML.Open "Get", "https://miaotixing.com/trigger?id="+喵码+"&text=社会多站———没有找到添加按纽" , False objXML.send Delay 1000 //MessageBox "没有找到添加按纽"//没有找到添加按纽停止 Delay 1000 Goto yulepc Delay 5000 EndScript //停止脚本 End If MoveTo 275, 200 //点击文章 Delay 1000 LeftClick 1 Delay 4000 MoveTo 1245, 108 //点本地文件 Delay 2000 LeftClick 1 Delay 2000 //如果出现弹出框 Delay 5000 GetColor=GetPixelColor(500,400) If GetColor = "F0F0F0" Then TracePrint "找到该点红色" Delay 2000 KeyPress "Enter", 1 Else Delay 1000 End If //如果出现弹出框End Delay 4000 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 喵码 = "tHuDG40" Set objXML=CreateObject("Microsoft.XMLHTTP") objXML.Open "Get", "https://miaotixing.com/trigger?id="+喵码+"&text=社会多站———没有文章了" , False objXML.send Delay 2000 Goto lishiz //MessageBox "没有文章了" Delay 1000 EndScript //停止脚本 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 // // MoveTo 1198, 250//选拉动条拉滚动条 // Delay 2000 // LeftDown 1 // Delay 1000 // MoveTo 1198, 650 // Delay 1000 // LeftUp 1 //文章页拉到最底下 // KeyPress "Down", 10 Delay 2000 // 点击HTML MoveTo 352, 525 //HTML Delay 1000 LeftClick 1 Delay 2000 KeyDown 17, 1 KeyPress 86, 1 KeyUp 17, 1 Delay 2000 MoveTo 352, 525//HTML Delay 1000 LeftClick 1 Delay 2000 Delay 2000 MoveTo 920, 606//选中文章开头 LeftClick 1 Delay 2000 LeftDown 1 Delay 1000 Delay 1000 MoveTo 343, 606//鼠标放到文章开头 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, 222//标题 Delay 2000 LeftClick 1 Delay 2000 KeyDown 17, 1 KeyPress 86, 1 KeyUp 17, 1 Delay 1000 MouseWheel -7 Delay 2000 Delay 2000 MoveTo 442, 159//格式化文章 Delay 2000 LeftClick 1 Delay 2000 MoveTo 283, 640//保存文章 Delay 2000 LeftClick 1 Delay 19000 MoveTo 285, 306//点击记忆列表 Delay 10000 LeftClick 1 End If EndFor 喵码 = "tHuDG40" Set objXML=CreateObject("Microsoft.XMLHTTP") objXML.Open "Get", "https://miaotixing.com/trigger?id="+喵码+"&text=社会多站———发布yulepc.com完成10篇-社会-" , False objXML.send //----------------------------------------------------------------------------------------------------------------------------------------- //----yulepc.com结束------------------------------------------------------------------------------------------------------------------------------------- //------ rebai.cn 开始 //----------------------------------------------------------------------------------------------------------------------------------------- Rem rebai Delay 2000 RunApp "C:\kill.bat" Delay 2000 GetColor=GetPixelColor(700,100) If GetColor = "CC9900" Then TracePrint "找到该点浏览器继续运行" Else Delay 1000 MoveTo 1245, 78//点浏览器网站后台 Delay 2000 LeftClick 1 Delay 2000 End If Delay 5000 MoveTo 750, 50 Delay 2000 LeftClick 1 Delay 3000 SayString "rebai.cn/whzwwy/" //指定网站 Delay 2000 KeyPress "Enter", 1 Delay 4000 MoveTo 1175, 95 Delay 2000 LeftClick 1 Delay 3000 MoveTo 600, 470 Delay 2000 LeftClick 1 Delay 4000 MoveTo 246, 290 //社会栏目 //娱乐 246,210 //影视 246,250 //社会 246,290 //奇闻 246,330 Delay 4000 LeftClick 1 Delay 4000 MoveTo 150, 100 For 10 Delay 5000 GetColor=GetPixelColor(310,200) If GetColor = "CC9900" Then TracePrint "找到该点红色" Else Delay 1000 喵码 = "tHuDG40" Set objXML=CreateObject("Microsoft.XMLHTTP") objXML.Open "Get", "https://miaotixing.com/trigger?id="+喵码+"&text=社会多站———没有找到添加按纽" , False objXML.send Delay 1000 //MessageBox "没有找到添加按纽"//没有找到添加按纽停止 Delay 1000 Goto rebai Delay 5000 EndScript //停止脚本 End If MoveTo 275, 200 //点击文章 Delay 1000 LeftClick 1 Delay 4000 MoveTo 1245, 108 //点本地文件 Delay 2000 LeftClick 1 Delay 2000 //如果出现弹出框 Delay 5000 GetColor=GetPixelColor(500,400) If GetColor = "F0F0F0" Then TracePrint "找到该点红色" Delay 2000 KeyPress "Enter", 1 Else Delay 1000 End If //如果出现弹出框End Delay 4000 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 喵码 = "tHuDG40" Set objXML=CreateObject("Microsoft.XMLHTTP") objXML.Open "Get", "https://miaotixing.com/trigger?id="+喵码+"&text=社会多站———没有文章了" , False objXML.send Delay 2000 Goto lishiz //MessageBox "没有文章了" Delay 1000 EndScript //停止脚本 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 // // MoveTo 1198, 250//选拉动条拉滚动条 // Delay 2000 // LeftDown 1 // Delay 1000 // MoveTo 1198, 650 // Delay 1000 // LeftUp 1 //文章页拉到最底下 // KeyPress "Down", 10 Delay 2000 // 点击HTML MoveTo 352, 525 //HTML Delay 1000 LeftClick 1 Delay 2000 KeyDown 17, 1 KeyPress 86, 1 KeyUp 17, 1 Delay 2000 MoveTo 352, 525//HTML Delay 1000 LeftClick 1 Delay 2000 Delay 2000 MoveTo 920, 606//选中文章开头 LeftClick 1 Delay 2000 LeftDown 1 Delay 1000 Delay 1000 MoveTo 343, 606//鼠标放到文章开头 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, 222//标题 Delay 2000 LeftClick 1 Delay 2000 KeyDown 17, 1 KeyPress 86, 1 KeyUp 17, 1 Delay 1000 MouseWheel -7 Delay 2000 Delay 2000 MoveTo 442, 159//格式化文章 Delay 2000 LeftClick 1 Delay 2000 MoveTo 283, 640//保存文章 Delay 2000 LeftClick 1 Delay 19000 MoveTo 285, 306//点击记忆列表 Delay 10000 LeftClick 1 End If EndFor 喵码 = "tHuDG40" Set objXML=CreateObject("Microsoft.XMLHTTP") objXML.Open "Get", "https://miaotixing.com/trigger?id="+喵码+"&text=社会多站———发布 rebai.cn 完成10篇-社会-" , False objXML.send //----------------------------------------------------------------------------------------------------------------------------------------- //---- rebai.cn 结束------------------------------------------------------------------------------------------------------------------------------------- //------ zwwy.cc 开始 //----------------------------------------------------------------------------------------------------------------------------------------- Rem zwwycc Delay 2000 RunApp "C:\kill.bat" Delay 2000 GetColor=GetPixelColor(700,100) If GetColor = "CC9900" Then TracePrint "找到该点浏览器继续运行" Else Delay 1000 MoveTo 1245, 78//点浏览器网站后台 Delay 2000 LeftClick 1 Delay 2000 End If Delay 5000 MoveTo 750, 50 Delay 2000 LeftClick 1 Delay 3000 SayString "zwwy.cc/whzwwy/" //指定网站 Delay 2000 KeyPress "Enter", 1 Delay 4000 MoveTo 1175, 95 Delay 2000 LeftClick 1 Delay 3000 MoveTo 600, 470 Delay 2000 LeftClick 1 Delay 4000 MoveTo 246, 290 //社会栏目 //娱乐 246,210 //影视 246,250 //社会 246,290 //奇闻 246,330 Delay 4000 LeftClick 1 Delay 4000 MoveTo 150, 100 For 10 Delay 5000 GetColor=GetPixelColor(310,200) If GetColor = "CC9900" Then TracePrint "找到该点红色" Else Delay 1000 喵码 = "tHuDG40" Set objXML=CreateObject("Microsoft.XMLHTTP") objXML.Open "Get", "https://miaotixing.com/trigger?id="+喵码+"&text=社会多站———没有找到添加按纽" , False objXML.send Delay 1000 //MessageBox "没有找到添加按纽"//没有找到添加按纽停止 Delay 1000 Goto zwwycc Delay 5000 EndScript //停止脚本 End If MoveTo 275, 200 //点击文章 Delay 1000 LeftClick 1 Delay 4000 MoveTo 1245, 108 //点本地文件 Delay 2000 LeftClick 1 Delay 2000 //如果出现弹出框 Delay 5000 GetColor=GetPixelColor(500,400) If GetColor = "F0F0F0" Then TracePrint "找到该点红色" Delay 2000 KeyPress "Enter", 1 Else Delay 1000 End If //如果出现弹出框End Delay 4000 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 喵码 = "tHuDG40" Set objXML=CreateObject("Microsoft.XMLHTTP") objXML.Open "Get", "https://miaotixing.com/trigger?id="+喵码+"&text=社会多站———没有文章了" , False objXML.send Delay 2000 Goto lishiz //MessageBox "没有文章了" Delay 1000 EndScript //停止脚本 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 // // MoveTo 1198, 250//选拉动条拉滚动条 // Delay 2000 // LeftDown 1 // Delay 1000 // MoveTo 1198, 650 // Delay 1000 // LeftUp 1 //文章页拉到最底下 // KeyPress "Down", 10 Delay 2000 // 点击HTML MoveTo 352, 525 //HTML Delay 1000 LeftClick 1 Delay 2000 KeyDown 17, 1 KeyPress 86, 1 KeyUp 17, 1 Delay 2000 MoveTo 352, 525//HTML Delay 1000 LeftClick 1 Delay 2000 Delay 2000 MoveTo 920, 606//选中文章开头 LeftClick 1 Delay 2000 LeftDown 1 Delay 1000 Delay 1000 MoveTo 343, 606//鼠标放到文章开头 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, 222//标题 Delay 2000 LeftClick 1 Delay 2000 KeyDown 17, 1 KeyPress 86, 1 KeyUp 17, 1 Delay 1000 MouseWheel -7 Delay 2000 Delay 2000 MoveTo 442, 159//格式化文章 Delay 2000 LeftClick 1 Delay 2000 MoveTo 283, 640//保存文章 Delay 2000 LeftClick 1 Delay 19000 MoveTo 285, 306//点击记忆列表 Delay 10000 LeftClick 1 End If EndFor 喵码 = "tHuDG40" Set objXML=CreateObject("Microsoft.XMLHTTP") objXML.Open "Get", "https://miaotixing.com/trigger?id="+喵码+"&text=社会多站———发布 zwwy.cc 完成10篇-社会-" , False objXML.send //----------------------------------------------------------------------------------------------------------------------------------------- //---- zwwy.cc 结束------------------------------------------------------------------------------------------------------------------------------------- //------ koute.cn 开始 //----------------------------------------------------------------------------------------------------------------------------------------- Rem koute Delay 2000 RunApp "C:\kill.bat" Delay 2000 GetColor=GetPixelColor(700,100) If GetColor = "CC9900" Then TracePrint "找到该点浏览器继续运行" Else Delay 1000 MoveTo 1245, 78//点浏览器网站后台 Delay 2000 LeftClick 1 Delay 2000 End If Delay 5000 MoveTo 750, 50 Delay 2000 LeftClick 1 Delay 3000 SayString "koute.cn/whzwwy/" //指定网站 Delay 2000 KeyPress "Enter", 1 Delay 4000 MoveTo 1175, 95 Delay 2000 LeftClick 1 Delay 3000 MoveTo 600, 470 Delay 2000 LeftClick 1 Delay 4000 MoveTo 246, 290 //社会栏目 //娱乐 246,210 //影视 246,250 //社会 246,290 //奇闻 246,330 Delay 4000 LeftClick 1 Delay 4000 MoveTo 150, 100 For 10 Delay 5000 GetColor=GetPixelColor(310,200) If GetColor = "CC9900" Then TracePrint "找到该点红色" Else Delay 1000 喵码 = "tHuDG40" Set objXML=CreateObject("Microsoft.XMLHTTP") objXML.Open "Get", "https://miaotixing.com/trigger?id="+喵码+"&text=社会多站———没有找到添加按纽" , False objXML.send Delay 1000 //MessageBox "没有找到添加按纽"//没有找到添加按纽停止 Delay 1000 Goto koute Delay 5000 EndScript //停止脚本 End If MoveTo 275, 200 //点击文章 Delay 1000 LeftClick 1 Delay 4000 MoveTo 1245, 108 //点本地文件 Delay 2000 LeftClick 1 Delay 2000 //如果出现弹出框 Delay 5000 GetColor=GetPixelColor(500,400) If GetColor = "F0F0F0" Then TracePrint "找到该点红色" Delay 2000 KeyPress "Enter", 1 Else Delay 1000 End If //如果出现弹出框End Delay 4000 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 喵码 = "tHuDG40" Set objXML=CreateObject("Microsoft.XMLHTTP") objXML.Open "Get", "https://miaotixing.com/trigger?id="+喵码+"&text=社会多站———没有文章了" , False objXML.send Delay 2000 Goto lishiz //MessageBox "没有文章了" Delay 1000 EndScript //停止脚本 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 // // LeftUp 1 //文章页拉到最底下 // KeyPress "Down", 10 Delay 2000 // 点击HTML MoveTo 352, 525 //HTML Delay 1000 LeftClick 1 Delay 2000 KeyDown 17, 1 KeyPress 86, 1 KeyUp 17, 1 Delay 2000 MoveTo 352, 525//HTML Delay 1000 LeftClick 1 Delay 2000 Delay 2000 MoveTo 920, 606//选中文章开头 LeftClick 1 Delay 2000 LeftDown 1 Delay 1000 Delay 1000 MoveTo 343, 606//鼠标放到文章开头 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, 222//标题 Delay 2000 LeftClick 1 Delay 2000 KeyDown 17, 1 KeyPress 86, 1 KeyUp 17, 1 Delay 1000 MouseWheel -7 Delay 2000 Delay 2000 MoveTo 442, 159//格式化文章 Delay 2000 LeftClick 1 Delay 2000 MoveTo 283, 640//保存文章 Delay 2000 LeftClick 1 Delay 19000 MoveTo 285, 306//点击记忆列表 Delay 10000 LeftClick 1 End If EndFor 喵码 = "tHuDG40" Set objXML=CreateObject("Microsoft.XMLHTTP") objXML.Open "Get", "https://miaotixing.com/trigger?id="+喵码+"&text=社会多站———发布 koute.cn 完成10篇-社会-" , False objXML.send //----------------------------------------------------------------------------------------------------------------------------------------- //---- koute.cn 结束------------------------------------------------------------------------------------------------------------------------------------- //------ tahou.cn 开始 //----------------------------------------------------------------------------------------------------------------------------------------- Rem tahou Delay 2000 RunApp "C:\kill.bat" Delay 2000 GetColor=GetPixelColor(700,100) If GetColor = "CC9900" Then TracePrint "找到该点浏览器继续运行" Else Delay 1000 MoveTo 1245, 78//点浏览器网站后台 Delay 2000 LeftClick 1 Delay 2000 End If Delay 5000 MoveTo 750, 50 Delay 2000 LeftClick 1 Delay 3000 SayString "tahou.cn/whzwwy/" //指定网站 Delay 2000 KeyPress "Enter", 1 Delay 4000 MoveTo 1175, 95 Delay 2000 LeftClick 1 Delay 3000 MoveTo 600, 470 Delay 2000 LeftClick 1 Delay 4000 MoveTo 246, 290 //社会栏目 //娱乐 246,210 //影视 246,250 //社会 246,290 //奇闻 246,330 Delay 4000 LeftClick 1 Delay 4000 MoveTo 150, 100 For 10 Delay 5000 GetColor=GetPixelColor(310,200) If GetColor = "CC9900" Then TracePrint "找到该点红色" Else Delay 1000 喵码 = "tHuDG40" Set objXML=CreateObject("Microsoft.XMLHTTP") objXML.Open "Get", "https://miaotixing.com/trigger?id="+喵码+"&text=社会多站———没有找到添加按纽" , False objXML.send Delay 1000 //MessageBox "没有找到添加按纽"//没有找到添加按纽停止 Delay 1000 Goto tahou Delay 5000 EndScript //停止脚本 End If MoveTo 275, 200 //点击文章 Delay 1000 LeftClick 1 Delay 4000 MoveTo 1245, 108 //点本地文件 Delay 2000 LeftClick 1 Delay 2000 //如果出现弹出框 Delay 5000 GetColor=GetPixelColor(500,400) If GetColor = "F0F0F0" Then TracePrint "找到该点红色" Delay 2000 KeyPress "Enter", 1 Else Delay 1000 End If //如果出现弹出框End Delay 4000 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 喵码 = "tHuDG40" Set objXML=CreateObject("Microsoft.XMLHTTP") objXML.Open "Get", "https://miaotixing.com/trigger?id="+喵码+"&text=社会多站———没有文章了" , False objXML.send Delay 2000 Goto lishiz //MessageBox "没有文章了" Delay 1000 EndScript //停止脚本 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 // // LeftUp 1 //文章页拉到最底下 // KeyPress "Down", 10 Delay 2000 // 点击HTML MoveTo 352, 525 //HTML Delay 1000 LeftClick 1 Delay 2000 KeyDown 17, 1 KeyPress 86, 1 KeyUp 17, 1 Delay 2000 MoveTo 352, 525//HTML Delay 1000 LeftClick 1 Delay 2000 Delay 2000 MoveTo 920, 606//选中文章开头 LeftClick 1 Delay 2000 LeftDown 1 Delay 1000 Delay 1000 MoveTo 343, 606//鼠标放到文章开头 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, 222//标题 Delay 2000 LeftClick 1 Delay 2000 KeyDown 17, 1 KeyPress 86, 1 KeyUp 17, 1 Delay 1000 MouseWheel -7 Delay 2000 Delay 2000 MoveTo 442, 159//格式化文章 Delay 2000 LeftClick 1 Delay 2000 MoveTo 283, 640//保存文章 Delay 2000 LeftClick 1 Delay 19000 MoveTo 285, 306//点击记忆列表 Delay 10000 LeftClick 1 End If EndFor 喵码 = "tHuDG40" Set objXML=CreateObject("Microsoft.XMLHTTP") objXML.Open "Get", "https://miaotixing.com/trigger?id="+喵码+"&text=社会多站———发布 tahou.cn 完成10篇-社会-" , False objXML.send //----------------------------------------------------------------------------------------------------------------------------------------- //---- tahou.cn 结束------------------------------------------------------------------------------------------------------------------------------------- //------ xiulao.cn 开始 //----------------------------------------------------------------------------------------------------------------------------------------- Rem xiulao Delay 2000 RunApp "C:\kill.bat" Delay 2000 GetColor=GetPixelColor(700,100) If GetColor = "CC9900" Then TracePrint "找到该点浏览器继续运行" Else Delay 1000 MoveTo 1245, 78//点浏览器网站后台 Delay 2000 LeftClick 1 Delay 2000 End If Delay 5000 MoveTo 750, 50 Delay 2000 LeftClick 1 Delay 3000 SayString "xiulao.cn/whzwwy/" //指定网站 Delay 2000 KeyPress "Enter", 1 Delay 4000 MoveTo 1175, 95 Delay 2000 LeftClick 1 Delay 3000 MoveTo 600, 470 Delay 2000 LeftClick 1 Delay 4000 MoveTo 246, 290 //社会栏目 //娱乐 246,210 //影视 246,250 //社会 246,290 //奇闻 246,330 Delay 4000 LeftClick 1 Delay 4000 MoveTo 150, 100 For 10 Delay 5000 GetColor=GetPixelColor(310,200) If GetColor = "CC9900" Then TracePrint "找到该点红色" Else Delay 1000 喵码 = "tHuDG40" Set objXML=CreateObject("Microsoft.XMLHTTP") objXML.Open "Get", "https://miaotixing.com/trigger?id="+喵码+"&text=社会多站———没有找到添加按纽" , False objXML.send Delay 1000 //MessageBox "没有找到添加按纽"//没有找到添加按纽停止 Delay 1000 Goto xiulao Delay 5000 EndScript //停止脚本 End If MoveTo 275, 200 //点击文章 Delay 1000 LeftClick 1 Delay 4000 MoveTo 1245, 108 //点本地文件 Delay 2000 LeftClick 1 Delay 2000 //如果出现弹出框 Delay 5000 GetColor=GetPixelColor(500,400) If GetColor = "F0F0F0" Then TracePrint "找到该点红色" Delay 2000 KeyPress "Enter", 1 Else Delay 1000 End If //如果出现弹出框End Delay 4000 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 喵码 = "tHuDG40" Set objXML=CreateObject("Microsoft.XMLHTTP") objXML.Open "Get", "https://miaotixing.com/trigger?id="+喵码+"&text=社会多站———没有文章了" , False objXML.send Delay 2000 Goto lishiz //MessageBox "没有文章了" Delay 1000 EndScript //停止脚本 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 // // LeftUp 1 //文章页拉到最底下 // KeyPress "Down", 10 Delay 2000 // 点击HTML MoveTo 352, 525 //HTML Delay 1000 LeftClick 1 Delay 2000 KeyDown 17, 1 KeyPress 86, 1 KeyUp 17, 1 Delay 2000 MoveTo 352, 525//HTML Delay 1000 LeftClick 1 Delay 2000 Delay 2000 MoveTo 920, 606//选中文章开头 LeftClick 1 Delay 2000 LeftDown 1 Delay 1000 Delay 1000 MoveTo 343, 606//鼠标放到文章开头 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, 222//标题 Delay 2000 LeftClick 1 Delay 2000 KeyDown 17, 1 KeyPress 86, 1 KeyUp 17, 1 Delay 1000 MouseWheel -7 Delay 2000 Delay 2000 MoveTo 442, 159//格式化文章 Delay 2000 LeftClick 1 Delay 2000 MoveTo 283, 640//保存文章 Delay 2000 LeftClick 1 Delay 19000 MoveTo 285, 306//点击记忆列表 Delay 10000 LeftClick 1 End If EndFor 喵码 = "tHuDG40" Set objXML=CreateObject("Microsoft.XMLHTTP") objXML.Open "Get", "https://miaotixing.com/trigger?id="+喵码+"&text=社会多站———发布 xiulao.cn 完成10篇-社会-" , False objXML.send //----------------------------------------------------------------------------------------------------------------------------------------- //---- xiulao.cn 结束------------------------------------------------------------------------------------------------------------------------------------- //------ patie.cn 开始 //----------------------------------------------------------------------------------------------------------------------------------------- Rem patie Delay 2000 RunApp "C:\kill.bat" Delay 2000 GetColor=GetPixelColor(700,100) If GetColor = "CC9900" Then TracePrint "找到该点浏览器继续运行" Else Delay 1000 MoveTo 1245, 78//点浏览器网站后台 Delay 2000 LeftClick 1 Delay 2000 End If Delay 5000 MoveTo 750, 50 Delay 2000 LeftClick 1 Delay 3000 SayString "patie.cn/whzwwy/" //指定网站 Delay 2000 KeyPress "Enter", 1 Delay 4000 MoveTo 1175, 95 Delay 2000 LeftClick 1 Delay 3000 MoveTo 600, 470 Delay 2000 LeftClick 1 Delay 4000 MoveTo 246, 290 //社会栏目 //娱乐 246,210 //影视 246,250 //社会 246,290 //奇闻 246,330 Delay 4000 LeftClick 1 Delay 4000 MoveTo 150, 100 For 10 Delay 5000 GetColor=GetPixelColor(310,200) If GetColor = "CC9900" Then TracePrint "找到该点红色" Else Delay 1000 喵码 = "tHuDG40" Set objXML=CreateObject("Microsoft.XMLHTTP") objXML.Open "Get", "https://miaotixing.com/trigger?id="+喵码+"&text=社会多站———没有找到添加按纽" , False objXML.send Delay 1000 //MessageBox "没有找到添加按纽"//没有找到添加按纽停止 Delay 1000 Goto patie Delay 5000 EndScript //停止脚本 End If MoveTo 275, 200 //点击文章 Delay 1000 LeftClick 1 Delay 4000 MoveTo 1245, 108 //点本地文件 Delay 2000 LeftClick 1 Delay 2000 //如果出现弹出框 Delay 5000 GetColor=GetPixelColor(500,400) If GetColor = "F0F0F0" Then TracePrint "找到该点红色" Delay 2000 KeyPress "Enter", 1 Else Delay 1000 End If //如果出现弹出框End Delay 4000 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 喵码 = "tHuDG40" Set objXML=CreateObject("Microsoft.XMLHTTP") objXML.Open "Get", "https://miaotixing.com/trigger?id="+喵码+"&text=社会多站———没有文章了" , False objXML.send Delay 2000 Goto lishiz //MessageBox "没有文章了" Delay 1000 EndScript //停止脚本 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 // // LeftUp 1 //文章页拉到最底下 // KeyPress "Down", 10 Delay 2000 // 点击HTML MoveTo 352, 525 //HTML Delay 1000 LeftClick 1 Delay 2000 KeyDown 17, 1 KeyPress 86, 1 KeyUp 17, 1 Delay 2000 MoveTo 352, 525//HTML Delay 1000 LeftClick 1 Delay 2000 Delay 2000 MoveTo 920, 606//选中文章开头 LeftClick 1 Delay 2000 LeftDown 1 Delay 1000 Delay 1000 MoveTo 343, 606//鼠标放到文章开头 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, 222//标题 Delay 2000 LeftClick 1 Delay 2000 KeyDown 17, 1 KeyPress 86, 1 KeyUp 17, 1 Delay 1000 MouseWheel -7 Delay 2000 Delay 2000 MoveTo 442, 159//格式化文章 Delay 2000 LeftClick 1 Delay 2000 MoveTo 283, 640//保存文章 Delay 2000 LeftClick 1 Delay 19000 MoveTo 285, 306//点击记忆列表 Delay 10000 LeftClick 1 End If EndFor 喵码 = "tHuDG40" Set objXML=CreateObject("Microsoft.XMLHTTP") objXML.Open "Get", "https://miaotixing.com/trigger?id="+喵码+"&text=社会多站———发布 patie.cn 完成10篇-社会-" , False objXML.send //----------------------------------------------------------------------------------------------------------------------------------------- //---- patie.cn 结束------------------------------------------------------------------------------------------------------------------------------------- //------ tiezhe.cn 开始 //----------------------------------------------------------------------------------------------------------------------------------------- Rem tiezhe Delay 2000 RunApp "C:\kill.bat" Delay 2000 GetColor=GetPixelColor(700,100) If GetColor = "CC9900" Then TracePrint "找到该点浏览器继续运行" Else Delay 1000 MoveTo 1245, 78//点浏览器网站后台 Delay 2000 LeftClick 1 Delay 2000 End If Delay 5000 MoveTo 750, 50 Delay 2000 LeftClick 1 Delay 3000 SayString "tiezhe.cn/whzwwy/" //指定网站 Delay 2000 KeyPress "Enter", 1 Delay 4000 MoveTo 1175, 95 Delay 2000 LeftClick 1 Delay 3000 MoveTo 600, 470 Delay 2000 LeftClick 1 Delay 4000 MoveTo 246, 290 //社会栏目 //娱乐 246,210 //影视 246,250 //社会 246,290 //奇闻 246,330 Delay 4000 LeftClick 1 Delay 4000 MoveTo 150, 100 For 10 Delay 5000 GetColor=GetPixelColor(310,200) If GetColor = "CC9900" Then TracePrint "找到该点红色" Else Delay 1000 喵码 = "tHuDG40" Set objXML=CreateObject("Microsoft.XMLHTTP") objXML.Open "Get", "https://miaotixing.com/trigger?id="+喵码+"&text=社会多站———没有找到添加按纽" , False objXML.send Delay 1000 //MessageBox "没有找到添加按纽"//没有找到添加按纽停止 Delay 1000 Goto tiezhe Delay 5000 EndScript //停止脚本 End If MoveTo 275, 200 //点击文章 Delay 1000 LeftClick 1 Delay 4000 MoveTo 1245, 108 //点本地文件 Delay 2000 LeftClick 1 Delay 2000 //如果出现弹出框 Delay 5000 GetColor=GetPixelColor(500,400) If GetColor = "F0F0F0" Then TracePrint "找到该点红色" Delay 2000 KeyPress "Enter", 1 Else Delay 1000 End If //如果出现弹出框End Delay 4000 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 喵码 = "tHuDG40" Set objXML=CreateObject("Microsoft.XMLHTTP") objXML.Open "Get", "https://miaotixing.com/trigger?id="+喵码+"&text=社会多站———没有文章了" , False objXML.send Delay 2000 Goto lishiz //MessageBox "没有文章了" Delay 1000 EndScript //停止脚本 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 // // LeftUp 1 //文章页拉到最底下 // KeyPress "Down", 10 Delay 2000 // 点击HTML MoveTo 352, 525 //HTML Delay 1000 LeftClick 1 Delay 2000 KeyDown 17, 1 KeyPress 86, 1 KeyUp 17, 1 Delay 2000 MoveTo 352, 525//HTML Delay 1000 LeftClick 1 Delay 2000 Delay 2000 MoveTo 920, 606//选中文章开头 LeftClick 1 Delay 2000 LeftDown 1 Delay 1000 Delay 1000 MoveTo 343, 606//鼠标放到文章开头 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, 222//标题 Delay 2000 LeftClick 1 Delay 2000 KeyDown 17, 1 KeyPress 86, 1 KeyUp 17, 1 Delay 1000 MouseWheel -7 Delay 2000 Delay 2000 MoveTo 442, 159//格式化文章 Delay 2000 LeftClick 1 Delay 2000 MoveTo 283, 640//保存文章 Delay 2000 LeftClick 1 Delay 19000 MoveTo 285, 306//点击记忆列表 Delay 10000 LeftClick 1 End If EndFor 喵码 = "tHuDG40" Set objXML=CreateObject("Microsoft.XMLHTTP") objXML.Open "Get", "https://miaotixing.com/trigger?id="+喵码+"&text=社会多站———发布 tiezhe.cn 完成10篇-社会-" , False objXML.send //----------------------------------------------------------------------------------------------------------------------------------------- //---- tiezhe.cn 结束------------------------------------------------------------------------------------------------------------------------------------- //------ yanpa.cn 开始 //----------------------------------------------------------------------------------------------------------------------------------------- Rem yanpa Delay 2000 RunApp "C:\kill.bat" Delay 2000 GetColor=GetPixelColor(700,100) If GetColor = "CC9900" Then TracePrint "找到该点浏览器继续运行" Else Delay 1000 MoveTo 1245, 78//点浏览器网站后台 Delay 2000 LeftClick 1 Delay 2000 End If Delay 5000 MoveTo 750, 50 Delay 2000 LeftClick 1 Delay 3000 SayString "yanpa.cn/whzwwy/" //指定网站 Delay 2000 KeyPress "Enter", 1 Delay 4000 MoveTo 1175, 95 Delay 2000 LeftClick 1 Delay 3000 MoveTo 600, 470 Delay 2000 LeftClick 1 Delay 4000 MoveTo 246, 290 //社会栏目 //娱乐 246,210 //影视 246,250 //社会 246,290 //奇闻 246,330 Delay 4000 LeftClick 1 Delay 4000 MoveTo 150, 100 For 10 Delay 5000 GetColor=GetPixelColor(310,200) If GetColor = "CC9900" Then TracePrint "找到该点红色" Else Delay 1000 喵码 = "tHuDG40" Set objXML=CreateObject("Microsoft.XMLHTTP") objXML.Open "Get", "https://miaotixing.com/trigger?id="+喵码+"&text=社会多站———没有找到添加按纽" , False objXML.send Delay 1000 //MessageBox "没有找到添加按纽"//没有找到添加按纽停止 Delay 1000 Goto yanpa Delay 5000 EndScript //停止脚本 End If MoveTo 275, 200 //点击文章 Delay 1000 LeftClick 1 Delay 4000 MoveTo 1245, 108 //点本地文件 Delay 2000 LeftClick 1 Delay 2000 //如果出现弹出框 Delay 5000 GetColor=GetPixelColor(500,400) If GetColor = "F0F0F0" Then TracePrint "找到该点红色" Delay 2000 KeyPress "Enter", 1 Else Delay 1000 End If //如果出现弹出框End Delay 4000 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 喵码 = "tHuDG40" Set objXML=CreateObject("Microsoft.XMLHTTP") objXML.Open "Get", "https://miaotixing.com/trigger?id="+喵码+"&text=社会多站———没有文章了" , False objXML.send Delay 2000 Goto lishiz //MessageBox "没有文章了" Delay 1000 EndScript //停止脚本 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 // // MoveTo 1198, 250//选拉动条拉滚动条 // Delay 2000 // LeftDown 1 // Delay 1000 // MoveTo 1198, 650 // Delay 1000 // LeftUp 1 //文章页拉到最底下 // KeyPress "Down", 10 Delay 2000 // 点击HTML MoveTo 352, 525 //HTML Delay 1000 LeftClick 1 Delay 2000 KeyDown 17, 1 KeyPress 86, 1 KeyUp 17, 1 Delay 2000 MoveTo 352, 525//HTML Delay 1000 LeftClick 1 Delay 2000 Delay 2000 MoveTo 920, 606//选中文章开头 LeftClick 1 Delay 2000 LeftDown 1 Delay 1000 Delay 1000 MoveTo 343, 606//鼠标放到文章开头 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, 222//标题 Delay 2000 LeftClick 1 Delay 2000 KeyDown 17, 1 KeyPress 86, 1 KeyUp 17, 1 Delay 1000 MouseWheel -7 Delay 2000 Delay 2000 MoveTo 442, 159//格式化文章 Delay 2000 LeftClick 1 Delay 2000 MoveTo 283, 640//保存文章 Delay 2000 LeftClick 1 Delay 19000 MoveTo 285, 306//点击记忆列表 Delay 10000 LeftClick 1 End If EndFor 喵码 = "tHuDG40" Set objXML=CreateObject("Microsoft.XMLHTTP") objXML.Open "Get", "https://miaotixing.com/trigger?id="+喵码+"&text=社会多站———发布 yanpa.cn 完成10篇-社会-" , False objXML.send //----------------------------------------------------------------------------------------------------------------------------------------- //---- yanpa.cn 结束------------------------------------------------------------------------------------------------------------------------------------- //------ selou.cn 开始 //----------------------------------------------------------------------------------------------------------------------------------------- Rem selou Delay 2000 RunApp "C:\kill.bat" Delay 2000 GetColor=GetPixelColor(700,100) If GetColor = "CC9900" Then TracePrint "找到该点浏览器继续运行" Else Delay 1000 MoveTo 1245, 78//点浏览器网站后台 Delay 2000 LeftClick 1 Delay 2000 End If Delay 5000 MoveTo 750, 50 Delay 2000 LeftClick 1 Delay 3000 SayString "selou.cn/whzwwy/" //指定网站 Delay 2000 KeyPress "Enter", 1 Delay 4000 MoveTo 1175, 95 Delay 2000 LeftClick 1 Delay 3000 MoveTo 600, 470 Delay 2000 LeftClick 1 Delay 4000 MoveTo 246, 290 //社会栏目 //娱乐 246,210 //影视 246,250 //社会 246,290 //奇闻 246,330 Delay 4000 LeftClick 1 Delay 4000 MoveTo 150, 100 For 10 Delay 5000 GetColor=GetPixelColor(310,200) If GetColor = "CC9900" Then TracePrint "找到该点红色" Else Delay 1000 喵码 = "tHuDG40" Set objXML=CreateObject("Microsoft.XMLHTTP") objXML.Open "Get", "https://miaotixing.com/trigger?id="+喵码+"&text=社会多站———没有找到添加按纽" , False objXML.send Delay 1000 //MessageBox "没有找到添加按纽"//没有找到添加按纽停止 Delay 1000 Goto selou Delay 5000 EndScript //停止脚本 End If MoveTo 275, 200 //点击文章 Delay 1000 LeftClick 1 Delay 4000 MoveTo 1245, 108 //点本地文件 Delay 2000 LeftClick 1 Delay 2000 //如果出现弹出框 Delay 5000 GetColor=GetPixelColor(500,400) If GetColor = "F0F0F0" Then TracePrint "找到该点红色" Delay 2000 KeyPress "Enter", 1 Else Delay 1000 End If //如果出现弹出框End Delay 4000 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 喵码 = "tHuDG40" Set objXML=CreateObject("Microsoft.XMLHTTP") objXML.Open "Get", "https://miaotixing.com/trigger?id="+喵码+"&text=社会多站———没有文章了" , False objXML.send Delay 2000 Goto lishiz //MessageBox "没有文章了" Delay 1000 EndScript //停止脚本 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 // // LeftUp 1 //文章页拉到最底下 // KeyPress "Down", 10 Delay 2000 // 点击HTML MoveTo 352, 525 //HTML Delay 1000 LeftClick 1 Delay 2000 KeyDown 17, 1 KeyPress 86, 1 KeyUp 17, 1 Delay 2000 MoveTo 352, 525//HTML Delay 1000 LeftClick 1 Delay 2000 Delay 2000 MoveTo 920, 606//选中文章开头 LeftClick 1 Delay 2000 LeftDown 1 Delay 1000 Delay 1000 MoveTo 343, 606//鼠标放到文章开头 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, 222//标题 Delay 2000 LeftClick 1 Delay 2000 KeyDown 17, 1 KeyPress 86, 1 KeyUp 17, 1 Delay 1000 MouseWheel -7 Delay 2000 Delay 2000 MoveTo 442, 159//格式化文章 Delay 2000 LeftClick 1 Delay 2000 MoveTo 283, 640//保存文章 Delay 2000 LeftClick 1 Delay 19000 MoveTo 285, 306//点击记忆列表 Delay 10000 LeftClick 1 End If EndFor 喵码 = "tHuDG40" Set objXML=CreateObject("Microsoft.XMLHTTP") objXML.Open "Get", "https://miaotixing.com/trigger?id="+喵码+"&text=社会多站———发布 selou.cn 完成10篇-社会-" , False objXML.send //----------------------------------------------------------------------------------------------------------------------------------------- //---- selou.cn 结束------------------------------------------------------------------------------------------------------------------------------------- //------ fosou.cn 开始 //----------------------------------------------------------------------------------------------------------------------------------------- Rem fosou Delay 2000 RunApp "C:\kill.bat" Delay 2000 GetColor=GetPixelColor(700,100) If GetColor = "CC9900" Then TracePrint "找到该点浏览器继续运行" Else Delay 1000 MoveTo 1245, 78//点浏览器网站后台 Delay 2000 LeftClick 1 Delay 2000 End If Delay 5000 MoveTo 750, 50 Delay 2000 LeftClick 1 Delay 3000 SayString "fosou.cn/whzwwy/" //指定网站 Delay 2000 KeyPress "Enter", 1 Delay 4000 MoveTo 1175, 95 Delay 2000 LeftClick 1 Delay 3000 MoveTo 600, 470 Delay 2000 LeftClick 1 Delay 4000 MoveTo 246, 290 //社会栏目 //娱乐 246,210 //影视 246,250 //社会 246,290 //奇闻 246,330 Delay 4000 LeftClick 1 Delay 4000 MoveTo 150, 100 For 10 Delay 5000 GetColor=GetPixelColor(310,200) If GetColor = "CC9900" Then TracePrint "找到该点红色" Else Delay 1000 喵码 = "tHuDG40" Set objXML=CreateObject("Microsoft.XMLHTTP") objXML.Open "Get", "https://miaotixing.com/trigger?id="+喵码+"&text=社会多站———没有找到添加按纽" , False objXML.send Delay 1000 //MessageBox "没有找到添加按纽"//没有找到添加按纽停止 Delay 1000 Goto fosou Delay 5000 EndScript //停止脚本 End If MoveTo 275, 200 //点击文章 Delay 1000 LeftClick 1 Delay 4000 MoveTo 1245, 108 //点本地文件 Delay 2000 LeftClick 1 Delay 2000 //如果出现弹出框 Delay 5000 GetColor=GetPixelColor(500,400) If GetColor = "F0F0F0" Then TracePrint "找到该点红色" Delay 2000 KeyPress "Enter", 1 Else Delay 1000 End If //如果出现弹出框End Delay 4000 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 喵码 = "tHuDG40" Set objXML=CreateObject("Microsoft.XMLHTTP") objXML.Open "Get", "https://miaotixing.com/trigger?id="+喵码+"&text=社会多站———没有文章了" , False objXML.send Delay 2000 Goto lishiz //MessageBox "没有文章了" Delay 1000 EndScript //停止脚本 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 // // LeftUp 1 //文章页拉到最底下 // KeyPress "Down", 10 Delay 2000 // 点击HTML MoveTo 352, 525 //HTML Delay 1000 LeftClick 1 Delay 2000 KeyDown 17, 1 KeyPress 86, 1 KeyUp 17, 1 Delay 2000 MoveTo 352, 525//HTML Delay 1000 LeftClick 1 Delay 2000 Delay 2000 MoveTo 920, 606//选中文章开头 LeftClick 1 Delay 2000 LeftDown 1 Delay 1000 Delay 1000 MoveTo 343, 606//鼠标放到文章开头 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, 222//标题 Delay 2000 LeftClick 1 Delay 2000 KeyDown 17, 1 KeyPress 86, 1 KeyUp 17, 1 Delay 1000 MouseWheel -7 Delay 2000 Delay 2000 MoveTo 442, 159//格式化文章 Delay 2000 LeftClick 1 Delay 2000 MoveTo 283, 640//保存文章 Delay 2000 LeftClick 1 Delay 19000 MoveTo 285, 306//点击记忆列表 Delay 10000 LeftClick 1 End If EndFor 喵码 = "tHuDG40" Set objXML=CreateObject("Microsoft.XMLHTTP") objXML.Open "Get", "https://miaotixing.com/trigger?id="+喵码+"&text=社会多站———发布 fosou.cn 完成10篇-社会-" , False objXML.send //----------------------------------------------------------------------------------------------------------------------------------------- //---- fosou.cn 结束------------------------------------------------------------------------------------------------------------------------------------- //------pitie.cn开始 //----------------------------------------------------------------------------------------------------------------------------------------- Rem pitie Delay 2000 RunApp "C:\kill.bat" Delay 2000 GetColor=GetPixelColor(700,100) If GetColor = "CC9900" Then TracePrint "找到该点浏览器继续运行" Else Delay 1000 MoveTo 1245, 78//点浏览器网站后台 Delay 2000 LeftClick 1 Delay 2000 End If Delay 5000 MoveTo 750, 50 Delay 2000 LeftClick 1 Delay 3000 SayString "pitie.cn/whzwwy/" //指定网站 Delay 2000 KeyPress "Enter", 1 Delay 4000 MoveTo 1175, 95 Delay 2000 LeftClick 1 Delay 3000 MoveTo 600, 470 Delay 2000 LeftClick 1 Delay 4000 MoveTo 246, 290 //社会栏目 //娱乐 246,210 //影视 246,250 //社会 246,290 //奇闻 246,330 Delay 4000 LeftClick 1 Delay 4000 MoveTo 150, 100 For 10 Delay 5000 GetColor=GetPixelColor(310,200) If GetColor = "CC9900" Then TracePrint "找到该点红色" Else Delay 1000 喵码 = "tHuDG40" Set objXML=CreateObject("Microsoft.XMLHTTP") objXML.Open "Get", "https://miaotixing.com/trigger?id="+喵码+"&text=社会多站———没有找到添加按纽" , False objXML.send Delay 1000 //MessageBox "没有找到添加按纽"//没有找到添加按纽停止 Delay 1000 Goto pitie Delay 5000 EndScript //停止脚本 End If MoveTo 275, 200 //点击文章 Delay 1000 LeftClick 1 Delay 4000 MoveTo 1245, 108 //点本地文件 Delay 2000 LeftClick 1 Delay 2000 //如果出现弹出框 Delay 5000 GetColor=GetPixelColor(500,400) If GetColor = "F0F0F0" Then TracePrint "找到该点红色" Delay 2000 KeyPress "Enter", 1 Else Delay 1000 End If //如果出现弹出框End Delay 4000 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 喵码 = "tHuDG40" Set objXML=CreateObject("Microsoft.XMLHTTP") objXML.Open "Get", "https://miaotixing.com/trigger?id="+喵码+"&text=社会多站———没有文章了" , False objXML.send Delay 2000 Goto lishiz //MessageBox "没有文章了" Delay 1000 EndScript //停止脚本 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 // // MoveTo 1198, 250//选拉动条拉滚动条 // Delay 2000 // LeftDown 1 // Delay 1000 // MoveTo 1198, 650 // Delay 1000 // LeftUp 1 //文章页拉到最底下 // KeyPress "Down", 10 Delay 2000 // 点击HTML MoveTo 352, 525 //HTML Delay 1000 LeftClick 1 Delay 2000 KeyDown 17, 1 KeyPress 86, 1 KeyUp 17, 1 Delay 2000 MoveTo 352, 525//HTML Delay 1000 LeftClick 1 Delay 2000 Delay 2000 MoveTo 920, 606//选中文章开头 LeftClick 1 Delay 2000 LeftDown 1 Delay 1000 Delay 1000 MoveTo 343, 606//鼠标放到文章开头 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, 222//标题 Delay 2000 LeftClick 1 Delay 2000 KeyDown 17, 1 KeyPress 86, 1 KeyUp 17, 1 Delay 1000 MouseWheel -7 Delay 2000 Delay 2000 MoveTo 442, 159//格式化文章 Delay 2000 LeftClick 1 Delay 2000 MoveTo 283, 640//保存文章 Delay 2000 LeftClick 1 Delay 19000 MoveTo 285, 306//点击记忆列表 Delay 10000 LeftClick 1 End If EndFor 喵码 = "tHuDG40" Set objXML=CreateObject("Microsoft.XMLHTTP") objXML.Open "Get", "https://miaotixing.com/trigger?id="+喵码+"&text=社会多站———发布 pitie.cn 完成10篇-社会-" , False objXML.send //----------------------------------------------------------------------------------------------------------------------------------------- //----pitie.cn结束------------------------------------------------------------------------------------------------------------------------------------- //------zahao.cn开始 //----------------------------------------------------------------------------------------------------------------------------------------- Rem zahao Delay 2000 RunApp "C:\kill.bat" Delay 2000 GetColor=GetPixelColor(700,100) If GetColor = "CC9900" Then TracePrint "找到该点浏览器继续运行" Else Delay 1000 MoveTo 1245, 78//点浏览器网站后台 Delay 2000 LeftClick 1 Delay 2000 End If Delay 5000 MoveTo 750, 50 Delay 2000 LeftClick 1 Delay 3000 SayString "zahao.cn/whzwwy/" //指定网站 Delay 2000 KeyPress "Enter", 1 Delay 4000 MoveTo 1175, 95 Delay 2000 LeftClick 1 Delay 3000 MoveTo 600, 470 Delay 2000 LeftClick 1 Delay 4000 MoveTo 246, 290 //社会栏目 //娱乐 246,210 //影视 246,250 //社会 246,290 //奇闻 246,330 Delay 4000 LeftClick 1 Delay 4000 MoveTo 150, 100 For 10 Delay 5000 GetColor=GetPixelColor(310,200) If GetColor = "CC9900" Then TracePrint "找到该点红色" Else Delay 1000 喵码 = "tHuDG40" Set objXML=CreateObject("Microsoft.XMLHTTP") objXML.Open "Get", "https://miaotixing.com/trigger?id="+喵码+"&text=社会多站———没有找到添加按纽" , False objXML.send Delay 1000 //MessageBox "没有找到添加按纽"//没有找到添加按纽停止 Delay 1000 Goto zahao Delay 5000 EndScript //停止脚本 End If MoveTo 275, 200 //点击文章 Delay 1000 LeftClick 1 Delay 4000 MoveTo 1245, 108 //点本地文件 Delay 2000 LeftClick 1 Delay 2000 //如果出现弹出框 Delay 5000 GetColor=GetPixelColor(500,400) If GetColor = "F0F0F0" Then TracePrint "找到该点红色" Delay 2000 KeyPress "Enter", 1 Else Delay 1000 End If //如果出现弹出框End Delay 4000 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 喵码 = "tHuDG40" Set objXML=CreateObject("Microsoft.XMLHTTP") objXML.Open "Get", "https://miaotixing.com/trigger?id="+喵码+"&text=社会多站———没有文章了" , False objXML.send Delay 2000 Goto lishiz //MessageBox "没有文章了" Delay 1000 EndScript //停止脚本 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 // // MoveTo 1198, 250//选拉动条拉滚动条 // Delay 2000 // LeftDown 1 // Delay 1000 // MoveTo 1198, 650 // Delay 1000 // LeftUp 1 //文章页拉到最底下 // KeyPress "Down", 10 Delay 2000 // 点击HTML MoveTo 352, 525 //HTML Delay 1000 LeftClick 1 Delay 2000 KeyDown 17, 1 KeyPress 86, 1 KeyUp 17, 1 Delay 2000 MoveTo 352, 525//HTML Delay 1000 LeftClick 1 Delay 2000 Delay 2000 MoveTo 920, 606//选中文章开头 LeftClick 1 Delay 2000 LeftDown 1 Delay 1000 Delay 1000 MoveTo 343, 606//鼠标放到文章开头 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, 222//标题 Delay 2000 LeftClick 1 Delay 2000 KeyDown 17, 1 KeyPress 86, 1 KeyUp 17, 1 Delay 1000 MouseWheel -7 Delay 2000 Delay 2000 MoveTo 442, 159//格式化文章 Delay 2000 LeftClick 1 Delay 2000 MoveTo 283, 640//保存文章 Delay 2000 LeftClick 1 Delay 19000 MoveTo 285, 306//点击记忆列表 Delay 10000 LeftClick 1 End If EndFor 喵码 = "tHuDG40" Set objXML=CreateObject("Microsoft.XMLHTTP") objXML.Open "Get", "https://miaotixing.com/trigger?id="+喵码+"&text=社会多站———发布 zahao.cn 完成10篇-社会-" , False objXML.send //----------------------------------------------------------------------------------------------------------------------------------------- //----zahao.cn结束------------------------------------------------------------------------------------------------------------------------------------- //------qinzai.cn开始 //----------------------------------------------------------------------------------------------------------------------------------------- Rem qinzai Delay 2000 RunApp "C:\kill.bat" Delay 2000 GetColor=GetPixelColor(700,100) If GetColor = "CC9900" Then TracePrint "找到该点浏览器继续运行" Else Delay 1000 MoveTo 1245, 78//点浏览器网站后台 Delay 2000 LeftClick 1 Delay 2000 End If Delay 5000 MoveTo 750, 50 Delay 2000 LeftClick 1 Delay 3000 SayString "qinzai.cn/whzwwy/" //指定网站 Delay 2000 KeyPress "Enter", 1 Delay 4000 MoveTo 1175, 95 Delay 2000 LeftClick 1 Delay 3000 MoveTo 600, 470 Delay 2000 LeftClick 1 Delay 4000 MoveTo 246, 290 //社会栏目 //娱乐 246,210 //影视 246,250 //社会 246,290 //奇闻 246,330 Delay 4000 LeftClick 1 Delay 4000 MoveTo 150, 100 For 10 Delay 5000 GetColor=GetPixelColor(310,200) If GetColor = "CC9900" Then TracePrint "找到该点红色" Else Delay 1000 喵码 = "tHuDG40" Set objXML=CreateObject("Microsoft.XMLHTTP") objXML.Open "Get", "https://miaotixing.com/trigger?id="+喵码+"&text=社会多站———没有找到添加按纽" , False objXML.send Delay 1000 //MessageBox "没有找到添加按纽"//没有找到添加按纽停止 Delay 1000 Goto qinzai Delay 5000 EndScript //停止脚本 End If MoveTo 275, 200 //点击文章 Delay 1000 LeftClick 1 Delay 4000 MoveTo 1245, 108 //点本地文件 Delay 2000 LeftClick 1 Delay 2000 //如果出现弹出框 Delay 5000 GetColor=GetPixelColor(500,400) If GetColor = "F0F0F0" Then TracePrint "找到该点红色" Delay 2000 KeyPress "Enter", 1 Else Delay 1000 End If //如果出现弹出框End Delay 4000 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 喵码 = "tHuDG40" Set objXML=CreateObject("Microsoft.XMLHTTP") objXML.Open "Get", "https://miaotixing.com/trigger?id="+喵码+"&text=社会多站———没有文章了" , False objXML.send Delay 2000 Goto lishiz //MessageBox "没有文章了" Delay 1000 EndScript //停止脚本 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 // // MoveTo 1198, 250//选拉动条拉滚动条 // Delay 2000 // LeftDown 1 // Delay 1000 // MoveTo 1198, 650 // Delay 1000 // LeftUp 1 //文章页拉到最底下 // KeyPress "Down", 10 Delay 2000 // 点击HTML MoveTo 352, 525 //HTML Delay 1000 LeftClick 1 Delay 2000 KeyDown 17, 1 KeyPress 86, 1 KeyUp 17, 1 Delay 2000 MoveTo 352, 525//HTML Delay 1000 LeftClick 1 Delay 2000 Delay 2000 MoveTo 920, 606//选中文章开头 LeftClick 1 Delay 2000 LeftDown 1 Delay 1000 Delay 1000 MoveTo 343, 606//鼠标放到文章开头 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, 222//标题 Delay 2000 LeftClick 1 Delay 2000 KeyDown 17, 1 KeyPress 86, 1 KeyUp 17, 1 Delay 1000 MouseWheel -7 Delay 2000 Delay 2000 MoveTo 442, 159//格式化文章 Delay 2000 LeftClick 1 Delay 2000 MoveTo 283, 640//保存文章 Delay 2000 LeftClick 1 Delay 19000 MoveTo 285, 306//点击记忆列表 Delay 10000 LeftClick 1 End If EndFor 喵码 = "tHuDG40" Set objXML=CreateObject("Microsoft.XMLHTTP") objXML.Open "Get", "https://miaotixing.com/trigger?id="+喵码+"&text=社会多站———发布 qinzai.cn 完成10篇-社会-" , False objXML.send //----------------------------------------------------------------------------------------------------------------------------------------- //----qinzai.cn结束------------------------------------------------------------------------------------------------------------------------------------- //------ tuhen.cn 开始 //----------------------------------------------------------------------------------------------------------------------------------------- Rem tuhen Delay 2000 RunApp "C:\kill.bat" Delay 2000 GetColor=GetPixelColor(700,100) If GetColor = "CC9900" Then TracePrint "找到该点浏览器继续运行" Else Delay 1000 MoveTo 1245, 78//点浏览器网站后台 Delay 2000 LeftClick 1 Delay 2000 End If Delay 5000 MoveTo 750, 50 Delay 2000 LeftClick 1 Delay 3000 SayString "tuhen.cn/whzwwy/" //指定网站 Delay 2000 KeyPress "Enter", 1 Delay 4000 MoveTo 1175, 95 Delay 2000 LeftClick 1 Delay 3000 MoveTo 600, 470 Delay 2000 LeftClick 1 Delay 4000 MoveTo 246, 290 //社会栏目 //娱乐 246,210 //影视 246,250 //社会 246,290 //奇闻 246,330 Delay 4000 LeftClick 1 Delay 4000 MoveTo 150, 100 For 10 Delay 5000 GetColor=GetPixelColor(310,200) If GetColor = "CC9900" Then TracePrint "找到该点红色" Else Delay 1000 喵码 = "tHuDG40" Set objXML=CreateObject("Microsoft.XMLHTTP") objXML.Open "Get", "https://miaotixing.com/trigger?id="+喵码+"&text=社会多站———没有找到添加按纽" , False objXML.send Delay 1000 //MessageBox "没有找到添加按纽"//没有找到添加按纽停止 Delay 1000 Goto tuhen Delay 5000 EndScript //停止脚本 End If MoveTo 275, 200 //点击文章 Delay 1000 LeftClick 1 Delay 4000 MoveTo 1245, 108 //点本地文件 Delay 2000 LeftClick 1 Delay 2000 //如果出现弹出框 Delay 5000 GetColor=GetPixelColor(500,400) If GetColor = "F0F0F0" Then TracePrint "找到该点红色" Delay 2000 KeyPress "Enter", 1 Else Delay 1000 End If //如果出现弹出框End Delay 4000 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 喵码 = "tHuDG40" Set objXML=CreateObject("Microsoft.XMLHTTP") objXML.Open "Get", "https://miaotixing.com/trigger?id="+喵码+"&text=社会多站———没有文章了" , False objXML.send Delay 2000 Goto lishiz //MessageBox "没有文章了" Delay 1000 EndScript //停止脚本 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 // // MoveTo 1198, 250//选拉动条拉滚动条 // Delay 2000 // LeftDown 1 // Delay 1000 // MoveTo 1198, 650 // Delay 1000 // LeftUp 1 //文章页拉到最底下 // KeyPress "Down", 10 Delay 2000 // 点击HTML MoveTo 352, 525 //HTML Delay 1000 LeftClick 1 Delay 2000 KeyDown 17, 1 KeyPress 86, 1 KeyUp 17, 1 Delay 2000 MoveTo 352, 525//HTML Delay 1000 LeftClick 1 Delay 2000 Delay 2000 MoveTo 920, 606//选中文章开头 LeftClick 1 Delay 2000 LeftDown 1 Delay 1000 Delay 1000 MoveTo 343, 606//鼠标放到文章开头 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, 222//标题 Delay 2000 LeftClick 1 Delay 2000 KeyDown 17, 1 KeyPress 86, 1 KeyUp 17, 1 Delay 1000 MouseWheel -7 Delay 2000 Delay 2000 MoveTo 442, 159//格式化文章 Delay 2000 LeftClick 1 Delay 2000 MoveTo 283, 640//保存文章 Delay 2000 LeftClick 1 Delay 19000 MoveTo 285, 306//点击记忆列表 Delay 10000 LeftClick 1 End If EndFor 喵码 = "tHuDG40" Set objXML=CreateObject("Microsoft.XMLHTTP") objXML.Open "Get", "https://miaotixing.com/trigger?id="+喵码+"&text=社会多站———发布 tuhen.cn 完成10篇-社会-" , False objXML.send //----------------------------------------------------------------------------------------------------------------------------------------- //---- tuhen.cn 结束------------------------------------------------------------------------------------------------------------------------------------- //------ zidang.cn 开始 //----------------------------------------------------------------------------------------------------------------------------------------- Rem zidang Delay 2000 RunApp "C:\kill.bat" Delay 2000 GetColor=GetPixelColor(700,100) If GetColor = "CC9900" Then TracePrint "找到该点浏览器继续运行" Else Delay 1000 MoveTo 1245, 78//点浏览器网站后台 Delay 2000 LeftClick 1 Delay 2000 End If Delay 5000 MoveTo 750, 50 Delay 2000 LeftClick 1 Delay 3000 SayString "zidang.cn/whzwwy/" //指定网站 Delay 2000 KeyPress "Enter", 1 Delay 4000 MoveTo 1175, 95 Delay 2000 LeftClick 1 Delay 3000 MoveTo 600, 470 Delay 2000 LeftClick 1 Delay 4000 MoveTo 246, 290 //社会栏目 //娱乐 246,210 //影视 246,250 //社会 246,290 //奇闻 246,330 Delay 4000 LeftClick 1 Delay 4000 MoveTo 150, 100 For 10 Delay 5000 GetColor=GetPixelColor(310,200) If GetColor = "CC9900" Then TracePrint "找到该点红色" Else Delay 1000 喵码 = "tHuDG40" Set objXML=CreateObject("Microsoft.XMLHTTP") objXML.Open "Get", "https://miaotixing.com/trigger?id="+喵码+"&text=社会多站———没有找到添加按纽" , False objXML.send Delay 1000 //MessageBox "没有找到添加按纽"//没有找到添加按纽停止 Delay 1000 Goto zidang Delay 5000 EndScript //停止脚本 End If MoveTo 275, 200 //点击文章 Delay 1000 LeftClick 1 Delay 4000 MoveTo 1245, 108 //点本地文件 Delay 2000 LeftClick 1 Delay 2000 //如果出现弹出框 Delay 5000 GetColor=GetPixelColor(500,400) If GetColor = "F0F0F0" Then TracePrint "找到该点红色" Delay 2000 KeyPress "Enter", 1 Else Delay 1000 End If //如果出现弹出框End Delay 4000 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 喵码 = "tHuDG40" Set objXML=CreateObject("Microsoft.XMLHTTP") objXML.Open "Get", "https://miaotixing.com/trigger?id="+喵码+"&text=社会多站———没有文章了" , False objXML.send Delay 2000 Goto lishiz //MessageBox "没有文章了" Delay 1000 EndScript //停止脚本 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 // // MoveTo 1198, 250//选拉动条拉滚动条 // Delay 2000 // LeftDown 1 // Delay 1000 // MoveTo 1198, 650 // Delay 1000 // LeftUp 1 //文章页拉到最底下 // KeyPress "Down", 10 Delay 2000 // 点击HTML MoveTo 352, 525 //HTML Delay 1000 LeftClick 1 Delay 2000 KeyDown 17, 1 KeyPress 86, 1 KeyUp 17, 1 Delay 2000 MoveTo 352, 525//HTML Delay 1000 LeftClick 1 Delay 2000 Delay 2000 MoveTo 920, 606//选中文章开头 LeftClick 1 Delay 2000 LeftDown 1 Delay 1000 Delay 1000 MoveTo 343, 606//鼠标放到文章开头 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, 222//标题 Delay 2000 LeftClick 1 Delay 2000 KeyDown 17, 1 KeyPress 86, 1 KeyUp 17, 1 Delay 1000 MouseWheel -7 Delay 2000 Delay 2000 MoveTo 442, 159//格式化文章 Delay 2000 LeftClick 1 Delay 2000 MoveTo 283, 640//保存文章 Delay 2000 LeftClick 1 Delay 19000 MoveTo 285, 306//点击记忆列表 Delay 10000 LeftClick 1 End If EndFor 喵码 = "tHuDG40" Set objXML=CreateObject("Microsoft.XMLHTTP") objXML.Open "Get", "https://miaotixing.com/trigger?id="+喵码+"&text=社会多站———发布 zidang.cn 完成10篇-社会-" , False objXML.send //----------------------------------------------------------------------------------------------------------------------------------------- //---- zidang.cn 结束------------------------------------------------------------------------------------------------------------------------------------- //------ whhwxt.com 开始 //----------------------------------------------------------------------------------------------------------------------------------------- Rem whhwxt Delay 2000 RunApp "C:\kill.bat" Delay 2000 GetColor=GetPixelColor(700,100) If GetColor = "CC9900" Then TracePrint "找到该点浏览器继续运行" Else Delay 1000 MoveTo 1245, 78//点浏览器网站后台 Delay 2000 LeftClick 1 Delay 2000 End If Delay 5000 MoveTo 750, 50 Delay 2000 LeftClick 1 Delay 3000 SayString "whhwxt.com/whzwwy/" //指定网站 Delay 2000 KeyPress "Enter", 1 Delay 4000 MoveTo 1175, 95 Delay 2000 LeftClick 1 Delay 3000 MoveTo 600, 470 Delay 2000 LeftClick 1 Delay 4000 MoveTo 246, 290 //社会栏目 //娱乐 246,210 //影视 246,250 //社会 246,290 //奇闻 246,330 Delay 4000 LeftClick 1 Delay 4000 MoveTo 150, 100 For 10 Delay 5000 GetColor=GetPixelColor(310,200) If GetColor = "CC9900" Then TracePrint "找到该点红色" Else Delay 1000 喵码 = "tHuDG40" Set objXML=CreateObject("Microsoft.XMLHTTP") objXML.Open "Get", "https://miaotixing.com/trigger?id="+喵码+"&text=社会多站———没有找到添加按纽" , False objXML.send Delay 1000 //MessageBox "没有找到添加按纽"//没有找到添加按纽停止 Delay 1000 Goto whhwxt Delay 5000 EndScript //停止脚本 End If MoveTo 275, 200 //点击文章 Delay 1000 LeftClick 1 Delay 4000 MoveTo 1245, 108 //点本地文件 Delay 2000 LeftClick 1 Delay 2000 //如果出现弹出框 Delay 5000 GetColor=GetPixelColor(500,400) If GetColor = "F0F0F0" Then TracePrint "找到该点红色" Delay 2000 KeyPress "Enter", 1 Else Delay 1000 End If //如果出现弹出框End Delay 4000 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 喵码 = "tHuDG40" Set objXML=CreateObject("Microsoft.XMLHTTP") objXML.Open "Get", "https://miaotixing.com/trigger?id="+喵码+"&text=社会多站———没有文章了" , False objXML.send Delay 2000 Goto lishiz //MessageBox "没有文章了" Delay 1000 EndScript //停止脚本 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 // // LeftUp 1 //文章页拉到最底下 // KeyPress "Down", 10 Delay 2000 // 点击HTML MoveTo 352, 525 //HTML Delay 1000 LeftClick 1 Delay 2000 KeyDown 17, 1 KeyPress 86, 1 KeyUp 17, 1 Delay 2000 MoveTo 352, 525//HTML Delay 1000 LeftClick 1 Delay 2000 Delay 2000 MoveTo 920, 606//选中文章开头 LeftClick 1 Delay 2000 LeftDown 1 Delay 1000 Delay 1000 MoveTo 343, 606//鼠标放到文章开头 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, 222//标题 Delay 2000 LeftClick 1 Delay 2000 KeyDown 17, 1 KeyPress 86, 1 KeyUp 17, 1 Delay 1000 MouseWheel -7 Delay 2000 Delay 2000 MoveTo 442, 159//格式化文章 Delay 2000 LeftClick 1 Delay 2000 MoveTo 283, 640//保存文章 Delay 2000 LeftClick 1 Delay 19000 MoveTo 285, 306//点击记忆列表 Delay 10000 LeftClick 1 End If EndFor 喵码 = "tHuDG40" Set objXML=CreateObject("Microsoft.XMLHTTP") objXML.Open "Get", "https://miaotixing.com/trigger?id="+喵码+"&text=社会多站———发布 whhwxt.com 完成10篇-社会-" , False objXML.send //----------------------------------------------------------------------------------------------------------------------------------------- Rem whhwxtcc //---- whhwxt.com 结束------------------------------------------------------------------------------------------------------------------------------------- //------ wuhanyongchun.com 开始 //----------------------------------------------------------------------------------------------------------------------------------------- Rem wuhanyongchun Delay 2000 RunApp "C:\kill.bat" Delay 2000 GetColor=GetPixelColor(700,100) If GetColor = "CC9900" Then TracePrint "找到该点浏览器继续运行" Else Delay 1000 MoveTo 1245, 78//点浏览器网站后台 Delay 2000 LeftClick 1 Delay 2000 End If Delay 5000 MoveTo 750, 50 Delay 2000 LeftClick 1 Delay 3000 SayString "wuhanyongchun.com/whzwwy/" //指定网站 Delay 2000 KeyPress "Enter", 1 Delay 4000 MoveTo 1175, 95 Delay 2000 LeftClick 1 Delay 3000 MoveTo 600, 470 Delay 2000 LeftClick 1 Delay 4000 MoveTo 246, 290 //社会栏目 //娱乐 246,210 //影视 246,250 //社会 246,290 //奇闻 246,330 Delay 4000 LeftClick 1 Delay 4000 MoveTo 150, 100 For 10 Delay 5000 GetColor=GetPixelColor(310,200) If GetColor = "CC9900" Then TracePrint "找到该点红色" Else Delay 1000 喵码 = "tHuDG40" Set objXML=CreateObject("Microsoft.XMLHTTP") objXML.Open "Get", "https://miaotixing.com/trigger?id="+喵码+"&text=社会多站———没有找到添加按纽" , False objXML.send Delay 1000 //MessageBox "没有找到添加按纽"//没有找到添加按纽停止 Delay 1000 Goto wuhanyongchun Delay 5000 EndScript //停止脚本 End If MoveTo 275, 200 //点击文章 Delay 1000 LeftClick 1 Delay 4000 MoveTo 1245, 108 //点本地文件 Delay 2000 LeftClick 1 Delay 2000 //如果出现弹出框 Delay 5000 GetColor=GetPixelColor(500,400) If GetColor = "F0F0F0" Then TracePrint "找到该点红色" Delay 2000 KeyPress "Enter", 1 Else Delay 1000 End If //如果出现弹出框End Delay 4000 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 喵码 = "tHuDG40" Set objXML=CreateObject("Microsoft.XMLHTTP") objXML.Open "Get", "https://miaotixing.com/trigger?id="+喵码+"&text=社会多站———没有文章了" , False objXML.send Delay 2000 Goto lishiz //MessageBox "没有文章了" Delay 1000 EndScript //停止脚本 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 // // LeftUp 1 //文章页拉到最底下 // KeyPress "Down", 10 Delay 2000 // 点击HTML MoveTo 352, 525 //HTML Delay 1000 LeftClick 1 Delay 2000 KeyDown 17, 1 KeyPress 86, 1 KeyUp 17, 1 Delay 2000 MoveTo 352, 525//HTML Delay 1000 LeftClick 1 Delay 2000 Delay 2000 MoveTo 920, 606//选中文章开头 LeftClick 1 Delay 2000 LeftDown 1 Delay 1000 Delay 1000 MoveTo 343, 606//鼠标放到文章开头 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, 222//标题 Delay 2000 LeftClick 1 Delay 2000 KeyDown 17, 1 KeyPress 86, 1 KeyUp 17, 1 Delay 1000 MouseWheel -7 Delay 2000 Delay 2000 MoveTo 442, 159//格式化文章 Delay 2000 LeftClick 1 Delay 2000 MoveTo 283, 640//保存文章 Delay 2000 LeftClick 1 Delay 19000 MoveTo 285, 306//点击记忆列表 Delay 10000 LeftClick 1 End If EndFor 喵码 = "tHuDG40" Set objXML=CreateObject("Microsoft.XMLHTTP") objXML.Open "Get", "https://miaotixing.com/trigger?id="+喵码+"&text=社会多站———发布 wuhanyongchun.com 完成10篇-社会-" , False objXML.send //----------------------------------------------------------------------------------------------------------------------------------------- Rem wuhanyongchuncc //---- wuhanyongchun.com 结束------------------------------------------------------------------------------------------------------------------------------------- //------ liruilawyer.com 开始 //----------------------------------------------------------------------------------------------------------------------------------------- Rem liruilawyer Delay 2000 RunApp "C:\kill.bat" Delay 2000 GetColor=GetPixelColor(700,100) If GetColor = "CC9900" Then TracePrint "找到该点浏览器继续运行" Else Delay 1000 MoveTo 1245, 78//点浏览器网站后台 Delay 2000 LeftClick 1 Delay 2000 End If Delay 5000 MoveTo 750, 50 Delay 2000 LeftClick 1 Delay 3000 SayString "liruilawyer.com/whzwwy/" //指定网站 Delay 2000 KeyPress "Enter", 1 Delay 4000 MoveTo 1175, 95 Delay 2000 LeftClick 1 Delay 3000 MoveTo 600, 470 Delay 2000 LeftClick 1 Delay 4000 MoveTo 246, 290 //社会栏目 //娱乐 246,210 //影视 246,250 //社会 246,290 //奇闻 246,330 Delay 4000 LeftClick 1 Delay 4000 MoveTo 150, 100 For 10 Delay 5000 GetColor=GetPixelColor(310,200) If GetColor = "CC9900" Then TracePrint "找到该点红色" Else Delay 1000 喵码 = "tHuDG40" Set objXML=CreateObject("Microsoft.XMLHTTP") objXML.Open "Get", "https://miaotixing.com/trigger?id="+喵码+"&text=社会多站———没有找到添加按纽" , False objXML.send Delay 1000 //MessageBox "没有找到添加按纽"//没有找到添加按纽停止 Delay 1000 Goto liruilawyer Delay 5000 EndScript //停止脚本 End If MoveTo 275, 200 //点击文章 Delay 1000 LeftClick 1 Delay 4000 MoveTo 1245, 108 //点本地文件 Delay 2000 LeftClick 1 Delay 2000 //如果出现弹出框 Delay 5000 GetColor=GetPixelColor(500,400) If GetColor = "F0F0F0" Then TracePrint "找到该点红色" Delay 2000 KeyPress "Enter", 1 Else Delay 1000 End If //如果出现弹出框End Delay 4000 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 喵码 = "tHuDG40" Set objXML=CreateObject("Microsoft.XMLHTTP") objXML.Open "Get", "https://miaotixing.com/trigger?id="+喵码+"&text=社会多站———没有文章了" , False objXML.send Delay 2000 Goto lishiz //MessageBox "没有文章了" Delay 1000 EndScript //停止脚本 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 // // LeftUp 1 //文章页拉到最底下 // KeyPress "Down", 10 Delay 2000 // 点击HTML MoveTo 352, 525 //HTML Delay 1000 LeftClick 1 Delay 2000 KeyDown 17, 1 KeyPress 86, 1 KeyUp 17, 1 Delay 2000 MoveTo 352, 525//HTML Delay 1000 LeftClick 1 Delay 2000 Delay 2000 MoveTo 920, 606//选中文章开头 LeftClick 1 Delay 2000 LeftDown 1 Delay 1000 Delay 1000 MoveTo 343, 606//鼠标放到文章开头 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, 222//标题 Delay 2000 LeftClick 1 Delay 2000 KeyDown 17, 1 KeyPress 86, 1 KeyUp 17, 1 Delay 1000 MouseWheel -7 Delay 2000 Delay 2000 MoveTo 442, 159//格式化文章 Delay 2000 LeftClick 1 Delay 2000 MoveTo 283, 640//保存文章 Delay 2000 LeftClick 1 Delay 19000 MoveTo 285, 306//点击记忆列表 Delay 10000 LeftClick 1 End If EndFor 喵码 = "tHuDG40" Set objXML=CreateObject("Microsoft.XMLHTTP") objXML.Open "Get", "https://miaotixing.com/trigger?id="+喵码+"&text=社会多站———发布 liruilawyer.com 完成10篇-社会-" , False objXML.send //----------------------------------------------------------------------------------------------------------------------------------------- Rem liruilawyercc //---- liruilawyer.com 结束------------------------------------------------------------------------------------------------------------------------------------- //------ whpingtai.com 开始 //----------------------------------------------------------------------------------------------------------------------------------------- Rem whpingtai Delay 2000 RunApp "C:\kill.bat" Delay 2000 GetColor=GetPixelColor(700,100) If GetColor = "CC9900" Then TracePrint "找到该点浏览器继续运行" Else Delay 1000 MoveTo 1245, 78//点浏览器网站后台 Delay 2000 LeftClick 1 Delay 2000 End If Delay 5000 MoveTo 750, 50 Delay 2000 LeftClick 1 Delay 3000 SayString "whpingtai.com/whzwwy/" //指定网站 Delay 2000 KeyPress "Enter", 1 Delay 4000 MoveTo 1175, 95 Delay 2000 LeftClick 1 Delay 3000 MoveTo 600, 470 Delay 2000 LeftClick 1 Delay 4000 MoveTo 246, 290 //社会栏目 //娱乐 246,210 //影视 246,250 //社会 246,290 //奇闻 246,330 Delay 4000 LeftClick 1 Delay 4000 MoveTo 150, 100 For 10 Delay 5000 GetColor=GetPixelColor(310,200) If GetColor = "CC9900" Then TracePrint "找到该点红色" Else Delay 1000 喵码 = "tHuDG40" Set objXML=CreateObject("Microsoft.XMLHTTP") objXML.Open "Get", "https://miaotixing.com/trigger?id="+喵码+"&text=社会多站———没有找到添加按纽" , False objXML.send Delay 1000 //MessageBox "没有找到添加按纽"//没有找到添加按纽停止 Delay 1000 Goto whpingtai Delay 5000 EndScript //停止脚本 End If MoveTo 275, 200 //点击文章 Delay 1000 LeftClick 1 Delay 4000 MoveTo 1245, 108 //点本地文件 Delay 2000 LeftClick 1 Delay 2000 //如果出现弹出框 Delay 5000 GetColor=GetPixelColor(500,400) If GetColor = "F0F0F0" Then TracePrint "找到该点红色" Delay 2000 KeyPress "Enter", 1 Else Delay 1000 End If //如果出现弹出框End Delay 4000 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 喵码 = "tHuDG40" Set objXML=CreateObject("Microsoft.XMLHTTP") objXML.Open "Get", "https://miaotixing.com/trigger?id="+喵码+"&text=社会多站———没有文章了" , False objXML.send Delay 2000 Goto lishiz //MessageBox "没有文章了" Delay 1000 EndScript //停止脚本 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 // // LeftUp 1 //文章页拉到最底下 // KeyPress "Down", 10 Delay 2000 // 点击HTML MoveTo 352, 525 //HTML Delay 1000 LeftClick 1 Delay 2000 KeyDown 17, 1 KeyPress 86, 1 KeyUp 17, 1 Delay 2000 MoveTo 352, 525//HTML Delay 1000 LeftClick 1 Delay 2000 Delay 2000 MoveTo 920, 606//选中文章开头 LeftClick 1 Delay 2000 LeftDown 1 Delay 1000 Delay 1000 MoveTo 343, 606//鼠标放到文章开头 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, 222//标题 Delay 2000 LeftClick 1 Delay 2000 KeyDown 17, 1 KeyPress 86, 1 KeyUp 17, 1 Delay 1000 MouseWheel -7 Delay 2000 Delay 2000 MoveTo 442, 159//格式化文章 Delay 2000 LeftClick 1 Delay 2000 MoveTo 283, 640//保存文章 Delay 2000 LeftClick 1 Delay 19000 MoveTo 285, 306//点击记忆列表 Delay 10000 LeftClick 1 End If EndFor 喵码 = "tHuDG40" Set objXML=CreateObject("Microsoft.XMLHTTP") objXML.Open "Get", "https://miaotixing.com/trigger?id="+喵码+"&text=社会多站———发布 whpingtai.com 完成10篇-社会-" , False objXML.send //----------------------------------------------------------------------------------------------------------------------------------------- Rem whpingtaicc //---- whpingtai.com 结束------------------------------------------------------------------------------------------------------------------------------------- //------ fenghailawfirm.cn 开始 //----------------------------------------------------------------------------------------------------------------------------------------- Rem fenghailawfirm Delay 2000 RunApp "C:\kill.bat" Delay 2000 GetColor=GetPixelColor(700,100) If GetColor = "CC9900" Then TracePrint "找到该点浏览器继续运行" Else Delay 1000 MoveTo 1245, 78//点浏览器网站后台 Delay 2000 LeftClick 1 Delay 2000 End If Delay 5000 MoveTo 750, 50 Delay 2000 LeftClick 1 Delay 3000 SayString "fenghailawfirm.cn/whzwwy/" //指定网站 Delay 2000 KeyPress "Enter", 1 Delay 4000 MoveTo 1175, 95 Delay 2000 LeftClick 1 Delay 3000 MoveTo 600, 470 Delay 2000 LeftClick 1 Delay 4000 MoveTo 246, 290 //社会栏目 //娱乐 246,210 //影视 246,250 //社会 246,290 //奇闻 246,330 Delay 4000 LeftClick 1 Delay 4000 MoveTo 150, 100 For 10 Delay 5000 GetColor=GetPixelColor(310,200) If GetColor = "CC9900" Then TracePrint "找到该点红色" Else Delay 1000 喵码 = "tHuDG40" Set objXML=CreateObject("Microsoft.XMLHTTP") objXML.Open "Get", "https://miaotixing.com/trigger?id="+喵码+"&text=社会多站———没有找到添加按纽" , False objXML.send Delay 1000 //MessageBox "没有找到添加按纽"//没有找到添加按纽停止 Delay 1000 Goto fenghailawfirm Delay 5000 EndScript //停止脚本 End If MoveTo 275, 200 //点击文章 Delay 1000 LeftClick 1 Delay 4000 MoveTo 1245, 108 //点本地文件 Delay 2000 LeftClick 1 Delay 2000 //如果出现弹出框 Delay 5000 GetColor=GetPixelColor(500,400) If GetColor = "F0F0F0" Then TracePrint "找到该点红色" Delay 2000 KeyPress "Enter", 1 Else Delay 1000 End If //如果出现弹出框End Delay 4000 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 喵码 = "tHuDG40" Set objXML=CreateObject("Microsoft.XMLHTTP") objXML.Open "Get", "https://miaotixing.com/trigger?id="+喵码+"&text=社会多站———没有文章了" , False objXML.send Delay 2000 Goto lishiz //MessageBox "没有文章了" Delay 1000 EndScript //停止脚本 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 // // LeftUp 1 //文章页拉到最底下 // KeyPress "Down", 10 Delay 2000 // 点击HTML MoveTo 352, 525 //HTML Delay 1000 LeftClick 1 Delay 2000 KeyDown 17, 1 KeyPress 86, 1 KeyUp 17, 1 Delay 2000 MoveTo 352, 525//HTML Delay 1000 LeftClick 1 Delay 2000 Delay 2000 MoveTo 920, 606//选中文章开头 LeftClick 1 Delay 2000 LeftDown 1 Delay 1000 Delay 1000 MoveTo 343, 606//鼠标放到文章开头 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, 222//标题 Delay 2000 LeftClick 1 Delay 2000 KeyDown 17, 1 KeyPress 86, 1 KeyUp 17, 1 Delay 1000 MouseWheel -7 Delay 2000 Delay 2000 MoveTo 442, 159//格式化文章 Delay 2000 LeftClick 1 Delay 2000 MoveTo 283, 640//保存文章 Delay 2000 LeftClick 1 Delay 19000 MoveTo 285, 306//点击记忆列表 Delay 10000 LeftClick 1 End If EndFor 喵码 = "tHuDG40" Set objXML=CreateObject("Microsoft.XMLHTTP") objXML.Open "Get", "https://miaotixing.com/trigger?id="+喵码+"&text=社会多站———发布 fenghailawfirm.cn 完成10篇-社会-" , False objXML.send //----------------------------------------------------------------------------------------------------------------------------------------- Rem fenghailawfirmcc //---- fenghailawfirm.cn 结束------------------------------------------------------------------------------------------------------------------------------------- //------ bayikang.com 开始 //----------------------------------------------------------------------------------------------------------------------------------------- Rem bayikang Delay 2000 RunApp "C:\kill.bat" Delay 2000 GetColor=GetPixelColor(700,100) If GetColor = "CC9900" Then TracePrint "找到该点浏览器继续运行" Else Delay 1000 MoveTo 1245, 78//点浏览器网站后台 Delay 2000 LeftClick 1 Delay 2000 End If Delay 5000 MoveTo 750, 50 Delay 2000 LeftClick 1 Delay 3000 SayString "bayikang.com/whzwwy/" //指定网站 Delay 2000 KeyPress "Enter", 1 Delay 4000 MoveTo 1175, 95 Delay 2000 LeftClick 1 Delay 3000 MoveTo 600, 470 Delay 2000 LeftClick 1 Delay 4000 MoveTo 246, 290 //社会栏目 //娱乐 246,210 //影视 246,250 //社会 246,290 //奇闻 246,330 Delay 4000 LeftClick 1 Delay 4000 MoveTo 150, 100 For 10 Delay 5000 GetColor=GetPixelColor(310,200) If GetColor = "CC9900" Then TracePrint "找到该点红色" Else Delay 1000 喵码 = "tHuDG40" Set objXML=CreateObject("Microsoft.XMLHTTP") objXML.Open "Get", "https://miaotixing.com/trigger?id="+喵码+"&text=社会多站———没有找到添加按纽" , False objXML.send Delay 1000 //MessageBox "没有找到添加按纽"//没有找到添加按纽停止 Delay 1000 Goto bayikang Delay 5000 EndScript //停止脚本 End If MoveTo 275, 200 //点击文章 Delay 1000 LeftClick 1 Delay 4000 MoveTo 1245, 108 //点本地文件 Delay 2000 LeftClick 1 Delay 2000 //如果出现弹出框 Delay 5000 GetColor=GetPixelColor(500,400) If GetColor = "F0F0F0" Then TracePrint "找到该点红色" Delay 2000 KeyPress "Enter", 1 Else Delay 1000 End If //如果出现弹出框End Delay 4000 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 喵码 = "tHuDG40" Set objXML=CreateObject("Microsoft.XMLHTTP") objXML.Open "Get", "https://miaotixing.com/trigger?id="+喵码+"&text=社会多站———没有文章了" , False objXML.send Delay 2000 Goto lishiz //MessageBox "没有文章了" Delay 1000 EndScript //停止脚本 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 // // LeftUp 1 //文章页拉到最底下 // KeyPress "Down", 10 Delay 2000 // 点击HTML MoveTo 352, 525 //HTML Delay 1000 LeftClick 1 Delay 2000 KeyDown 17, 1 KeyPress 86, 1 KeyUp 17, 1 Delay 2000 MoveTo 352, 525//HTML Delay 1000 LeftClick 1 Delay 2000 Delay 2000 MoveTo 920, 606//选中文章开头 LeftClick 1 Delay 2000 LeftDown 1 Delay 1000 Delay 1000 MoveTo 343, 606//鼠标放到文章开头 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, 222//标题 Delay 2000 LeftClick 1 Delay 2000 KeyDown 17, 1 KeyPress 86, 1 KeyUp 17, 1 Delay 1000 MouseWheel -7 Delay 2000 Delay 2000 MoveTo 442, 159//格式化文章 Delay 2000 LeftClick 1 Delay 2000 MoveTo 283, 640//保存文章 Delay 2000 LeftClick 1 Delay 19000 MoveTo 285, 306//点击记忆列表 Delay 10000 LeftClick 1 End If EndFor 喵码 = "tHuDG40" Set objXML=CreateObject("Microsoft.XMLHTTP") objXML.Open "Get", "https://miaotixing.com/trigger?id="+喵码+"&text=社会多站———发布 bayikang.com 完成10篇-社会-" , False objXML.send //----------------------------------------------------------------------------------------------------------------------------------------- Rem bayikangcc //---- bayikang.com 结束------------------------------------------------------------------------------------------------------------------------------------- //------结尾----------------------------------------------------------------------------------------------------------------------------------- Delay 100000 喵码 = "tHuDG40" Set objXML=CreateObject("Microsoft.XMLHTTP") objXML.Open "Get", "https://miaotixing.com/trigger?id="+喵码+"&text=社会多站———发布 -社会- 栏目全部完成" , False objXML.send //切换栏目----------------------------------------------------------------------------------------------------------------------------------------- Rem lishiz Delay 5000 MoveTo 1245, 108 //点本地文件 Delay 3500 MoveTo 1140, 108 //点本地文件 Delay 2000 LeftClick 1 Delay 2000 MoveTo 600, 35//点本地地址 Delay 4000 LeftClick 1 Delay 4000 SayString "\\192.168.2.5\本地新闻\历史" //本地指定栏目 Delay 2000 KeyPress "Enter", 1 Delay 4000 MoveTo 1245, 78 //点浏览器网站后台 Delay 2000 LeftClick 1 Delay 2000 //切换栏目----------------------------------------------------------------------------------------------------------------------------------------- //---------------------- //历史 //luexiu.com //xiumizhan.com //yulepc.com //wuhanyongchun.com //---------------------- //luexiu.com开始 //----------------------------------------------------------------------------------------------------------------------------------------- Delay 2000 RunApp "C:\kill.bat" Delay 2000 GetColor=GetPixelColor(700,100) If GetColor = "CC9900" Then TracePrint "找到该点浏览器继续运行" Else Delay 1000 MoveTo 1245, 78//点浏览器网站后台 Delay 2000 LeftClick 1 Delay 2000 End If Delay 5000 MoveTo 750, 50 Delay 2000 LeftClick 1 Delay 3000 SayString "luexiu.com/whzwwy/" //指定网站 Delay 2000 KeyPress "Enter", 1 Delay 4000 MoveTo 1175, 95 Delay 2000 LeftClick 1 Delay 3000 MoveTo 600, 470 Delay 2000 LeftClick 1 Delay 4000 MoveTo 246, 380 //历史栏目 //娱乐 246,210 //影视 246,250 //社会 246,290 //奇闻 246,330 Delay 4000 LeftClick 1 Delay 4000 MoveTo 150, 100 For 10 Delay 5000 GetColor=GetPixelColor(310,200) If GetColor = "CC9900" Then TracePrint "找到该点红色" Else Delay 1000 喵码 = "tHuDG40" Set objXML=CreateObject("Microsoft.XMLHTTP") objXML.Open "Get", "https://miaotixing.com/trigger?id="+喵码+"&text=社会多站———没有找到添加按纽" , False objXML.send Delay 1000 //MessageBox "没有找到添加按纽"//没有找到添加按纽停止 Delay 1000 Goto luexiux Delay 5000 EndScript //停止脚本 End If MoveTo 275, 200 //点击文章 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 喵码 = "tHuDG40" Set objXML=CreateObject("Microsoft.XMLHTTP") objXML.Open "Get", "https://miaotixing.com/trigger?id="+喵码+"&text=社会多站———没有文章了" , False objXML.send Delay 2000 Goto shehuoz //MessageBox "没有文章了" Delay 1000 EndScript //停止脚本 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 2000 // 点击HTML MoveTo 352, 525 //HTML Delay 1000 LeftClick 1 Delay 2000 KeyDown 17, 1 KeyPress 86, 1 KeyUp 17, 1 Delay 2000 MoveTo 352, 525//HTML Delay 1000 LeftClick 1 Delay 2000 Delay 2000 MoveTo 920, 606//选中文章开头 LeftClick 1 Delay 2000 LeftDown 1 Delay 1000 Delay 1000 MoveTo 343, 606//鼠标放到文章开头 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, 222//标题 Delay 2000 LeftClick 1 Delay 2000 KeyDown 17, 1 KeyPress 86, 1 KeyUp 17, 1 Delay 1000 MouseWheel -7 Delay 2000 Delay 2000 MoveTo 442, 159//格式化文章 Delay 2000 LeftClick 1 Delay 2000 MoveTo 283, 640//保存文章 Delay 2000 LeftClick 1 Delay 19000 MoveTo 285, 306//点击记忆列表 Delay 10000 LeftClick 1 End If EndFor 喵码 = "tHuDG40" Set objXML=CreateObject("Microsoft.XMLHTTP") objXML.Open "Get", "https://miaotixing.com/trigger?id="+喵码+"&text=社会多站———发布luexiu.com完成10篇-历史-" , False objXML.send Rem luexiux //----------------------------------------------------------------------------------------------------------------------------------------- //----luexiu.com结束------------------------------------------------------------------------------------------------------------------------------------- //xiumizhan.com开始 //----------------------------------------------------------------------------------------------------------------------------------------- Delay 2000 RunApp "C:\kill.bat" Delay 2000 GetColor=GetPixelColor(700,100) If GetColor = "CC9900" Then TracePrint "找到该点浏览器继续运行" Else Delay 1000 MoveTo 1245, 78//点浏览器网站后台 Delay 2000 LeftClick 1 Delay 2000 End If Delay 5000 MoveTo 750, 50 Delay 2000 LeftClick 1 Delay 3000 SayString "xiumizhan.com/whzwwy/" //指定网站 Delay 2000 KeyPress "Enter", 1 Delay 4000 MoveTo 1175, 95 Delay 2000 LeftClick 1 Delay 3000 MoveTo 600, 470 Delay 2000 LeftClick 1 Delay 4000 MoveTo 246, 380 //历史栏目 //娱乐 246,210 //影视 246,250 //社会 246,290 //奇闻 246,330 Delay 4000 LeftClick 1 Delay 4000 MoveTo 150, 100 For 10 Delay 5000 GetColor=GetPixelColor(310,200) If GetColor = "CC9900" Then TracePrint "找到该点红色" Else Delay 1000 喵码 = "tHuDG40" Set objXML=CreateObject("Microsoft.XMLHTTP") objXML.Open "Get", "https://miaotixing.com/trigger?id="+喵码+"&text=社会多站———没有找到添加按纽" , False objXML.send Delay 1000 //MessageBox "没有找到添加按纽"//没有找到添加按纽停止 Delay 1000 Goto xiumizhanx Delay 5000 EndScript //停止脚本 End If MoveTo 275, 200 //点击文章 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 喵码 = "tHuDG40" Set objXML=CreateObject("Microsoft.XMLHTTP") objXML.Open "Get", "https://miaotixing.com/trigger?id="+喵码+"&text=社会多站———没有文章了" , False objXML.send Delay 2000 Goto shehuoz //MessageBox "没有文章了" Delay 1000 EndScript //停止脚本 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 // // MoveTo 1198, 250//选拉动条拉滚动条 // Delay 2000 // LeftDown 1 // Delay 1000 // MoveTo 1198, 650 // Delay 1000 // LeftUp 1 //文章页拉到最底下 // KeyPress "Down", 10 Delay 2000 // 点击HTML MoveTo 352, 525 //HTML Delay 1000 LeftClick 1 Delay 2000 KeyDown 17, 1 KeyPress 86, 1 KeyUp 17, 1 Delay 2000 MoveTo 352, 525//HTML Delay 1000 LeftClick 1 Delay 2000 Delay 2000 MoveTo 920, 606//选中文章开头 LeftClick 1 Delay 2000 LeftDown 1 Delay 1000 Delay 1000 MoveTo 343, 606//鼠标放到文章开头 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, 222//标题 Delay 2000 LeftClick 1 Delay 2000 KeyDown 17, 1 KeyPress 86, 1 KeyUp 17, 1 Delay 1000 MouseWheel -7 Delay 2000 Delay 2000 MoveTo 442, 159//格式化文章 Delay 2000 LeftClick 1 Delay 2000 MoveTo 283, 640//保存文章 Delay 2000 LeftClick 1 Delay 19000 MoveTo 285, 306//点击记忆列表 Delay 10000 LeftClick 1 End If EndFor 喵码 = "tHuDG40" Set objXML=CreateObject("Microsoft.XMLHTTP") objXML.Open "Get", "https://miaotixing.com/trigger?id="+喵码+"&text=社会多站———发布xiumizhan.com完成10篇-历史-" , False objXML.send Rem xiumizhanx //----------------------------------------------------------------------------------------------------------------------------------------- //----xiumizhan.com结束------------------------------------------------------------------------------------------------------------------------------------- //------ yulepc.com 开始 //----------------------------------------------------------------------------------------------------------------------------------------- Delay 2000 RunApp "C:\kill.bat" Delay 2000 GetColor=GetPixelColor(700,100) If GetColor = "CC9900" Then TracePrint "找到该点浏览器继续运行" Else Delay 1000 MoveTo 1245, 78//点浏览器网站后台 Delay 2000 LeftClick 1 Delay 2000 End If Delay 5000 MoveTo 750, 50 Delay 2000 LeftClick 1 Delay 3000 SayString "yulepc.com/whzwwy/" //指定网站 Delay 2000 KeyPress "Enter", 1 Delay 4000 MoveTo 1175, 95 Delay 2000 LeftClick 1 Delay 3000 MoveTo 600, 470 Delay 2000 LeftClick 1 Delay 4000 MoveTo 246, 380 //历史栏目 //娱乐 246,210 //影视 246,250 //社会 246,290 //奇闻 246,330 Delay 4000 LeftClick 1 Delay 4000 MoveTo 150, 100 For 10 Delay 5000 GetColor=GetPixelColor(310,200) If GetColor = "CC9900" Then TracePrint "找到该点红色" Else Delay 1000 喵码 = "tHuDG40" Set objXML=CreateObject("Microsoft.XMLHTTP") objXML.Open "Get", "https://miaotixing.com/trigger?id="+喵码+"&text=社会多站———没有找到添加按纽" , False objXML.send Delay 1000 //MessageBox "没有找到添加按纽"//没有找到添加按纽停止 Delay 1000 Goto yulepcx Delay 5000 EndScript //停止脚本 End If MoveTo 275, 200 //点击文章 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 喵码 = "tHuDG40" Set objXML=CreateObject("Microsoft.XMLHTTP") objXML.Open "Get", "https://miaotixing.com/trigger?id="+喵码+"&text=社会多站———没有文章了" , False objXML.send Delay 2000 Goto shehuoz //MessageBox "没有文章了" Delay 1000 EndScript //停止脚本 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 // // MoveTo 1198, 250//选拉动条拉滚动条 // Delay 2000 // LeftDown 1 // Delay 1000 // MoveTo 1198, 650 // Delay 1000 // LeftUp 1 //文章页拉到最底下 // KeyPress "Down", 10 Delay 2000 // 点击HTML MoveTo 352, 525 //HTML Delay 1000 LeftClick 1 Delay 2000 KeyDown 17, 1 KeyPress 86, 1 KeyUp 17, 1 Delay 2000 MoveTo 352, 525//HTML Delay 1000 LeftClick 1 Delay 2000 Delay 2000 MoveTo 920, 606//选中文章开头 LeftClick 1 Delay 2000 LeftDown 1 Delay 1000 Delay 1000 MoveTo 343, 606//鼠标放到文章开头 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, 222//标题 Delay 2000 LeftClick 1 Delay 2000 KeyDown 17, 1 KeyPress 86, 1 KeyUp 17, 1 Delay 1000 MouseWheel -7 Delay 2000 Delay 2000 MoveTo 442, 159//格式化文章 Delay 2000 LeftClick 1 Delay 2000 MoveTo 283, 640//保存文章 Delay 2000 LeftClick 1 Delay 19000 MoveTo 285, 306//点击记忆列表 Delay 10000 LeftClick 1 End If EndFor 喵码 = "tHuDG40" Set objXML=CreateObject("Microsoft.XMLHTTP") objXML.Open "Get", "https://miaotixing.com/trigger?id="+喵码+"&text=社会多站———发布yulepc.com完成10篇-历史-" , False objXML.send Rem yulepcx //----------------------------------------------------------------------------------------------------------------------------------------- //----yulepc.com结束------------------------------------------------------------------------------------------------------------------------------------- //------ tuhen.cn 开始 //----------------------------------------------------------------------------------------------------------------------------------------- Rem tuhenx Delay 2000 RunApp "C:\kill.bat" Delay 2000 GetColor=GetPixelColor(700,100) If GetColor = "CC9900" Then TracePrint "找到该点浏览器继续运行" Else Delay 1000 MoveTo 1245, 78//点浏览器网站后台 Delay 2000 LeftClick 1 Delay 2000 End If Delay 5000 MoveTo 750, 50 Delay 2000 LeftClick 1 Delay 3000 SayString "tuhen.cn/whzwwy/" //指定网站 Delay 2000 KeyPress "Enter", 1 Delay 4000 MoveTo 1175, 95 Delay 2000 LeftClick 1 Delay 3000 MoveTo 600, 470 Delay 2000 LeftClick 1 Delay 4000 MoveTo 246, 380 //历史栏目 //娱乐 246,210 //影视 246,250 //社会 246,290 //奇闻 246,330 Delay 4000 LeftClick 1 Delay 4000 MoveTo 150, 100 For 10 Delay 5000 GetColor=GetPixelColor(310,200) If GetColor = "CC9900" Then TracePrint "找到该点红色" Else Delay 1000 喵码 = "tHuDG40" Set objXML=CreateObject("Microsoft.XMLHTTP") objXML.Open "Get", "https://miaotixing.com/trigger?id="+喵码+"&text=社会多站———没有找到添加按纽" , False objXML.send Delay 1000 //MessageBox "没有找到添加按纽"//没有找到添加按纽停止 Delay 1000 Goto tuhenx Delay 5000 EndScript //停止脚本 End If MoveTo 275, 200 //点击文章 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 喵码 = "tHuDG40" Set objXML=CreateObject("Microsoft.XMLHTTP") objXML.Open "Get", "https://miaotixing.com/trigger?id="+喵码+"&text=社会多站———没有文章了" , False objXML.send Delay 2000 Goto shehuoz //MessageBox "没有文章了" Delay 1000 EndScript //停止脚本 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 // // LeftUp 1 //文章页拉到最底下 // KeyPress "Down", 10 Delay 2000 // 点击HTML MoveTo 352, 525 //HTML Delay 1000 LeftClick 1 Delay 2000 KeyDown 17, 1 KeyPress 86, 1 KeyUp 17, 1 Delay 2000 MoveTo 352, 525//HTML Delay 1000 LeftClick 1 Delay 2000 Delay 2000 MoveTo 920, 606//选中文章开头 LeftClick 1 Delay 2000 LeftDown 1 Delay 1000 Delay 1000 MoveTo 343, 606//鼠标放到文章开头 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, 222//标题 Delay 2000 LeftClick 1 Delay 2000 KeyDown 17, 1 KeyPress 86, 1 KeyUp 17, 1 Delay 1000 MouseWheel -7 Delay 2000 Delay 2000 MoveTo 442, 159//格式化文章 Delay 2000 LeftClick 1 Delay 2000 MoveTo 283, 640//保存文章 Delay 2000 LeftClick 1 Delay 19000 MoveTo 285, 306//点击记忆列表 Delay 10000 LeftClick 1 End If EndFor 喵码 = "tHuDG40" Set objXML=CreateObject("Microsoft.XMLHTTP") objXML.Open "Get", "https://miaotixing.com/trigger?id="+喵码+"&text=社会多站———发布 tuhen.cn 完成10篇-历史-" , False objXML.send //----------------------------------------------------------------------------------------------------------------------------------------- //---- tuhen.cn 结束------------------------------------------------------------------------------------------------------------------------------------- Rem shehuoz //------结尾----------------------------------------------------------------------------------------------------------------------------------- Delay 10000 喵码 = "tHuDG40" Set objXML=CreateObject("Microsoft.XMLHTTP") objXML.Open "Get", "https://miaotixing.com/trigger?id="+喵码+"&text=社会多站———发布 -历史- 栏目全部完成" , False objXML.send Delay 5000 //------结尾----------------------------------------------------------------------------------------------------------------------------------- Delay 100000 喵码 = "tHuDG40" Set objXML=CreateObject("Microsoft.XMLHTTP") objXML.Open "Get", "https://miaotixing.com/trigger?id="+喵码+"&text=社会多站—发布社会—全部完成—脚本本轮完成" , False objXML.send

​ //切换栏目-----------------------------------------------------------------------

//切换栏目-----------------------------------------------------------------------