http://foro.elhacker.net/net/c_encriptardesencriptar_en_aes-t241268.0.html
Todo se puede con .NET, recuerda
.
Salu2
Todo se puede con .NET, recuerda
.Salu2
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ú
.
Cita de: aaronduran2 en 11 Enero 2009, 21:06 PM
Muchas gracias, me sirve igualmente.
Saludos
string[] UnidadesLogicas = System.Environment.GetLogicalDrives();Imports System.Xml
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim Doc As New XmlDocument, Nodo As XmlNode
Dim Lista As ArrayList = New ArrayList()
Lista.Add("Mace Windu")
Lista.Add("Kamui")
Lista.Add("Chipbios")
Lista.Add("Vengador de las Sombras")
Nodo = Doc.CreateElement("Equipo")
Doc.AppendChild(Nodo)
For Each Elemento As String In Lista
Nodo = Doc.CreateElement("Miembro")
Nodo.InnerText = Elemento
Doc.DocumentElement.AppendChild(Nodo)
Next
Doc.Save(Application.StartupPath & "\FoSTeaM.xml")
End Sub
End ClassImports System.Xml
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim Doc As New XmlDocument, ListaNodos As XmlNodeList, Nodo As XmlNode
Dim Lista As ArrayList = New ArrayList()
Doc.Load(Application.StartupPath & "\FoSTeaM.xml")
ListaNodos = Doc.SelectNodes("/Equipo/Miembro")
For Each Nodo In ListaNodos
Lista.Add(Nodo.ChildNodes.Item(0).InnerText)
Next
End Sub
End Classprivate void printDocument1_PrintPage(object sender,
System.Drawing.Printing.PrintPageEventArgs e)
{
e.Graphics.DrawString("SampleText",
new Font("Arial", 80, FontStyle.Bold), Brushes.Black, 150, 125);
}
printDocument1.Print();
.