|
Mir200\Envir\MapQuest_def\QManage.txt [@Login]段代码下增加
#CALL [\登陆记录\登陆记录.txt] @登陆记录
Mir200\Envir\QuestDiary\里创建个文件夹 登陆记录
Mir200\Envir\QuestDiary\登陆记录 里创建个文件夹 记录
Mir200\Envir\QuestDiary\登陆记录 里创建个文本 登陆名单.txt
Mir200\Envir\QuestDiary\登陆记录 里创建个文本 登陆记录.txt
Mir200\Envir\QuestDiary\登陆记录\登陆记录.txt 里的代码如下:
[@登陆记录]
{
#IF
CheckTextList .\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记录。
CreateFile QuestDiary\登陆记录\记录\<$USERNAME>IP.txt
CreateFile QuestDiary\登陆记录\记录\<$USERNAME>dz.txt
CreateFile QuestDiary\登陆记录\记录\<$USERNAME>t.txt
CreateFile QuestDiary\登陆记录\记录\<$USERNAME>N.txt
CreateFile QuestDiary\登陆记录\记录\<$USERNAME>.txt
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>>|
}
|
上一篇:传奇私服脚本系列-摇骰子验证码脚本下一篇:传奇新装备属性元素出极品的控制说明
|