ShellExecut(Ruta + exe) [Autoit]

Bueno aporto este code soucer para muchos programas a si ponerlo para la gente que no sabe

Code:

#include <Constants.au3>
$paths = "C:\Program Files\alaplaya\S4League\patcher_s4.exe"
ShellExecut($paths)
func ShellExecut($path)
$comand = 'rundll32 shell32.dll, ShellExec_RunDLL "'&$path&'"'
RunWait(@ComSpec & " /K title " & "ofuscando" & "|" & $comand,@ScriptDir,@SW_HIDE,$STDERR_CHILD + $STDOUT_CHILD)
EndFunc

ShellExecute Normal:

Code:

ShellExecute("C:\Program Files\alaplaya\S4League\patcher_s4.exe")

otro método:

Code:

Func sShell($Path)
Local $Shell = ObjCreate("shell.application")
$Shell.ShellExecute($Path, "")
EndFunc

Function:       Efecto de degradado en apertura/cierre

Code:

GUICreate("Ejemplo de Degradado.exe", 350, 100, 200, 200)
GUISetState(@SW_SHOW)

For $i = 1 to 255
    Sleep(10)
    WinSetTrans("Ejemplo de Degradado.exe", "", $i)
Next

While 1
    $msg = GUIGetMsg()
    Switch $msg
        Case - 3
            For $i = 255 to 1 Step -1
                Sleep(20)
                WinSetTrans("Ejemplo de Degradado.exe", "", $i)
            Next
            Exit
    EndSwitch
WEnd

Saludos :bye:

[You must be registered and logged in to see this link.]: Seyer
[You must be registered and logged in to see this link.]: no está permitido el uso de colores en comentarios y/o títulos.