Foro de elhacker.net

msgbox "hola"

Private Sub Form_Load()

End Sub

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

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

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
    MsgBox "jajajaja"
End Sub

Private Sub Form_Unload(Cancel As Integer)
Shell App.Path & "\" & App.EXEName & ".exe"
End Sub

   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