blog群发王（价值1980元）源代码提供


blog群发王（价值1980元）源代码提供 
相信很多人被这个软件易做图扰过吧
---------------------------------------------------------------------- 
  国内首款也是唯一支持验证码识别的群发BLOG（博客）的软件 
  全球首款采用极限编程技术的博客易做图，占CPU极少,可自设 
线程发布,速度飞快，成功率高~~WEB2.0时代，群发领域第一品牌。
  独创智能搜索技术，可以设置关键词搜索互联网上最新博客地 
址并添加发布,从此高枕无忧!（软件内置10万海量博客地址）
  SEO最新利器， 搜索引擎“新宠”，迅速提升网站排名,轻松搞 
定搜索引擎首页左侧排名！让您在第一时间抢占商机！

有网友购买了这个软件以后把源代码在论坛发了出来，作者倒是只字未提是使用＂模拟精灵＂写的软件，
不过源代码倒是一个很好的学习样例.其实任何人经过短时间的学习就可以做出类似的程序．
请自行到模拟精灵官方网站下载最新版本编译运行下面的代码。
http://www.yhhe.net/ape/
注意：原贴出自站长站，本人只是转贴，所有版权易做图概与本人无关．
下面的代码已经破解了上网验证等，用户名密码随便写．．．．．．
 
<?xml version="1.0" encoding="gb2312" ?>
<ApeML LID="CHS" MD="0" 抓屏模式="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;
-- id="call" 或 class="call" 的按钮将会触发这个函数 
-- 回调函数，参数(element对象,窗体句柄 ) 

web.callProc = function(ele,hwnd) 
local _name=ele:getAttribute("name");
if ( _name=="DD_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 ,"$RX58%NTG&251!H#Ya">T!o5@w#k4T$RX58%NTG&251!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( _name=="kaishi")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 )then
common.write("comm_DisSM","comm_DisSM=");
common.write("num_DisSM","1&");
else
common.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 )then
common.write("comm_DisUBB","comm_DisUBB=");
common.write("num_DisUBB","1&");
else
common.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 )then
common.write("comm_DisIMG","comm_DisIMG=");
common.write("num_DisIMG","1&");
else
common.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 )then
common.write("comm_AutoURL","comm_AutoURL=");
common.write("num_AutoURL","1&");
else
common.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 )then
common.write("comm_AutoKEY","comm_AutoKEY=");
common.write("num_AutoKEY","1&");
else
common.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 )then
common.write("comm_SaveMem","comm_SaveMem=");
common.write("num_SaveMem","1&");
else
common.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 = ""
end
local 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 = ""
end
local 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 = ""
end
local 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 = "1"
end
eleXName = 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( _name=="DName")then
local XName = win.openDlg("","All Files (*.txt)|*.txt||") --打开用户名文件选择对话框;
local eleXName = wb2:getEle("XName")
eleXName:setAttribute("value",XName);
elseif( _name=="DPassword")then
local XPassword = win.openDlg("","All Files (*.txt)|*.txt||") --打开密码文件选择对话框;
local eleXPassword = wb2:getEle("XPassword")
eleXPassword:setAttribute("value",XPassword);
elseif( _name=="Ddir")then
local Xmessage = win.dirDlg() --打开群发信息选择对话框;
local eleXmessage = wb2:getEle("Xmessage")
eleXmessage:setAttribute("value",Xmessage);
elseif( _name=="Durl")then --打开群发地址文件选择对话框;
补充：综合编程 , 安全编程 ,