学习了几天模拟精灵看了一些教程,把上次的QQ申请程序进行了一些改进.
增加了自动拔号、自动更换代理、自动清IE等等。
代理服务器列表自已找一下，代理服务器不能用或者慢的话就不太好了。不过这个程序能自动检测。
感觉模拟精灵真是好强大啊，很多东西一个函数就搞定。
模拟精灵最新版本下载：
<?xml version="1.0" encoding="gb2312" ?>
<ApeML LID="CHS" MD="0" 抓屏模式="0" 名称="QQ号申请精灵1.50" 作者="模拟精灵 2005" 信息窗口="true" 速度="10" 循环次数="1" 自定义属性="用户名=ヤ开心果ヤ,密码=123456,邮箱="abc@abc.net",地址=天山,真实姓名=雪原,更换代理 = 0,自动拔号 = 0,拔号连接名 = adsl,拔号用户名 = user,拔号密码 = 123">
<!--创建时间:2005年10月18日-20:13-->
<脚本区块 语言="LAScript" 名称="init" 延时="0" 启用="true" 编辑密钥="" 运行公钥="">
<![CDATA[
-- -------------------------
-- 自定义签名档
-- -------------------------
text = [[
や.﹎. .放风筝的感觉，就好ゞ像对着一个很遥远的对象，远远的看着他，虽然距离⊕︵.很遥远，但是心里总是不至于绝望，因为你知道你手上握着oО°这条线，就像是一种不段的缘份，牵引着彼此！
]]
-- -------------------------
-- 代理服务器列表
-- -------------------------
proxyListText = [[
[/url][url=http://211.156.250.70:3128/]http://211.156.250.70:3128
[/url][url=http://211.159.16.6/]http://211.159.16.6:80
[/url][url=http://218.25.251.168/]http://218.25.251.168:80
[/url][url=http://218.25.251.168:3128/]http://218.25.251.168:3128
[/url][url=http://222.43.34.94/]http://222.43.34.94:80
[/url][url=http://222.43.34.94:3128/]http://222.43.34.94:3128
[/url][url=http://218.107.238.221:8080/]http://218.107.238.221:8080
]]
-- -------------------------
-- 读取自定义属性
-- -------------------------
_set = ape:loadSetting()
-- -------------------------
-- 自动拔号代码开始
-- -------------------------
if( (_set["自动拔号"] + 0) ~=0) then
if(math.mod(ape:runCount(),_set["拔号间隔次数"]+0)==0) then
win.messagePrint("正在挂断当前拔号连接:".._set["拔号连接名"])
win.exec(win.getSysDir().."\\rasdial.exe"," ".._set["拔号连接名"].." /DISCONNECT");
delay(2*1000); --延时2秒
win.messagePrint("正在重新拔号:".._set["拔号连接名"])
win.exec(win.getSysDir().."\\rasdial.exe"," ".._set["拔号连接名"].." ".._set["拔号用户名"].." ".._set["拔号密码"]);
delay(2*1000); --延时2秒
end;
end;
-- -------------------------
-- 自动拔号代码结束
-- -------------------------
-- -------------------------
-- 自动更换代理服务器代码开始
-- -------------------------
if(_set["更换代理"] == "1" )then
tabProxy = table.loadList(proxyListText,"\n")
math.randomseed(os.tick()); -- 重置随机数种子
local n = math.random( 1 ,table.getn( tabProxy ) );
local p = tabProxy[ n ];
web.setProxy("",p );
win.messagePrint("设置代理服务器 "..p)
if( not web.getURL("[/url][url=http://freeqq2.qq.com/client_reg.shtml?radiobutton=radiobutton&Submit]http://freeqq2.qq.com/client_reg.shtml?radiobutton=radiobutton&Submit=?+>") ) then
win.messageBox("代理服务器"..p.."无效，新的代理服务器列表已复制到剪贴板")
table.remove(tabProxy,n );
local str = table.saveList(tabProxy,"\n");
win.setClipBD(str)
web.setProxy("",""); -- 删除代理服务器
do return false end;
end;
end;
-- -------------------------
-- 自动更换代理服务器代码结束
-- -------------------------
-- -------------------------
-- 自动下载clean插件代码开始
-- -------------------------
function importX(lib)
if( win.pathOK(_IMPORTDIR.."\\"..lib..".dll" ) == false ) then
win.messagePrint("正在下载"..lib.."插件")
win.createDir(_IMPORTDIR)
local str = web.getURL("[/url][url=http://www.yhhe.net/ape/import/]http://www.yhhe.net/ape/import/"..lib.."/"..lib..".dll","","",_IMPORTDIR.."\\"..lib..".dll");
if(str) then
win.messagePrint("下载"..lib.."插件完成");
else
win.messagePrint("下载"..lib.."插件失败");
return false;
end;
end;
import(lib) --引用插件
return true;
end;
importX("clean") --引用插件
--不清空IE临时文件，清空所有cookies
clean.IE(false,true);
-- -------------------------
-- 自动下载clean插件代码结束
-- ------------------------
wb = web("[/url][url=http://freeqq2.qq.com/client_reg.shtml?radiobutton=radiobutton&Submit]http://freeqq2.qq.com/client_reg.shtml?radiobutton=radiobutton&Submit=?+>");
imgs = {wb:eleImages()};
if( table.getn(imgs) < 15 )then
win.messageBox("打开网页时遇到错误，请检查代理服务器设置")
web.setProxy("",""); -- 删除代理服务器
do return false end;
end;
imgs[15]:click();
imgs=nil;
wb:wait("");
-- 如果用户按了停止
-- ---------------
if( nStop() == false ) then
web.del(wb);
web.setProxy("",""); -- 删除代理服务器
do return false end;
end;
ele = wb:getEle("Nickname");
ele:setAttribute("value",_set["用户名"])
ele = wb:getEle("Age");
ele:setAttribute("value","19")
e,ele = wb:getEle("Sex");
ele:click();
ele = wb:getEle("Passwd");
ele:setAttribute("value",_set["密码"])
ele = wb:getEle("Passwd1");
ele:setAttribute("value",_set["密码"])
wb:doScript("document.all.sltProvinceId.options[1].selected=true;SelectProvice();","javascript")
wb:show(true);
wb:wait("page3.htm")
-- 如果用户按了停止
-- ---------------
if( nStop() == false ) then
web.del(wb);
web.setProxy("",""); -- 删除代理服务器
do return false end;
end;
ele = wb:getEle("Email");
ele:setAttribute("value",_set["邮箱"])
ele = wb:getEle("Address");
ele:setAttribute("value",_set["地址"])
ele = wb:getEle("Postcode");
ele:setAttribute("value","808080")
ele = wb:getEle("Phone");
ele:setAttribute("value","800110")
ele = wb:getEle("Gsm");
ele:setAttribute("value","13988008800")
ele = wb:getEle("Realname");
ele:setAttribute("value",_set["真实姓名"])
wb:doScript("document.all.ShengXiao.options[8].selected=true;","javascript")
ele = wb:getEle("College2");
ele:setAttribute("value","ぢ校うざ")
wb:doScript("document.all.BloodType.options[2].selected=true;","javascript")
ele = wb:getEle("employment2");
ele:setAttribute("value","じovの")
wb:doScript("document.all.Constellation.options[9].selected=true;","javascript")
ele = wb:getEle("PerInfo");
ele:setTextin(text)
ele = wb:getEle("Homepage");
ele:setAttribute("value","www_____")
ele = ele:form()
ele:submit();
delay(1000);
web.setProxy("",""); -- 删除代理服务器
]]>
</脚本区块>
<数据区块 />
</ApeML>
