传奇私服脚本系列-仿QQ登陆IP安全提示脚本-完美修复报错

传奇服务端

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>>|
}

yyldn835ww

楼主是超人

uvizddj912

好帖就是要顶

gaterdmh

说的非常好

idindasora

不错不错

sk0tyn07

LZ真是人才