pop.
创建 ()程序_延时 (500
)取邮箱 (sy, 账号, 密码
)loginMsg = pop.
登陆邮箱 (“outlook.office365.com”, 995, 账号, 密码,
真)程序_延时 (500
)
如果真 (文本_取行数 (日志输出.内容
) = 100
)
日志输出.内容 =
“”
判断 (loginMsg =
“登陆成功”)
日志输出 (账号 +
“验证成功”)
进入许可区 (许可证
)
存活数量.内容 =
到文本 (到整数 (存活数量.内容
) + 1
)
写到文件 (取运行目录 () +
“\存活.txt”,
读入文件 (取运行目录 () +
“\存活.txt”) +
到字节集 (账号 +
“----” + 密码 +
#换行符 ))
退出许可区 (许可证
)
pop.
销毁 ()
返回 ()
日志输出 (账号 +
“验证失败”)
进入许可区 (许可证
)
失败数量.内容 =
到文本 (到整数 (失败数量.内容
) + 1
)
写到文件 (取运行目录 () +
“\失败.txt”,
读入文件 (取运行目录 () +
“\失败.txt”) +
到字节集 (账号 +
“----” + 密码 +
#换行符 ))
退出许可区 (许可证
)
pop.
销毁 ()