<?xml version="1.0" encoding="gb2312" ?>
<ApeML LID="CHS" MD="0" 抓屏模式="0" 名称="icctv-vote" 作者="xing006" 信息窗口="false" 速度="15" 循环次数="20" 自定义属性="ConnectionName = adsl,ConnectionPassword = m7x9b6r4,ConnectionUser = 100001230164">
<!--创建时间:2005年11月30日-05:07-->
<脚本区块 语言="LAScript" 名称="init" 延时="0" 启用="true" 编辑密钥="" 运行公钥="">
<![CDATA[
_set = ape:loadSetting(); --读取自定义属性
stopPlay = function() --这个函数回放停止时被调用.
ape:saveSetting(_set); --保存自定义属性
collectgarbage();--清理内存
end;
import("net");
import("clean");
Forms=net.System.Windows.Forms
Drawing=net.System.Drawing
Form=Forms.Form
TextBox=Forms.TextBox
Label=Forms.Label
Button=Forms.Button
Point=Drawing.Point
Size=Drawing.Size
FormStartPosition=Forms.FormStartPosition
wb = web.new();
identify= function()
clean.IE(false,true);
local strUrl="http://"
wb:setSilent(true,true);
wb:go(strUrl);
wb:show(false);
delay(200);
for i=1,100,1 do
if(wb:getEle("CheckCode_input"))then
local img=image.new();
img:getURL("http://","*.gif");
if(img:ok())then
img:corp(5,4,41,14);--对图进行修剪;
local img2,img3,img4,img5=img:split(1,4);
if(img2)then
img2:median(2);--是否加中值滤波，及中值滤波的值，要根据实际情况进行调整。;
img3:median(2);
img4:median(2);
img5:median(2);
end;
imgBinKey=bytestoImg();--得到包含样本图片的表
local str="";--识别出来的文字
str=test(imgBinKey,img2);
str=str..test(imgBinKey,img3);
str=str..test(imgBinKey,img4);
str=str..test(imgBinKey,img5);
local ele=wb:getEle("CheckCode_input")
ele:setAttribute("value",str);
ele:submit();--提交表单
image.del(img);
image.del(img2);
image.del(img3);
image.del(img4);
image.del(img5);
element.del(ele);
break;
end;
end;
if(i==100)then
return false;
end;
delay(100)
end;
return true;
end;
function isConnect(url)
local str = web.getURL(url);
if (str=="")then
return false;
end;
if( string.find( str, "找不到服务器" ) )then
return false;
end;
if( string.find( str , "没有可以显示的页面" ) )then
return false;
end;
return true;
end;
function isConnectX()
NETWORK_ALIVE_LAN = 0x00000001 --是否有可用网卡
NETWORK_ALIVE_WAN = 0x00000002 -- 是否有可用远程连接
NETWORK_ALIVE_AOL = 0x00000004 -- NETWORK_ALIVE_AOL（仅对98\95有效判断是否联上美国的网络）
--IsNetworkAlive的参数是传址的，所以需要用P来标记参数类型，然后在返回值中添加一个返回值flag
IsNetworkAlive = dll.open("sensapi.dll", "IsNetworkAlive", "I(P)","stdcall")
ok,flag = IsNetworkAlive(NETWORK_ALIVE_WAN); --ok对应上面的默认返回值I，flag对应上面的输出参数返回值P
-- 注意上面的参数 ，应在网络连接以后延迟一下再检测是否有活动的连接
if( ok == 0 )then
return false;
else
if( (flag & NETWORK_ALIVE_WAN) == NETWORK_ALIVE_WAN)then
return true;
else
return false;
end;
end;
end;
bytestoImg= function()
local codeKey=ape:loadTable("验证码样本");--从数据岛读取表
local imgBinKey={};--这个表是放真正的图像的
toImage= function(k,v)
local img9=image.new();
img9:setBytes(string.decode(v,""),"*.gif");
imgBinKey[k]=img9;
end;
table.foreach(codeKey,toImage)
return imgBinKey;--调用函数，将返回包含样本图片的表
end;
test= function(imgBinKey,imgX)
local limit=9999;
local chr="";
testImg= function(k,v)
local n=imgX:testXX(imgBinKey[k]);
if (n<limit) then
limit=n;
chr=k.."";
end;
end;
table.foreach(imgBinKey,testImg);
return chr
end;
function dail(connN,connU,connP)
collectgarbage();
win.exec(win.getSysDir().."\rasdial.exe"," "..connName.." /DISCONNECT",win.getSysDir(),0);
delay(2*1000); --延时2秒
win.exec(win.getSysDir().."\rasdial.exe"," "..connName.." "..connUser.." "..connPassword,win.getSysDir(),0);
delay(5*1000); --延时2秒
end;
function btnVote_click(sender,args)
connName = txtConnectionName.Text;
connUser = txtConnectionUser.Text;
connPassword = txtConnectionPassword.Text;
ape:setRunNumber(txtVoteCount.Text);
local i = 0;
local j= ape:getRunNumber();
while(i<j)
do
if(math.mod(i,10)==0) then
dail(connName,connUser,connPassword);
if(isConnectX())then
if(identify())then
i=i+1
lblValue.Text = i.."/"..j
delay(1000);
end;
end;
else
if(not isConnectX())then
dail(connName,connUser,connPassword);
end;
if(identify())then
i = i + 1;
lblValue.Text = i.."/"..j;
delay(1000);
end;
end;
end;
end;
form = Form();
txtVoteCount = TextBox();
txtConnectionName = TextBox();
txtConnectionUser = TextBox();
txtConnectionPassword = TextBox();
lblVoteCount = Label();
lblConnectionName = Label();
lblConnectionUser = Label();
lblConnectionPassword = Label();
lblPercent = Label();
lblValue = Label();
btnVote = Button();
form:SuspendLayout();
lblVoteCount.Location = Point(10, 10);
lblVoteCount.Name = "lblVoteCount";
lblVoteCount.Size = Size(40, 10);
lblVoteCount.TabIndex = 0;
lblVoteCount.Text = "票数:";
txtVoteCount.Location = Point(80, 10);
txtVoteCount.Name = "txtVoteCount";
txtVoteCount.Size = Size(60, 60);
txtVoteCount.TabIndex = 1;
txtVoteCount.Text ="20000"
lblConnectionName.Location = Point(10, 40);
lblConnectionName.Name = "lblConnectionName";
lblConnectionName.Size = Size(70, 10);
lblConnectionName.TabIndex = 2;
lblConnectionName.Text = "拔号连接名:";
txtConnectionName.Location = Point(80, 40);
txtConnectionName.Name = "txtConnectionName";
txtConnectionName.Size = Size(60, 60);
txtConnectionName.TabIndex = 3;
txtConnectionName.Text ="adsl"
lblConnectionUser.Location = Point(10, 70);
lblConnectionUser.Name = "lblConnectionUser";
lblConnectionUser.Size = Size(70, 10);
lblConnectionUser.TabIndex = 4;
lblConnectionUser.Text = "拔号用户名:";
txtConnectionUser.Location = Point(80, 70);
txtConnectionUser.Name = "txtConnectionUser";
txtConnectionUser.Size = Size(60, 60);
txtConnectionUser.TabIndex = 5;
txtConnectionUser.Text ="100001230164"
lblConnectionPassword.Location = Point(10, 100);
lblConnectionPassword.Name = "lblConnectionPassword";
lblConnectionPassword.Size = Size(70, 10);
lblConnectionPassword.TabIndex = 6;
lblConnectionPassword.Text = "拔号密码:";
txtConnectionPassword.Location = Point(80, 100);
txtConnectionPassword.Name = "txtConnectionPassword";
txtConnectionPassword.Size = Size(60, 60);
txtConnectionPassword.TabIndex = 7;
txtConnectionPassword.Text ="m7x9b6r4";
lblPercent.Location = Point(10, 130);
lblPercent.Name = "lblPercent";
lblPercent.Size = Size(70, 10);
lblPercent.TabIndex = 8;
lblPercent.Text = "进度:";
lblValue.Location = Point(80, 130);
lblValue.Name = "lblValue";
lblValue.Size = Size(70, 10);
lblValue.TabIndex = 9;
--lblValue.Text = "";
btnVote.Location = Point(70, 170);
btnVote.Name = "btnVote";
btnVote.TabIndex = 10;
btnVote.Text = "开始投票";
btnVote.Click:Add(btnVote_click);
form.AutoScaleBaseSize = Size(5, 13);
form.ClientSize = Size(200, 200);
form.Controls:Add(lblVoteCount);
form.Controls:Add(txtVoteCount);
form.Controls:Add(lblConnectionName);
form.Controls:Add(txtConnectionName);
form.Controls:Add(lblConnectionUser);
form.Controls:Add(txtConnectionUser);
form.Controls:Add(lblConnectionPassword);
form.Controls:Add(txtConnectionPassword);
form.Controls:Add(lblPercent);
form.Controls:Add(lblValue);
form.Controls:Add(btnVote);
form.Name = "MainForm"
form.Text = "ICCTV Vote"
form.StartPosition = FormStartPosition.CenterScreen
form.MaximizeBox=false;
form.MinimizeBox=true;
form:ResumeLayout(false);
form:ShowDialog();]]>
</脚本区块>
<数据区块>
<验证码样本>
<item key="0" value="R0lGODlhCQAKAOMAAP///wAAAMjIyAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACH5BAAAAP8ALAAAAAAJAAoAAAQWEMhApaX4Bj1tB5sXhtdEViZImqjnRgA7" ktype="string" vtype="string" />
<item key="1" value="R0lGODlhCQAKAOMAAP///wAAAMjIyAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACH5BAAAAP8ALAAAAAAJAAoAAAQTEMgQpAW0Xpz31BsYehOJkZ1pRQA7" ktype="string" vtype="string" />
<item key="2" value="R0lGODlhCQAKAOMAAP///wAAAMjIyAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACH5BAAAAP8ALAAAAAAJAAoAAAQXEIAQZrXXTsl3l9SnfWFHZVyZnuTpBhEAOw==" ktype="string" vtype="string" />
<item key="3" value="R0lGODlhCQAKAOMAAP///wAAAMjIyAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACH5BAAAAP8ALAAAAAAJAAoAAAQUEIRJgb124qt3x9WWBWJWdihZXhEAOw==" ktype="string" vtype="string" />
<item key="4" value="R0lGODlhCQAKAOMAAP///wAAAMjIyAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACH5BAAAAP8ALAAAAAAJAAoAAAQWEEgZwpzV3qyp7hWGfSFQZpeYUmsaAQA7" ktype="string" vtype="string" />
<item key="5" value="R0lGODlhCQAKAOMAAP///wAAAMjIyAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACH5BAAAAP8ALAAAAAAJAAoAAAQVEIQAqpX30lxn35zHYeMmSqB3jkAEADs=" ktype="string" vtype="string" />
<item key="6" value="R0lGODlhCQAKAOMAAP///wAAAMjIyAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACH5BAAAAP8ALAAAAAAJAAoAAAQWEIAQZpVUTn01915mcZ3YjWiaiaAXAQA7" ktype="string" vtype="string" />
<item key="7" value="R0lGODlhCQAKAOMAAP///wAAAMjIyAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACH5BAAAAP8ALAAAAAAJAAoAAAQUMIA5g6T4YmA311S3iRn4mZ93ehEAOw==" ktype="string" vtype="string" />
<item key="8" value="R0lGODlhCQAKAOMAAP///wAAAMjIyAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACH5BAAAAP8ALAAAAAAJAAoAAAQVEIAQZpVUWnw391/2jR02gpmorVIEADs=" ktype="string" vtype="string" />
<item key="9" value="R0lGODlhCQAKAOMAAP///wAAAMjIyAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACH5BAAAAP8ALAAAAAAJAAoAAAQWEIAQZpVUWnwx19m3aWRHTiDYUezpRgA7" ktype="string" vtype="string" />
</验证码样本>
</数据区块>
</ApeML>
注意：需要dotnet1.1支持.
