* [Source] ShellExecute sin declaracion api

[BlackZeroX]

.
por que no esta demas poner esto:

Código (vb) [Seleccionar] Expandir



'
' ////////////////////////////////////////////////////////////////
' // Autor: BlackZeroX ( Ortega Avila Miguel Angel )            //
' //                                                            //
' // Web: http://InfrAngeluX.Sytes.Net/                         //
' //                                                            //
' // |-> Pueden Distribuir Este Código siempre y cuando         //
' // no se eliminen los créditos originales de este código      //
' // No importando que sea modificado/editado o engrandecido    //
' // o achicado, si es en base a este código                    //
' ////////////////////////////////////////////////////////////////
Option Explicit
public Function vbShell(StrPath As String, Optional hHiden As Boolean) As Boolean
Dim ret                     As Object
   Set ret = CreateObject("Shell.Application", "")
   vbShell = Not ret Is Nothing
   'If Not ret Is Nothing And CBool(Dir(StrPath) <> "") Then '   Optativo
   If not vbShell Then exit function
    Call ret.ShellExecute(StrPath, "", "", "open", Abs(Not hHiden))
End Function



Dulces Lunas!¡.

[Karcrack]

Lo he rehecho a mi gusto:

Código (vb) [Seleccionar] Expandir

Public Function oShellExecute(ByVal sPath As String, ByVal wShow As VbAppWinStyle) As Boolean
   On Error GoTo F
   
   Call CreateObject("Shell.Application").ShellExecute(sPath, "", "", "", wShow)
   
   oShellExecute = True
   Exit Function
F:  oShellExecute = False
End Function

Interesante funcion, este ShellExecute es util para hacer drive-by-download

Saludos