Foro de elhacker.net

Necesito conocer en que archivo se encuntra la instruccion de3 que un exe no se abra mas de una vez un exe...
o expliquenme como crearlo... se los agradezco gracias!!!

' Si el programa se encuentra en ejecución se cierra
 If App.PrevInstance = True Then End

no me entendiste... no me refiero al programna que haga yo si no a otro.. por ejemplo el msn no se puede iniciar secion 2 veces o mas, me refiero a crear una aplicacion o como se llame para poderlos ejecutar 2 o mas veces(no me refiero a msn basicamente)...gracias!!!

Bueno hace ya tiempo que no reviso ese tema pero la idea basica es la misma que se usaba antes con los lanzadores de MSN Messenger, es decir lanzar el ejcutable desde VB con un numero de proceso diferente por cada copia...

Con gusto te mostraria un ejemplo pero no se ni donde quedaron todos mis codigos VB pero se realiza de la manera que te menciono

si puedes postiar el code para lanzar un proceso con distinto pid cada vez, te lo agradeceria :P

saludos

el proceso se cree de la forma que sea siempre tiene un id diferente. el msn lo que crea es un mutex cada vez que se ejecuta y si existe pues se cierra, modificando la comparacion puedes abrirlo las veces que quieras.

pues lo mejor es que hagas una plicacion que te cre una copia en temporales de la aplicacion que kieres abrir con diferente nombre. tambie que le dijas que no se ejecuta por sistema. eso lo pudes hacer por regedit en HKLM\software\microsoft\windows\curient user, eso lo habia hecho hace tiempo pero no me acuerdo como...

Si pudieran codear algo mas o mens pa darme una idea se los agradeceria preferiblemente en VB...Gracias!!

No soy bruto lo que pasa es que soy lento para aprender...

con respecto al mutex
no tengo muy en claro su significado pero si para que sirve,. lguna manera de hacerlo en vb??
yo abia echo algo asi,. se ejecutba la aplicacion, guardaba un dato boolean en el registro como true si el programa se estaba ejecutando y lo modificaba a false cuadno se cerrara,. si al abrir el exe la entrada era true, se cerraba,. funcionaba muy bien,. pero el problema era el siguiente: si la aplicacion se  cerraba x algun error de windows,. o xq me mataban el proceso ,. el valor kedabva en true., no lo pasaba a false, logicamente
de ahi en adelante cda ves que se keria abrir era como si ya se estubiesee ejecutando

bueno nose,. fijense
saludos

 ;D yo  creo k son mas faciles los ejemplos...Gracias!!!

Gracias por tu colaboracion... si alguien me podria traducir lo anterior se lo agradeceria...pero de cualquier forma GRACIAS!!!

en cristiano quiere decir algo asi:

si no hay ningun problema la funcion devuelve el manejador del objeto mutex. si ya existe devuelve ERROR_ALREADY_EXISTS.

el sistema cierra automaticamente el handle al terminar el proceso.

se inicia el programa:
 if createmutex==ERROR_ALREADY_EXISTS
 cerrar aplicacion
 else
 seguir la ejecucion

se entiende la forma de usarlo mas o menos.

Eso no es VB verdad?...no conozco el lenguaje o komo usar las propiedades k me diste(si esk esta en otro lenguaje)...ahora suponiendo que la copia del programa se llame:
hola.exe
y el programa se llame:
hey.exe...

explicamelo asi haber si asi si le entiendo...GRACIAS!!!

NO SOY TAN BRUTO LO QUE PASA ES QUE SOY LENTO QUE ES DIFERENTE...

no es ningun lenguaje en concreto, es para que te de una idea y cfreo que se entiende perfectamente.

Esperame creo k te estoy entendiendo´pero tu no mi...
tu pones que si hay error cierre la aplicacion:
el error es logico que suceda es precisamente para eso la aplicacion que quiero crear. para evitar errores...
Eso es lo que dices?...
por lo general los programas o parches que tiene esta funcion son similares a el original pero son un poco mas grandes...
GRACIAS!!!

Private Declare Function CreateMutex Lib "kernel32" Alias "CreateMutexA" (ByVal lpMutexAttributes As Long, ByVal bInitialOwner As Long, ByVal lpName As String) As Long
Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long
 
Private Const ERROR_ALREADY_EXISTS = 183&
 
Public Const AppVer = "MyApp v1.1"
Dim mutexvalue As Long
   
mutexvalue = CreateMutex(ByVal 0&, 1, AppVer)
 
If (Err.LastDllError = ERROR_ALREADY_EXISTS) Then
 CloseHandle mutexvalue
end
End If

Este code no es mio.
en la constante AppVer Pone el caption de la ventana que uses.
le agrege el "end"
(no lo testie, por lo que vi, parece funcionar)

Por alguna razon no sirvio VOLks... el primer error que me marco que las constantes no se pueden definir "publics" y depues la puse "private".. depues que no me marco error a la hora de el calis lo compile y lo ejecutaba y simplemente no sucedia nada. podrias decir por que?
GRACIAS!!!