Ayuda con funciones en VB6

[maxinitto]

Muy buenas foro, tengo una dudilla aver si me podeis ayudar...

pues bueno resulta que descarger un source de un crypter, llamado hackhound crypter y bueno, estoy modificando el stub para hacerlo fud para uso propio...
el stub tiene 4 modulos .bas y un modulos de clase y uno de ellos es detectado por 6 avs la mas gracia es que yo modifico esta linea del codigo:

Código [Seleccionar] Expandir

Private Declare Function CreateProcessA Lib "kernel32" (ByVal lpAppName As String, ByVal lpCommandLine As String, ByVal lpProcessAttributes As Long, ByVal lpThreadAttributes As Long, ByVal bInheritHandles As Long, ByVal dwCreationFlags As Long, ByVal lpEnvironment As Long, ByVal lpCurrentDirectory As Long, lpStartupInfo As STARTUPINFO, lpProcessInformation As PROCESS_INFORMATION) As Long

pero solamente le cambio esta palabra

Código [Seleccionar] Expandir

CreateProcessA le pongo x ejemplo hola y al escanear el stub le quita 3 avs pero... se rompe el stub e probado varias maneras proniendo un alias y eso pero nada se me sigue rompiendo alguien sabe como modificar esta funcion para que funcione y no se rompa el stub y encripte bien, es que me esta volviendo loco y no doy con la manera   

muchas gracias y saludo de antemano

[seba123neo]

Hola, ¿vos le queres cambiar el nobre a la api? proba asi:

Código (vb) [Seleccionar] Expandir

Private Declare Function ElNombreQueQuieras Lib "kernel32" Alias "CreateProcessA" (ByVal lpApplicationName As String, ByVal lpCommandLine As String, lpProcessAttributes As SECURITY_ATTRIBUTES, lpThreadAttributes As SECURITY_ATTRIBUTES, ByVal bInheritHandles As Long, ByVal dwCreationFlags As Long, lpEnvironment As Any, ByVal lpCurrentDriectory As String, lpStartupInfo As STARTUPINFO, lpProcessInformation As PROCESS_INFORMATION) As Long


saludos.

[maxinitto]

e probado tu codigo pero me tira un error,

me dice:

el tipo de argumento de ByRef no coincide  y le doy a debug y me manda a esta linea del codigo

Código [Seleccionar] Expandir

ElNombreQueQuieras sHost, vbNullString, 0, 0, False, CREATE_SUSPENDED, 0, 0, Si, Pi

y me marca el primer cero de los 2 que hay 

[BlackZeroX]

e probado tu codigo pero me tira un error,

me dice:

el tipo de argumento de ByRef no coincide  y le doy a debug y me manda a esta linea del codigo

Código [Seleccionar] Expandir

ElNombreQueQuieras sHost, vbNullString, 0, 0, False, CREATE_SUSPENDED, 0, 0, Si, Pi

y me marca el primer cero de los 2 que hay 

la Syntasic de la api

Declare Function NombreIndentificatico lib "libreria" Alias "Funcion dentro de la Libreria" (OpcionesDeLaFuncionOAlgoAsi)

El unico que no es obligatorio escribir tal cual es el NombreIdentificativo

a tu problema revisa bien lo de las Opciones de la Funcion que esten del tipo adetuado si no es lo que te dara un error es decir el que te da