自已写一个QQ号申请精灵(附最新源代码)

王朝other·作者佚名  2006-01-10
窄屏简体版  字體: |||超大  

学习了几天模拟精灵看了一些教程,把上次的QQ申请程序进行了一些改进.

增加了自动拔号、自动更换代理、自动清IE等等。

代理服务器列表自已找一下,代理服务器不能用或者慢的话就不太好了。不过这个程序能自动检测。

感觉模拟精灵真是好强大啊,很多东西一个函数就搞定。

模拟精灵最新版本下载:

本地(yhhe.net)下载 v6.60

本地(1he.net)下载 v6.60

华军(newhua.com)下载 v6.60

天空(Skycn.com)下载 v6.60

硅谷动力(enet.com.cn)下载 v6.60

电脑之家(pchome.net)下载 v6.50

新浪(sina.com)下载 v6.50

<?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>

 
 
 
免责声明:本文为网络用户发布,其观点仅代表作者个人观点,与本站无关,本站仅提供信息存储服务。文中陈述内容未经本站证实,其真实性、完整性、及时性本站不作任何保证或承诺,请读者仅作参考,并请自行核实相关内容。
 
 
© 2005- 王朝網路 版權所有  導航