No-IP UDF

SUBMITTED BY: Guest

DATE: May 28, 2013, 5:31 p.m.

FORMAT: Text only

SIZE: 8.5 kB

Raw Download

HITS: 998

Report
  1. #include-once
  2. #AutoIt3Wrapper_Au3Check_Parameters=-d -w 1 -w 2 -w 3 -w 4 -w 5 -w 6 -w 7
  4. ; #INDEX# =======================================================================================================================
  5. ; Title .........: NoIP UDF v.1.0.0
  6. ; AutoIt Version : v3.3.8.1
  7. ; Description ...: NoIP API UDF
  8. ; Author(s) .....: Nessie
  9. ; ===============================================================================================================================
  11. ; #INCLUDES# =========================================================================================================
  12. ; None
  14. ; #GLOBAL VARIABLES# =================================================================================================
  15. ; None
  18. ; #CURRENT# =====================================================================================================================
  19. ; _NOIP_DNSUpdate
  20. ; _NOIP_HostnameResolve
  21. ; ===============================================================================================================================
  24. ; #INTERNAL_USE_ONLY# ===========================================================================================================
  25. ; __NOIP_GetIpAddress
  26. ; ===============================================================================================================================
  28. ; #FUNCTION# ====================================================================================================================
  29. ; Name ..........: _NOIP_DNSUpdate
  30. ; Description ...: Update multiple no-ip hostnames
  31. ; Syntax ........: _NOIP_DNSUpdate($sUser, $sPass, $sHostname[, $sIP = ""[, $bOffline = False[, $bSecure = True]]])
  32. ; Parameters ....: $sUser - Your no-ip username
  33. ; $sPass - Your no-ip password
  34. ; $sHostname - Your no-ip hostname.
  35. ; - If updating multiple hostnames use a comma separated list. Ex: test1.no-ip.biz,test2.no-ip.biz
  36. ; $sIP - The IP address to which the host(s) will be set. Default is the current IP address.
  37. ; $bOffline - Sets the current host(s) to offline status. Offline settings are an Enhanced / No-IP Plus feature.
  38. ; $bSecure - The protocol to use. If True the https protocol will be used, otherwise http. Default is True.
  39. ; Return values .: On Success - True
  40. ; On Failure -
  41. ; @error = 1 Empty Username
  42. ; @error = 2 Empty Password
  43. ; @error = 3 Empty Hostname(s)
  44. ; @error = 4 Invalid $bOffline parameter
  45. ; @error = 5 Invalid $bSecure parameter
  46. ; @error = 6 Unable to retrive the current IP address
  47. ; @error = 7 Invalid IP address
  48. ; @error = 8 Unable to contact the no-ip website
  49. ; @error = 9 Unable to retrive the no-ip source
  50. ; @error = 10 "nohost"
  51. ; @error = 11 "badauth"
  52. ; @error = 12 "badagent"
  53. ; @error = 13 "!donator"
  54. ; @error = 14 "abuse"
  55. ; @error = 15 "911"
  56. ; @error = 16 Unknown error
  57. ; Author ........: Nessie
  58. ; Example .......: _NOIP_DNSUpdate("Test", "Test", "TestME.zapto.org", "")
  59. ; ===============================================================================================================================
  60. Func _NOIP_DNSUpdate($sUser, $sPass, $sHostname, $sIP = "", $bOffline = False, $bSecure = True)
  61. Local $iMatch, $sOffline, $sProtocol
  63. If $sUser = "" Then Return SetError(1, 0, "")
  64. If $sPass = "" Then Return SetError(2, 0, "")
  65. If $sHostname = "" Then Return SetError(3, 0, "")
  67. If Not IsBool($bOffline) Then Return SetError(4, 0, "")
  68. If Not IsBool($bSecure) Then Return SetError(5, 0, "")
  70. If $sIP = "" Then
  71. $sIP = __NOIP_GetIpAddress()
  72. If @error Then Return SetError(6, 0, "")
  73. EndIf
  75. ;Thanks to http://tools.netshiftmedia.com/regexlibrary/# for this regex
  76. $iMatch = StringRegExp($sIP, "^((25[0-5]|2[0-4][0-9]|1[0-9]{2}|[0-9]{1,2})\.){3}(25[0-5]|2[0-4][0-9]|1[0-9]{2}|[0-9]{1,2})$", 0)
  77. If Not $iMatch Then Return SetError(7, 0, "")
  79. If $bOffline Then
  80. $sOffline = "YES"
  81. Else
  82. $sOffline = "NO"
  83. EndIf
  85. If $bSecure Then
  86. $sProtocol = "https"
  87. Else
  88. $sProtocol = "http"
  89. EndIf
  91. Local $bRead = InetRead($sProtocol & "://" & $sUser & ":" & $sPass & "@dynupdate.no-ip.com/nic/update?hostname=" & $sHostname & "&myip=" & $sIP & "&offline=" & $sOffline)
  92. If @error Then Return SetError(8, 0, "")
  93. Local $sRead = BinaryToString($bRead)
  94. If @error Then Return SetError(9, 0, "")
  96. Switch $sRead
  97. Case StringInStr($sRead, "good ") Or StringInStr($sRead, "nochg ")
  98. Return True
  99. Case "nohost"
  100. Return SetError(10, 0, "")
  101. Case "badauth"
  102. Return SetError(11, 0, "")
  103. Case "badagent"
  104. Return SetError(12, 0, "")
  105. Case "!donator"
  106. Return SetError(13, 0, "")
  107. Case "abuse"
  108. Return SetError(14, 0, "")
  109. Case "911"
  110. Return SetError(15, 0, "")
  111. Case Else
  112. Return SetError(16, 0, "")
  113. EndSwitch
  114. EndFunc ;==>_NOIP_DNSUpdate
  116. ; #FUNCTION# ====================================================================================================================
  117. ; Name ..........: _NOIP_HostnameResolve
  118. ; Description ...: Converts a no-ip address to IP address.
  119. ; Syntax ........: _NOIP_HostnameResolve($sAddress)
  120. ; Parameters ....: $sAddress - The no-ip hostname address
  121. ;Return values .: On Success - Returns string containing IP address corresponding to the name.
  122. ; On Failure -
  123. ; @error = 1 Unable to retrive the IP address
  124. ; Author ........: Nessie
  125. ; Example .......: _NOIP_HostnameResolve("TestME.zapto.org")
  126. ; ===============================================================================================================================
  127. Func _NOIP_HostnameResolve($sAddress)
  128. TCPStartup()
  129. Local $aResult = TCPNameToIP($sAddress)
  130. If @error Then Return SetError(1, 0, "")
  131. TCPShutdown()
  133. Return $aResult
  134. EndFunc ;==>_NOIP_HostnameResolve
  136. ; #INTERNAL_USE_ONLY# ===========================================================================================================
  137. ; Name ..........: __NOIP_GetIpAddress
  138. ; Description ...: Retrive the current IP address
  139. ; Syntax ........: __NOIP_GetIpAddress()
  140. ;Return values .: On Success - Returns string containing IP address corresponding to the name.
  141. ; On Failure -
  142. ; @error = 1 Unable to contact the server
  143. ; @error = 2 Unable to retrive the IP address
  144. ; Author ........: Nessie
  145. ; Example .......: __NOIP_GetIpAddress()
  146. ; ===============================================================================================================================
  147. Func __NOIP_GetIpAddress()
  148. Local $bRead, $sRead, $aResult
  149. $bRead = InetRead("http://checkip.dyndns.org")
  150. If @error Then Return SetError(1, 0, "")
  151. $sRead = BinaryToString($bRead)
  152. If @error Then Return SetError(2, 0, "")
  154. $aResult = StringRegExp($sRead, "(?s)(?i)<body>Current IP Address: (.*?)</body>", 3)
  155. If Not @error Then Return $aResult[0]
  157. $bRead = InetRead("http://api.exip.org/?call=ip")
  158. If @error Then Return SetError(1, 0, "")
  159. $sRead = BinaryToString($bRead)
  160. If @error Then Return SetError(2, 0, "")
  162. Return $bRead
  163. EndFunc ;==>__NOIP_GetIpAddress
comments powered by Disqus