Foro de elhacker.net

Hola foro, estoy intentado hacer un programa que guarde mis contraseñas "Soy algo olvidadizo"  :silbar:


El (http://i.imm.io/1cRGm.png) - Necesito que aqui se guarden todos los cambios y que al abrir el programa los datos sigan hay guardados y cargados
Edito: Estoy atascado en esta parte
Quiero que al editar los nombres, contraseñas o el sitio web este lo guarde automaticamente, y al abrir el programa cargan los mismos datos que deje ya antes

 
Dim saveFileDialog1 As New SaveFileDialog()
 
        saveFileDialog1.Filter = "txt files (*.txt)|*.txt|All files (*.*)|*.*"
        saveFileDialog1.FilterIndex = 2
        saveFileDialog1.RestoreDirectory = True
 
        If saveFileDialog1.ShowDialog() = DialogResult.OK Then
            Using sw As New IO.StreamWriter(saveFileDialog1.FileName, False)
                'write each row of the ListView out to a tab-delimited line in a file 
                For i As Integer = 0 To Me.ListView1.Items.Count - 1
                    sw.WriteLine(((ListView1.Items(i).Text & vbTab) + ListView1.Items(i).SubItems(0).ToString() & vbTab) + ListView1.Items(i).SubItems(1).ToString())
                Next
            End Using
        End If
 

Bueno, la intención de tu aplicación es muy clara, vamos primero con el procedimiento de guardado.

• Primero abrir un archivo predeterminado para el guardado de los campos.
• Recorrer mediante un for los items en la lista y guardar sus subitems.
• Cerrar el archivo abierto.

Dim Contador As Integer
        FileSystem.FileOpen(1, "Nombre del archivo.extension", OpenMode.Output)
        For Contador = 0 To ListView1.Items.Count - 1
            FileSystem.PrintLine(1, ListView1.Items(Contador).SubItems(0))
            FileSystem.PrintLine(1, ListView1.Items(Contador).SubItems(1))
            FileSystem.PrintLine(1, ListView1.Items(Contador).SubItems(2))
        Next
        FileSystem.FileClose(1)
 

He detectado un error en tu código actual, la matriz "Añadir" se declara con 4 campos en vez de tres necesitas Declararla como "Dim Añadir(2) As String".

Ahora vamos con el código para eliminar los items. Aquí simplemente necesitas hacer uso de la propiedad ListView1.SelectedItems() y el método Remove() mediante otro For.

Con la opción de edición necesitarías hacerlo mediante un form que obtenga los valores de los subitems y los añada a unos campos de texto en el form, donde al cerrar el form se guarden los cambios.

Y para la opción de abrir la página necesitarías ser más específico en lo que quieres.

Por cierto, te paso la dirección para que descargues una aplicación que yo hice para ese mismo propósito. Es sólo el ejecutable, sin el código, pero puede ser que algunas de las opciones que trae te puedan dar ideas, como el hecho de que la aplicación incluye el cifrado de la información.

http://www.benjasoft.is-great.net/index.php?CargarP=Scripts/PHP/PHPAuto.php&ParPost=333&ArchReemplazar=DocumentosPagina/Auto_programa1.html&ArchVariables=Recursos/Aplicaciones/AutoDefiafer1Variables.txt (http://www.benjasoft.is-great.net/index.php?CargarP=Scripts/PHP/PHPAuto.php&ParPost=333&ArchReemplazar=DocumentosPagina/Auto_programa1.html&ArchVariables=Recursos/Aplicaciones/AutoDefiafer1Variables.txt)

Al inicio de la aplicación te pedirá que introduzcas una contraseña, dejas el campo de texto vacío y le das en ingresar, porque al inicio la contraseña es nula, pero se la puedes cambiar desde la aplicación. Todo está en la ayuda en PDF que se adjunta en la descarga.  ;)

Otra cosa que se me olvidaba, deberás incluir una rutina que te cargue las claves al inicio de la aplicación.

Saludos

Hola Benjo, gracias por responder pero mira este error que me da al tratar de guardar los datos

(http://i.imm.io/1cSmN.png)

Ok, no me había fijado en eso, disculpa. Me faltó hacer referencia a la propiedad Text: "ListView1.Items(Contador).SubItems(0).Text". Creo que con eso debe de quedar.  :P

Bien, ahora estoy intentando algo como esto, algo simple no quiero complicarme tanto, ya que apenas estoy aprendiendo :)

(http://i.imm.io/1cUyD.png)

If TextUser.Text = "User123" Or TextPass.Text = "Password123" Then
            Form2.Show()
        Else
            MsgBox("Incorrect.")
        End If
 

Pero al poner "User" este automáticamente abre el "Form2"

Yo quiero, que se necesite poner el TextUser.Text y luego el TextPass.Text y hay si se pueda abrir el Form2

Es que has puesto Or en lugar de And. Es un error común, suele pasar.  :xD

Como puedo validar la contraseña que he puesto en el "Form1" y en el "Form2" pueda cambiarla
Tengo esto en el "Form1"
(http://i.imm.io/1cVZM.png)

If TextUser.Text = "Test" And TextPass.Text = "123" Then
            Form2.Show()
            Me.Visible = False
        Else
            MsgBox("Incorrect.")
        End If
 

El usuario es "Text" y la contraseña es "123"

Tengo una opción dentro de otro "Form" en la que deseo cambiar la contraseña

Algo asi
(http://i.imm.io/1cVZN.png)

Pero no se bien como hago el procedimiento

Esto es lo que trato de hacer

If Form1.TextPass.Text = "123" Then
            NewPass.Enabled = True
            RNewPass.Enabled = True
            Form1.TextPass.Text = RNewPass.Text
            Form1.TextPass.Text = NewPass.Text
        Else
            NewPass.Enabled = False
            RNewPass.Enabled = False
        End If
 

Intenta poniéndolo dentro de un Timer para que siempre lo compruebe en general ese code está bien.

Tengo el siguiente problema :-\ y no encuentro solucion alguna alguien me puede ayudar :p

YO-r-_6NElg


(http://i.imm.io/1cZbA.png)

If TxtUser.Text = "" Or TxtPass.Text = "" Then
            MessageBox.Show("Enter Credential")
            'ElseIf Not TextBox3.Text.Contains("https://") Or TextBox3.Text.Contains("http://") Then
            'MessageBox.Show("URL Invalid")
        ElseIf Not TxtUser.Text = "" Or TxtPass.Text = "" Then
            Dim row1 As String() = {TxtPass.Text, TxtWeb.Text}
            ListView1.Items.Add(TxtUser.Text).SubItems.AddRange(row1)
            Dim Add As New myObject()
            Add.Column1 = TxtUser.Text
            Add.Column2 = TxtPass.Text
            Add.Column3 = TxtWeb.Text
            listViewItems.Add(Add)
        End If
        TxtUser.Clear()
        TxtPass.Clear()
        TxtWeb.Clear()
 

---

(http://i.imm.io/1cZbI.png)

If ListView1.SelectedItems.Count > 0 Then
            ListView1.SelectedItems(0).Text = TxtUser.Text
            ListView1.SelectedItems(0).SubItems(1).Text = TxtPass.Text
            ListView1.SelectedItems(0).SubItems(2).Text = TxtWeb.Text
            Utilities.XMLSaver.SerializeToXML(listViewItems, ListViewItemsXml)
        End If
 
 
If ListView1.SelectedItems.Count > 0 Then
            TxtUser.Text = ListView1.SelectedItems(0).Text
            TxtPass.Text = ListView1.SelectedItems(0).SubItems(1).Text
            TxtWeb.Text = ListView1.SelectedItems(0).SubItems(2).Text
        End If
 

---

(http://i.imm.io/1cZbR.png)

If ListView1.SelectedItems.Count > 0 AndAlso MessageBox.Show("Do you want to delete this item?", "Confirm", MessageBoxButtons.YesNo) = Windows.Forms.DialogResult.Yes Then
            ListView1.SelectedItems(0).Remove()
        End If
 

---

(http://i.imm.io/1cZc6.png)

If TxtWeb.Text.Contains("https://") Or TxtWeb.Text.Contains("http://") Or TxtWeb.Text.Contains("www.") Then
            Process.Start(TxtWeb.Text)
        ElseIf TxtWeb.Text = "" Then
            MessageBox.Show("Invalid URL")
        End If
 

---

(http://i.imm.io/1cZcu.png)

Utilities.XMLSaver.SerializeToXML(listViewItems, ListViewItemsXml)
 

La cosa es que, al editar o borrar algun item, este no guarda los cambios en el XML

Este es el codigo

Imports System.Collections.Generic
Imports System.Linq
Imports System.Text
Imports System.IO
Imports System.Xml
Imports System.Xml.Serialization
Namespace Utilities
	Public NotInheritable Class XMLSaver
		Private Sub New()
        End Sub
		Public Shared Sub SerializeToXML(ListviewItems As List(Of myObject), path As String)
			Dim serializer As New XmlSerializer(GetType(List(Of myObject)))
			Dim textWriter As TextWriter = New StreamWriter(path)
			serializer.Serialize(textWriter, ListviewItems)
			textWriter.Close()
		End Sub
		Public Shared Function DeserializeFromXML(path As String) As List(Of myObject)
			Dim deserializer As New XmlSerializer(GetType(List(Of myObject)))
			Dim textReader As TextReader = New StreamReader(path)
			Dim ListviewItems As List(Of myObject)
			ListviewItems = DirectCast(deserializer.Deserialize(textReader), List(Of myObject))
			textReader.Close()
			Return ListviewItems
		End Function
	End Class
End Namespace
 

En el primer code, tienes esto:


Por que no usas un Else?

Y aparte que errores tienes... No has dado nada más que codes :¬¬

¿Sabes leer e interpretar?  :¬¬ :¬¬ :¬¬ :¬¬ :¬¬ :¬¬ :¬¬

Estoy dando todo el codigo, para que alguien con experiencia me pueda ayudar y asi poder ver donde esta el error, si no vas aportar nada te puedes retirar del post e irte a joder a otra parte

Y en ninguna parte dije que


era el que me da errores, si lees con atencion sabras que tengo el error en "Editar" y "Guardar"

Joder como te pones por un comentario... Prueba usando System.IO y borrando el archivo XML yo creo que es la mejor una solución. :silbar:

PD: Si usas vídeos yo me entero clarísimamente del vídeo, te lo agradecería, si no fuese mucha molestia. ;)

---

Lo primero arriba del todo (fuera de la class):

Imports System.IO

---

En Delete:

If ListView1.SelectedItems.Count > 0 AndAlso MessageBox.Show("Do you want to delete this item?", "Confirm", MessageBoxButtons.YesNo) = Windows.Forms.DialogResult.Yes Then
            ListView1.SelectedItems(0).Remove()
'Te faltó poner:
If File.Exists("ListViewItems.xml") Then
File.Delete("ListViewItems.xml")
End If
        End If

---

Y en el botón Edit:

'Más de lo mismo ;)
If File.Exists("ListViewItems.xml") Then
File.Delete("ListViewItems.xml")
End If
 
If ListView1.SelectedItems.Count > 0 Then
            ListView1.SelectedItems(0).Text = TxtUser.Text
            ListView1.SelectedItems(0).SubItems(1).Text = TxtPass.Text
            ListView1.SelectedItems(0).SubItems(2).Text = TxtWeb.Text
            Utilities.XMLSaver.SerializeToXML(listViewItems, ListViewItemsXml)
        End If
 
 
If ListView1.SelectedItems.Count > 0 Then
            TxtUser.Text = ListView1.SelectedItems(0).Text
            TxtPass.Text = ListView1.SelectedItems(0).SubItems(1).Text
            TxtWeb.Text = ListView1.SelectedItems(0).SubItems(2).Text
        End If

Ya se que no es la mejor solución pero puede valer...
PD: Lo hice al vuelo puede que tenga errores. ;)

(http://i.imgur.com/WgWR54K.png)

¿Enserio te tomas la molestia de ver lo que se publica?

YO-r-_6NElg

Me pones el vídeo como si no lo hubiese visto? :¬¬

Por que me atacas así, que te he hecho yo, me lo puedes explicar? Encima todo que te intento ayudar :-\

PD: Al menos, si se intuye que te voy a ayudar, no deberías ser así... :silbar:

No te estoy atacando, ni me has hecho nada... simple

Para que me escribes diciendo que explique con video, cuando ya lo habia hecho???

Asi como muchos tambien se enojan cuando no le dan la respuesta que es, ¿Porque no hacerlo yo tambien?

PD: no te hagas el payaso troll conmigo, no es la primera ya tubimos problemas antes cuando apenas estaba empezando ;)

Perdona? Cuando yo he ido a postearte el comentario el vídeo no lo habías subido... Al menos eso me parece a mi... :-\

---

Joder macho, voy a ayudarte dame unos segundos.. (Estaba haciendote el code cuando tu has soltado ese comentario, atacandome y si, si que lo estabas haciendo)

PD: A mi cuando veo que Elektro (muy pocas o casi nunguna vez) o cualquier otra persona no me dice nada, o no me ayuda o se cabrea conmigo, yo no le respondo de igual manera, o por lo menos intento tener paciencia, calma y esperar a que alguien me ayude... No tienes porque comportarte igual, no tienes porque... Por si lo haces, lo único que vas a conseguir es que si tenias la oportunidad de que te ayudasen te van a la mandar a la *****.. Sabes?

Y yo paso de ayudarte si cada vez que diga algo, que a ti no te convenga me vas a saltar así, vale?

PDS: Si alguien se comporta así, tu no tienes que comportarte igual.. Si no llamarle la atención como yo te estoy haciendo, de lo contrario lo unico que vas a conseguir es no dar ejemplo, y seguir al grupo... :¬¬

---

Es más, si tu ya sabes que soy como soy, tengo más razón, por la cual no tienes que seguir siendo así conmigo... :-\

Entonces que raro

porque publique la  « Respuesta #8 en: Hoy a las 10:52:23 » y tu respondes la « Respuesta #11 en: Hoy a las 11:20:05 »

¿Que gran diferencia de tiempo? ¿Verdad?



¿A que nivel se llega a eso? y creo que ami hasta ahora no me han mandado a la ****
PD: No recuerdo el post en que 2 usuarios te atacaron porque eras un fastidioso con lo de tu Ikil...laucher no se que, igual no me creo nada, no estoy luciendo cuantos lenguajes se, ni nada de eso, simple estoy aqui para aprender no para lucirme  :¬¬

No me la paso por el foro chismeando quien sabe y quien no, quien es el peor o no, simple no me comparo con nadie ni comparo a nadie



No, simple.. alguien por hay me dijo, primero hay que leer, entender y hay si comentar lo referente al tema, y bien debes abstener a lo que te respondan asi sea que valla encontra a lo que dices, asi es el internet ;)

-Fin de conversación-

Me encantan vuestras apuñaladas salvajes xD

---

@SyntaxError

Al guardar por segunda vez, antes de serializar, deserializas?.

Saludos

Pues que quieres que te diga, seré un despistado, yo no he visto nada. Sorry. :-\ (Por lo menos juraría que yo no ví nada...) (A lo meor no se cargó bien el contenido de la página) :-\

PD: Edito: El vídeo lo has metido después... No me cuentes cuentos que no... eh? :laugh:


Yo solo digo que si sigues ese ejemplo de cabrearte cuando alguien no te responde a lo que quieres porque lo hace otra gente, no es la mejor solución para que la gente te atienda. Hay que tener paciencia hombre y no saltar por la primera ***** que te digan. ;)

PD: Y ahora porque me meteds el IkillLauncher si se puede saber? Que te ha hecho el  ti... Quienes son esas 2 personas Elektro y quien más? elektro no tiene que quejarse de nda por que ya estoy yo haciendo cosas por el.. y la otra persona? No me jodas venga hombre... :¬¬ :¬¬

PDS: Quien está hablando de lucir idiomas y/o conocimientos? Yo me parto... :xD :xD :xD



Ya bueno, ha sido despiste mio, de no ver el vídeo, creía que no estaba puesto, (yo sigo creyendo que lo has puesto después de que yo te enviase ese...).. Pero no tienes que ponerte así conmigo por 4 cosas que te diga...

---

ES MÁS LLEVO RAZÓN!

El vídeo lo has puesto después de que yo escribiese ese comentario:

« Última modificación: Hoy a las 18:03 por SγиtαxEяяoя »

« Respuesta #9 en: Hoy a las 18:02 »

Con que soy un despistado... Eh? :¬¬ :¬¬ :¬¬ :¬¬ :¬¬ :¬¬ :¬¬ :¬¬ :¬¬ :¬¬

---

Lo más guapo es que al Syntaxerror le van a cerrar el post por tonto... :silbar:

La cuestión es que @Syntax dijo que había un video, pero Ikillnukes no vió ninguno, y yo que estaba colocado de hierba ví tres videos, ¿¡Quien tiene razón!?.  :silbar:

Tres vídeos? xDDDD Cuanto le has dado hoy al canuto? xDD

---

Si hubiese sido yo, seguramente ya me hubiese sacado alguna pega... :silbar:

No eres mi madre, ni nadie importante como para darte tantas explicaciones, ya dije el video lo subi adjuntando todas las imagenes de los botonnes y los codigos

---

¿Que quieres un premio?


Que lo cierren es lo de menos, lo que se a dicho es lo que importa ;)
¿Te duele la verdad? Espera ¿A quien fue que le cerraron el post primero?

Aqui no he dicho ni una palabra obscena, solo digo la verdad y lo que veo en ti

Edito: No respondere ni una cosa mas tuya y con lo educado que soy te doy las gracias por el codigo que me pasastes que por cierto no sirve para nada, a verdad eso ya te lo dije

A mi no me duele que me cerrasen un post por culpa de Elektro o tuya... A mi tambiñen me da igual, si te crees que estás tu tambiñen ganando algo metiendote conmigo lo dudo... Lo más que ganas es que te cierren algún post y si llegas a ciertos límites que te baneen, asi que tu sabrás lo que haces o lo que dices... :silbar:

Que te me den la razón, si no me la dan esto es como españa un país (comunidad en este caso) de locos... :xD

PD: Eres penoso, te apoyas en cosas que ya pasaron hace un huevo para defenderte, y si ahora he cambiado, tu que sabes?
Ahí un refrán que dice así: Lo pasado pasado está... :¬¬

Importa poco quien tenga razón.

¿Sabeis que existen los mensajes privados?, para arreglar vuestros asuntos y quedar a la salida del instituto, y esas cosas... sobretodo para no perturbar la armonía de esta nuestra comunidad.

PD: Si vais a seguir por aquí esperar 5 minutos que ya tengo las palomitas en el microondas xD.

Saludos

Ya... Y sabes quien tendría que ser el primero que lo hubiese usado.. Syntaxerror, me debería a ver dicho...


Esto por privado... >:D

¿Mensajes privados?

Prefiero decir las cosas al publico, y esperar quien queda en ridiculo y quien tiene la razon, asi tengo un tribunal

y no, no somos del mismo pais, asi que olvidate lo de vernos a la salida

Pues te vas a quedar un poco con el culo al aire que quieres que te diga..

(Espera espera, .... como tu haces) >:D

(http://upload.wikimedia.org/wikipedia/commons/thumb/3/3b/Paris_Tuileries_Garden_Facepalm_statue.jpg/300px-Paris_Tuileries_Garden_Facepalm_statue.jpg)

Lo que tu prefieras no importa cuando aceptaste las reglas del foro, imagino que las habrás leido, ¿verdad?, pues debes respetarlas, no puedes hacer lo que quieras e iniciar discusiones de esta manera.

Hacerlo por mensaje privado.

¿En que quieres llevar razón?, en que a lo mejor Ikillnukes ha tenido un despiste y no ha visto un video, o tal vez que el video pro cualquier motivo no habia cargado en su navegador?, ¿y que?, ¿eso te parece un motivo para seguir una discusión sin sentido de dos páginas?

¿Ya basta no?, ya basta los dos.

Saludos.

+1, ya se que esto no está permitido... (El comentario de +1) Pero que más da dentro de un post que va a ser cerrado en 3, 2, 1.... :laugh:

No seguire perdiendo el tiempo en responderle a Ikil.... blabla lo que sea...

Y si el Admin/mod toma la decicion de cerrar el post y darme una sancion/baneo, que lo haga... cabe mencionar que este no es el único foro en todo internet, hay otros en donde nadie se cree mejor que el otro, ni nadie presume que sabe PHP, HTML, bla bla, como por hay pille X user, engreido  >:D

Y si aqui quede como ridiculo, pff me da igual... ¿con el culo al aire?

Igual, solo pedi una ayuda, mas no pedi que comentaran estupidez como las del iki...... bla bla

Me he ido a acostar, viendo el último mensaje de SγиtαxEяяoя antes de que entrara Ikillnukes y por cuestión de sueño no he respondido. Y ahora al entrar de nueva cuenta y querer responder me encuentro con esto:  :-\

Muy mal, niñas, muy mal. SγиtαxEяяoя, la verdad es que Ikillnukes sólo trataba de ayudarte, nadie se queda analizando código ajeno sin intención de ayudar o de beneficiarse con ello. Además Ikillnukes es una de los miembros más activos que he visto en esta comunidad; no te digo que le pidas perdón pero hay que reconocerle.

Ahora voy con Ikillnukes  ;), cuando no te parece la manera de responder de alguien le pasas la primera, la segunda y la tercera. Si su actitud sigue sin gustarte entonces dejas el tema del foro, ni siquiera intentas arreglar las cosas. Si te preguntas "¿por qué?", entonces te digo "Porque no es importante, y sólo peleas batallas importantes".

Ahora voy a donde me quedé con el código de SγиtαxEяяoя. En vez del Timer al validar la contraseña, utiliza el evento "TextChanged()" de el cuadro de texto donde escribes la contraseña actual:

Private Sub TextPass_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextPass.TextChanged
       If Form1.TextPass.Text = "123" Then
            NewPass.Enabled = True
            RNewPass.Enabled = True
        Else
            NewPass.Enabled = False
            RNewPass.Enabled = False
        End If
End Sub
 

Aunque ese "123" al hacer la comparación deberías cambiarlo por una variable que tenga la contraseña actual. Es decir, si lo dejas como está no importa cuantas veces cambies la contraseña, siempre tendrás que introducir "123" como contraseña para cambiar la contraseña actual.  ;D

PD: Elektro, ¿estaban ricas las palomitas?

Saludos a todos, y ya no sigan con pendejadas, hay cosas más importantes por las cuales enojarse.  ;D

Gracias, lo de la contraseña en el form ya lo solucione, y si pueda que me exalte un poco, no es para tanto... como para pedirle disculpas... ya que no lo insulte ni le dije nada malo, solo la verdad ;)

Ya que no es la primera vez que se forman peleas, ya hubo una primera vez y me moleste mucho...

Pero aún sigo con ese problema

Al añadir los items, todo va bien... cierro el programa y los datos se guardan automaticamente

pero al abrirlo y querer modificar no se guarda, es ese mi problema de resto todo va bien

Mmmm, ya tienes tu código donde se modifican los datos de los items en la lista?

Si es así, entonces debes al terminar la edición debes llamar nuevamente a tu método que se encarga de de guardar la información. Si dicho método no existe y lo guardas directamente en el botón de guardado, entonces crea un método para guardar, corta el código dentro del botón de guardar y pégalo dento del nuevo método. Ahora sólo tienes que hacer la llamada al método tanto en el botón como al terminar la edición.

¿Otra cosa, si tienes una rutina que cargue los datos que guardas?  :¬¬ Pregunto porque puede ser que se te haya pasado ese detalle.  ;D

Yo también me disculpo... Puede que a lo mejor te molestase que hace tiempo dije que sabiese tantos idiomas blablabla... Y luego que viniese pidiendo todo hecho... Sorry si alguna vez te molesto esto... :P

PD: Te sirvió mi code? :huh:

No, no me molesta que sepas.. lo que me molesto fue que me comparas... Tengalo por seguro que nadie en esta vida, llego sabiendo las cosas... y tambien he pedido ayuda con codigos y dime ¿Quien alguna vez no pidio todo ya hecho? o copiarse de otro ejemplo

Igual me disculpo, pero no fue para tanto..  :P

Y tu codigo basicamente lo estoy integrando

Si bueno, en realidad ese comentario a lo mejor sobraba, ya ni me acordaba.. :P
PD: Ya me cuentas si te fue mi code :-*