传奇仿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
    论坛一条龙

小弟默默的路过贵宝地~~~

对牛弹琴的人越来越多了！

不灌水就活不下去了啊！

看了这么多帖子，第一次看到这么有深度了！

我和我的小伙伴都惊呆了！

求加金币！

怎么我回帖都没人理我呢？

收藏了，改天让朋友看看！

今天怎么了，什么人都出来了！