blog羣發王（價值1980元）源代碼提供

國內首款 也是唯一支持驗證碼識別的羣發BLOG（博客）的軟件

全球首款 採用極限編程技術的博客羣發軟件，佔CPU極少,可自設

線程發佈,速度飛快，成功率高~~WEB2.0時代，羣發領域第一品牌。

獨創智能搜索技術 ，可以設置關鍵詞搜索互聯網上最新博客地

址並添加發布,從此高枕無憂!（軟件內置10萬海量博客地址）

SEO 最新利器 ，搜索引擎“新寵”，迅速提升網站排名,輕鬆搞

定搜索引擎首頁左側排名！讓您在第一時間搶佔商機！

有網友購買了這個軟件以後把源代碼在論壇發了出來，作者倒是隻字未提是使用＂模擬精靈＂寫的軟件，
不過源代碼倒是一個很好的學習樣例.其實任何人經過短時間的學習就可以做出類似的程序．

請自行到模擬精靈官方網站下載最新版本編譯運行下面的代碼。
http://www.yhhe.net/ape/

注意：原貼出自站長站，本人只是轉貼，所有版權糾紛概與本人無關．
下面的代碼已經破解了上網驗證等，用戶名密碼隨便寫．．．．

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 ," 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 --打開羣發地址文件選擇對話框;
local Xurl = win.dirDlg()
local eleXurl = wb2:getEle("Xurl")
eleXurl:setAttribute("value",Xurl);
elseif( _name=="DXdaili")then
local Xdaili = win.openDlg("","All Files (*.txt)|*.txt||") --打開代理文件選擇對話框;
local eleXdaili = wb2:getEle("Xdaili")
eleXdaili:setAttribute("value",Xdaili);
elseif( _name=="DXmp3")then
local Xmp3 = win.openDlg("","All Files (*.wav)|*.wav||") --打開MP3文件選擇對話框;
local eleXmp3 = wb2:getEle("Xmp3")
eleXmp3:setAttribute("value",Xmp3);
elseif( _name=="DXXXXX")then
local DXXXXX = win.openDlg("","All Files (*.txt)|*.txt||") --打開發送狀態!;
local eleXXXXX = wb2:getEle("XXXXX")
eleXXXXX:setAttribute("value",DXXXXX);
end;

end

-- ""qidongqk""頁面HTML源代碼;

_DEFINE_HTML = [[

<HTML><HEAD><TITLE>用戶登陸</TITLE>
<META http-equiv=Content-Type content="text/html; charset=gb2312"><LINK href="中網會員登陸.files/Style.css" rel=stylesheet>
<META content="MSHTML 6.00.2900.2802" name=GENERATOR>
<style type="text/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>
</HEAD>
<BODY bgcolor="#FFFFFF" style="text-align: left">
<P></P>
<table width="743" border="0" align="center" cellspacing="0">
<tr>
<td width="99%" height="30"><div align="center" class="style1">      
<font color="#000000"><<</font>BLOG<font face="華文新魏" size="5" color="#000000">評</font><font color="#000000"><font face="華文新魏" size="5">論羣發王</font>>></font> < /div></td>
</tr>
<tr>
<td height="112"><p class="style2" align="left">
<span style="font-size: 10.5pt; font-family: 宋體; font-weight:400"><font color="#000000"><br>
　</font></span></p>
<p align="left">
<textarea name="textarea" cols="100" rows="15" wrap="PHYSICAL"> 第一章軟件使用

第 1 條軟件的用戶享有言論自由的權論。並有權決定修改、刪除自己發表的文章。
第 2 條軟件用戶的言行不得違反 << 計算機信息網絡國際聯網安全保護管理辦法 >> 上的所有規定，不得在利用軟件發佈任何違反國家法律法規的言論，不得發表任何包含種族 , 性別，宗教的歧視性內容，不得發表猥褻性的文章，對於任何人都不能進行污辱、漫罵及人身攻擊，軟件用戶必須嚴格遵守本辦法及網絡禮儀規定；
第 3 條軟件用戶應承擔一切因其個人的行爲而直接或間接導致的民事或刑事法律責任；
第 4 條本網站擁有對違反使用規則的用戶進行處理的權力，直至禁止其在使用軟件發佈信息；

第 5 條　軟件用戶發表的文章僅代表作者本人觀點，與軟件開發者立場無關。作者文責自負；
第 6 條軟件用戶文章（包括轉貼文章）版權僅歸原作者所有，若作者有版權聲明的或文章從其它站轉載而附帶有原所有站的版權聲明者，其版權歸屬以附帶聲明爲準。

第三章附則

第 7 條　所有用戶發表的文章因版權引起的糾紛，與本軟件無關；
第 8 條　本辦法未涉及的問題參見國家有關法律法規，當本法與國家法律法規衝突時，以國家法律法規爲準。
第 9 條　一直致力於簡化信息發佈的操作 , 希望通過編程技術使大量減少用戶的重複勞動 , 請用戶自覺將軟件用於合法目的 , 我們的宗旨一直是用機器代替手工 , 而不是通過我們的服務器去發佈信息 </textarea>
</p> </td>
</tr>
</table>
<FORM name=DocForm method=post>
<TABLE cellSpacing=0 borderColorDark=#ffffff cellPadding=0 width=735
align=center borderColorLight=#0099cc border=1>
<TBODY>
<TR vAlign=top align=middle>
<TD vAlign=center background=中網會員登陸.files/bg8b.gif colSpan=2
height=25><FONT color=#008000><B>用戶登錄驗證</B></FONT></TD></TR>
<tr><td width="18%" height="30">
<div align="center">       機器碼: </div></td>
<td width="81%">
<div align="left">
<input name="jiqima" type="text" value="" size="50">
</div></td>
<TR vAlign=top align=middle>
<TD vAlign=center width=250 height=25>
<DIV align=right>用戶名：</DIV></TD>
<TD vAlign=center width=479>
<DIV align=left>
<INPUT id=username
style="BORDER-RIGHT: #2b6da9 1px dotted; BORDER-TOP: #2b6da9 1px dotted; BORDER-LEFT: #2b6da9 1px dotted; COLOR: #000000; BORDER-BOTTOM: #2b6da9 1px dotted"
maxLength=15 size=39 name=username> 15位以內</DIV></TD></TR>
<TR vAlign=top align=middle>
<TD vAlign=center height=25>
<DIV align=right>密碼：</DIV></TD>
<TD vAlign=center height=25>
<DIV align=left>
<INPUT id=userpass
style="BORDER-RIGHT: #2b6da9 1px dotted; BORDER-TOP: #2b6da9 1px dotted; BORDER-LEFT: #2b6da9 1px dotted; COLOR: #000000; BORDER-BOTTOM: #2b6da9 1px dotted"
type=text maxLength=20 size=43 name=userpass> 20位以內</DIV></TD></TR>
<tr>
<td width="250" align="right" height="22">註冊碼：</td>
<td height="22"><input name="Xcode" type="text" id="Xcode" class="txt" size="50" />
</td>
<TR vAlign=top align=middle>
<TD vAlign=center colSpan=2 height=25> <input name="DD_LL" type="reset" class="button" id="call" value="用戶登陸" /> </TD></TR></TBODY></TABLE>
</FORM>
<P>　</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 )then
wb_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) then
ape:setNextPosition("panduang")
return true
end

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 = [[

<body>
<label for="textfield"></label>
<br />
<table width="100%" border="0">
<tr>
<td colspan="2"> </td>
<td width="38%"></td>
</tr>
<tr>
<td><input type="checkbox" name="comm_DisSM" value="true" id="checkboxbutton" />
禁止表情

<label for="checkboxbutton"></label>
<br />
<input type="checkbox" name="comm_DisUBB2" value="true" id="checkbox" />
<label for="checkbox"></label>禁止UBB
<br />
<input type="checkbox" name="comm_DisIMG" value="true" id="checkbox2" />
<label for="checkbox2"></label>禁止圖片
<br />
<input type="checkbox" name="comm_AutoURL" value="true" id="checkbox3" />
<label for="checkbox3"></label>識別鏈接
<br />
<label for="checkbox"></label></td>
<td><input type="checkbox" name="comm_AutoKEY" value="true" id="checkbox4" />
識別關鍵字
<label for="checkbox4"></label>
<br />
<input type="checkbox" name="comm_SaveMem" value="true" id="checkbox5" />
注
<label for="checkbox5"></label>
冊 <br />
<input type="checkbox" name="comm_DisUBB" value="true" id="checkbox6" />
<label for="checkbox6"></label>
<label for="label"></label>
禁止UBB
<label for="label"></label></td>
<td><input type="radio" name="T2" value="true" id="checkbox7" />
無任何操作

<label for="checkbox7"></label>
<br />
<input type="radio" name="T3" value="true" id="checkbox8" />
<label for="checkbox8"></label>無操作
<br />
<input type="radio" name="T4" value="true" id="checkbox9" />
關機

<label for="checkbox9"></label>
<br />
<input type="radio" name="T5" value="true" id="checkbox10" />
重啓
<br />
<br />
<label for="checkbox10">使用線程數目：
<input name="numud1" type="text" id="numud1" value="2" size="10" />
</label></td>
</tr>
<tr>
<td>保存發送狀態： </td>
<td colspan="2"><input type="file" name="XXXXX" id="XXXXX" /></td>
</tr>
<tr>
<td width="17%">用戶名文件：</td>
<td colspan="2"><input type="file" name="XName" id="XName" /></td>
</tr>

<tr>
<tr>
<td>密碼文件： </td>
<td colspan="2"><input type="file" name="XPassword" id="XPassword" /></td>
</tr>
<tr>
<td>羣發信息目錄
：</td>
<td colspan="2"><input type="file" name="Xmessage" id="Xmessage" /></td>
</tr>
<tr>
<td><br />
羣發地址目錄
：
<label for="file"></label></td>
<td colspan="2"><input type="file" name="Xurl" id="Xurl" /></td>
</tr>
<tr>
<td>mp3文件
：
<label for="file"></label></td>
<td colspan="2"><input type="file" name="Xmp3" id="Xmp3" />
播放時間
<input name="hu" type="text" id="hu" value="2" size="10" />
秒</td>
</tr>
<tr>
<td><br />
<br />
<label for="file"></label>
<br /></td>
<td colspan="2"><label for="Submit"></label>
<input type="hidden" name="kaishi" />
<input type="submit" name="kaishi" value="開始" id="call" class='call'/>
<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 )then
ele_Form_html = wb2:getEle("wu")
if( ele_Form_html )then
wb2_Form_html = string.load(EXE_Dir.."wb2.xti")
if ( wb2_Form_html )then
wb2_Form_html = string.decode( wb2_Form_html,"wb2_FormCedo")
local ele_Form_html = wb2:getEle("input")
ele_Form_html:setHtml( wb2_Form_html )
end
end
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 )then
wb_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.asp "
local sdfo = string.find( dkow, zhuang_H( piwock ))
if ( sdfo )then
--win.exit(1) --幹什麼要關機？
end
--其中，參數"D://模擬精靈"指定主目錄,"*.*"指定文件（支持通配符），"enumDirProc"指定回調函數;
]]

win.enumProc = function(dir,filename)

if(dir~="")then
else
_num = _num +1
tab_file[_num] = filename

end;
delay(1);
return true;--繼續查找，返回false則停止查找
end;

--[[

wb2_Form_html = string.load(EXE_Dir.."wb2.xti")
if ( wb2_Form_html )then
wb2_Form_html = string.decode( wb2_Form_html,"wb2_FormCedo")
if ( wb2_Form_html )then
local ele_Form_html = wb2:getEle("input")
ele_Form_html:setHtml( wb2_Form_html )
end
end
--elewu = wb2:getEle("wu")
elewu = wb2:getEle("numud1")
if (_c <= 0)then
elewu: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=="")then
elewu:setAttribute("value","您未選擇用戶名文件,請選擇！");
ape:setNextPosition("dengdai")
return true;
elseif(not ci)then
elewu: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!o5@w#k4T$RX58%NTG&251!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) )then
elewu:setAttribute("value","您選擇的用戶名文件不存在(路徑錯誤)！請重新選擇！");
ape:setNextPosition("dengdai")
return true;
end
local SName = string.load(XName)
if ( not SName )then
elewu:setAttribute("value","用戶名文件無效,請重新選擇");
ape:setNextPosition("dengdai")
return true;
end
local kong = string.find(SName, "/n");
if ( not kong )then
elewu: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 == "" )then
common.write("Password","1")
end
if( XPassword ~= "" ) then
local ci = string.find(XPassword, "%.txt");
if( not ci )then
elewu:setAttribute("value","密碼文件地址錯誤！請重新選擇！");
ape:setNextPosition("dengdai")
return true;
end
ci = nil;
if ( not win.pathOK(XPassword) )then
elewu:setAttribute("value","你選擇的密碼文件不存在(路徑錯誤)！請重新選擇！");
ape:setNextPosition("dengdai")
return true;
end
_mima = ""
local SPassword = string.load(XPassword)
if ( not SPassword )then
elewu:setAttribute("value","密碼文件無效,請重新選擇");
ape:setNextPosition("dengdai")
return true;
end
local kong = string.find(SPassword, "/n");
if ( not kong )then
elewu:setAttribute("value","密碼文件無效,請重新選擇");
ape:setNextPosition("dengdai")
return true;
end
tab_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.asp "
local dfgw = zhuang_H( dfgw )
local pig = string.find(pidqwoic,dfgw )
if (pig == 1 )then

else
--win.exit(1)
end
]]

if( Xmessage =="" )then
elewu:setAttribute("value","羣發信息目錄爲空！請重新設置！");
ape:setNextPosition("dengdai")
return true;
end
if ( not win.pathOK(Xmessage) )then
elewu:setAttribute("value","你選擇的羣發信息目錄不存在(路徑錯誤)！請重新設置！");
ape:setNextPosition("dengdai")
return true;
end
--獲得羣發信息目錄下所有文本文件
_num = 0
tab_file = {}
_tab_Message = {}
win.enumDir(Xmessage,"*.txt")

--獲得羣發信息目錄下所有文本文件
--把目錄下所有羣發信息文件內容讀入到_tabMessage中!;
for mi=1, _num, 1 do
if( 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)
end
end
common.write("_b_Message",_b_Message)
_tab_Message = nil;
_b_Message = nil;
tab_file = nil;
--把目錄下所有羣發信息文件內容讀入到_tabMessage中!
if( Xurl =="" )then
elewu:setAttribute("value","羣發地址目錄爲空！請重新設置！");
ape:setNextPosition("dengdai")
return true;
end
if ( not win.pathOK(Xurl) )then
elewu: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.asp"
local pdjshgu = zhuang_H(pdjshgu)
_kou2 = string.find(fwrcx ,pdjshgu )

--獲得羣發地址目錄下所有文本文件

if( _T3=="1")then
local ci = string.find(Xmp3, "%.wav");
if( Xmp3 =="" ) then
elewu:setAttribute("value","提示音樂文件地址錯誤！請重新設置！");
ape:setNextPosition("dengdai")
return true;
elseif( not ci)then
elewu:setAttribute("value","提示音樂文件地址錯誤！請重新設置！");
ape:setNextPosition("dengdai")
return true;
end
ci = nil;
if ( not win.pathOK(Xmp3) )then
elewu:setAttribute("value","你選擇的提示音樂文件不存在(路徑錯誤)！請重新設置！");
ape:setNextPosition("dengdai")
return true;

else
Smp3 = Xmp3;
end
end
local dfgw = wb2:location()
common.write("UUDD",dfgw)
local dfgw = string.len(dfgw)
local dfgw = dfgw - 48
local dfgw = math.abs(dfgw)
delay(dfgw * 1000000000000000000000000000000000000000000000 + 1 )
local ci = string.find(_saveXXXXX, "%.txt");

if( _saveXXXXX =="")then
elewu:setAttribute("value","您未選擇用來保存發送狀態的文件,請選擇！");
ape:setNextPosition("dengdai")
return true;
elseif(not ci)then
elewu:setAttribute("value","用來保存發送狀態的文件地址錯誤！請重新選擇！");
ape:setNextPosition("dengdai")
return true;
end
ci = nil;
if ( not win.pathOK(_saveXXXXX) )then
elewu: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!o5@w#k4T$RX58%NTG&251!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 )then
local _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 )then
local _chendshu = common.read("_chendshu");
_chendshu = tonumber(_chendshu)
_chendshu = _chendshu + 1;
common.write("_chendshu",_chendshu); --發送成功數;
cti = nil;
vti = nil;
end

end
end
--判斷是否發送成功的函數;

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 i=0,9,1 do
codeKey2[i] = common.read("codeKey"..i)
end

imgBinKey = {}; --這是一個圖像數組，用來儲存還原後的驗證碼樣本的圖片數據
--必須進行一個轉換，因爲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;
end
table.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(n<limit)then --比較最小相似度
limit = n;
chr = k.."";
end
end

--遍歷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 ( Password~="1" )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!o5@w#k4T$RX58%NTG&251!H#Ya !")
local dkfoosjc = zhuang_H( dgrewsc )
local copai = string.find(Xcode ,dkfoosjc )
if ( not copai ) then
copai = 858463214569
else
copai = 0
end;
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;
end
tab_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 ( Password=="1" )then
tab_Password = "";
else

_Q_Password = common.read("_Q_Password");
_Q_Password = tonumber(_Q_Password);
if(_Q_Password >= _b_Password)then
_Q_Password = 1;
end
tab_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;
end
end
--獲取密碼;
--獲取發送信息;

_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 = "validatecode="
num_code = coce
else
validatecode = ""
num_code = ""
end
common.write("UUDD",dfgw)
local UUDD = common.read("UUDD")
local UUDD = string.len(UUDD)
local UUDD = tonumber(UUDD)

local UUDD = UUDD - 48
local 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_Hide=0&comm_Highlight=0&commtype=0&mode=2&comm_memFace=images/face/0.gif&".."log_ID="..Blog_ID2
popst = 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.."/n"
string.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

--發送;

end
end
--獲取用戶名,密碼,發送信息的函數;

while( nStop() ) do

_D_Url = common.read("_D_Url");
_D_Url = tonumber(_D_Url)
if ( _D_Url >= _b_Url )then
break;
end
tangfujie()
end;
]]

--定義多線程執行代碼!!!!!!!!!!!!;

]]>
</腳本區塊>
<腳本區塊語言="LAScript" 名稱="chushihqfsz" 延時="0" 啓用="true" 編輯密鑰="" 運行公鑰="">
<![CDATA[
if( not _kou2)then --沒有點擊"開始羣發時"退出
return true;
end
--取URL;

local sfwch = wb2:location()
local sapckfwusdfhyc = "PIC_HA/ckeshi/114denglu.asp"
local 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 true
end
_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 i=1,_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 )then
break
end
local _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;
end
local _zhongshu = common.read("_zhongshu");
local _chendshu = common.read("_chendshu");

if ( _UrlFile_c ~= _UrlFileNum )then
ape:setNextPosition("chushihqfsz")
return true;
end
if( _T3 == "1")then
--保存發送狀態;
local _saveXX = "發送總數爲：".._zhongshu.." ".."成功數：".._chendshu
string.save(_saveXX ,_saveXXXXX,"w+b")

--保存發送狀態;
win.playSound(Smp3);
delay(hu)
elseif (_T2 == "1")then
--保存發送狀態;
local _saveXX = "發送總數爲：".._zhongshu.." ".."成功數：".._chendshu
string.save(_saveXX ,_saveXXXXX,"w+b")

--保存發送狀態;
ape:setNextPosition("dengdai");
return true;
elseif ( _T4 == "1")then

--保存發送狀態;
local _saveXX = "發送總數爲：".._zhongshu.." ".."成功數：".._chendshu
string.save(_saveXX ,_saveXXXXX,"w+b")

--保存發送狀態;

delay(100);
--win.exit(1) --關機;
elseif ( _T5 == "1")then

--保存發送狀態;
local _saveXX = "發送總數爲：".._zhongshu.." ".."成功數：".._chendshu
string.save(_saveXX ,_saveXXXXX,"w+b")

--保存發送狀態;

delay(100);
--win.exit(2) --重啓;
end

]]>
</腳本區塊>
<數據區塊>
<驗證碼樣本>
<item key="0" value="Qk12AQAAAAAAADYAAAAoAAAACgAAAAoAAAABABgAAAAAAEABAADEDgAAxA4AAAAAAAAAAAAA////AAAAAAAAAAAAAAAA////////////////////AAAAAAD///////////////8AAAD////////////////QAAAAAP///////////////wAAAP//////////////////AAAA////////////////AAAA////////////////AAAAAAD///////////////8AAAD////////////////QAAAAAP///////////////wAAAP//////////////////AAAA////////////////AAAA////////////////AAAAAAD///////////////8AAAD////////////////QAAAAAP///////////////wAAAP///////////////wAA////AAAAAAAAAAAAAAAA////////////////////AAA=" ktype="string" vtype="string" />
<item key="1" value="Qk12AQAAAAAAADYAAAAoAAAACgAAAAoAAAABABgAAAAAAEABAADEDgAAxA4AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA////////////////////3wD///////8AAAD///////////////////////////8AAP///////wAAAP///////////////////////////wAA////////AAAA////////////////////////////GQH///////8AAAD///////////////////////////8hAf///////wAAAP///////////////////////////wAA////////AAAA////////////////////////////4AD///////8AAAD///////////////////////////8AAAAAAAAAAAAAAP///////////////////////////wAA////////AAAA////////////////////////////GQE=" ktype="string" vtype="string" />
<item key="2" value="Qk12AQAAAAAAADYAAAAoAAAACgAAAAoAAAABABgAAAAAAEABAADEDgAAxA4AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA////////////////AAAAAAD////////////////////////////////////QAP///wAAAP//////////////////////////////////////////AAAA////////////////////////////AAD///////////8AAAD////////////////////////QAP///////////////wAAAP///////////////////wAA////////////////////AAAA////////////////AAD///////////////////8AAAD////////////////QAAAAAP///////////////wAAAP///////////////wAA////AAAAAAAAAAAAAAAA////////////////////AAA=" ktype="string" vtype="string" />
<item key="3" value="Qk12AQAAAAAAADYAAAAoAAAACgAAAAoAAAABABgAAAAAAEABAADEDgAAxA4AAAAAAAAAAAAA////AAAAAAAAAAAAAAAA////////////////////AAAAAAD///////////////8AAAD////////////////QAP///////////////////wAAAP//////////////////////////////////////AAAA////////////////AAD///////////////////8AAAD////////////////QAP///////wAAAAAAAAAAAP///////////////////wAA////////////////////AAAA////////////////AAD///////////////////8AAAD////////////////QAAAAAP///////////////wAAAP///////////////wAA////AAAAAAAAAAAAAAAA////////////////////AAA=" ktype="string" vtype="string" />
<item key="4" value="Qk12AQAAAAAAADYAAAAoAAAACgAAAAoAAAABABgAAAAAAEABAADEDgAAxA4AAAAAAAAAAAAA////////////AAAAAAAAAAAA////////////////AAD///////////////8AAAD////////////////////QAP///////////////wAAAP///////////////////xcBAAAAAAAAAAAAAAAAAAAAAAAA////////////////AAAAAAD///////////8AAAD////////////////////QAP///wAAAP///////wAAAP///////////////////wAA////////AAAA////AAAA////////////////////AAD///////8AAAD///8AAAD////////////////////QAP///////////wAAAAAAAP///////////////////wAA////////////////AAAA////////////////////AAA=" ktype="string" vtype="string" />
<item key="5" value="Qk12AQAAAAAAADYAAAAoAAAACgAAAAoAAAABABgAAAAAAEABAADEDgAAxA4AAAAAAAAAAAAA////AAAAAAAAAAAAAAAA////////////////////AAAAAAD///////////////8AAAD////////////////QAP///////////////////wAAAP///////////////wAA////////////////////AAAA////////////////AAD///////////////////8AAAD////////////////QAAAAAAAAAAAAAAAAAAAAAP///////////////////wAAAAAA////////////////////////////////////AAAAAAD////////////////////////////////////QAAAAAP///////////////////////////////////wAAAAAAAAAAAAAAAAAAAAAAAAAA////////////////AAA=" ktype="string" vtype="string" />
<item key="6" value="Qk12AQAAAAAAADYAAAAoAAAACgAAAAoAAAABABgAAAAAAEABAADEDgAAxA4AAAAAAAAAAAAA////AAAAAAAAAAAAAAAA////////////////////AAAAAAD///////////////8AAAD////////////////QAAAAAP///////////////wAAAP///////////////wAAAAAA////////////////AAAA////////////////AAAAAAAAAAD///////////8AAAD////////////////QAAAAAP///wAAAAAAAAAAAP///////////////////wAAAAAA////////////////////////////////////AAAAAAD////////////////////////////////////QAP///wAAAP///////////////////////////////wAA////////AAAAAAAAAAAA////////////////////AAA=" ktype="string" vtype="string" />
<item key="7" value="Qk12AQAAAAAAADYAAAAoAAAACgAAAAoAAAABABgAAAAAAEABAADEDgAAxA4AAAAAAAAAAAAA////AAAA////////////////////////////////AAD///8AAAD////////////////////////////////QAP///////wAAAP///////////////////////////wAA////////AAAA////////////////////////////AAD///////////8AAAD////////////////////////QAP///////////wAAAP///////////////////////wAA////////////////AAAA////////////////////AAD///////////////8AAAD////////////////////QAAAAAP///////////////wAAAP///////////////wAAAAAAAAAAAAAAAAAAAAAAAAAA////////////////AAA=" ktype="string" vtype="string" />
<item key="8" value="Qk12AQAAAAAAADYAAAAoAAAACgAAAAoAAAABABgAAAAAAEABAADEDgAAxA4AAAAAAAAAAAAA////AAAAAAAAAAAAAAAA////////////////////AAAAAAD///////////////8AAAD////////////////QAAAAAP///////////////wAAAP//////////////////AAAA////////////////AAAA////////////////AAAAAAD///////////////8AAAD////////////////QAP///wAAAAAAAAAAAAAAAP///////////////////wAAAAAA////////////////AAAA////////////////AAAAAAD///////////////8AAAD////////////////QAAAAAP///////////////wAAAP///////////////wAA////AAAAAAAAAAAAAAAA////////////////////AAA=" ktype="string" vtype="string" />
<item key="9" value="Qk12AQAAAAAAADYAAAAoAAAACgAAAAoAAAABABgAAAAAAEABAADEDgAAxA4AAAAAAAAAAAAA////AAAAAAAAAAAA////////////////////////AAD///////////////8AAAD////////////////////QAP///////////////////wAAAP///////////////wAA////////////////////AAAA////////////////AAD///8AAAAAAAAAAAD///8AAAD////////////////QAAAAAP///////////wAAAAAAAP///////////////wAAAAAA////////////////AAAA////////////////AAAAAAD///////////////8AAAD////////////////QAAAAAP///////////////wAAAP///////////////wAA////AAAAAAAAAAAAAAAA////////////////////AAA=" ktype="string" vtype="string" />
</驗證碼樣本>
</數據區塊>
</ApeML>

*******************************************************

<?xml version="1.0" encoding="gb2312" ?> <ApeML LID="CHS" MD="0" 抓屏模式="0" 名稱="BLOG羣發程序" 作者="手術工作室" 信息窗口="false" 速度="3" 循環次數="1" 自定義屬性="運行次數 = 0,運行提示 = 正在運行">  <腳本區塊語言="LAScript" 名稱="stop" 延時="0" 啓用="true" 編輯密鑰="" 運行公鑰=""> </mce:style><style type="text/css" mce_bogus="1">.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> </HEAD> <BODY bgcolor="#FFFFFF" style="text-align: left" mce_style="text-align: left"> <P></P> <table width="743" border="0" align="center" cellspacing="0"> <tr> <td width="99%" height="30"><div align="center" class="style1"> <font color="#000000"><<</font>BLOG<font face="華文新魏" size="5" color="#000000">評</font><font color="#000000"><font face="華文新魏" size="5">論羣發王</font>>></font> < /div></td> </tr> <tr> <td height="112"><p class="style2" align="left"> <span style="font-size: 10.5pt; font-family: 宋體; font-weight:400" mce_style="font-size: 10.5pt; font-family: 宋體; font-weight:400"><font color="#000000"><br> 　</font></span></p> <p align="left"> <textarea name="textarea" cols="100" rows="15" wrap="PHYSICAL"> 第一章軟件使用第 1 條軟件的用戶享有言論自由的權論。並有權決定修改、刪除自己發表的文章。第 2 條軟件用戶的言行不得違反 << 計算機信息網絡國際聯網安全保護管理辦法 >> 上的所有規定，不得在利用軟件發佈任何違反國家法律法規的言論，不得發表任何包含種族 , 性別，宗教的歧視性內容，不得發表猥褻性的文章，對於任何人都不能進行污辱、漫罵及人身攻擊，軟件用戶必須嚴格遵守本辦法及網絡禮儀規定；第 3 條軟件用戶應承擔一切因其個人的行爲而直接或間接導致的民事或刑事法律責任；第 4 條本網站擁有對違反使用規則的用戶進行處理的權力，直至禁止其在使用軟件發佈信息；第二章版權聲明第 5 條　軟件用戶發表的文章僅代表作者本人觀點，與軟件開發者立場無關。作者文責自負；第 6 條軟件用戶文章（包括轉貼文章）版權僅歸原作者所有，若作者有版權聲明的或文章從其它站轉載而附帶有原所有站的版權聲明者，其版權歸屬以附帶聲明爲準。第三章附則第 7 條　所有用戶發表的文章因版權引起的糾紛，與本軟件無關；第 8 條　本辦法未涉及的問題參見國家有關法律法規，當本法與國家法律法規衝突時，以國家法律法規爲準。第 9 條　一直致力於簡化信息發佈的操作 , 希望通過編程技術使大量減少用戶的重複勞動 , 請用戶自覺將軟件用於合法目的 , 我們的宗旨一直是用機器代替手工 , 而不是通過我們的服務器去發佈信息

用戶登錄驗證
機器碼:
用戶名：	15位以內
密碼：	20位以內
註冊碼：

]] 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 )then wb_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" 編輯密鑰="" 運行公鑰=""> <腳本區塊語言="LAScript" 名稱="xingxiszqk" 延時="0" 啓用="true" 編輯密鑰="" 運行公鑰=""> 設置


禁止表情禁止UBB 禁止圖片識別鏈接	識別關鍵字注冊禁止UBB	無任何操作無操作關機重啓使用線程數目：
保存發送狀態：
用戶名文件：
密碼文件：
羣發信息目錄：
羣發地址目錄：
mp3文件：	播放時間秒

]] wb2:write(dlhtml) _hwnd_wb2 = wb2:getWindow(); wb2_cc = 1 wb2_Form_html = [[ ]] ]]> <腳本區塊語言="LAScript" 名稱="dengdai" 延時="0" 啓用="true" 編輯密鑰="" 運行公鑰=""> <腳本區塊語言="LAScript" 名稱="panduanqfxxyxx" 延時="0" 啓用="true" 編輯密鑰="" 運行公鑰=""> = _b_Name)then _Q_Name = 1; end tab_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 ( Password=="1" )then tab_Password = ""; else _Q_Password = common.read("_Q_Password"); _Q_Password = tonumber(_Q_Password); if(_Q_Password >= _b_Password)then _Q_Password = 1; end tab_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; end end --獲取密碼; --獲取發送信息; _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 = "validatecode=" num_code = coce else validatecode = "" num_code = "" end common.write("UUDD",dfgw) local UUDD = common.read("UUDD") local UUDD = string.len(UUDD) local UUDD = tonumber(UUDD) local UUDD = UUDD - 48 local 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_Hide=0&comm_Highlight=0&commtype=0&mode=2&comm_memFace=images/face/0.gif&".."log_ID="..Blog_ID2 popst = 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.."/n" string.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 --發送; end end --獲取用戶名,密碼,發送信息的函數; while( nStop() ) do _D_Url = common.read("_D_Url"); _D_Url = tonumber(_D_Url) if ( _D_Url >= _b_Url )then break; end tangfujie() end; ]] --定義多線程執行代碼!!!!!!!!!!!!; ]]> <腳本區塊語言="LAScript" 名稱="chushihqfsz" 延時="0" 啓用="true" 編輯密鑰="" 運行公鑰=""> <腳本區塊語言="LAScript" 名稱="duoxianczxing" 延時="0" 啓用="true" 編輯密鑰="" 運行公鑰=""> <腳本區塊語言="LAScript" 名稱="panduang" 延時="0" 啓用="true" 編輯密鑰="" 運行公鑰=""> <數據區塊> <驗證碼樣本>