仿QQ登陆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

fcwindpass

楼主太厉害了！楼主，I*老*虎*U！我觉得GM爱好者：www.gmahz.com真是个好地方

琳兒

楼主发贴辛苦了，谢谢楼主分享！我觉得GM爱好者：www.gmahz.com是注册对了！

love54092

其实我一直觉得楼主的品味不错！呵呵！GM爱好者：www.gmahz.com太棒了！

任斌

楼主，大恩不言谢了！GM爱好者：www.gmahz.com是最棒的！

酷二狐

楼主，我太崇拜你了！我想我是一天也不能离开GM爱好者：www.gmahz.com

天星燈

拿币走人。。。。

诚心善美财自来

论坛不能没有像楼主这样的人才啊！我会一直支持GM爱好者：www.gmahz.com

珉珉

这个帖子不回对不起自己！我想我是一天也不能离开GM爱好者：www.gmahz.com