自动批量登录126邮箱脚本解析

最新推荐文章于 2026-03-02 00:10:00 发布
转载最新推荐文章于 2026-03-02 00:10:00 发布 · 2.5k 阅读
标签
#脚本 #encoding #user #语言 #delay
模拟精灵专栏收录该内容
6 篇文章
订阅专栏
此脚本利用模拟精灵软件实现对126邮箱的自动化登录操作，通过读取外部配置文件中的多个邮箱账号及密码，实现循环登录，适用于需要频繁登录126邮箱以维持活跃状态的用户。
如果您有很多126邮箱，长期不登录会被清空的

 

或者您只有一个邮箱，但是为了刷积分可以用这个脚本不停登录退出

 

脚本用模拟精灵制作

 

使用方法：下载模拟精灵，绿色小软件

写一个文本文件，格式为*.ini，里面写入126邮箱的id和密码

比如，你的邮箱是

xxcd01@126.com， 密码是123456

xxcd02@126.com， 密码是123456

xxcd03@126.com， 密码是123456

那么格式为

xxcd01-123456

xxcd02-123456

xxcd03-123456

把下面那一段脚本复制到txt文本中，把文件改成*.fap格式，双击运行

 

 

<?xml version="1.0" encoding="gb2312" ?>

<ApeML LID="CHS" MD="0" 抓屏模式="0" 名称="全自动126晒邮箱2.0" 作者="xYe" 信息窗口="0" 速度="10" 循环次数="0" 自定义属性="用户选项 = 0">

 <!--关闭"信息窗口"可以提升效率加快速度

创建时间:2006年10月21日-11:18-->

 <脚本区块 语言="LAScript" 名称="init_读取外部配置文件" 延时="0" 启用="true" 编辑密钥="" 运行公钥="">

 <![CDATA[ 

--区块名字前添加"init"前缀则不会重复运行

--import("std"); --从外部文件引用名字空间



_set = ape:loadSetting(); --读取自定义属性

stopPlay = function() --这个函数回放停止时被调用.

 ape:saveSetting(_set); --保存自定义属性

 collectgarbage();--清理内存

end;



--请在下面添加不需要重复运行的脚本



-- ----------定义邮件帐号/密码数组

tuser={};

tpass={};



-- ----------读取外部文件，拆分数据后存入帐户/密码数组

local strdata = win.openDlg("请选择邮件-密码配置文件")

str = string.load(strdata,"rt"); --指定t文本模式,会自动把/r/n换成/n

tstr = string.split(str,"/n"); --以/n换行符作为分隔符,生成table字典

 

for k,v  in ipairs(tstr) do

    _tstr = string.split( v ,"-")

 table.insert(tuser, _tstr[1]);--添加到用户数组

 table.insert(tpass, _tstr[2]); --添加到密码数组

end;



-- 打开邮件登陆页面

wb = web.new("http://www.126.com/");

wb:setRect(0,20,600,770);

wb:setSilent(true,true,true,true);

wb:show(true);



--[[ 添加横线取消注释块

do return false end; --退出程序

do return "区块名字"  end;--转向指定区块

do return  2 end;--转向第二个区块

--]]

 ]]>

 </脚本区块>

 <脚本区块 语言="LAScript" 名称="自动晒邮箱" 延时="0" 启用="true" 编辑密钥="" 运行公钥="">

 <![CDATA[

--请在下面添加脚本代码(重复运行)

-- ------------------按行读取邮箱-密码列表

n = ape:runCount(); --得到当前循环次数

m = table.maxn(tuser); --取得数组大小



n = n % m ; --求余,防止溢出

user = tuser[n]; --取出一个用户名

pass = tpass[n];



--自定义web窗体标题栏的显示信息

local hwnd = wb:getWindow();

win.sendStringXX(hwnd,"全自动126晒邮箱2.0    当前循环次数:"..n)        -- ----有没有办法让这个信息一直显示在WEB窗体的标题栏？



-- -----------------如果数据读完，则退出程序

if(n==0) then

   do return false end;                                                  --   ----这里应该怎么写才正确？

end;



wb:go("http://www.126.com/");

wb:wait("");



-- --------填入邮箱帐号

ele = wb:getEle("user");

ele:setAttribute("value",user)



-- --------填入邮箱密码

ele = wb:getEle("pass");

ele:setAttribute("value",pass)

 

ele = wb:getEle("input_btn1");

ele:click()

wb:wait("")

delay(3000)



-- wb:go("http://www.126.com");

-- wb:wait("")

]]>

 </脚本区块>

 <数据区块 />

</ApeML>



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



<?xml version="1.0" encoding="gb2312" ?>
<ApeML LID="CHS" MD="0" 抓屏模式="0" 名称="全自动126晒邮箱2.0" 作者="xYe" 信息窗口="0" 速度="10" 循环次数="0" 自定义属性="用户选项 = 0">
 <!--关闭"信息窗口"可以提升效率加快速度
创建时间:2006年10月21日-11:18-->
 <脚本区块 语言="LAScript" 名称="init_读取外部配置文件" 延时="0" 启用="true" 编辑密钥="" 运行公钥="">
 <!--[CDATA[ 
--区块名字前添加"init"前缀则不会重复运行
--import("std"); --从外部文件引用名字空间

_set = ape:loadSetting(); --读取自定义属性
stopPlay = function() --这个函数回放停止时被调用.
 ape:saveSetting(_set); --保存自定义属性
 collectgarbage();--清理内存
end;

--请在下面添加不需要重复运行的脚本

-- ----------定义邮件帐号/密码数组
tuser={};
tpass={};

-- ----------读取外部文件，拆分数据后存入帐户/密码数组
local strdata = win.openDlg("请选择邮件-密码配置文件")
str = string.load(strdata,"rt"); --指定t文本模式,会自动把/r/n换成/n
tstr = string.split(str,"/n"); --以/n换行符作为分隔符,生成table字典
 
for k,v  in ipairs(tstr) do
    _tstr = string.split( v ,"-")
 table.insert(tuser, _tstr[1]);--添加到用户数组
 table.insert(tpass, _tstr[2]); --添加到密码数组
end;

-- 打开邮件登陆页面
wb = web.new("http://www.126.com/");
wb:setRect(0,20,600,770);
wb:setSilent(true,true,true,true);
wb:show(true);

--[[ 添加横线取消注释块
do return false end; --退出程序
do return "区块名字"  end;--转向指定区块
do return  2 end;--转向第二个区块
--]]
 ]]>
 </脚本区块>
 <脚本区块 语言="LAScript" 名称="自动晒邮箱" 延时="0" 启用="true" 编辑密钥="" 运行公钥="">
 <![CDATA[
--请在下面添加脚本代码(重复运行)
-- ------------------按行读取邮箱-密码列表
n = ape:runCount(); --得到当前循环次数
m = table.maxn(tuser); --取得数组大小

n = n % m ; --求余,防止溢出
user = tuser[n]; --取出一个用户名
pass = tpass[n];

--自定义web窗体标题栏的显示信息
local hwnd = wb:getWindow();
win.sendStringXX(hwnd,"全自动126晒邮箱2.0    当前循环次数:"..n)        -- ----有没有办法让这个信息一直显示在WEB窗体的标题栏？

-- -----------------如果数据读完，则退出程序
if(n==0) then
   do return false end;                                                  --   ----这里应该怎么写才正确？
end;

wb:go("http://www.126.com/");
wb:wait("");

-- --------填入邮箱帐号
ele = wb:getEle("user");
ele:setAttribute("value",user)

-- --------填入邮箱密码
ele = wb:getEle("pass");
ele:setAttribute("value",pass)
 
ele = wb:getEle("input_btn1");
ele:click()
wb:wait("")
delay(3000)

-- wb:go("http://www.126.com");
-- wb:wait("")
]]-->
 </脚本区块>
 <数据区块 />
</ApeML>