Test Foro de elhacker.net SMF 2.1

Programación => .NET (C#, VB.NET, ASP) => Programación General => Programación Visual Basic => Mensaje iniciado por: CAR3S? en 19 Abril 2011, 09:12 AM

Título: Inicio...
Publicado por: CAR3S? en 19 Abril 2011, 09:12 AM
Hola!

bueno hice un programa que no sirve para nada, la cosa es...

yo quiero que inicie con windows, pero el main.visible = false (y cuando se inicia manualmente, visible)

como es eso de los comandos de inicio?

s2

hablo de eso que por ejemplo en el registro aparece

c:\windows.exe /minimized

(Obviamente ese archivo no existe)

creo que se llama parametro xd
Título: Re: Inicio...
Publicado por: ignorantev1.1 en 19 Abril 2011, 16:49 PM
Código (vb) [Seleccionar]

sub form_load()
   if command="minimized" then me.visible=false
end sub
Título: Re: Inicio...
Publicado por: CAR3S? en 19 Abril 2011, 22:01 PM
pongo este codigo

Código (vb) [Seleccionar]
sub form_load()
  if command="boot" then me.visible=false
end sub


y en el acceso directo

".....a.exe" /boot

pero no hace el formulario invisible :S

EDIT:

ahora puse

Código (vb) [Seleccionar]
Private Sub Form_Load()
If Command() = "dato" Then
MsgBox "PEGASTE"
Else

End If
End Sub


".....a.exe" dato


parece q funciona pero da un error

(http://a3.sphotos.ak.fbcdn.net/hphotos-ak-snc6/206493_1820939414634_1574649969_31767053_6947942_n.jpg)

p.d:
la imagen tiene una figura oculta  :-X :-X :-X :-X :-X ;D :xD
Título: Re: Inicio...
Publicado por: Edu en 19 Abril 2011, 22:31 PM
Te lo puso mas o menos al vuelo, fijate a escribirlo letra por letra mirandolo, sin copie y pegue ya q creo q command es vbcommand, vs escribi todo en minuscula y si el vb6 te lo pasa a mayuscula es porq funciona.
Título: Re: Inicio...
Publicado por: CAR3S? en 19 Abril 2011, 22:44 PM
sisi mira lo que edite arriba
Título: Re: Inicio...
Publicado por: Edu en 19 Abril 2011, 22:54 PM
Proba poniendo al principio del form load
Código (vb) [Seleccionar]

Show


o me.Show no me acuerdo bien.

Aunque talvez no quieres hacer lo q saldra, es por eso de q el msgbox es modal entonces no puede salir otro no modal, eso dice el error, pero si pones show entonces saldra primero el form y enseguida el msgbox
Título: Re: Inicio...
Publicado por: CAR3S? en 19 Abril 2011, 23:05 PM
probe poniendo los 2 y sigue saliendo ese error :c
Título: Re: Inicio...
Publicado por: ignorantev1.1 en 19 Abril 2011, 23:46 PM
Código (vb) [Seleccionar]

Private Sub Form_Load()
    If Command = "HI" Then MsgBox "No hay errores!"
End Sub


(http://i52.tinypic.com/29yio9l.jpg)

A lo mejor tienes mal la configuracion en las propiedades del formulario, prueba creando un nuevo formulario y solo poniendo el codigo de prueba.
Título: Re: Inicio...
Publicado por: Edu en 19 Abril 2011, 23:49 PM
Pero eso es porq tendras otra cosa, otro codigo, pasa mas codigo y vemos.
A mi esto me anda clarito:

Código (vb) [Seleccionar]

Option Explicit

Private Sub Form_Load()

If Command() = "dato" Then
MsgBox "PEGASTE"
End If

End Sub


Y lo puedo usar asi tamb:

Código (vb) [Seleccionar]

Option Explicit

Private Sub Form_Load()

Text1.Text = Command()

End Sub



Lo del show te dije q lo pongas porq me parecio q podia ser eso pero no, como dije pasa mas codigo
Título: Re: Inicio...
Publicado por: CAR3S? en 20 Abril 2011, 04:31 AM
si, es verdad, anda pero en el mio no xd

el codigo del form es

Código (vb) [Seleccionar]







Private Sub Form_Load()
Me.Show
Timer1.Interval = 1
If Command = "dato" Then

MsgBox "PEGASTE"
Else

End If
End Sub

Private Sub Timer1_Timer()

Form1.Show

Timer1.Enabled = False

End Sub


edito:

el error esta en el codigo del timer, ya que si lo saco, anda bien........
Título: Re: Inicio...
Publicado por: Edu en 20 Abril 2011, 20:02 PM
Claro, tenia q ver si con lo q decia hoy solo q al revez xD, sacale el "Form1.Show" que esta al pedo si desp del msgbox "PEGASTE" se va a mostrar.

Esque el msgbox es modal ( viste q si no lo aceptas o cancelas no te deja hacer otra cosa? bueno es eso) y entonces vs estas haciendo q inicie el form1 cuando esta el msgbox y eso te da error.

Edit: Ahora q me doy cuenta tenes q sacar todo el timmer entero si total esta de mas ahora xD
Título: Re: Inicio...
Publicado por: BlackZeroX en 20 Abril 2011, 20:20 PM
.
Oja la te sirva de algo, no traigo el vb6 instalado.

Código (vb) [Seleccionar]


Private Sub Form_Load()
    select case command$
        case "\hide","\main.hide"
            hide
        case "\show","\main.show"
            show
    end select
End Sub



Dulces Lunas!¡.
-
Título: Re: Inicio...
Publicado por: raul338 en 20 Abril 2011, 20:31 PM
Para usar varias opciones puedes jugar con InStr por ej. Ahora estoy desde el movil. Sino te pondria un codigo
Título: Re: Inicio...
Publicado por: Edu en 20 Abril 2011, 20:59 PM
Ya ya ya, ya vinieron los masters a molestar xD jaja. Eso no pide nuKje y ya lo soluciono creo, dejen ganar una! jaja
Título: Re: Inicio...
Publicado por: CAR3S? en 21 Abril 2011, 02:20 AM
Cita de: XXX-ZERO-XXX en 20 Abril 2011, 20:02 PM
Claro, tenia q ver si con lo q decia hoy solo q al revez xD, sacale el "Form1.Show" que esta al pedo si desp del msgbox "PEGASTE" se va a mostrar.

Esque el msgbox es modal ( viste q si no lo aceptas o cancelas no te deja hacer otra cosa? bueno es eso) y entonces vs estas haciendo q inicie el form1 cuando esta el msgbox y eso te da error.

Edit: Ahora q me doy cuenta tenes q sacar todo el timmer entero si total esta de mas ahora xD

Nop, en el exe inicia el form 'tuto' , y el timer abre el form1

p.d: solucionado:

Código (vb) [Seleccionar]

Private Sub Form_Load()
Me.Show

If Command = "dato" Then

MsgBox "PEGASTE"
Else

End If
Form1.Show
End Sub






Título: Re: Inicio...
Publicado por: Edu en 21 Abril 2011, 02:39 AM
Ah bueno, esos datos tenes q decirlos siempre, pero si te sigue saliendo es por lo q dije un post antes a este.
Si te explicaras mejor q hace tu proyecto, o si dejaras el proyecto, te lo solucionarian mas rapido
Título: Re: Inicio...
Publicado por: CAR3S? en 21 Abril 2011, 04:18 AM
Pero si deje el codigo, no entiendo porque decis eso ._.

Lo unico que hacia el proyecto era abrir el formulario 'tuto' (Al inicio), y que 'tuto' abra el form1.

gracias por la ayuda  ;D !

/closed
Título: Re: Inicio...
Publicado por: Edu en 21 Abril 2011, 04:51 AM
Pero no me queda claro a q le decis "tuto" es el nombre de un form? Bueno eso es lo q tenias q haber dicho, yo por ejemplo pensaba q habrias el mismo form1..