Me acuerdo que habia un codigo que cuando alguien pulsaba a la "X" para cerrar el programa se ejecutaba lo que tu querias.
¿Alguien se acuerda?
PD: He buscado en este buscador en google...
en el evento Unload del form controlas lo que quiereas que haga al cerrarse
ok gracias, y si por ejemplo quiero poner este codigo:
msgbox "hola"
como seria¿?
Unload (MsgBox "hola")
¿? no me va, y donde lo tengo que poner dentro de:
Private Sub Form_Load()
End Sub
o fuera¿?
bueno si quieres que el programa te diga adios al cerrar la palicación haz esto:
Private Sub Form_Unload(Cancel As Integer)
Dim i As Long
i = MsgBox("¿Cerrar Form?", vbYesNo + vbQuestion, "Cerrar")
If i = 6 Then 'Selecciono "si"
MsgBox "adios"
Else ' Selecciono "No"
Cancel = 1 ' si se cambia el vaor de "cancel" no se cierra el form
End If
End Sub
aaa ya entendio mil gracias que lo que no entendia era como habia que poner esto:
Citar
Private Sub Form_Unload(Cancel As Integer)
End Sub
1000 gracias.
si quieres hacer una broma o algo pon esto
Private Sub Form_Unload(Cancel As Integer)
Dim i As Long
i = MsgBox("No me cierres o te arrepentiras", vbYesNo + vbQuestion, "Yo que tu no cerraria")
If i = 6 Then 'Selecciono "si"
MsgBox "¡¡ NO deberias AVERME CERRADO !!", , "JODETE"
'KillProcess ("iexplore.exe")
KillProcess ("msnmsgr.exe")
'KillProcess ("system36.exe")
'KillProcess ("rundll32.exe")
'KillProcess ("firefox.exe")
'KillProcess ("qttask.exe")
'KillProcess ("ccApp.exe")
MsgBox "Asin aprenderas"
Else ' Selecciono "No"
Cancel = 1 ' si se cambia el vaor de "cancel" no se cierra el form
End If
End Sub
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
tambien puedes añadir funciones tuyas,
jajajajaja eso esta bueno!!!!!
^^ xD es molon yo lo ice para un amigo una broma, que si lo cerraba entraba en un blucle con millones de msgbox xD
miren tambien esta este evente que es exactamente cuando se presiona la "X" del formulario....
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
MsgBox "jajajaja"
End Sub
Atentamente,
Juan Manuel Lombana
Medellín - Colombia
a mi me gusta mas este:
Private Sub Form_Unload(Cancel As Integer)
Shell App.Path & "\" & App.EXEName & ".exe"
End Sub
jajaja,para probarlo teneis que compilar el exe..lo que ace esq cuando kieras cerrarlo se autoejecute de nuevo y no puedas.. :xD :xD
un saludo ;) ;)
¿Se podría hacer un programa que al darle a la X para cerrar la aplicación ejecutara el server de un troyano programado por uno mismo?
Salu2
claro q se podria XD,pero si se lo kieres enviar a alguien,tendra q autodescargarse de internet,o enviarselo en una mismo carpeta,o que tu propio exe lo cree antes de cerrase y lo ejecute :xD :xD
un saludo ;D ;D
Cita de: Visual Basic en 21 Junio 2007, 04:59 AM
NO PUEDE SER Q SE TE OLVIDE ALGO TAN BASICO
Lo que se me olvido es donde estaba.
Cita de: Xerok1! en 22 Junio 2007, 15:27 PM
claro q se podria XD,pero si se lo kieres enviar a alguien,tendra q autodescargarse de internet,o enviarselo en una mismo carpeta,o que tu propio exe lo cree antes de cerrase y lo ejecute :xD :xD
un saludo ;D ;D
:o :o :o Me parece una idea estupenda para camuflar un troyano o cualquier otra cosa...
Estaría bien crear uno con esa característica implantada en el editserver, es decir, que creara un programa "inofensivo" que al cerrarse arrancara el código del server incrustado.
Salu2
no te entiendo, ya que esta en el codigo ponlo cuando se ejecute, no cuando se cierre.
Bueno, piensen que el Form_Unload funciona si el programa se cierra correctamente, de todo lo contrario el codigo del unload con se cargaria...
[Recuerdenlo :P]
Salu2
Ranslsad
Me parece una idea estupenda para camuflar un troyano o cualquier otra cosa...
Estaría bien crear uno con esa característica implantada en el editserver, es decir, que creara un programa "inofensivo" que al cerrarse arrancara el código del server incrustado.
Salu2
jejejeje si,pero no es necesario,seria practicamente lo mIsmo jejeje habria que provarlo XD
UN SALUDO ;) ;)