Constructores

  • new - Inicializa una nueva instancia de la clase
  • new(host as string) - Inicializa una nueva instancia de la clase especificando el nombre del dominio

Propiedades

  • ReadOnly Host As String - El nombre del dominio
  • ReadOnly IP As String - La dirección IP de la última actualización. Ofrece la posibilidad de actualizar dominios de distintos servidores.
  • ReadOnly Id As String - Identificador único del dominio.
  • ReadOnly CredencialesID As String - El identificador de la clave API asociada a este dominio.
  • ReadOnly Habilitado As Boolean - Obtiene un valor que indica si la actualización automática esta activada para este dominio.

Métodos

  • CambiarHost(host as string) - Establece el nombre del dominio.
  • CambiarIP(ip as string) - Establece la IP del dominio.
  • Habilitar(hab) - Habilita/deshabilita la actualización automática para este dominio
  • AsignarCredenciales(key As ApiKey) - Asigna las credenciales a usar en este dominio.

Operadores

  • Function ToString() As String - Devuelve el nombre del dominio.
  • Operator =(v1 As Dominio, v2 As Dominio) As Boolean - Determina si el nombre del dominio es igual.
  • Operator <>(v1 As Dominio, v2 As Dominio) As Boolean - Determina si el nombre del dominio es diferente.
  • Operator =(v1 As Dominio, v2 As String) As Boolean - Determina si el nombre del dominio es igual.
  • Operator <>(v1 As Dominio, v2 As String) As Boolean - Determina si el nombre del dominio es diferente.

Ejemplo de uso VB

'crear un dominio, una clave API y enlazarlos
        Dim d As New Objetos.Dominio("croketworld.com")
        Dim a As New Objetos.ApiKey("mi clave API", "TedMosby")
        d.AsignarCredenciales(a)

        'serializar el dominio en un archivo XMl único
        Dim xs As New System.Xml.Serialization.XmlSerializer(d.GetType)
        Dim fs As New IO.FileStream("C:\dominio.xml", IO.FileMode.Create)
        Try
            xs.Serialize(fs, d)
        Catch ex As Exception

        End Try
        fs.Close()
        'serializar clave API en un archivo XMl único
        xs = New System.Xml.Serialization.XmlSerializer(a.GetType)
        fs = New IO.FileStream("C:\clave.xml", IO.FileMode.Create)
        Try
            xs.Serialize(fs, a)
        Catch ex As Exception

        End Try
        fs.Close()

        'guarda la clave API en el almacén de la ruta especificada, si no existe, se crea.
        Dim al As New Objetos.AlmacenClaves("C:\almacenClaves.xml")
        If al.Contains(a) = False Then
            al.Add(a)
            al.Guardar("C:\almacenClaves.xml")
        End If

        'guarda el dominio en el almacén de la ruta especificada, si no existe, se crea.
        Dim doms As New Objetos.AlmacenDominios("C:\almacenDominios.xml")
        If doms.Contains(d) = False Then
            doms.Add(d)
            doms.Guardar("C:\almacenDominios.xml")
        End If


Last edited Jun 10, 2012 at 6:32 PM by croketworld, version 2

Comments

No comments yet.