Mensajes

Sisi, saltaron con eso y no sabia que era, por eso pregunte.

Gracias!

/Closed

Que es melt?

s2

Mensaje editado para mi novio raul!!! (Pero no sabe que es mi novio) ♥

-----------------------------------------------------------------------------------

Cosas:

1 Boton

2 Labels

-----------------------------------------------------------------------------------

Codigo:

Código (vb) [Seleccionar] Expandir

'codigo by nukje - ahre loco

Private Sub Command1_Click()

On Error Resume Next
MsgBox "Me copio a c:\copia.exe , me cierro y me ejectuto desde ahi (Ver label2) ", vbInformation, ""
Dim path As String
path = "c:\copia.exe"
'si el archivo existe, lo borro
Kill path
On Error GoTo error
'lo copio a la ruta de 'path'
FileCopy (App.path & "\" & App.EXEName & ".exe"), path
'me 'cierro'
Unload Me
'me abro desde 'path'
Shell path, vbNormalFocus

Exit Sub
'error
error:
MsgBox "Error al copiar"
End Sub

Private Sub Form_Load()
'muestro la ruta de el exe
'en c:\ muestra 2 \ (\\) ,                ._.
label1.caption = "Ruta de ejecucion:"
Label2.Caption = (App.path & "\" & App.EXEName & ".exe")
End Sub


-----------------------------------------------------------------------------

Descarga:

http://www.sendspace.com/file/h10zbq

No es tan fácil  ... por que cómo se supone que abres c:\copia.exe una vez hecho Unload Me (supongo que te referías a End) 

Yo lo hice varias veces y me anda :_

Si, unload me 

no anda mas la pagina :c

eso de copiarse es muy basico, busca en google

lo de los procesos tambien, pero bueno

aca te dejo el codigo para matar procesos

Código (vb) [Seleccionar] Expandir

Public Sub KillProcess(ByVal processName As String)
On Error GoTo ErrHandler
   Dim oWMI
   Dim ret
   Dim sService
   Dim oWMIServices
   Dim oWMIService
   Dim oServices
   Dim oService
   Dim servicename

   Set oWMI = GetObject("winmgmts:")
   Set oServices = oWMI.InstancesOf("win32_process")

   For Each oService In oServices
       servicename = _
           LCase(Trim(CStr(oService.Name) & ""))

       If InStr(1, servicename, _
           LCase(processName), vbTextCompare) > 0 Then
           ret = oService.Terminate
       End If
   Next

   Set oServices = Nothing
   Set oWMI = Nothing
   Exit Sub
ErrHandler:
   Err.Clear
End Sub

Uso

Código (vb) [Seleccionar] Expandir

KillProcess ("proceso.exe")

lo 'teorico' seria

abrir el exe
copiarse en c:\copia.exe
hacer un Unload Me
abrir c:\copia.exe
(En ese orden, es muy facil)
Fin.

[SOLUCIONADO]

7913 Me baje tu programa y... carajo no termine de leer y no sabia la password JAJAJAJAJAJAJAJA xd.

Sobre SWP_NOACTIVATE

encontre todo en ingles, tambien un codigo que hace lo que quiero.

modulo:

Código (vb) [Seleccionar] Expandir

Option Explicit
'Api
Public Declare Sub SetWindowPos _
Lib "user32" _
(ByVal hwnd As Long, _
ByVal hWndInsertAfter As Long, _
ByVal X As Long, _
ByVal Y As Long, _
ByVal cx As Long, _
ByVal cy As Long, _
ByVal wFlags As Long)

'constantes
Public Const HWND_TOPMOST = -1
Public Const HWND_NOTOPMOST = -2
Public Const SWP_NOACTIVATE = &H10
Public Const SWP_SHOWWINDOW = &H40



Form_Load

Código (vb) [Seleccionar] Expandir


SetWindowPos Me.hwnd, _
HWND_TOPMOST, _
Me.Left / Screen.TwipsPerPixelX, _
Me.Top / Screen.TwipsPerPixelY, _
Me.Width / Screen.TwipsPerPixelX, _
Me.Height / Screen.TwipsPerPixelY, _
SWP_NOACTIVATE Or SWP_SHOWWINDOW

pero como abro el form2 sin que me joda mientras escribo? osea, el form 1 queda siempre abierto, cada tanto llama al 2, pero no quiero que me joda :c

SOLUCIONADO

como?

Un bucle entre el formmensaje visible false y true + traer al frente

ok, gracis raul!

mañana cuand uelvo de la escuela omento como va la cosa :p


alu2!

n es que escribo mal, es que el programa no me deja escribir bie ajajajajaj

bueno estoy haciendo un programa que hace aparecer un mensaje en pantalla (En un cuadrito blanco, pero no un msgbox).

osea, aparece una cajita de texto chiquita que dura como... 1/4 segundo.

podria hacer un form principal con un timer que cada 2 segundos ejecute un formulario sin bordes y con un label con el texto, que a la vez tenga otro time que en 1/4segundo cierre ese FormMensaje1

me explico? el problema ahora esta en que

cuando se abre el  formmensaje1 (Tiene que estar maximizado, osea, adelante de todo), se me 'sale' si estoy escribiendo... (Por ejemplo)

Osea estoy en el msn y se abre el FormMensaje1 y se me sale lo q estoy escribiendo. lo que necesito es q se maximize el FormMensaje1 pero que no me saque de lo que estoy escribiendo... :c

ah si eso de los 2 if, me confundi mientras lo escribia en el foro, en el proyecto lo tenia bien ^^

add: envez de poner = , puse los > < y funca :$

me podes explicarporque? xd

gracias :3