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