'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