Mensajes

Hola Gente tengo un grave problema,  he programado una aplicación para windows , que necesito usar en una cantidad masivza de PCs  el problema viene porque lo he programado en  C# con visual studio .NET 2005  y ahora al ejecutarlo en otros ordenadores me da el siguiente error al ejecutarlo:

La aplicación no se ha podido inicializar correctamente ( 0xc0000135). Haga clic en Aceptar para terminar la aplicación.Aceptar.

Estuve mirando por google y encontre que instalando el framework 2.0 no tendria ningun problema para la ejecucion del programa, pero el problema es que no puedo estar dependiendo de el, hay alguna manera de ejecutarlo sin instalar el framework 2.0?

Un saludo y gracias!

Sí, existe un programa llamado Xenocode que lo que hace es juntar el .NET Framework con tu aplicación, lo que ocurre es que aumenta un poco el tamaño de esta.
Aquí hay un tutorial sobre cómo utilizarlo: http://foro.elhacker.net/net/tutorial_como_abrir_tu_aplicacion_net_sin_net_framework_instalado-t222613.0.html.
Salu2

Lo que deberían hacer es migrar a .NET, son todo mejoras, y sus interfaces gráficas quedan impecables.

Salu2

[Edit:]

Bien, déjame un rato que cree un pequeño código para que te sirva de ejemplo y lo publico .

Edit:

Tal cómo te prometí, aquí lo tienes. He simplificado la tarea, mediante la creación de una variable pública. Cada formulario tiene un botón y un cuadro de textol. Espero que era esto lo que intentabas hacer

Form1

Código (csharp) [Seleccionar] Expandir

using System;
using System.Windows.Forms;

namespace WindowsFormsApplication1
{
    public partial class Form1 : Form
    {
        public static string Titulo;

        public Form1()
        {
            InitializeComponent();
        }

        private void button1_Click(object sender, EventArgs e)
        {
            Titulo = textBox1.Text;
            Form2 frmForm2 = new Form2();
            frmForm2.Show();
        }

        private void Form1_DoubleClick(object sender, EventArgs e)
        {
            this.Text = Titulo;
        }
    }
}

Form2

Código (csharp) [Seleccionar] Expandir

using System;
using System.Windows.Forms;

namespace WindowsFormsApplication1
{
    public partial class Form2 : Form
    {
        public Form2()
        {
            InitializeComponent();
        }

        private void Form2_Load(object sender, EventArgs e)
        {
            this.Text = WindowsFormsApplication1.Form1.Titulo;
        }

        private void button1_Click(object sender, EventArgs e)
        {
            WindowsFormsApplication1.Form1.Titulo = textBox1.Text;
            this.Close();
        }
    }
}

Salu2

[PlainText]

Bueno, el código está hecho en C# y corre perfectamente bajo VS 2008. Utiliza el famoso algoritmo de cifrado AES.

Namespaces utilizados:

• System;
• System.Security.Cryptography;

Argumentos:

• PlainText: Texto a cifrar.
• Password: Nuestra contraseña.
• hashAlgorithm: El algoritmo para generar el hash, puede ser MD5 o SHA1.
• SaltValue: Puede ser cualquier cadena.
• InitialVector: Debe ser una cadena de 16 bytes, es decir, 16 caracteres.
• PasswordIterations: Con uno o dos será suficiente.
• KeySize: Puede ser cualquiera de estos tres valores: 128, 192 o 256.

Esta función cifra:

Código (csharp) [Seleccionar] Expandir

public static string Encrypt(string PlainText, string Password, string SaltValue, string hashAlgorithm, int PasswordIterations, string InitialVector, int KeySize)
        {
            try
            {
                byte[] InitialVectorBytes = Encoding.ASCII.GetBytes(InitialVector);
                byte[] saltValueBytes = Encoding.ASCII.GetBytes(SaltValue);
                byte[] plainTextBytes = Encoding.UTF8.GetBytes(PlainText);

                PasswordDeriveBytes password = new PasswordDeriveBytes(Password, saltValueBytes, hashAlgorithm, PasswordIterations);
               
                byte[] keyBytes = password.GetBytes(KeySize / 8);

                RijndaelManaged symmetricKey = new RijndaelManaged();

                symmetricKey.Mode = CipherMode.CBC;

                ICryptoTransform encryptor = symmetricKey.CreateEncryptor(keyBytes, InitialVectorBytes);

                MemoryStream memoryStream = new MemoryStream();

                CryptoStream cryptoStream = new CryptoStream(memoryStream, encryptor, CryptoStreamMode.Write);

                cryptoStream.Write(plainTextBytes, 0, plainTextBytes.Length);

                cryptoStream.FlushFinalBlock();

                byte[] cipherTextBytes = memoryStream.ToArray();

                memoryStream.Close();
                cryptoStream.Close();

                string cipherText = Convert.ToBase64String(cipherTextBytes);
               
                return cipherText;
            }
            catch
            {
                MessageBox.Show("The typed information is wrong. Please, check it.", "FoS TeaM", MessageBoxButtons.OK, MessageBoxIcon.Stop);
                return null;
            }
        }

Y esta descifra:

Código (csharp) [Seleccionar] Expandir

public static string Decrypt(string PlainText, string Password, string SaltValue, string HashAlgorithm, int PasswordIterations, string InitialVector, int KeySize)
        {
            try
            {
                byte[] InitialVectorBytes = Encoding.ASCII.GetBytes(InitialVector);
                byte[] saltValueBytes = Encoding.ASCII.GetBytes(SaltValue);

                byte[] cipherTextBytes = Convert.FromBase64String(PlainText);

                PasswordDeriveBytes password = new PasswordDeriveBytes(Password, saltValueBytes, HashAlgorithm, PasswordIterations);

                byte[] keyBytes = password.GetBytes(KeySize / 8);

                RijndaelManaged symmetricKey = new RijndaelManaged();

                symmetricKey.Mode = CipherMode.CBC;

                ICryptoTransform decryptor = symmetricKey.CreateDecryptor(keyBytes, InitialVectorBytes);

                MemoryStream memoryStream = new MemoryStream(cipherTextBytes);

                CryptoStream cryptoStream = new CryptoStream(memoryStream, decryptor, CryptoStreamMode.Read);

                byte[] plainTextBytes = new byte[cipherTextBytes.Length];

                int decryptedByteCount = cryptoStream.Read(plainTextBytes, 0, plainTextBytes.Length);

                memoryStream.Close();
                cryptoStream.Close();

                string plainText = Encoding.UTF8.GetString(plainTextBytes, 0, decryptedByteCount);

                return plainText;
            }
            catch
            {
                MessageBox.Show("The typed information is wrong. Please, check it.", "FoS TeaM", MessageBoxButtons.OK, MessageBoxIcon.Stop);
                return null;
            }
        }

Salu2

¿Has oído hablar del patrón Singleton? Puede qué eso de solución a tu problema .

http://es.wikipedia.org/wiki/Singleton

Salu2

¿Por qué no intentas hacerlo con la ayuda del .NET Framework en vez de usar el ya antiguo control Winsock de VB6?

Salu2

Prueba con ésto:

Código (vbnet) [Seleccionar] Expandir

Module DudaAPP
    Sub Main()
        Dim Verduras() As String = {"Patata", "Pimiento", "Coliflor"}
        Dim Huerto() As String = {"Zona1", "Zona2", "Zona3"}

        Try
            For Each Patata As String In Verduras
                For Each Zona As String In Huerto
                    Console.WriteLine("{0} - {1}", Patata, Zona)
                Next
            Next
        Catch ex As Exception
            Console.WriteLine(ex.Message)
        End Try

        Console.ReadKey(True)
    End Sub
End Module


Si te sale error dime cuál es el mensaje que se mostró para poder ayudarte.

Salu2

Buen tutorial, aunque te agradeceria si también haces la correspondiente versión para la versión 6.0 

Como observarás, el .NET Framework nos facilita mucha tarea a los programadores de VB que migramos a .NET

Salu2

Bien, el bueno de SmartGenius me pidió una pequeña guía para buscar archivos con Visual Basic .NET y aquí os la dejo como regalo de reyes.

Lo primero que vamos a hacer será crear un proyecto del tipo Windows Forms y una interfaz similar a ésta:

Una vez echo esto, empezemos a codear. Lo primero de todo que vamos a escribir es el código del evento Click de nuestro botón para añadir el directorio correcto a buscar.

Código (vbnet) [Seleccionar] Expandir

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim Directorio As New FolderBrowserDialog
If Directorio.ShowDialog = Windows.Forms.DialogResult.OK Then
TextBox3.Text = Directorio.SelectedPath
End If
End Sub
Cómo podéis ver creamos un nuevo control FolderBrowserDialog y preguntamos si el usuario ha pulsado el botón Aceptar en él. Si hace esto, el directorio seleccionado será el contenido del cuadro de texto deseado.

Bien, ahora viene lo realmente interesante. Antes que nada os sugiero que importéis el namespace System.IO:

Código (vbnet) [Seleccionar] Expandir

Imports System.IO

Vayamos al control Click de nuestro botón buscar. En nuestra miniaplicación se podrá buscar tanto por el nombre del fichero tanto por el contenido de éste. Para ello, preguntamos que RadioButton está seleccionado.

Código (vbnet) [Seleccionar] Expandir

If RadioButton1.Checked = True Then
' Buscar por nombre
Else
' Buscar por contenido
End If
Empezemos por la segunda opción, la de buscar por contenido. Antes que nada, borramos todos los items de nuestro ListBox por si se encuentran otros resultados de búsquedas anteriores.

Código (vbnet) [Seleccionar] Expandir

ListBox1.Items.Clear()

Por si surge algún error, utilizaremso la sentencia Try...Catch. En caso de que aparezca una excepción se creará un nuevo item en nuestro Listbox con la información del error.

Código (vbnet) [Seleccionar] Expandir


Try
Catch ex As Exception
ListBox1.Items.Add(ex.Message)
End Try
Lo primero que debemos hacer es declarar una variable que contendrá todos los archivos del directorio especificado. Para ello, gracias al método FindInFiles de la clase FileSystem lograremos dicha tarea.

Código (vbnet) [Seleccionar] Expandir

Dim Archivos As System.Collections.ObjectModel.ReadOnlyCollection(Of String)
Archivos = My.Computer.FileSystem.FindInFiles(TextBox3.Text, TextBox2.Text, True, FileIO.SearchOption.SearchAllSubDirectories)
En los parámetros de este método hemos especificado el directorio, el contenido a buscar, si distingue entre mayúsculas y minúsculas y si buscará en los subdirectorios, respectivamente.

Ahora sólo nos falta recorrer la colección y mostrar los resultados en nuestro Listbox.

Código (vbnet) [Seleccionar] Expandir

For Each Archivo As String In Archivos
ListBox1.Items.Add(Archivo)
Next
El código deberá quedar así:

Código (vbnet) [Seleccionar] Expandir

If RadioButton1.Checked = True Then
' Buscar por nombre
Else
' Buscar por contenido
ListBox1.Items.Clear()
Try
Dim Archivos As System.Collections.ObjectModel.ReadOnlyCollection(Of String)
Archivos = My.Computer.FileSystem.FindInFiles(TextBox3.Text, TextBox2.Text, True, FileIO.SearchOption.SearchAllSubDirectories)

For Each Archivo As String In Archivos
ListBox1.Items.Add(Archivo)
Next
Catch ex As Exception
ListBox1.Items.Add(ex.Message)
End Try
End If
Bien, ya sólo nos falta que logre buscar por el nombre del archivo. Para que logre buscar también los subdirectorios del directorio especificado, crearemos un método recursivo, es decir, que se llamará así mismo tantas veces como subdirectorios existan. Tendrá un argumento que será el directorio donde buscará.

Creamos dos variables, una para almacenar el directorio actual y otra para el archivo actual.
A continuación escribimos otro bloque Try..Catch con la misma intención que antes. Esta vez, recorremos todos los elementos de la colección que devuelve el método GetDirectories de la clase Directory pasandole como argumento el directorio deseado. Para no consumir todos los recursos del sistema, utilizaremos el método DoEvents de la clase Application, aunque perfectamente para esta tarea podríamos crear un hilo o hebra. Haríamos un proceso análogo para los archivos del directorio con el método GetFiles de la clase Directory, y esta vez, añadiríamos cada archivo a nuestro ListBox. Al final, debería quedarnos una cosa así:

Código (vbnet) [Seleccionar] Expandir

Private Sub BuscarDirectorio(ByVal sDirectorio As String)
Dim Directorio As String, Archivo As String
Try
For Each Directorio In Directory.GetDirectories(sDirectorio)
Application.DoEvents()
For Each Archivo In Directory.GetFiles(Directorio, TextBox1.Text)
ListBox1.Items.Add(Archivo)
Next
BuscarDirectorio(Directorio)
Next
Catch ex As System.Exception
ListBox1.Items.Add(ex.Message)
End Try
End Sub
Ahora, en el evento click de nuestró botón buscar, debemos llamar al método anterior. Nos quedaría tal que así:

Código (vbnet) [Seleccionar] Expandir

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If RadioButton1.Checked = True Then
ListBox1.Items.Clear()
BuscarDirectorio(TextBox3.Text)
Else
ListBox1.Items.Clear()
Try
Dim Archivos As System.Collections.ObjectModel.ReadOnlyCollection(Of String)
Archivos = My.Computer.FileSystem.FindInFiles(TextBox3.Text, TextBox2.Text, True, FileIO.SearchOption.SearchAllSubDirectories)

For Each Archivo As String In Archivos
ListBox1.Items.Add(Archivo)
Next

Catch ex As Exception
ListBox1.Items.Add(ex.Message)
End Try
End If
End Sub
Ya para terminar, podemos hacer que en el evento SelectedIndexChanged de nuestro ListBox ocurra lo siguiente:

Código (vbnet) [Seleccionar] Expandir


Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox1.SelectedIndexChanged
System.Diagnostics.Process.Start(ListBox1.SelectedItem.ToString())
End Sub
Con ello conseguiremos que al dar click sobre un item de la lista se abra dicho archivo.

Lo bueno siempre termina, y esto no es una excepción . Espero que les haya gustado, y disfruten del día de hoy.

Salu2

Todos sabemos que los atajos del teclado son realmente útiles y nuestra productividad aumenta si los utilizamos. Visual Studio 2008 posee un atajo para casi todas las tareas, por lo que puede llegar a ser muy difícil recordar todos. Aquí os dejo unos posters que recogen todos y ademas son bien chulos . También uno del FrameWork 3.5 con los tipos y Namespaces más utilizados. Unos posters de lujo :8):.

Póster Visual Basic 2008

Póster Visual C# 2008

Póster Visual C++ 2008

Póster Framework 3.5 

Salu2