siguen estando, tiene las direcciones web funcionando y te devuelve los datos correctos... si no ni me molestaria en reabrir un post con el mismo tema... ya tenemos algo que sabemos... 

Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.
Mostrar Mensajes Menú
'Opcion=0 --> Consulta la ip pública
'Opcion=1 --> Consulta la lista de dominios de la cuenta no-ip
'Opcion=2 --> Actualiza el dominio a la ip
'-1 se ha producido un error de usuario
'-2 no se ha podido conectar con el host
' 1 se ha realizado la consulta correctamente
Public Function NoIpMD(ByRef wSck As Winsock, ByVal Opcion As Byte, Optional Usuario As String, Optional Password As String, Optional Dominio As String, Optional UpIp As String) As Integer
Dim Consulta As String
Dim rHost As String
Select Case Opcion
Case 0
rHost = "ip1.dynupdate.no-ip.com"
Consulta = "GET"
Case 1
If IsMissing(Usuario) Or IsMissing(Password) Then
NoIpMD = -1
Exit Function
End If
rHost = "dynupdate.no-ip.com"
Consulta = "GET /list-hosts.php?email=" & Usuario & "&pass=" & Password
Case 2
If IsMissing(Usuario) Or IsMissing(Password) Or IsMissing(Dominio) Or IsMissing(UpIp) Then
NoIpMD = -1
Exit Function
End If
rHost = "dynupdate.no-ip.com"
Consulta = "GET /ducupdate.php?username=" & Usuario & "&pass=" & Password & "&h[]=" _
& Dominio & "&ip=" & UpIp
Case Else
NoIpMD = -1
Exit Function
Consulta = Consulta & " HTTP/1.0" & vbCrLf & "Accept: */*" & vbCrLf & "User-Agent: DUC v2.2.1" _
& vbCrLf & "Host: " & rHost & vbCrLf & "Pragma: no-cache" & vbCrLf & vbCrLf
End Select
If wSck.State <> sckClosed Then wSck.Close
wSck.Connect rHost, 8245
While wSck.State <> sckConnected And wSck.State <> sckError
DoEvents
Wend
If wSck.State = sckError Then
NoIpMD = -2
Exit Function
End If
wSck.SendData Consulta
NoIpMD = 1
End Function
Public Function ExtraerSalida(ByVal buffer As String) As String
Dim pos As Long
pos = InStr(buffer, vbCrLf & vbCrLf)
If pos = 0 Then
ExtraerSalida = ""
Else
ExtraerSalida = Mid$(buffer, pos + 2, Len(buffer) - pos + 1)
End If
End Function
Private Sub Command1_Click()
NoIpMD Winsock1, 0
End Sub
Private Sub Command2_Click()
NoIpMD Winsock1, 1, "ACA EL USUARIO", "ACA LA CONTRASEÑA"
End Sub
Private Sub Command3_Click()
NoIpMD Winsock1, 2, "ACA EL USUARIO", "ACA LA CONTRASEÑA", "ACA EL DNS", "66.66.66.66"
End Sub
End Sub
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim buffer As String
Winsock1.GetData buffer
Text1.Text = Text1.Text & buffer
End Sub