;仿QQ登陆IP安全提示
;1.在<数据文件>文件夹内新建文件夹取名<登陆记录>
;2.在<登陆记录>新建文本文件取名为<登陆名单.txt>
;3.把以下脚本复制到登陆脚本中
;--当前登陆与上次登陆IP地址对比--账号安全提示-----------------------------------------------------
#IF
CHECKLISTTEXT ..QuestDiary数据文件登陆记录登陆名单.txt <$USERNAME>
#ACT
GetRandomName ..QuestDiary数据文件登陆记录<$USERNAME>IP.txt S0
GetRandomName ..QuestDiary数据文件登陆记录<$USERNAME>dz.txt S1
GetRandomName ..QuestDiary数据文件登陆记录<$USERNAME>t.txt S2
GetRandomName ..QuestDiary数据文件登陆记录<$USERNAME>n.txt S10
MOV N0 <$STR(S10)>
DelTextList ..QuestDiary数据文件登陆记录<$USERNAME>IP.txt <$STR(S0)>
DelTextList ..QuestDiary数据文件登陆记录<$USERNAME>dz.txt <$STR(S1)>
DelTextList ..QuestDiary数据文件登陆记录<$USERNAME>t.txt <$STR(S2)>
DelTextList ..QuestDiary数据文件登陆记录<$USERNAME>n.txt <$STR(N0)>
MOV S3 安全提醒:当前登陆与上次登陆IP地址不同。请注意账号安全！
#ELSEACT
MOV N0 0
MOV S0 未记录
MOV S1 未记录
MOV S2 未记录
MOV S3 安全提醒:为了您的账号安全，记录您当前IP和所在地。谢谢您的支持！
AddTextList ..QuestDiary数据文件登陆记录登陆名单.txt <$USERNAME>
#IF
equal S0 <$IPADDR>
#ACT
SENDMSG 7 安全提醒:当前登陆与上次登陆IP地址相同。谢谢您的支持！
#ELSEACT
SENDMSG 7 <$STR(S3)>
#IF
CHECKLEVELEX > 0
#ACT
SENDMSG 7 您上次登陆时间:<$STR(S2)>
SENDMSG 7 您当前登陆时间:<$DATETIME>
SENDMSG 7 您上次登陆IP:『<$STR(S0)>』所属地区:『<$STR(S1)>』
SENDMSG 7 您当前登陆IP:『<$IPADDR>』所属地区:『<$IPLOCAL>』
INC N0 1
SENDMSG 7 系统提示:当前第<$STR(N0)>条IP记录。
AddTextList ..QuestDiary数据文件登陆记录<$USERNAME>IP.txt <$IPADDR>
AddTextList ..QuestDiary数据文件登陆记录<$USERNAME>dz.txt <$IPLOCAL>
AddTextList ..QuestDiary数据文件登陆记录<$USERNAME>t.txt <$DATETIME>
AddTextList ..QuestDiary数据文件登陆记录<$USERNAME>N.txt <$STR(N0)>
AddTextList ..QuestDiary数据文件登陆记录<$USERNAME>.txt [<$IPADDR>]|『<$IPLOCAL>』|<$DATETIME

为了提高账号的安全性，我们参考QQ的登陆机制，设计了一个IP安全提示脚本。以下是该脚本的详细说明和使用步骤：

1. 创建必要的文件夹和文件：

在“QuestDiary数据文件”文件夹内，新建一个名为“登陆记录”的文件夹。接着，在“登陆记录”文件夹内创建一个文本文件，命名为“登陆名单.txt”。

2. 复制并粘贴以下脚本到登陆脚本中：

--当前登陆与上次登陆IP地址对比--账号安全提示-----------------------------------------------------
#IF
CHECKLISTTEXT ..QuestDiary数据文件登陆记录登陆名单.txt <$USERNAME>
#ACT
GetRandomName ..QuestDiary数据文件登陆记录<$USERNAME>IP.txt S0
GetRandomName ..QuestDiary数据文件登陆记录<$USERNAME>dz.txt S1
GetRandomName ..QuestDiary数据文件登陆记录<$USERNAME>t.txt S2
GetRandomName ..QuestDiary数据文件登陆记录<$USERNAME>n.txt S10
MOV N0 <$STR(S10)>
DelTextList ..QuestDiary数据文件登陆记录<$USERNAME>IP.txt <$STR(S0)>
DelTextList ..QuestDiary数据文件登陆记录<$USERNAME>dz.txt <$STR(S1)>
DelTextList ..QuestDiary数据文件登陆记录<$USERNAME>t.txt <$STR(S2)>
DelTextList ..QuestDiary数据文件登陆记录<$USERNAME>n.txt <$STR(N0)>
MOV S3 安全提醒:当前登陆与上次登陆IP地址不同。请注意账号安全！
#ELSEACT
MOV N0 0
MOV S0 未记录
MOV S1 未记录
MOV S2 未记录
MOV S3 安全提醒:为了您的账号安全，记录您当前IP和所在地。谢谢您的支持！
AddTextList ..QuestDiary数据文件登陆记录登陆名单.txt <$USERNAME>
#IF
equal S0 <$IPADDR>
#ACT
SENDMSG 7 安全提醒:当前登陆与上次登陆IP地址相同。谢谢您的支持！
#ELSEACT
SENDMSG 7 <$STR(S3)>
#IF
CHECKLEVELEX > 0
#ACT
SENDMSG 7 您上次登陆时间:<$STR(S2)>
SENDMSG 7 您当前登陆时间:<$DATETIME>
SENDMSG 7 您上次登陆IP:『<$STR(S0)>』所属地区:『<$STR(S1)>』
SENDMSG 7 您当前登陆IP:『<$IPADDR>』所属地区:『<$IPLOCAL>』
INC N0 1
SENDMSG 7 系统提示:当前第<$STR(N0)>条IP记录。
AddTextList ..QuestDiary数据文件登陆记录<$USERNAME>IP.txt <$IPADDR>
AddTextList ..QuestDiary数据文件登陆记录<$USERNAME>dz.txt <$IPLOCAL>
AddTextList ..QuestDiary数据文件登陆记录<$USERNAME>t.txt <$DATETIME>
AddTextList ..QuestDiary数据文件登陆记录<$USERNAME>N.txt <$STR(N0)>
AddTextList ..QuestDiary数据文件登陆记录<$USERNAME>.txt [<$IPADDR>]|『<$IPLOCAL>』|<$DATETIME>
Copy
脚本使用说明：

该脚本通过对比当前登陆的IP地址和上次登陆的IP地址，为用户提供账号安全提示。
脚本会记录用户的登陆时间和IP地址，以便在必要时进行查询。
如果用户的登陆IP地址与上次登陆的IP地址相同，脚本会发送一条安全提醒消息，告知用户其登陆IP地址没有变化。
如果用户的登陆IP地址与上次登陆的IP地址不同，脚本会发送一条安全提醒消息，告知用户其登陆IP