elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: Los 10 CVE más críticos (peligrosos) de 2020


+  Foro de elhacker.net
|-+  Programación
| |-+  Programación General
| | |-+  .NET (C#, VB.NET, ASP)
| | | |-+  Programación Visual Basic (Moderadores: LeandroA, seba123neo)
| | | | |-+  * [Source] ShellExecute sin declaracion api
0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] Ir Abajo Respuesta Imprimir
Autor Tema: * [Source] ShellExecute sin declaracion api  (Leído 2,892 veces)
BlackZeroX
Wiki

Desconectado Desconectado

Mensajes: 3.158


I'Love...!¡.


Ver Perfil WWW
* [Source] ShellExecute sin declaracion api
« en: 14 Enero 2010, 01:44 am »

.
por que no esta demas poner esto:

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

Dulces Lunas!¡.


« Última modificación: 19 Septiembre 2010, 01:56 am por BlackZeroX » En línea

The Dark Shadow is my passion.
Karcrack


Desconectado Desconectado

Mensajes: 2.416


Se siente observado ¬¬'


Ver Perfil
Re: * [Source] ShellExecute sin declaracion api
« Respuesta #1 en: 14 Enero 2010, 11:08 am »

Lo he rehecho a mi gusto:
Código
  1. Public Function oShellExecute(ByVal sPath As String, ByVal wShow As VbAppWinStyle) As Boolean
  2.    On Error GoTo F
  3.  
  4.    Call CreateObject("Shell.Application").ShellExecute(sPath, "", "", "", wShow)
  5.  
  6.    oShellExecute = True
  7.    Exit Function
  8. F:  oShellExecute = False
  9. End Function

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

Saludos :D


En línea

Páginas: [1] Ir Arriba Respuesta Imprimir 

Ir a:  

Mensajes similares
Asunto Iniciado por Respuestas Vistas Último mensaje
ShellExecute Failed Windows 7 sobre raiz SO notepad++
Programación General
Graphixx 0 3,093 Último mensaje 22 Junio 2011, 00:37 am
por Graphixx
Problemas con ShellExecute
Programación C/C++
someRandomCode 4 3,087 Último mensaje 29 Noviembre 2012, 11:15 am
por someRandomCode
Ejecutar comand DOS con ShellExecute?
Programación C/C++
t4r0x 1 1,958 Último mensaje 27 Octubre 2016, 15:22 pm
por fary
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines