官方DDNS更新no-ip做法

prince90s

1. #定义 no.ip 相关设定，以下自行修改：
   
2. #============================================================
   
3. :local DDNSUser "no-ip帐号"
   
4. :local DDNSPassword "no-ip密码"
   
5. :local DDNSHost "申请的no-ip地址"
   
6. #============================================================
   
7. 
   
8. #以下程式如不了解，建议不要修改：
   
9. #------------------------------------------------------------------------------------------
   
10. #定义 IP 变量
    
11. :local DDNSIP
    
12. :global DDNSLastIP
    
13. 
    
14. #定义变量默认值
    
15. :if ([ :typeof $DDNSLastIP ] = nil ) do={ $DDNSLastIP "0.0.0.0" }
    
16. 
    
17. #利用HTTP查询Public IP
    
18. /tool fetch address=checkip.dyndns.com src-path=/ mode=http dst-path=("PublicIP");
    
19. :delay 1;
    
20. #读取档案
    
21. :set DDNSIP [/file get PublicIP contents];
    
22. :set DDNSIP [:pick $DDNSIP 0 [:find $DDNSIP "</body>"]];
    
23. :set DDNSIP [:pick $DDNSIP ([:find $DDNSIP ":"]+2) 100];
    
24. #删除档案
    
25. /file remove PublicIP;
    
26. 
    
27. #判断是否要更新 IP
    
28. :if ([ :typeof $DDNSIP ] = nil ) do={
    
29. :log error ("DDNS no.ip： 网络未取得 IP 位址")
    
30. } else={
    
31. :if ($DDNSIP != $DDNSLastIP) do={
    
32. # 更新 DDNS IP
    
33. :local url "/nic/update?hostname=$DDNSHost&myip=$DDNSIP"
    
34. /tool fetch address=dynupdate.no-ip.com src-path=$url mode=http user=$DDNSUser password=$DDNSPassword dst-path=("DDNS_no_ip")
    
35. :delay 1
    
36. 
    
37. # 档案内容
    
38. :local filestr [ /file get "DDNS_no_ip" contents];
    
39. 
    
40. # 删除档案
    
41. :local filename [ /file find name="DDNS_no_ip"];
    
42. /file remove $filename
    
43. 
    
44. # 变更是否成功
    
45. :if ( [ :find $filestr "good"] = "0" || [ :find $filestr "nochg"] = "0" ) do={
    
46. :log warning ("DDNS no.ip： 网络更新 IP 位址 " . $DDNSIP)
    
47. :set DDNSLastIP $DDNSIP
    
48. } else={
    
49. :log error ("DDNS no.ip： 网络更新 IP 位址失败 " . $DDNSIP)
    
50. }
    
51. }
    
52. }
    
53. #------------------------------------------------------------------------------------------

复制代码

rockup

强！！！！！！！
马上试试，之前版主那个，用不了，这个试试，多谢

yougi

能用吗》？？？？？？？？？？？？？？？？？？？？？

tonykong

又多一个选择,谢谢