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

扫一扫
官方手机版

扫一扫
AI创作程序

扫一扫
木子公众号

扫一扫
AI公众号

//切换栏目----------------------------------------------------------------------------------------------------------------------------------------- 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开始 //-----------------------------------------------------------------------