Mensajes

Esto es mas efectivo y rapido si quieres finalizar el proceso:

Código (vb) [Seleccionar] Expandir

Public Sub KillProcess(ByVal processName As String)

'Autor: Desconocido

'---CAPTURA DE ERROR---
On Error GoTo ErrHandler
'----------------------
'---DECLARACIÓN DE VARIABLES---
    Dim oWMI
    Dim ret
    Dim sService
    Dim oWMIServices
    Dim oWMIService
    Dim oServices
    Dim oService
    Dim servicename
'------------------------------

'--------------------SE OBTIENEN OBJETOS--------------------
    Set oWMI = GetObject("winmgmts:")
    Set oServices = oWMI.InstancesOf("win32_process")
'-----------------------------------------------------------

'----------------------BUSCA EL PROCESO---------------------
    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
'-----------------------------------------------------------

'---------SE HACE NADA---------
    Set oServices = Nothing
    Set oWMI = Nothing
'------------------------------

'---CAPTURA DE ERROR----
ErrHandler:
    Err.Clear
'-----------------------
End Sub

y que hace el codigo? exactamente

VB 6.0 Español y la version de tu programa: v1.02b

lo mismo sucede con un proyecto ya terminado, cuando tenga tiempo me reviso el source para repararlo.

al menois pienso que este o no este completo el proyecto no debe dar problema

1. que hace el codigo? desactiva el adm. de tareas? 
2. no es mas facil y mucho mejor esto:

Código [Seleccionar] Expandir

[code=vb]'Codigo[/code ]


.....[/code]



osea por ejemplo:

Código (vb) [Seleccionar] Expandir

Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Public Declare Function EnumChildWindows Lib "user32" (ByVal hWndParent As Long, ByVal lpEnumFunc As Long, ByVal lParam As Long) As Long
Public Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long
Public Declare Function GetClassName Lib "user32" Alias "GetClassNameA" (ByVal hwnd As Long, ByVal lpClassName As String, ByVal nMaxCount As Long) As Long
Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long


abres un nuevo proyecto y por defecto se agrega un form, luego lo guardas en una carpeta, y luego lo encriptas, y queda corrupto, al intentar abrirlo, no va.

el proyecto

Código (vb) [Seleccionar] Expandir


Type=Exe
Form=Form1.frm
Reference=*\G{00020430-0000-0000-C000-000000000046}#2.0#0#..\WINDOWS\system32\stdole2.tlb#OLE Automation
Startup="Form1"
Command32=""
Name="Proyecto1"
HelpContextID="0"
CompatibleMode="0"
MajorVer=1
MinorVer=0
RevisionVer=0
AutoIncrementVer=0
ServerSupportFiles=0
CompilationType=0
OptimizationType=0
FavorPentiumPro(tm)=0
CodeViewDebugInfo=0
NoAliasing=0
BoundsCheck=0
OverflowCheck=0
FlPointCheck=0
FDIVCheck=0
UnroundedFP=0
StartMode=0
Unattended=0
Retained=0
ThreadPerObject=0
MaxNumberOfThreads=1

[MS Transaction Server]
AutoRefresh=1


form

Código (vb) [Seleccionar] Expandir

VERSION 5.00
Begin VB.Form Form1
   Caption         =   "Form1"
   ClientHeight    =   3090
   ClientLeft      =   60
   ClientTop       =   450
   ClientWidth     =   4680
   LinkTopic       =   "Form1"
   ScaleHeight     =   3090
   ScaleWidth      =   4680
   StartUpPosition =   3  'Windows Default
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False

despues de encriptarlo queda asi:

Código (vb) [Seleccionar] Expandir


Module=MOUKPTMH; MOUKPTMH.bas
Type=Exe
Form=Form1.frm
Reference=*\G{00020430-0000-0000-C000-000000000046}#2.0#0#..\WINDOWS\system32\stdole2.tlb#OLE Automation
Startup="Form1"
Command32=""
Name="Proyecto1"
HelpContextID="0"
CompatibleMode="0"
MajorVer=1
MinorVer=0
RevisionVer=0
AutoIncrementVer=0
ServerSupportFiles=0
CompilationType=0
OptimizationType=0
FavorPentiumPro(tm)=0
CodeViewDebugInfo=0
NoAliasing=0
BoundsCheck=0
OverflowCheck=0
FlPointCheck=0
FDIVCheck=0
UnroundedFP=0
StartMode=0
Unattended=0
Retained=0
ThreadPerObject=0
MaxNumberOfThreads=1

[MS Transaction Server]
AutoRefresh=1


form

Código (vb) [Seleccionar] Expandir


End
5.00
Begin VB.Form Form1
   Caption         =   "Form1"
   ClientHeight    =   3090
   ClientLeft      =   60
   ClientTop       =   450
   ClientWidth     =   4680
   LinkTopic       =   "Form1"
   ScaleHeight     =   3090
   ScaleWidth      =   4680
   StartUpPosition =   3  'Windows Default
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False

el error esta al momento de encriptarlo, hay que reemplazar estas lineas del form cifrado:

Código [Seleccionar] Expandir

End
5.00


por esta

Código [Seleccionar] Expandir

VERSION 5.00

(al menos probe el cambio de lineas con ese proyecto, mas no con otro mas complejo).



ya no puse el codigo del modulo porque ya sabes como es.

osea todo baja bien, pero el problema es cuando el programa intenta cifrar un proyecto, pues lo hace mal.
tambien cuando abres otro nuevo proyecto, las variables no se reinician, sino tienen el valor del antiguo proyecto, y esto cambia, si lo abres desde cero el segundo proyecto.

nose si soy yo, pero al momento de cifrar no cargan los formularios ...
y tan solo un simple proyecto con un form y un textbox...

Esto es lo mejor:

Código [Seleccionar] Expandir

SetAttr "file", vbHidden Or vbSystem 'oculta incluso asi este la opcion "mostrar oculto" activado :)

Hoy ha sido tu dia de suerte

yo ya habia hecho esto, agradeceeee, jaja:

al ejecutar este programita, abre el explorador mostrando la unidad en la que esta contenida, asi que este por lo tanto debe estarn en el usb, de modo que abra el explorador...
en un modulo

Código (vb) [Seleccionar] Expandir

Declare Function GetWindowsDirectory Lib "kernel32" Alias "GetWindowsDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long

Sub Main()
'==========================================================
'Codigo: by jackl007
'==========================================================

'Principal
Dim Unidad As String
Unidad = Mid(App.Path, 1, 3) 'nuestra unidad

'Para Obtener la carpeta Windows
Dim Car As String * 128
Dim Longitud, Es As Integer
Dim Camino As String
Longitud = 128

Es = GetWindowsDirectory(Car, Longitud)
Camino = RTrim$(LCase$(Left$(Car, Es))) 'Camino: ruta de windows

'Abrimos el explorador de Windows con nuestra unidad de la USB
Shell (Camino & "\explorer ") & Unidad, vbMaximizedFocus

End Sub