Foro de elhacker.net

Programación => Programación Visual Basic => Mensaje iniciado por: SockMon en 21 Agosto 2010, 21:48 pm


Título: No se como hacerlo
Publicado por: SockMon en 21 Agosto 2010, 21:48 pm
Hola, soy principiante, y estoy haciendo un simple programa con accesos directos, en principio bien pero he pensado que si cambio el archivo de lugar no funcionaria, por lo que le he añadido otra pestaña con la configuracion de cada acceso y aqui esta el problema.

Para cada acceso directo he puesto  dos cuadros de textos.
en uno de ellos pongo lo que quiero que se muestre en el texto del boton y en el otro la direccion donde se encuentra el archivo.

Pero claro si cambio una direccion y nombre cuando vuelva a abrir el programa van a cambiar.

Como seria el codigo para cada textbox?
Por cierto si hay que añadir algun boton  para guardar los cambios preferiria que solo fuese uno. (Pero si tengo un boton en algunos textbox para examinar).

Gracias por ayudarme

Título: Re: No se como hacerlo
Publicado por: BlackZeroX en 21 Agosto 2010, 23:30 pm
...
ok que es lo que llevas hasta ahora... no somos beneficencia!¡

Dulces Lunas!¡.

Título: Re: No se como hacerlo
Publicado por: Petro_Boca en 21 Agosto 2010, 23:51 pm
Cita de: SockMon en 21 Agosto 2010, 21:48 pm
Hola, soy principiante, y estoy haciendo un simple programa con accesos directos, en principio bien pero he pensado que si cambio el archivo de lugar no funcionaria,

yo te recomiendo que te bajes este software y q hagas INSTALADORES SILENCIOSOS (COMO HAGO YO)

aca te lo dejo

http://www.taringa.net/posts/downloads/2507805/Smart-Install-Maker-5_02-%5BCompleto%5D-%5BMultilenguaje%5D.html

Título: Re: No se como hacerlo
Publicado por: Petro_Boca en 21 Agosto 2010, 23:52 pm
Cita de: petro_boca en 21 Agosto 2010, 23:51 pm
Cita de: SockMon en 21 Agosto 2010, 21:48 pm
Hola, soy principiante, y estoy haciendo un simple programa con accesos directos, en principio bien pero he pensado que si cambio el archivo de lugar no funcionaria,

yo te recomiendo que te bajes este software y q hagas INSTALADORES SILENCIOSOS (COMO HAGO YO)

aca te lo dejo

http://www.taringa.net/posts/downloads/2507805/Smart-Install-Maker-5_02-%5BCompleto%5D-%5BMultilenguaje%5D.html

retiro lo dicho..

Título: Re: No se como hacerlo
Publicado por: SockMon en 22 Agosto 2010, 00:10 am
Bueno, ya llevo la parte de la apariencia y tambien un login sencillo que he hecho.
Lo unico que me falta es que si le cambio la direccion a un enlace mediante un textbox  y un boton de examinar se quede guardado y no cambie solo.
Si quereis os subo unas imagenes.
Buenas noches. :)

Título: Re: No se como hacerlo
Publicado por: Petro_Boca en 22 Agosto 2010, 00:12 am
Cita de: SockMon en 22 Agosto 2010, 00:10 am
Bueno, ya llevo la parte de la apariencia y tambien un login sencillo que he hecho.
Lo unico que me falta es que si le cambio la direccion a un enlace mediante un textbox  y un boton de examinar se quede guardado y no cambie solo.
Si quereis os subo unas imagenes.
Buenas noches. :)

sock

me podes decir que es lo que hace el programa y cual es el error?

Título: Re: No se como hacerlo
Publicado por: SockMon en 22 Agosto 2010, 00:22 am
Miren tengo varios ordenadores en casa y me gusta vigilarlos para eso utilizo un troyano, pero como comparto mi PC no quiero que nadie lo sepa a si que he escondido una carpeta con todo lo que utilizo (spy-net,el crypter, no-ip.....)  en un sitio de la carpeta windows donde normalmente no se va y ademas le puse tributo oculto y claro mientras encuentro la carpeta y pongo para que se vean las carpetas ocultas tardo un poco, asi que decidi de hacer una aplicacion con contraseña (eso ya lo tengo solucionado) con acceso directos a esas aplicaciones, pero claro pense que si algun dia cambiaba de lugar la carpeta, el programa se iria a tomar por **** y pense que si se podria cambiar la direccion que abre un acceso directo (boton normal y corriente) con un textbox y un boton de examinar, pero claro hasta hay bien pero cuando cierre y vuelva a abrirlo las direcciones que puse se perderan y tendre que ponerlas de nuevo.
Espero que se pueda entender y gracias.

P.D: No se si esto esta permitido pero saber mas no creo que sea un delito, saben de algun tutorial para principiantes.

Título: Re: No se como hacerlo
Publicado por: BlackZeroX en 22 Agosto 2010, 00:50 am
.
Escribe la configuracion en un archivo .ini  mas info usa el buscador que hay mucha info ¬¬"

Dulces Lunas!¡.

Título: Re: No se como hacerlo
Publicado por: Petro_Boca en 22 Agosto 2010, 00:55 am
RETIRO LO DICHO

Título: Re: No se como hacerlo
Publicado por: Petro_Boca en 22 Agosto 2010, 01:04 am
ACA TE LO DEJO <3

(http://r.i.elhacker.net/cache?url=http://imgur.com/hBHsX.jpg)

1 text1.text (caja de texto)

1 commandbutton (boton)

Código
  1. Private Sub Command1_Click()
  2. on error resume next
  3. Shell Text1.Text, vbNormalFocus
  4. End Sub

con .exe funciona bien..

pero con TXT no :'(

Título: Re: No se como hacerlo
Publicado por: SockMon en 22 Agosto 2010, 01:15 am
Empiezo por BlackZeroX.
Lo siento pero no se como se hace eso :xD
Eso si te dejo algunas capturas.
http://img801.imageshack.us/i/228201008391.jpg/
http://img823.imageshack.us/i/228201008512.jpg/
http://img821.imageshack.us/i/22820101853.jpg/
http://img841.imageshack.us/i/228201018214.jpg/

Código
  1. Public Class AdrI
  2.  
  3.     Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
  4.         Me.Close()
  5.     End Sub
  6.     Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
  7.         Panel1.Hide()
  8.         PictureBox1.Hide()
  9.         If TextBox1.Text = "..." And TextBox2.Text = "..." Then
  10.             Panel1.Show()
  11.             Panel2.Hide()
  12.         Else
  13.             MsgBox("Incorrecto")
  14.  
  15.         End If
  16.  
  17.     End Sub
  18.  
  19.  
  20.     Private Sub TabPage2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TabPage2.Click
  21.  
  22.     End Sub
  23.  
  24.  
  25.     Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click
  26.         Me.Close()
  27.     End Sub
  28.  
  29.  
  30.  
  31.     Private Sub Button18_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button18.Click
  32.         PictureBox1.Hide()
  33.         Button18.Hide()
  34.         Button19.Show()
  35.  
  36.     End Sub
  37.  
  38.     Private Sub Button19_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button19.Click
  39.         PictureBox1.Show()
  40.         Button18.Show()
  41.         Button19.Hide()
  42.     End Sub
  43.  
  44.     Private Sub AdrI_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
  45.  
  46.     End Sub
  47.  
  48.  
  49. End Class
  50.  



Petro_boca
Probare lo que me dices.
Y lo de la contraseña lo encontre en youtube.
Código
  1.  If TextBox1.Text = "Usuario" And TextBox2.Text = "Contraseña" Then
  2.             Panel1.Show()
  3.             Panel2.Hide()
  4.         Else
  5.             MsgBox("Incorrecto")
  6.  
  7.         End If

P.D: Creo que lo que me dices no es lo que busco, pero gracias. Dime si me equivoco(eso es para que se habra lo que ponga en el textbox no?) Enparte eso es lo que quiero pero que una vez que cierre el programa se quede guardada esa direccion y que si algun dia la quiero cambiar que se pueda.

------------------------------------------------------------------------------------------------
Ya se que podia haber hecho otro formulario pero no sabia como hacer que cuando se me abriese el segundo cerrar el primero  :-[
------------------------------------------------------------------------------------------------

Título: Re: No se como hacerlo
Publicado por: Petro_Boca en 22 Agosto 2010, 01:27 am
Cita de: SockMon en 22 Agosto 2010, 01:15 am


Creo que lo que me dices no es lo que busco, pero gracias. Dime si me equivoco(eso es para que se habra lo que ponga en el textbox no?) Enparte eso es lo que quiero pero que una vez que cierre el programa se quede guardada esa direccion y que si algun dia la quiero cambiar que se pueda.


ahh..

yo cargaria un txt a la memoria, y q el txt tenga escrita la ruta, y q despues carges el contenido del txt (la ruta) al text1.text

Título: Re: No se como hacerlo
Publicado por: SockMon en 22 Agosto 2010, 01:30 am
Cita de: petro_boca en 22 Agosto 2010, 01:27 am
Cita de: SockMon en 22 Agosto 2010, 01:15 am


Creo que lo que me dices no es lo que busco, pero gracias. Dime si me equivoco(eso es para que se habra lo que ponga en el textbox no?) Enparte eso es lo que quiero pero que una vez que cierre el programa se quede guardada esa direccion y que si algun dia la quiero cambiar que se pueda.


ahh..

yo cargaria un txt a la memoria, y q el txt tenga escrita la ruta, y q despues carges el contenido del txt (la ruta) al text1.text

Bien, pero se podria cambiar y guardar una nueva direccion con ese metodo todas las veces que quieras.
Y como se haria? :huh: :-[

Título: Re: No se como hacerlo
Publicado por: Petro_Boca en 22 Agosto 2010, 01:34 am
Cita de: SockMon en 22 Agosto 2010, 01:30 am
Cita de: petro_boca en 22 Agosto 2010, 01:27 am
Cita de: SockMon en 22 Agosto 2010, 01:15 am


Creo que lo que me dices no es lo que busco, pero gracias. Dime si me equivoco(eso es para que se habra lo que ponga en el textbox no?) Enparte eso es lo que quiero pero que una vez que cierre el programa se quede guardada esa direccion y que si algun dia la quiero cambiar que se pueda.


ahh..

yo cargaria un txt a la memoria, y q el txt tenga escrita la ruta, y q despues carges el contenido del txt (la ruta) al text1.text

Bien, pero se podria cambiar y guardar una nueva direccion con ese metodo todas las veces que quieras.
Y como se haria? :huh: :-[

modificando el TXT(archivo de texto q se carga en la memoria, y se puede leer en tu text1.text)

ahora te hago un ejemplo

Título: Re: No se como hacerlo
Publicado por: Petro_Boca en 22 Agosto 2010, 01:44 am
Cita de: petro_boca en 22 Agosto 2010, 01:34 am
Cita de: SockMon en 22 Agosto 2010, 01:30 am
Cita de: petro_boca en 22 Agosto 2010, 01:27 am
Cita de: SockMon en 22 Agosto 2010, 01:15 am


Creo que lo que me dices no es lo que busco, pero gracias. Dime si me equivoco(eso es para que se habra lo que ponga en el textbox no?) Enparte eso es lo que quiero pero que una vez que cierre el programa se quede guardada esa direccion y que si algun dia la quiero cambiar que se pueda.


ahh..

yo cargaria un txt a la memoria, y q el txt tenga escrita la ruta, y q despues carges el contenido del txt (la ruta) al text1.text

Bien, pero se podria cambiar y guardar una nueva direccion con ese metodo todas las veces que quieras.
Y como se haria? :huh: :-[

modificando el TXT(archivo de texto q se carga en la memoria, y se puede leer en tu text1.text)

ahora te hago un ejemplo

Código
  1.  
  2. Private Sub Form_Load()
  3. Dim direccion As String
  4. direccion = "C:\direccion.txt"
  5.   Text1 = ""
  6.  
  7.   Open direccion For Input As #1
  8.  
  9.  
  10.   While Not EOF(1)
  11.  
  12.     Line Input #1, Linea
  13.  
  14.     Text1 = Linea 
  15.  
  16.   Wend
  17.  
  18.   Close
  19.  
  20.  
  21.  
  22.  
  23. End Sub
  24.  
  25.  

todo tuyo :D

(http://r.i.elhacker.net/cache?url=http://imgur.com/MEuHd.jpg)

el command1 q se ve en la imagen esta ahi de vista nomas XD!

Título: Re: No se como hacerlo
Publicado por: SockMon en 22 Agosto 2010, 01:58 am
Muchas gracias petro_boca tiene buena pinta, hoy no me da tiempo de probarlo mañana lo hago y te cuento, porfavor no me cierren el post hasta mañana por la noche por si me surge alguna duda.
GRACIAS

Título: Re: No se como hacerlo
Publicado por: Petro_Boca en 22 Agosto 2010, 02:15 am
Cita de: SockMon en 22 Agosto 2010, 01:58 am
Muchas gracias petro_boca tiene buena pinta, hoy no me da tiempo de probarlo mañana lo hago y te cuento, porfavor no me cierren el post hasta mañana por la noche por si me surge alguna duda.
GRACIAS

Espero tu respuesta :D

Título: Re: No se como hacerlo
Publicado por: SockMon en 22 Agosto 2010, 14:25 pm
Hey, cada dia creo que soy mas torpe en el textbox puse esto (en el codigo).
Código
  1. Private Sub Form_Load()
  2.         Dim direccion As String
  3.         direccion = "C:\Users\Adrián\Desktop\datos.txt"
  4.         TextBox4 = ""
  5.  
  6.   Open direccion For Input As #1
  7.  
  8.  
  9.         While Not EOF(1)
  10.  
  11.     Line Input #1, Linea
  12.  
  13.             TextBox4 = Linea
  14.  
  15.         End While
  16.  
  17.         Close()
  18.  
  19.  
  20.  
  21.  
  22.     End Sub

Yo cambie text1 por textbox4  porque supuse que como es otra version cambia el nombre de los objetos y ademas me cambia automaticamente Wend por End While. Pero ahora me da varios errores.

Errores: http://img842.imageshack.us/i/228201014881.jpg/

Título: Re: No se como hacerlo
Publicado por: Petro_Boca en 22 Agosto 2010, 17:42 pm
Cita de: SockMon en 22 Agosto 2010, 14:25 pm
Hey, cada dia creo que soy mas torpe en el textbox puse esto (en el codigo).
Código
  1. Private Sub Form_Load()
  2.         Dim direccion As String
  3.         direccion = "C:\Users\Adrián\Desktop\datos.txt"
  4.         TextBox4 = ""
  5.  
  6.   Open direccion For Input As #1
  7.  
  8.  
  9.         While Not EOF(1)
  10.  
  11.     Line Input #1, Linea
  12.  
  13.             TextBox4 = Linea
  14.  
  15.         End While
  16.  
  17.         Close()
  18.  
  19.  
  20.  
  21.  
  22.     End Sub

Yo cambie text1 por textbox4  porque supuse que como es otra version cambia el nombre de los objetos y ademas me cambia automaticamente Wend por End While. Pero ahora me da varios errores.

Errores: http://img842.imageshack.us/i/228201014881.jpg/

ACA TENES EL CODIGO DEFINITIVO :3

Código
  1.  
  2. Private Sub Form_Load()
  3. Dim direccion As String
  4. direccion = "C:\Users\Adrián\Desktop\datos.txt"
  5.   Text4 = ""
  6.  
  7.   Open direccion For Input As #1
  8.  
  9.  
  10.   While Not EOF(1)
  11.  
  12.     Line Input #1, Linea
  13.  
  14.     Text4 = Linea 
  15.  
  16.   Wend
  17.  
  18.   Close
  19.  
  20.  
  21.  
  22.  
  23. End Sub

Suerte ;D

Tus errores:

TextBox4 = ""
TextBox4 = Linea

te sobra el "Box"

Título: Re: No se como hacerlo
Publicado por: SockMon en 22 Agosto 2010, 19:09 pm
Hola, no quiero ser pesado  :( pero me sigue dando los mismo errores, he pensado que alomejor usamos distintas versiones de visual basic. Yo utilizo Visual Basic 2008 Express Edition.

Título: Re: No se como hacerlo
Publicado por: Petro_Boca en 22 Agosto 2010, 19:23 pm
Cita de: SockMon en 22 Agosto 2010, 19:09 pm
Hola, no quiero ser pesado  :( pero me sigue dando los mismo errores, he pensado que alomejor usamos distintas versiones de visual basic. Yo utilizo Visual Basic 2008 Express Edition.

YO HABLABA DE VB6 !

Título: Re: No se como hacerlo
Publicado por: SockMon en 22 Agosto 2010, 19:29 pm
No se si es mucho pedir pero podrias traducirlo o alguien que lo haga porfavor.

Título: Re: No se como hacerlo
Publicado por: Petro_Boca en 22 Agosto 2010, 19:30 pm
Cita de: SockMon en 22 Agosto 2010, 19:29 pm
No se si es mucho pedir pero podrias traducirlo o alguien que lo haga porfavor.

igual te recomiendo vb6....

Título: Re: No se como hacerlo
Publicado por: SockMon en 22 Agosto 2010, 19:38 pm
por que me recomiendas ese?

Título: Re: No se como hacerlo
Publicado por: Shell Root en 22 Agosto 2010, 19:39 pm
Porque este es el subforo de ese lenguaje. xD

Título: Re: No se como hacerlo
Publicado por: Petro_Boca en 22 Agosto 2010, 20:03 pm
Cita de: SockMon en 22 Agosto 2010, 19:38 pm
por que me recomiendas ese?


Cita de: Shell Root en 22 Agosto 2010, 19:39 pm
Porque este es el subforo de ese lenguaje. xD
;D ;D ;D ;D


Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines