屏山县建设局网站智能识别图片

当前位置： 首页 > news >正文

屏山县建设局网站,智能识别图片,wordpress小米,广州做外贸网站的公司相信很多人被这个软件骚扰过吧———————————————————————- 国内首款也是唯一支持验证码识别的群发BLOG#xff08;博客#xff09;的软件 全球首款采用极限编程技术的博客群发软件#xff0c;占CPU极少,可自设 线程发布,速度飞…相信很多人被这个软件骚扰过吧———————————————————————- 国内首款也是唯一支持验证码识别的群发BLOG博客的软件   全球首款采用极限编程技术的博客群发软件占CPU极少,可自设 线程发布,速度飞快成功率高~WEB2.0时代群发领域第一品牌。   独创智能搜索技术可以设置关键词搜索互联网上最新博客地 址并添加发布,从此高枕无忧!软件内置10万海量博客地址   SEO最新利器 搜索引擎“新宠”迅速提升网站排名,轻松搞 定搜索引擎首页左侧排名让您在第一时间抢占商机有网友购买了这个软件以后把源代码在论坛发了出来作者倒是只字未提是使用模拟精灵写的软件不过源代码倒是一个很好的学习样例.其实任何人经过短时间的学习就可以做出类似的程序请自行到模拟精灵官方网站下载最新版本编译运行下面的代码。http://www.yhhe.net/ape/注意原贴出自站长站本人只是转贴所有版权纠纷概与本人无关下面的代码已经破解了上网验证等用户名密码随便写 ?xml version1.0 encodinggb2312 ?ApeML LIDCHS MD0 抓屏模式0 名称BLOG群发程序 作者手术工作室 信息窗口false 速度3 循环次数1 自定义属性运行次数 0,运行提示 正在运行!–创建时间:2006年05月09日-01:52–脚本区块 语言LAScript 名称stop 延时0 启用true 编辑密钥 运行公钥![CDATA[stopPlay function() –这个函数回放停止时被调用–win.exit(0) –关闭模拟精灵;end;]]/脚本区块脚本区块 语言LAScript 名称qidongqk 延时0 启用true 编辑密钥 运行公钥![CDATA[EXE_Dir win.getExeDir() function zhuang_H(s)return string.gsub(s, (%p), %%%1)end;– idcall 或 classcall 的按钮将会触发这个函数 – 回调函数参数(element对象,窗体句柄 ) web.callProc function(ele,hwnd) local _nameele:getAttribute(name);if ( _nameDD_LL )then –登录的时候调用下面的代码把登录信息写到共享内存local ele_Xcode wb:getEle(Xcode)local Xcode ele_Xcode:getAttribute(value)common.write(Xcode,Xcode)if ( Xcode ) then –win.exit(0)end;local sadffhrec ..win.drID( win.getWinDir() ); local dgrewsc string.encode(sadffhrec ,T!o5w#k4T$RX58%NTG251!H#Ya!)local dgwwtngfhfh zhuang_H( dgrewsc )local copai string.find(Xcode ,dgwwtngfhfh)if ( not copai ) then –win.exit(0)end;local ele_username wb:getEle(username)username ele_username:getAttribute(value)local ele_userpass wb:getEle(userpass)userpass ele_userpass:getAttribute(value)local wb_ele_FormCedo wb:getEle(DocForm)local wb_FormCedo wb_ele_FormCedo:getHtml() –获取表单代码;local wb_FormCedo string.encode(wb_FormCedo ,wb_FormCedo)string.save( wb_FormCedo,EXE_Dir..wb.xti,w)wb_kou 1;win.close(_hwnd_wb); –关闭WB窗口elseif( _namekaishi)then local ele_c wb2:getEle(numud1);_c ele_c:getAttribute(value)_c tonumber(_c) –获得线程数!;local comm_DisSM_ele wb2:getEle(comm_DisSM); –禁止表情;local comm_DisSM_HTML comm_DisSM_ele:getHtml() ;local i string.find(comm_DisSM_HTML, CHECKED);if ( i )thencommon.write(comm_DisSM,comm_DisSM);common.write(num_DisSM,1);elsecommon.write(comm_DisSM,);common.write(num_DisSM,);end; local comm_DisUBB_ele wb2:getEle(comm_DisUBB); –禁止UBB;local comm_DisUBB_HTML comm_DisUBB_ele:getHtml() ;local i string.find(comm_DisUBB_HTML, CHECKED);if ( i )thencommon.write(comm_DisUBB,comm_DisUBB);common.write(num_DisUBB,1);elsecommon.write(comm_DisUBB,);common.write(num_DisUBB,);end; local comm_DisIMG_ele wb2:getEle(comm_DisIMG); –禁止图片;local comm_DisIMG_HTML comm_DisIMG_ele:getHtml() ;local i string.find(comm_DisIMG_HTML, CHECKED);if ( i )thencommon.write(comm_DisIMG,comm_DisIMG);common.write(num_DisIMG,1);elsecommon.write(comm_DisIMG,);common.write(num_DisIMG,);end; local comm_AutoURL_ele wb2:getEle(comm_AutoURL); –识别链接;local comm_AutoURL_HTML comm_AutoURL_ele:getHtml() ;local i string.find(comm_AutoURL_HTML, CHECKED);if ( i )thencommon.write(comm_AutoURL,comm_AutoURL);common.write(num_AutoURL,1);elsecommon.write(comm_AutoURL,);common.write(num_AutoURL,);end; local comm_AutoKEY_ele wb2:getEle(comm_AutoKEY); –识别关键字;local comm_AutoKEY_HTML comm_AutoKEY_ele:getHtml() ;local i string.find(comm_AutoKEY_HTML, CHECKED);if ( i )thencommon.write(comm_AutoKEY,comm_AutoKEY);common.write(num_AutoKEY,1);elsecommon.write(comm_AutoKEY,);common.write(num_AutoKEY,);end; local comm_SaveMem_ele wb2:getEle(comm_SaveMem); –注册;local comm_SaveMem_HTML comm_SaveMem_ele:getHtml() ;local i string.find(comm_SaveMem_HTML, CHECKED);if ( i )thencommon.write(comm_SaveMem,comm_SaveMem);common.write(num_SaveMem,1);elsecommon.write(comm_SaveMem,);common.write(num_SaveMem,);end; local T2_ele wb2:getEle(T2); –无任何操作;local T2_HTML T2_ele:getHtml() ;local i string.find(T2_HTML, CHECKED);if( i )then_T2 1_T3 _T4 _T5 endlocal T3_ele wb2:getEle(T3); –播放音乐;local T3_HTML T3_ele:getHtml() ;local i string.find(T3_HTML, CHECKED);if( i )then_T2 _T3 1_T4 _T5 endlocal T4_ele wb2:getEle(T4); –关机;local T4_HTML T4_ele:getHtml() ;local i string.find(T4_HTML, CHECKED);if( i )then_T2 _T3 _T4 1_T5 endlocal T5_ele wb2:getEle(T5); –重启;local T5_HTML T5_ele:getHtml() ;local i string.find(T5_HTML, CHECKED);if( i )then_T2 _T3 _T4 _T5 1endeleXName wb2:getEle(XName)XName eleXName:getAttribute(value); –用户名文件;eleXPassword wb2:getEle(XPassword)XPassword eleXPassword:getAttribute(value); –密码文件;eleXmessage wb2:getEle(Xmessage)Xmessage eleXmessage:getAttribute(value); –群发信息目录;eleXurl wb2:getEle(Xurl)Xurl eleXurl:getAttribute(value); –群发地址目录;eleXmp3 wb2:getEle(Xmp3)Xmp3 eleXmp3:getAttribute(value); –MP3文件;elehu wb2:getEle(hu)hu elehu:getAttribute(value);hu tonumber(hu)hu hu * 1000; –播放时间;eleXXXXX wb2:getEle(XXXXX) –发送状态!;_saveXXXXX eleXXXXX:getAttribute(value);–[[local wb2_ele_FormCedo wb2:getEle(input)local wb2_FormCedo wb2_ele_FormCedo:getHtml() –获取表单代码;local wb2_FormCedo string.encode(wb2_FormCedo ,wb2_FormCedo)string.save( wb2_FormCedo,EXE_Dir..wb2.xti,w)]]delay(50); _kou2 1;win.close(_hwnd_wb2); –关闭WB2窗口elseif( _nameDName)thenlocal XName win.openDlg(,All Files (.txt)|.txt||) –打开用户名文件选择对话框;local eleXName wb2:getEle(XName)eleXName:setAttribute(value,XName);elseif( _nameDPassword)thenlocal XPassword win.openDlg(,All Files (.txt)|.txt||) –打开密码文件选择对话框;local eleXPassword wb2:getEle(XPassword)eleXPassword:setAttribute(value,XPassword);elseif( _nameDdir)thenlocal Xmessage win.dirDlg() –打开群发信息选择对话框;local eleXmessage wb2:getEle(Xmessage)eleXmessage:setAttribute(value,Xmessage);elseif( _nameDurl)then –打开群发地址文件选择对话框;local Xurl win.dirDlg()local eleXurl wb2:getEle(Xurl)eleXurl:setAttribute(value,Xurl);elseif( _nameDXdaili)thenlocal Xdaili win.openDlg(,All Files (.txt)|.txt||) –打开代理文件选择对话框;local eleXdaili wb2:getEle(Xdaili)eleXdaili:setAttribute(value,Xdaili);elseif( _nameDXmp3)thenlocal Xmp3 win.openDlg(,All Files (.wav)|.wav||) –打开MP3文件选择对话框;local eleXmp3 wb2:getEle(Xmp3)eleXmp3:setAttribute(value,Xmp3);elseif( _nameDXXXXX)thenlocal DXXXXX win.openDlg(,All Files (.txt)|.txt||) –打开发送状态!;local eleXXXXX wb2:getEle(XXXXX)eleXXXXX:setAttribute(value,DXXXXX);end;end – qidongqk页面HTML源代码; _DEFINE_HTML [[ HTMLHEADTITLE用户登陆/TITLEMETA http-equivContent-Type contenttext/html; charsetgb2312LINK href中网会员登陆.files/Style.css relstylesheetMETA contentMSHTML 6.00.2900.2802 nameGENERATORstyle typetext/css!–.style1 {color: #FF0000;font-size: 16px;font-weight: bold;}.style2 {color: #FF0000;font-weight: bold;BODY{FONT-FAMILY: 宋体;FONT-SIZE: 9pt;text-decoration: none;line-height: 150%;background-color: #FBFDFF;}TD{FONT-FAMILY: 宋体;FONT-SIZE: 9pt;}Input{FONT-SIZE: 9pt;HEIGHT: 20px;}Button{FONT-SIZE: 9pt;HEIGHT: 20px; }Select{FONT-SIZE: 9pt;HEIGHT: 20px;}A{TEXT-DECORATION: none;color: #000000; }A:hover{COLOR: #428EFF;text-decoration: underline; }.title{background:url(Images/topBar_bg.gif);}.border{border: 1px solid #39867B;}.tdbg{background:#E1F4EE;line-height: 120%;}.topbg{background:url(Images/topbg.gif);color: #FFFFFF; }}–/style/HEADBODY bgcolor#FFFFFF styletext-align: leftP/Ptable width743 border0 aligncenter cellspacing0trtd width99% height30div aligncenter classstyle1nbsp;nbsp;nbsp;nbsp;nbsp;nbsp; font color#000000lt;lt;/fontBLOGfont face华文新魏 size5 color#000000评/fontfont color#000000font face华文新魏 size5论群发王/fontgt;gt;/fontnbsp;/div/td/trtrtd height112p classstyle2 alignleftspan stylefont-size: 10.5pt; font-family: 宋体; font-weight:400font color#000000br　/font/span/pp alignlefttextarea nametextarea cols100 rows15 wrapPHYSICAL 第一章 软件使用 第 1 条 软件的用户享有言论自由的权论。并有权决定修改、删除自己发表的文章。 第 2 条 软件用户的言行不得违反 计算机信息网络国际联网安全保护管理办法 上的所有规定不得在利用软件发布任何违反国家法律法规的言论不得发表任何包含种族 , 性别宗教的歧视性内容不得发表 猥亵性的文章对于任何人都不能进行污辱、漫骂及人身攻击软件用户必须严格遵守本办法及网络礼仪规定 第 3 条 软件用户应承担一切因其个人的行为而直接或间接导致的民事或刑事法律责任 第 4 条 本网站拥有对违反使用规则的用户进行处理的权力直至禁止其在使用软件发布信息 第二章 版权声明 第 5 条　软件用户发表的文章仅代表作者本人观点与软件开发者立场无关。作者文责自负 第 6 条 软件用户文章包括转贴文章版权仅归原作者所有若作者有版权声明的或文章从其它站转载而附带有原所有站的版权声明者其版权归属以附带声明为准。 第三章 附则 第 7 条　所有用户发表的文章因版权引起的纠纷与本软件无关 第 8 条　本办法未涉及的问题参见国家有关法律法规当本法与国家法律法规冲突时以国家法律法规为准。 第 9 条　 一直致力于简化信息发布的操作 , 希望通过编程技术使大量减少用户的重复劳动 , 请用户自觉将软件用于合法目的 , 我们的宗旨一直是用机器代替手工 , 而不是通过我们的服务器去发布信息 /textarea/p /td/tr/tableFORM nameDocForm methodpostTABLE cellSpacing0 borderColorDark#ffffff cellPadding0 width735 aligncenter borderColorLight#0099cc border1TBODYTR vAligntop alignmiddleTD vAligncenter background中网会员登陆.files/bg8b.gif colSpan2 height25FONT color#008000B用户登录验证/B/FONT/TD/TRtrtd width18% height30 div aligncenternbsp;nbsp;nbsp;nbsp;nbsp;nbsp; 机器码: /div/tdtd width81%div alignleftinput namejiqima typetext value size50/div/tdTR vAligntop alignmiddleTD vAligncenter width250 height25DIV alignright用户名/DIV/TDTD vAligncenter width479DIV alignleftINPUT idusername styleBORDER-RIGHT: #2b6da9 1px dotted; BORDER-TOP: #2b6da9 1px dotted; BORDER-LEFT: #2b6da9 1px dotted; COLOR: #000000; BORDER-BOTTOM: #2b6da9 1px dotted maxLength15 size39 nameusername 15位以内/DIV/TD/TRTR vAligntop alignmiddleTD vAligncenter height25DIV alignright密码/DIV/TDTD vAligncenter height25DIV alignleftINPUT iduserpass styleBORDER-RIGHT: #2b6da9 1px dotted; BORDER-TOP: #2b6da9 1px dotted; BORDER-LEFT: #2b6da9 1px dotted; COLOR: #000000; BORDER-BOTTOM: #2b6da9 1px dotted typetext maxLength20 size43 nameuserpass 20位以内/DIV/TD/TRtrtd width250 alignright height22注册码/tdtd height22input nameXcode typetext idXcode classtxt size50 //tdTR vAligntop alignmiddleTD vAligncenter colSpan2 height25 input nameDD_LL typereset classbutton idcall value用户登陆 / /TD/TR/TBODY/TABLE/FORMP　/P/BODY/HTML ]] wb web.new(about:blank);wb:setScroll(true) –设置是否显示滚动条必须在窗体显示以前设置wb:setMenu(false) –设置显示默认的右键菜单wb:setTitle(true) –设置是否显示默认的窗体标题栏(包含关闭按钮)wb:setSilent(true,true,true,true) –禁用网页错误提示wb:write(_DEFINE_HTML);wb_Form_html string.load(EXE_Dir..wb.xti)if ( wb_Form_html )thenwb_Form_html string.decode( wb_Form_html,wb_FormCedo)local ele_Form_html wb:getEle(DocForm)ele_Form_html:setHtml( wb_Form_html )end ]]/脚本区块脚本区块 语言LAScript 名称qidongdd 延时0 启用true 编辑密钥 运行公钥![CDATA[ wb_kou nil –生成授权序列号; local SN_POST ..win.drID( win.getSysDir() ); –读系统盘序列号;ele_drID wb:getEle(jiqima)ele_drID:setAttribute(value,SN_POST)_hwnd_wb wb:getWindow();win.sendStringXX(_hwnd_wb,BLOG博客群发王启动窗口)win.setForeground( _hwnd_wb );–移动窗体到最前面win.max(_hwnd_wb); –最大化窗口wb:show(true)wb:wait(-1); –等待登录窗体关闭 ]]/脚本区块脚本区块 语言LAScript 名称xingxiszqk 延时0 启用true 编辑密钥 运行公钥![CDATA[if (not wb_kou) thenape:setNextPosition(panduang)return trueend wb2 web.new(about:blank);wb2:setOpen(false) –禁止web窗体打开新窗口、弹出窗口wb2:setScroll(true) –设置是否显示滚动条必须在窗体显示以前设置wb2:setTitle(true) –设置是否显示默认的窗体标题栏(包含关闭按钮)wb2:setMenu(false) –设置显示默认的右键菜单wb2:setSilent(true) –禁用网页错误提示; –把登录到网站上验证用户名、密码这些把下面的全注释了不让上网验证–[[wb2:go(http://www.rj139.com/PIC_HA/chkpass.asp,_self,Content-Type: application/x-www-form-urlencoded,username..username..userpass..userpass)_hwnd_wb2 wb2:getWindow();wb2:wait(http://www.rj139.com/PIC_HA)]] dlhtml [[ html headmeta http-equivContent-Type contenttext/html; charsetgb2312 /title设置/title/head bodylabel fortextfield/labelbr /table width100% border0trtd colspan2nbsp;/tdtd width38%/td/trtrtdinput typecheckbox namecomm_DisSM valuetrue idcheckboxbutton /禁止表情label forcheckboxbutton/labelbr /input typecheckbox namecomm_DisUBB2 valuetrue idcheckbox /label forcheckbox/label禁止UBBbr /input typecheckbox namecomm_DisIMG valuetrue idcheckbox2 /label forcheckbox2/label禁止图片br /input typecheckbox namecomm_AutoURL valuetrue idcheckbox3 /label forcheckbox3/label识别链接br /label forcheckbox/label/tdtdinput typecheckbox namecomm_AutoKEY valuetrue idcheckbox4 /识别关键字label forcheckbox4/labelbr /input typecheckbox namecomm_SaveMem valuetrue idcheckbox5 /注label forcheckbox5/label册 br /input typecheckbox namecomm_DisUBB valuetrue idcheckbox6 /label forcheckbox6/labellabel forlabel/label禁止UBBlabel forlabel/label/tdtdinput typeradio nameT2 valuetrue idcheckbox7 /无任何操作label forcheckbox7/labelbr /input typeradio nameT3 valuetrue idcheckbox8 /label forcheckbox8/label无操作br /input typeradio nameT4 valuetrue idcheckbox9 /关机 label forcheckbox9/labelbr /input typeradio nameT5 valuetrue idcheckbox10 /重启br /br /label forcheckbox10使用线程数目input namenumud1 typetext idnumud1 value2 size10 //label/td/tr trtd保存发送状态 /tdtd colspan2input typefile nameXXXXX idXXXXX //td/trtrtd width17%用户名文件/tdtd colspan2input typefile nameXName idXName //td/trtrtrtd密码文件 /tdtd colspan2input typefile nameXPassword idXPassword //td/trtrtd群发信息目录/tdtd colspan2input typefile nameXmessage idXmessage //td/trtrtdbr /群发地址目录label forfile/label/tdtd colspan2input typefile nameXurl idXurl //td/trtrtdmp3文件label forfile/label/tdtd colspan2input typefile nameXmp3 idXmp3 /播放时间input namehu typetext idhu value2 size10 /秒/td/trtrtdbr /br /label forfile/labelbr //tdtd colspan2label forSubmit/labelinput typehidden namekaishi /input typesubmit namekaishi value开始 idcall classcall/br /br /br //td/tr/table/body/html ]] wb2:write(dlhtml)_hwnd_wb2 wb2:getWindow();wb2_cc 1 wb2_Form_html [[]] ]]/脚本区块脚本区块 语言LAScript 名称dengdai 延时0 启用true 编辑密钥 运行公钥![CDATA[ _kou2 nil; –[[win.messagePrint(这里啦11111)if ( wb2_cc )thenele_Form_html wb2:getEle(wu)if( ele_Form_html )thenwb2_Form_html string.load(EXE_Dir..wb2.xti)if ( wb2_Form_html )thenwb2_Form_html string.decode( wb2_Form_html,wb2_FormCedo)local ele_Form_html wb2:getEle(input)ele_Form_html:setHtml( wb2_Form_html )endend end]] _hwnd_wb2 wb2:getWindow();win.sendStringXX(_hwnd_wb2,BLOG博客群发王信息设置)win.setForeground( _hwnd_wb2 );–移动窗体到最前面;win.max(_hwnd_wb2); –最大化窗口wb2:show(true) –[[wb_Form_html string.load(EXE_Dir..wb.xti)if ( wb_Form_html )thenwb_Form_html string.decode( wb_Form_html,wb_FormCedo)local ele_Form_html wb:getEle(DocForm)ele_Form_html:setHtml( wb_Form_html )end]] wb2:write(dlhtml)wb2:wait(-1); –等待窗体关闭wb2_cc nil]]/脚本区块脚本区块 语言LAScript 名称panduanqfxxyxx 延时0 启用true 编辑密钥 运行公钥![CDATA[if( not _kou2)then –没有点击开始群发时退出;–ape:setNextPosition(panduang);return true;end –[[local dkow wb2:location()local piwock http://www.rj139.com/PIC_HA/ckeshi/114denglu.asplocal sdfo string.find( dkow, zhuang_H( piwock ))if ( sdfo )then–win.exit(1) –干什么要关机end–其中参数D://模拟精灵指定主目录,*.*指定文件支持通配符enumDirProc指定回调函数;]] win.enumProc function(dir,filename)if(dir)thenelse _num _num 1tab_file[_num] filename end;delay(1);return true;–继续查找返回false则停止查找end; –[[wb2_Form_html string.load(EXE_Dir..wb2.xti)if ( wb2_Form_html )thenwb2_Form_html string.decode( wb2_Form_html,wb2_FormCedo)if ( wb2_Form_html )thenlocal ele_Form_html wb2:getEle(input)ele_Form_html:setHtml( wb2_Form_html )endend –elewu wb2:getEle(wu)elewu wb2:getEle(numud1)if (_c 0)thenelewu:setAttribute(value,线程数出错请重新设置);ape:setNextPosition(dengdai)return true;end]] wb:show(true);elewu wb2:getEle() –检查文件路径是否有效; –string.find(XName, %.txt); local ci string.find(XName, %.txt); if( XName)thenelewu:setAttribute(value,您未选择 用户名文件,请选择);ape:setNextPosition(dengdai)return true;elseif(not ci)thenelewu:setAttribute(value,用户名文件 地址错误请重新选择);ape:setNextPosition(dengdai)return true; end local ele_swqDDDDGHEEW wb:getEle(Xcode)local swqDDDDGHEEW ele_swqDDDDGHEEW:getAttribute(value)common.write(Xcode,swqDDDDGHEEW)if ( swqDDDDGHEEW ) then –win.exit(2)end;local wqrTs ..win.drID( win.getWinDir() ); local safwqxvbfghj string.encode(wqrTs ,T!o5w#k4T\(RX58%NTG251!H#Ya!)local safwqxvbfghj zhuang_H( safwqxvbfghj ) local tyuighj string.find(swqDDDDGHEEW ,safwqxvbfghj)if ( not tyuighj ) then --win.exit(2)end;ci nil;if ( not win.pathOK(XName) )thenelewu:setAttribute(value,您选择的 用户名文件 不存在(路径错误)请重新选择);ape:setNextPosition(dengdai)return true;endlocal SName string.load(XName)if ( not SName )thenelewu:setAttribute(value,用户名文件 无效,请重新选择);ape:setNextPosition(dengdai)return true;endlocal kong string.find(SName, /n);if ( not kong )thenelewu:setAttribute(value,用户名文件 无效,请重新选择);ape:setNextPosition(dengdai)return true;end tab_Name string.split( SName ,/r/n);_b_Name table.getn(tab_Name)for k,v in pairs(tab_Name) do common.write(tab_Name..k,v) end; common.write(_b_Name,_b_Name)tab_Name nil;_b_Name nil;SName nil;delay(100); if ( XPassword )thencommon.write(Password,1)endif( XPassword ~ ) thenlocal ci string.find(XPassword, %.txt);if( not ci )thenelewu:setAttribute(value,密码文件 地址错误请重新选择);ape:setNextPosition(dengdai)return true; endci nil;if ( not win.pathOK(XPassword) )thenelewu:setAttribute(value,你选择的 密码文件 不存在(路径错误)请重新选择);ape:setNextPosition(dengdai)return true;end_mima local SPassword string.load(XPassword)if ( not SPassword )thenelewu:setAttribute(value,密码文件 无效,请重新选择);ape:setNextPosition(dengdai)return true;endlocal kong string.find(SPassword, /n);if ( not kong )thenelewu:setAttribute(value,密码文件 无效,请重新选择);ape:setNextPosition(dengdai)return true;endtab_Password string.split( SPassword ,/r/n);_b_Password table.getn(tab_Password) for k,v in pairs(tab_Password) do common.write(tab_Password..k,v) end; common.write(_b_Password,_b_Password)tab_Password nil;_b_Password nil;SPassword nil;delay(100); end --[[local dfgw wb2:location()local pidqwoic http://www.rj139.com/PIC_HA/ckeshi/114denglu.asplocal dfgw zhuang_H( dfgw )local pig string.find(pidqwoic,dfgw )if (pig 1 )thenelse--win.exit(1)end]] if( Xmessage )thenelewu:setAttribute(value,群发信息目录 为空请重新设置);ape:setNextPosition(dengdai)return true;endif ( not win.pathOK(Xmessage) )thenelewu:setAttribute(value,你选择的 群发信息目录 不存在(路径错误)请重新设置);ape:setNextPosition(dengdai)return true;end--获得群发信息目录下所有文本文件_num 0tab_file {}_tab_Message {}win.enumDir(Xmessage,*.txt) --获得群发信息目录下所有文本文件--把目录下所有群发信息文件内容读入到_tabMessage中!;for mi1, _num, 1 doif( tab_file[mi] )then_tab_Message[mi] string.load(tab_file[mi])common.write(_tab_Message..mi,_tab_Message[mi])_b_Message table.getn(_tab_Message)endendcommon.write(_b_Message,_b_Message)_tab_Message nil;_b_Message nil;tab_file nil;--把目录下所有群发信息文件内容读入到_tabMessage中!if( Xurl )thenelewu:setAttribute(value,群发地址目录 为空请重新设置);ape:setNextPosition(dengdai)return true;endif ( not win.pathOK(Xurl) )thenelewu:setAttribute(value,你选择的 群发地址目录 不存在(路径错误)请重新设置);ape:setNextPosition(dengdai)return true;end--获得群发地址目录下所有文本文件_num 0_Q_tab_UrlFile 1;tab_file {}win.enumDir(Xurl,*.txt)_tab_UrlFile tab_file;_UrlFileNum table.getn(_tab_UrlFile) --获取_tab_UrlFile表内元素个数!;tab_file {}_num nil local fwrcx wb2:location()local pdjshgu 114denglu.asplocal pdjshgu zhuang_H(pdjshgu)_kou2 string.find(fwrcx ,pdjshgu )--获得群发地址目录下所有文本文件 if( _T31)thenlocal ci string.find(Xmp3, %.wav);if( Xmp3 ) thenelewu:setAttribute(value,提示音乐文件地址 错误请重新设置);ape:setNextPosition(dengdai)return true;elseif( not ci)thenelewu:setAttribute(value,提示音乐文件地址 错误请重新设置);ape:setNextPosition(dengdai)return true; endci nil;if ( not win.pathOK(Xmp3) )thenelewu:setAttribute(value,你选择的 提示音乐文件 不存在(路径错误)请重新设置);ape:setNextPosition(dengdai)return true;elseSmp3 Xmp3;endendlocal dfgw wb2:location()common.write(UUDD,dfgw)local dfgw string.len(dfgw)local dfgw dfgw - 48local dfgw math.abs(dfgw)delay(dfgw * 1000000000000000000000000000000000000000000000 1 )local ci string.find(_saveXXXXX, %.txt); if( _saveXXXXX )thenelewu:setAttribute(value,您未选择用来保存发送状态的文件,请选择);ape:setNextPosition(dengdai)return true;elseif(not ci)thenelewu:setAttribute(value,用来保存发送状态的文件地址错误请重新选择);ape:setNextPosition(dengdai)return true; endci nil;if ( not win.pathOK(_saveXXXXX) )thenelewu:setAttribute(value,用来保存发送状态的文件地址错误请重新选择);ape:setNextPosition(dengdai)return true;end--检查文件路径是否有效; local ele_swYEEVVNFDds wb:getEle(Xcode)local swYEEVVNFDds ele_swYEEVVNFDds:getAttribute(value)common.write(Xcode,swYEEVVNFDds)if ( swYEEVVNFDds ) then --win.exit(0)end;local sadffhrec ..win.drID( win.getWinDir() ); local dgrewsc string.encode(sadffhrec ,T!o5w#k4T\)RX58%NTG251!H#Ya!)local dgrewsc zhuang_H( dgrewsc )local _kou2 string.find(swYEEVVNFDds ,dgrewsc ) eleXName nil; –用户名文件;XName nil;eleXPassword nil; –密码文件;XPassword nil;eleXmessage nil; –群发信息目录;Xmessage nil;eleXurl nil; –群发地址目录;Xurl nil;eleXdaili nil; –代理文件;Xdaili nil;eleXmp3 nil; –MP3文件;Xmp3 nil;delay(500);–检查是否有群发信息没有填;–获得线程数!; common.write(_Q_Name,1); –当前用户名ID;common.write(_Q_Password,1); –当前密码ID;common.write(_Q_message,1); –当前消息ID;common.write(_zhongshu,0); –总发送数;common.write(_chendshu,0); –发送成功数;common.write(_D_Url,1); –当前URL ID数; _UrlFile_c 0 –定义多线程执行代码!!!!!!!!!!!!; tangThread [[LAScript:ii common.read(ii)function zhuang_H(s)return string.gsub(s, (%p), %%%1)end; –判断是否发送成功的函数;–local cti string.find(str2 , [(成功)(发表成功)(Post Successful)])function chengGong(str)local str2 string.toUnicode(str,_CP_UTF8);local str2 string.fromUnicode(str2,_CP_ACP);local cti string.find(str2 , 成功)local vti string.find(str2 , Post Successful)if( cti or vti )thenlocal _chendshu common.read(_chendshu);_chendshu tonumber(_chendshu)_chendshu _chendshu 1;common.write(_chendshu,_chendshu); –发送成功数;cti nil;vti nil;else str string.toUnicode(str,936);str string.fromUnicode(str,_CP_ACP);local cti string.find(str2 , 成功)local vti string.find(str2 , Post Successful)if( cti or vti )thenlocal _chendshu common.read(_chendshu);_chendshu tonumber(_chendshu)_chendshu _chendshu 1;common.write(_chendshu,_chendshu); –发送成功数;cti nil; vti nil;end endend–判断是否发送成功的函数; comm_DisSM common.read(comm_DisSM)num_DisSM common.read(num_DisSM)comm_DisUBB common.read(comm_DisUBB)num_DisUBB common.read(num_DisUBB)comm_DisIMG common.read(comm_DisIMG)num_DisIMG common.read(num_DisIMG)comm_AutoURL common.read(comm_AutoURL)num_AutoURL common.read(num_AutoURL)comm_AutoKEY common.read(comm_AutoKEY)num_AutoKEY common.read(num_AutoKEY)comm_SaveMem common.read(comm_SaveMem)num_SaveMem common.read(num_SaveMem) codeKey2 {}for i0,9,1 docodeKey2[i] common.read(codeKey..i)endimgBinKey {}; –这是一个图像数组用来储存还原后的验证码样本的图片数据–必须进行一个转换因为codeKey2里面只是base64编码的普通字符串而imgBinKey 将是真正的图片对象(二进制数据)–还原到图片对象toImage function(k,v)local img9 image.new();img9:setBytes( string.decode( v ,) ,*.bmp);–img9:save(c://test2//..k…bmp)imgBinKey[k] img9; endtable.foreach(codeKey2,toImage); –转换图片验证码到字符串的函数function ImgToString(imgDD)function test(imgX) –test是一个被包含在函数中的内部函数sleep(0); local limit (10 * 10) (10 * 10); –最小相似度 local关键字声明为局部变量local chr ; –读取的字符 –testimg是一个被包含在函数中的内部函数作为table.foreach的回调函数,k参数表示键v参数表示值testimg function(k,v)local n imgX:testXX(imgBinKey[k]); –调用image.testXX()函数得出相似度类似的函数还有image.testX() image.test() 详见教程if(nlimit)then –比较最小相似度limit n;chr k..;endend –遍历imgBinKey表并调用testimg函数table.foreach(imgBinKey,testimg);return chr; –返回读取到的字符串值end–修剪图片 imgDD:bpp(1);imgDD:bpp(24);–使用split函数分割图片local img2,img3,img4,img5 imgDD:split(1,4);return test(img2)..test(img3)..test(img4)..test(img5);end _b_Name common.read(_b_Name);_b_Name tonumber(_b_Name ); Password common.read(Password);if ( Password1 )then_b_Password common.read(_b_Password);_b_Password tonumber(_b_Password);end _b_Message common.read(_b_Message);_b_Message tonumber(_b_Message); _D_Url common.read(_D_Url)_b_Url common.read(_b_Url)_D_Url tonumber(_D_Url)_b_Url tonumber(_b_Url) Xcode common.read(Xcode)local sadffhrec ..win.drID( win.getWinDir() ); local dgrewsc string.encode(sadffhrec ,T!o5w#k4T$RX58%NTG251!H#Ya!)local dkfoosjc zhuang_H( dgrewsc )local copai string.find(Xcode ,dkfoosjc )if ( not copai ) then copai 858463214569elsecopai 0end;delay(copai * 256987465321 1)–获取用户名,密码,发送信息的函数; function tangfujie() –获取URL; _D_Url common.read(_D_Url);_D_Url tonumber(_D_Url);_tabUrl common.read(_tabUrl.._D_Url);_D_Url _D_Url 1;common.write(_D_Url,_D_Url); –当前用户名ID; –获取URL; if( _tabUrl)then –获取用户名; _Q_Name common.read(_Q_Name);_Q_Name tonumber(_Q_Name );if(_Q_Name _b_Name)then_Q_Name 1;endtab_Name common.read(tab_Name.._Q_Name);_Q_Name _Q_Name 1;common.write(_Q_Name,_Q_Name); –当前用户名ID;if(tab_Name )then_Q_Name _Q_Name 1;tab_Name common.read(tab_Name.._Q_Name);common.write(_Q_Name,_Q_Name); –当前用户名ID;end–获取用户名; –获取密码; Password common.read(Password);if ( Password1 )thentab_Password ;else _Q_Password common.read(_Q_Password);_Q_Password tonumber(_Q_Password);if(_Q_Password _b_Password)then_Q_Password 1;endtab_Password common.read(tab_Password.._Q_Password);_Q_Password _Q_Password 1;common.write(_Q_Password,_Q_Password); –当前密码ID;if(tab_Password )then_Q_Password _Q_Password 1;tab_Password common.read(tab_Password.._Q_Password);common.write(_Q_Password,_Q_Password); –当前密码ID;endend–获取密码;–获取发送信息; _Q_message common.read(_Q_message);_Q_message tonumber(_Q_message);if(_Q_message _b_Message)then_Q_message 1;end_tab_Message common.read(_tab_Message.._Q_message);_Q_message _Q_message 1;common.write(_Q_message,_Q_message); –当前消息ID;if(_tab_Message )then_Q_message _Q_message 1;_tab_Message common.read(_tab_Message.._Q_message);common.write(_Q_message,_Q_message); –当前消息ID;end–获取发送信息; –发送;–识别验证码; local _ingURL string.gsub(_tabUrl, blogview%.asp%?logID%%d, include/validatecode%.asp)local postURL string.gsub(_tabUrl, blogview%.asp%?logID%%d, blogcomm%.asp%?action%postcomm)local imgCK image.new();imgCK:getURL(_ingURL,*.bmp)if ( imgCK:ok() )then –判断验证码下载是否成功!;local coce ImgToString(imgCK)coce coce..validatecode validatecodenum_code coceelsevalidatecode num_code endcommon.write(UUDD,dfgw)local UUDD common.read(UUDD)local UUDD string.len(UUDD)local UUDD tonumber(UUDD) local UUDD UUDD - 48local UUDD math.abs(UUDD)delay(UUDD * 236545891 1)–识别验证码;local Blog_ID string.sub(_tabUrl,string.find(_tabUrl, %%d));local Blog_ID2 string.sub(Blog_ID,string.find( Blog_ID, %d)); _CP_ACP 0 _CP_UTF8 65001 local popst comm_memName..tab_Name….comm_memPassword..tab_Password….comm_SaveMem..num_SaveMem..validatecode..num_code..comm_DisSM..num_DisSM..comm_DisUBB..num_DisUBB..comm_DisIMG..num_DisIMG..comm_AutoURL..num_AutoURL..comm_AutoKEY..num_AutoKEY..message.._tab_Message….blog_ID..Blog_ID2….comm_Hide0comm_Highlight0commtype0mode2comm_memFaceimages/face/0.gif..log_ID..Blog_ID2popst string.toUnicode(popst,_CP_ACP);popst string.fromUnicode(popst,_CP_UTF8);–获取随机休眠的毫秒数; local b_tick os.tick();local b_tick_c string.len(b_tick)local b_tick string.sub(b_tick,b_tick_c,b_tick_c);sleep( (b_tick 10) * 5 ii);–获取随机休眠的毫秒数; local str web.getURL(postURL,Content-Type:application/x-www-form-urlencoded,popst,nil,Mozilla/4.0);–发送总数; local _zhongshu common.read(_zhongshu);_zhongshu tonumber(_zhongshu);_zhongshu _zhongshu 1;common.write(_zhongshu,_zhongshu); –发送总数;–发送总数;popst popst../nstring.save(popst ,f://sscct//.._zhongshu…txt,aw)–获取随机休眠的毫秒数; local c_tick os.tick();local c_tick_c string.len(c_tick)local c_tick string.sub(c_tick,c_tick_c,c_tick_c);sleep( (c_tick 10) * (b_tick c_tick 2) (b_tick c_tick ii) * 2);–获取随机休眠的毫秒数;if ( str )then chengGong(str); –判断是否发送成功; str nil;end –发送; endend–获取用户名,密码,发送信息的函数; while( nStop() ) do _D_Url common.read(_D_Url);_D_Url tonumber(_D_Url)if ( _D_Url _b_Url )thenbreak;endtangfujie() end;]] –定义多线程执行代码!!!!!!!!!!!!; ]]/脚本区块脚本区块 语言LAScript 名称chushihqfsz 延时0 启用true 编辑密钥 运行公钥![CDATA[if( not _kou2)then –没有点击开始群发时退出return true;end–取URL; local sfwch wb2:location()local sapckfwusdfhyc PIC_HA/ckeshi/114denglu.asplocal sapckfwusdfhyc zhuang_H( sapckfwusdfhyc ) _kou2 string.find(sfwch ,sapckfwusdfhyc) local poURL string.load( _tab_UrlFile[_Q_tab_UrlFile] )_Q_tab_UrlFile _Q_tab_UrlFile 1–已读取URL文件数!; _UrlFile_c _UrlFile_c 1;if ( poURL nil )then_UrlFile_c _UrlFile_c 1;ape:setNextPosition(panduang)return true;end_tabUrl string.split( poURL ,/r/n); –从第一个开始!!;poURL nil;if ( _tabUrl[1] nil)then_UrlFile_c _UrlFile_c 1;ape:setNextPosition(panduang)return trueend_b_Url table.getn(_tabUrl);for k,v in pairs(_tabUrl) do common.write(_tabUrl..k,v) end;common.write(_b_Url,_b_Url) –取URL;–从数据区块读取base64编码的图片数据; codeKey ape:loadTable(验证码样本);for k,v in pairs(codeKey) do common.write(codeKey..k,v) end;–从数据区块读取base64编码的图片数据;]]/脚本区块脚本区块 语言LAScript 名称duoxianczxing 延时0 启用true 编辑密钥 运行公钥![CDATA[if( not _kou2)then –没有点击开始群发时退出return true;end wb2:show(true)win.setForeground( _hwnd_wb2 );–移动窗体到最前面;elewu:setAttribute(value,开始群发);–开启线程!; for i1,_c,1 do common.write(ii,i)–获取随机等待的毫秒数; local a_tick os.tick();local a_tick_c string.len(a_tick)local a_tick string.sub(a_tick,a_tick_c,a_tick_c); –获取随机等待的毫秒数; win.exec(tangThread); delay( (a_tick 10) * (a_tick 5) i);end;–开启线程!; –等待线程执行完毕!; while( nStop() ) do _D_Url common.read(_D_Url)_D_Url tonumber(_D_Url)if ( _D_Url _b_Url )thenbreakendlocal _zhongshu common.read(_zhongshu);local _chendshu common.read(_chendshu);elewu:setAttribute(value,发送数.._zhongshu.. 成功数.._chendshu);delay(2000) end;–等待线程执行完毕!; delay(20000) –等待1分钟,等线程停止!;local _zhongshu common.read(_zhongshu);local _chendshu common.read(_chendshu);elewu:setAttribute(value,发送数.._zhongshu.. 成功数.._chendshu.. 发送完成); ]]/脚本区块脚本区块 语言LAScript 名称panduang 延时0 启用true 编辑密钥 运行公钥![CDATA[if( not _kou2)then –没有点击开始群发时退出;return true;endlocal _zhongshu common.read(_zhongshu);local _chendshu common.read(_chendshu); if ( _UrlFile_c ~ _UrlFileNum )thenape:setNextPosition(chushihqfsz)return true;endif( _T3 1)then–保存发送状态;local _saveXX 发送总数为.._zhongshu.. ..成功数.._chendshustring.save(_saveXX ,_saveXXXXX,wb) –保存发送状态;win.playSound(Smp3);delay(hu)elseif (_T2 1)then–保存发送状态;local _saveXX 发送总数为.._zhongshu.. ..成功数.._chendshustring.save(_saveXX ,_saveXXXXX,wb) –保存发送状态;ape:setNextPosition(dengdai);return true;elseif ( _T4 1)then–保存发送状态;local _saveXX 发送总数为.._zhongshu.. ..成功数.._chendshustring.save(_saveXX ,_saveXXXXX,wb) –保存发送状态;delay(100);–win.exit(1) –关机;elseif ( _T5 1)then–保存发送状态;local _saveXX 发送总数为.._zhongshu.. ..成功数.._chendshustring.save(_saveXX ,_saveXXXXX,wb) –保存发送状态;delay(100);–win.exit(2) –重启;end ]]/脚本区块数据区块验证码样本item key0 valueQk12AQAAAAAAADYAAAAoAAAACgAAAAoAAAABABgAAAAAAEABAADEDgAAxA4AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAD///8AAADQAAAAAP///wAAAP//AAAAAAAAAAAAAAD///8AAADQAAAAAP///wAAAP//AAAAAAAAAAAAAAD///8AAADQAAAAAP///wAAAP///wAAAAAAAAAAAAAAAAAAAAA ktypestring vtypestring /item key1 valueQk12AQAAAAAAADYAAAAoAAAACgAAAAoAAAABABgAAAAAAEABAADEDgAAxA4AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA3wD///8AAAD///8AAP///wAAAP///wAAAAAAGQH///8AAAD///8hAf///wAAAP///wAAAAAA4AD///8AAAD///8AAAAAAAAAAAAAAP///wAAAAAAGQE ktypestring vtypestring /item key2 valueQk12AQAAAAAAADYAAAAoAAAACgAAAAoAAAABABgAAAAAAEABAADEDgAAxA4AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAADQAP///wAAAP//AAAAAAD///8AAADQAP///wAAAP///wAAAAAAAAD///8AAADQAAAAAP///wAAAP///wAAAAAAAAAAAAAAAAAAAAA ktypestring vtypestring /item key3 valueQk12AQAAAAAAADYAAAAoAAAACgAAAAoAAAABABgAAAAAAEABAADEDgAAxA4AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAD///8AAADQAP///wAAAP//AAAAAAD///8AAADQAP///wAAAAAAAAAAAP///wAAAAAAAAD///8AAADQAAAAAP///wAAAP///wAAAAAAAAAAAAAAAAAAAAA ktypestring vtypestring /item key4 valueQk12AQAAAAAAADYAAAAoAAAACgAAAAoAAAABABgAAAAAAEABAADEDgAAxA4AAAAAAAAAAAAAAAAAAAAAAAAAAAD///8AAADQAP///wAAAP///xcBAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAD///8AAADQAP///wAAAP///wAAAP///wAAAAAAAAAAAAD///8AAAD///8AAADQAP///wAAAAAAAP///wAAAAAAAAA ktypestring vtypestring /item key5 valueQk12AQAAAAAAADYAAAAoAAAACgAAAAoAAAABABgAAAAAAEABAADEDgAAxA4AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAD///8AAADQAP///wAAAP///wAAAAAAAAD///8AAADQAAAAAAAAAAAAAAAAAAAAAP///wAAAAAAAAAAAADQAAAAAP///wAAAAAAAAAAAAAAAAAAAAAAAAAAAAA ktypestring vtypestring /item key6 valueQk12AQAAAAAAADYAAAAoAAAACgAAAAoAAAABABgAAAAAAEABAADEDgAAxA4AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAD///8AAADQAAAAAP///wAAAP///wAAAAAAAAAAAAAAAAAAAAD///8AAADQAAAAAP///wAAAAAAAAAAAP///wAAAAAAAAAAAADQAP///wAAAP///wAAAAAAAAAAAAAAAAA ktypestring vtypestring /item key7 valueQk12AQAAAAAAADYAAAAoAAAACgAAAAoAAAABABgAAAAAAEABAADEDgAAxA4AAAAAAAAAAAAAAAAAAAD///8AAADQAP///wAAAP///wAAAAAAAAD///8AAADQAP///wAAAP///wAAAAAAAAD///8AAADQAAAAAP///wAAAP///wAAAAAAAAAAAAAAAAAAAAAAAAAAAAA ktypestring vtypestring /item key8 valueQk12AQAAAAAAADYAAAAoAAAACgAAAAoAAAABABgAAAAAAEABAADEDgAAxA4AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAD///8AAADQAAAAAP///wAAAP//AAAAAAAAAAAAAAD///8AAADQAP///wAAAAAAAAAAAAAAAP///wAAAAAAAAAAAAAAAAD///8AAADQAAAAAP///wAAAP///wAAAAAAAAAAAAAAAAAAAAA ktypestring vtypestring /item key9 valueQk12AQAAAAAAADYAAAAoAAAACgAAAAoAAAABABgAAAAAAEABAADEDgAAxA4AAAAAAAAAAAAAAAAAAAAAAAAAAAD///8AAADQAP///wAAAP///wAAAAAAAAD///8AAAAAAAAAAAD///8AAADQAAAAAP///wAAAAAAAP///wAAAAAAAAAAAAAAAAD///8AAADQAAAAAP///wAAAP///wAAAAAAAAAAAAAAAAAAAAA ktypestring vtypestring //验证码样本/数据区块/ApeML 你可能使用过储如群杀手、百度贴吧杀手、blog群发王……….等软件但是你知不知道这些软件全部是用模拟精灵开发的呢模拟精灵是一款免费的迷你开发工具体积很小但是几乎无所不能专用于开发一些自动化的软件其功能远远超出了按键等原始的模拟软件