Mensajes

mira este code hace que que tu proceso sea critico y si es terminado se reinicia el sistema, ojala y te sirva

http://foro.elhacker.net/programacion_vb/api_rtlsetprocessiscritical-t234756.0.html

ese code lo postee anteriormente es de MachineDramon y esta basado en el small zipstore que utiliza el mydoom. ojala y los chicos del hacker puedan hacer algo seria un gran aporte zipear en VB sin ocx, ni otros componentes.

buen tema WestOn 

tienes la solucion si quieres utilizarla haya tu

si podrias utilizar mutex, cuando tu aplicación sea cerrada de improvisto por ejemplo mediante el taskmanager, tus procesos hijos vigilen constantemente mediante un timer o bucle  si el mutex padre fue cerrado si es asi, que se cierre cada uno. creo que es con una propiedad o metodo si mal no estoy es SYNCRHONIZE del mutex

es verdad tu funcion Karcrack es mucho mejor es mas estetica, igualmente se podria hacer un fileexits con CreateFile, jeje, muchas gracias amigo

bueno este code te permite verificar si un file existe

Código (vb) [Seleccionar] Expandir


Public Function FileExists(strPath As String) As Boolean ' verifica si un archivo existe
    On Error Resume Next

    If Len(strPath) < 4 Then
        FileExists = False
        Exit Function
    End If

    FileExists = IIf(Dir(strPath, _
    vbArchive + vbHidden + vbNormal + vbReadOnly + vbSystem) <> "", True, False)
End Function


para copiar esta función, te aconsejo que uses APIs en lugar de las funciones del VB, la filecopy es bastante vigilada por avs

Código (vb) [Seleccionar] Expandir


Option Explicit

Private Declare Function SHFileOperation Lib "shell32.dll" _
Alias "SHFileOperationA" ( _
lpFileOp As SHFILEOPSTRUCT) As Long
Private Type SHFILEOPSTRUCT
    hWnd                             As Long
    wFunc                            As Long
    pFrom                            As String
    pTo                                As String
    fFlags                             As Long
    fAnyOperationsAborted    As Boolean
    hNameMappings              As Long
    lpszProgressTitle             As String
End Type


Private Enum eFO   
    FO_COPY = &H2&     
    FOF_NOCONFIRMATION = &H10&
    FOF_NOCONFIRMMKDIR = &H200&
   
End Enum

Public Sub mCopyFile(sSource As String, sTarget As String) ' Procedimiento para Copiar un archivo

    Dim SHFileOp As SHFILEOPSTRUCT
       
    sSource = sSource & vbNullChar & vbNullChar
    sTarget = sTarget & vbNullChar & vbNullChar
   
    With SHFileOp
        .wFunc = FO_COPY         
        .fFlags = FOF_NOCONFIRMMKDIR + FOF_NOCONFIRMATION
        .hWnd = Form1.hWnd
        .pFrom = sSource    'origen
        .pTo = sTarget      'Destino
    End With
   
    Call SHFileOperation(SHFileOp)
End Sub


Tambien puedes utilizar el commondialog control

Código (vb) [Seleccionar] Expandir


CommonDialog1.Filter = "*.bat"
CommonDialog1.ShowSave


deberias leer un poco mejor, ademas mira el titulo del post

si tienes juan en text2 pues al darle click en el commandbutton tienes que agregar: text2.text & ".bat" asi concatenas el nombre que el usuario ingresa en el text2 y la extensión en este caso .bat

esta utilizando un cuadro de texto text1 para ingreso de datos si ingresa la cadena sileverado la compararia con silverado, como tu dices no le veo comillas.

si usa la funcion val me imagino que silverado es una constante a la cual se le asigno un valor anteriormente.