传奇仿QQ登陆IP安全提示脚本 – 登陆提示语

;仿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