;仿QQ登陆IP安全提示 ;1.在数据文件文件夹内新建文件夹取名登陆记录 ;2.在登陆记录新建文本文件取名为登陆名单.txt ;3.把以下脚本复制到登陆脚本中 ;--当前登陆与上次登陆IP地址对比--账号安全提示----------------------------------------------------- #IF CHECKLISTTEXT ..QuestDiary数据文件登陆记录登陆名单.txt $USERNAME #ACT GetRandomName ..QuestDiary数据文件登陆记录$USERNAMEIP.txt S0 GetRandomName ..QuestDiary数据文件登陆记录$USERNAMEdz.txt S1 GetRandomName ..QuestDiary数据文件登陆记录$USERNA梁山传奇180MEt.txt S2 GetRandomName ..QuestDiary数据文件登陆记录$USERNAMEn.txt S10 MOV N0 $STR(S10) DelTextList ..QuestDiary数据文件登陆记录$USERNAMEIP.txt $STR(S0) DelTextList ..QuestDiary数据文件登陆记录$USERNAMEdz.txt $STR(S1) DelTextList ..QuestDiary数据文件登陆记录$USERNAMEt.txt $STR(S2) DelTextList ..QuestDiary数据文件登陆记录$USERNAMEn.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(S1176复古精品传奇)』 SENDMSG 7 您当前登陆IP:『$IPADDR』所属地区:『$IPLOCAL』 INC N0 1 SENDMSG 7 系统提示:当前第$STR(N0)条IP记录。 AddTextList ..QuestDiary数据文件登陆记录$USERNAMEIP.txt $IPADDR AddTextList ..QuestDiary数据文件登陆记录$USERNAMEdz.txt $IPLOCAL AddTextList ..QuestDiary数据文件登陆记录$USERNAMEt.txt $DATETIME AddTextList ..QuestDiary数据文件登陆记录$USERNAMEN.txt $STR(N0) AddTextList ..QuestDiary数据文件登陆记录$USERNAME.txt [$IPADDR]|『$IPLOCAL』|$DATETIME