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