Título: Para que se autoejecute al reiniciar el ordenador =( Publicado por: lipman en 13 Noviembre 2006, 20:42 pm Bueno, busqué y busqué y encontré un post sobre esto, y por no revivirlo, lo pregunto aquí.
Bueno, el código era este: Código: Private Sub Form_Load() Funciona bien, es decir, que cuando abro el archivo, se copia a ese sitio del registro, y que cuando introduzco msconfig en ejecutar y me voy a la parte de inicio, aparece marcada, todo bien. Pero a la hora de la práctica algo falla, es decir que está todo bien, pero no se porque no se me inicia =( Alguien me ayuda? Título: Re: Para que se autoejecute al reiniciar el ordenador =( Publicado por: lipman en 13 Noviembre 2006, 23:04 pm Me acabo de dar cuenta, de que eso, lo que hace es ejecutar un archivo automaticamente, pero lo que no hace y lo que necesito hacer es copiar el archivo abierto a system32.
¿Como lo copio? Gracias Título: Re: Para que se autoejecute al reiniciar el ordenador =( Publicado por: Hans el Topo en 14 Noviembre 2006, 00:32 am Este code utilizo yo para crear menus en los que te da a elegir si quieres que se inicie o no tu programa al iniciarse windows. (creo que lo saque de "El Guille")
El code que te pongo utiliza de un menu llamado mnuinicio . Si ya se encuentra nuestro programa iniciado al cargar windows te lo marca con el checked y sino pues lo deja desmarcado. Exale un ojo y modifica/toma lo que necesites. Código: Private mReg As cQueryReg Requiere del módulo de clase... cQueryReg [code] '------------------------------------------------------------------------------ ' cQueryReg (13/Ago/98) ' Clase para obtener valores del Registro del Sistema ' ' Revisión 0.01 (18/Ago/98) Funciones de crear/borrar claves/valores ' Revisión 0.02 (12/Oct/98) Nueva función para enumeración de claves ' Revisión 0.03 (15/Oct/98) Importar/Exportar claves del registro ' (sólo exportar...) ' Revisión 0.04 (16/Dic/98) Modificadas las funciones de obtener los ' directorios del sistema, ' no se ha cambiado la forma de usarlas. ' ' Revisión 0.10 (12/Jun/99) Probado en Windows 2000 Professional Beta 3 ' y parece que funciona bien... ' ' Revisión 0.11 (05/Jul/99) Nuevo método para des-registrar un servidor ActiveX ' Métodos para saber el Clsid y TypeLib de una clase ' ' Revisión 0.12 (04/Ago/99) Nuevos métodos para crear y comprobar claves ' Revisión 0.13 (22/Ago/99) Correcciones para Windows 2000 ' Revisión 0.14 (22/Jun/00) En ShellFolders se tiene en cuenta el usuario actual ' Revisión 0.15 (22/Nov/00) Todas las asignaciones de cadenas con String$(n,0) ' se sustituyen por String$(n,Chr$(0)), no altera nada ' pero es más evidente su función. ' 0.16 (22/Nov/00) Los valores Binarios se formatean como Hexadecimales ' teniendo en cuenta las letras, no sólo los números. ' En lugar de usar Format$, uso Right$(... ' 0.17 (23/Nov/00) En ParseKey se comprueba que la clave no acabe en \ ' 0.18 (23/Nov/00) En EnumValues se añade el valor de Default ' 0.19 (09/Feb/01) Nuevas comprobaciones al leer los datos. ' 0.20 (19/May/01) Corrección de un bug al usar "open" en AsociarExt ' 0.21 (19/May/01) Nuevo método: AsociarIcono ' 0.22 (26/May/01) Nueva propiedad de sólo lectura: UserName ' 0.23 (28/Dic/01) Nuevas propiedades y algunos cambios: ' GetRegType para saber el tipo de datos ' EnumValuesByType, enumera valores sólo del tipo indicado ' DeleteValue, borrar un valor, también se hace con DeleteKey ' Cambios en GetRegString y SetReg para usar el tipo REG_EXPAND_SZ ' ' La información para crear las funciones están tomadas de ejemplos ' y valores obtenidos en el código del Setup1.vbp ' y de artículos incluidos en los CDs del MSDN Library. ' ' ¡¡¡ De algún sitio tenía que sacar la información... !!! ' ' ©Guillermo 'guille' Som, 1998-2001 <guille@costasol.net> ' '------------------------------------------------------------------------------ ' Método Descripción ' ------ ----------- ' AsociarExt Asociar una extensión con un programa ' También sirve para añadir comandos a extensiones existentes ' AsociarIcono Asociar un icono a la extensión indicada ' ClassCLSID Devuelve el CLSID de la clase indicada ' ClassTypeLib Devuelve el TypeLib de la clase indicada ' CloseKey Cierra la clave abierta usando el handle pasado como parámetro ' DeleteKey Borra la clave o el valor especificado ' DeleteKeyNT Borra la clave especificada y sus subclaves y valores, para usar con Windows NT y Windows 98 ' DeleteKeyWin95 En Windows 95, borra la clave especificada y sus subclaves y valores. En Windows NT y Windows 98 no funcionará si la clave indicada tiene subclaves. ' DesasociarExt Desasociar la extensión (la borra del registro) ' EnumKeys Enumera todas las subclaves de la clave indicada y las devuelve en un array de tipo String que se pasa como parámetro. ' EnumValues Enumera todos los valores de la clave indicada y las devuelve en un array de tipo String que se pasa como parámetro. ' GetFolder Devuelve el path de la carpeta "especial" del sistema. ' El parámetro espera un nombre del tipo de carpeta a obtener, ' ver Nombres de directorios del sistema ' GetReg Obtener un valor, de cualquier tipo, de una entrada del registro ' GetRegBinary Obtener un valor binario de una entrada del registro ' GetRegDWord Obtener un valor DWORD de una entrada del registro ' GetRegString Obtener un valor cadena de una entrada del registro ' QueryRegBase Busca una entrada en el registro ' RegSaveKey Guarda en un fichero el contenido de una clave, las subclaves y datos. ' El formato no es ASCII, es un formato "propio" que se puede usar con la función RegLoadKey (aún no implementada) ' RTrimZero Devuelve una cadena hasta el primer Chr$(0) ' SetReg Asigna un valor de cualquier tipo a la clave indicada. ' ShellFolders Devuelve una colección con los Nombres de directorios del sistema ' o los paths a los que hacen referencia. ' Dependerá del parámetro pasado, ' por defecto False para devolver los paths ' UnRegister Des-registrar un servidor ActiveX. (05/Jul/99) ' Borra el CLSID, el TypeLib y el nombre de la clase ' ' Estas funciones simplemente llaman a la función del API de windows, (el nombre de la función del API empieza con Reg, salvo que se indique lo contrario) ' EnumKeyEx ' EnumValue RegEnumValue, usarla para tipos diferentes de String ' EnumValueString RegEnumValue, usarla para tipos String ' OpenKeyEx ' OpenKeyQuery RegOpenKeyEx, abre una clave para consultar información ' QueryInfoKey ' RegSetValue2 RegSetValueEx, pero para usar sólo con cadenas. ' Esta función asigna el valor por defecto de la clave indicada. ' Es decir, el "Predeterminado" o "Default". '------------------------------------------------------------------------------ ' La función / método GetReg devolverá el valor adecuado, ' si se ha encontrado la clave especificada en el registro. ' ' Las funciones GetRegXXX se usarán para asegurarnos que el valor ' devuelto es del tipo especificado. ' Por ejemplo: ' si se usa GetRegString y el valor de la clave indicada ' no es del tipo cadena, se devolverá una cadena vacía '======================================================================== '=== NOTA: Las he dejado para poder ver cómo se usarían según el tipo === '======================================================================== '------------------------------------------------------------------------------ Option Explicit Private colShellFolders As Collection Private colShellFoldersKey As Collection Private Declare Function GetWindowsDirectory Lib "kernel32" Alias "GetWindowsDirectoryA" _ (ByVal lpBuffer As String, ByVal nSize As Long) As Long Private Declare Function GetSystemDirectory Lib "kernel32" Alias "GetSystemDirectoryA" _ (ByVal lpBuffer As String, ByVal nSize As Long) As Long ' Registry manipulation API's (32-bit) ' Claves del Registro Public Enum eHKEY HKEY_CLASSES_ROOT = &H80000000 HKEY_CURRENT_USER = &H80000001 HKEY_LOCAL_MACHINE = &H80000002 HKEY_USERS = &H80000003 ' HKEY_PERFORMANCE_DATA = &H80000004 ' Sólo para NT HKEY_CURRENT_CONFIG = &H80000005 HKEY_DYN_DATA = &H80000006 ' HKEY_FIRST = HKEY_CLASSES_ROOT HKEY_LAST = HKEY_DYN_DATA End Enum ' ' HKEY_CLASSES_ROOT es un duplicado de HKEY_LOCAL_MACHINE\Software\Classes ' HKEY_CURRENT_USER es un duplicado de HKEY_USERS\[Usuario] ' ' Public Enum eHKEYError ERROR_SUCCESS = 0 'Todo correcto, sin error ERROR_NONE = 0 ' " " 'The configuration registry... 'ERROR_BADDB = 1 'database is corrupt '1009& 'ERROR_BADKEY = 2 'key is invalid '1010& 'También declarada como: ERROR_FILE_NOT_FOUND = 2& 'este error ocurre cuando se abre 'una clave y no existe 'ERROR_CANTOPEN = 3 'key could not be opened '1011& 'ERROR_CANTREAD = 4 'key could not be read '1012& 'ERROR_CANTWRITE = 5 'key could not be written '1013& 'También declarada como: ERROR_ACCESS_DENIED = 5& ERROR_OUTOFMEMORY = 6& ' ERROR_INVALID_PARAMETER = 7& ' 'ERROR_ACCESS_DENIED = 8& ' ERROR_INVALID_PARAMETERS = 87& ' ' ERROR_MORE_DATA = 234& 'More data is available ERROR_NO_MORE_ITEMS = 259& 'No more data is available ERROR_BADKEY = 1010& 'Se produce cuando se intenta acceder 'a una clave que no está abierta 'KEY_ALL_ACCESS = &H3F ' 'REG_OPTION_NON_VOLATILE = 0 End Enum ' ' Los tipos de datos posibles, algunos sólo para Windows NT Public Enum eHKEYDataType REG_NONE = 0& 'No value type REG_SZ = 1& 'Unicode null terminated string REG_EXPAND_SZ = 2 'Unicode null terminated string '(with environment variable references) REG_BINARY = 3 'Free form binary REG_DWORD = 4 '32-bit number REG_DWORD_LITTLE_ENDIAN = 4 '32-bit number (same as REG_DWORD) REG_DWORD_BIG_ENDIAN = 5 '32-bit number REG_LINK = 6 'Symbolic Link (unicode) REG_MULTI_SZ = 7 'Multiple Unicode strings REG_RESOURCE_LIST = 8 'Resource list in the resource map REG_FULL_RESOURCE_DESCRIPTOR = 9 'Resource list in the hardware description REG_RESOURCE_REQUIREMENTS_LIST = 10 End Enum ' Standard rights, used later below Const SYNCHRONIZE = &H100000 Const READ_CONTROL = &H20000 Const STANDARD_RIGHTS_ALL = &H1F0000 Const STANDARD_RIGHTS_REQUIRED = &HF0000 Const STANDARD_RIGHTS_EXECUTE = (READ_CONTROL) Const STANDARD_RIGHTS_READ = (READ_CONTROL) Const STANDARD_RIGHTS_WRITE = (READ_CONTROL) ' Security Access Mask Public Enum eREGSAM 'Permission to: KEY_QUERY_VALUE = &H1 ' query subkey data KEY_SET_VALUE = &H2 ' set subkey data KEY_CREATE_SUB_KEY = &H4 ' create subkeys KEY_ENUMERATE_SUB_KEYS = &H8 ' enumerate subkeys KEY_NOTIFY = &H10 ' for change notification KEY_CREATE_LINK = &H20 ' create a symbolic link 'KEY_READ Combination of: ' KEY_QUERY_VALUE, KEY_ENUMERATE_SUB_KEYS, and ' KEY_NOTIFY access. KEY_READ = ((STANDARD_RIGHTS_READ Or KEY_QUERY_VALUE Or KEY_ENUMERATE_SUB_KEYS Or KEY_NOTIFY) And (Not SYNCHRONIZE)) 'KEY_WRITE Combination of: ' KEY_SET_VALUE and KEY_CREATE_SUB_KEY access. KEY_WRITE = ((STANDARD_RIGHTS_WRITE Or KEY_SET_VALUE Or KEY_CREATE_SUB_KEY) And (Not SYNCHRONIZE)) 'Permission for read access KEY_EXECUTE = ((KEY_READ) And (Not SYNCHRONIZE)) 'KEY_ALL_ACCESS Combination of: ' KEY_QUERY_VALUE, KEY_SET_VALUE, KEY_CREATE_SUB_KEY, ' KEY_ENUMERATE_SUB_KEYS, KEY_NOTIFY and KEY_CREATE_LINK access. KEY_ALL_ACCESS = ((STANDARD_RIGHTS_ALL Or KEY_QUERY_VALUE Or KEY_SET_VALUE Or KEY_CREATE_SUB_KEY Or KEY_ENUMERATE_SUB_KEYS Or KEY_NOTIFY Or KEY_CREATE_LINK) And (Not SYNCHRONIZE)) '#define DELETE (0x00010000L) 'KEY_DELETE = &H10000 End Enum Private Type FILETIME dwLowDateTime As Long dwHighDateTime As Long End Type Private Declare Function RegQueryInfoKey Lib "advapi32.dll" Alias "RegQueryInfoKeyA" _ (ByVal hKey As Long, ByVal lpClass As String, lpcbClass As Long, _ ByVal lpReserved As Long, lpcSubKeys As Long, lpcbMaxSubKeyLen As Long, _ lpcbMaxClassLen As Long, lpcValues As Long, lpcbMaxValueNameLen As Long, _ lpcbMaxValueLen As Long, lpcbSecurityDescriptor As Long, _ lpftLastWriteTime As FILETIME) As Long 'Private Declare Function RegOpenKey Lib "advapi32.dll" Alias "RegOpenKeyA" _ (ByVal hKey As Long, ByVal lpszSubKey As String, _ phkResult As Long) As Long Private Declare Function RegOpenKeyEx Lib "advapi32.dll" Alias "RegOpenKeyExA" _ (ByVal hKey As Long, ByVal lpSubKey As String, _ ByVal ulOptions As Long, ByVal samDesired As Long, _ phkResult As Long) As Long Private Declare Function RegCloseKey Lib "advapi32.dll" _ (ByVal hKey As Long) As Long Private Declare Function RegEnumValue Lib "advapi32.dll" Alias "RegEnumValueA" _ (ByVal hKey As Long, ByVal dwIndex As Long, _ ByVal lpValueName As String, lpcbValueName As Long, _ ByVal lpReserved As Long, lpType As Long, lpData As Any, _ lpcbData As Long) As Long Private Declare Function RegCreateKey Lib "advapi32.dll" Alias "RegCreateKeyA" _ (ByVal hKey As Long, ByVal lpszSubKey As String, _ phkResult As Long) As Long ' 'Windows 95: ' The RegDeleteKey function deletes a subkey and all its descendants. 'Windows NT: ' The RegDeleteKey function deletes the specified subkey. ' The subkey to be deleted must not have subkeys. ' Private Declare Function RegDeleteKey Lib "advapi32.dll" Alias "RegDeleteKeyA" _ (ByVal hKey As Long, ByVal lpszSubKey As String) As Long Private Declare Function RegDeleteValue Lib "advapi32.dll" Alias "RegDeleteValueA" _ (ByVal hKey As Long, ByVal szValueName As String) As Long Private Declare Function RegEnumKey Lib "advapi32.dll" Alias "RegEnumKeyA" _ (ByVal hKey As Long, ByVal iSubKey As Long, _ ByVal lpszName As String, ByVal cchName As Long) As Long Private Declare Function RegEnumKeyEx Lib "advapi32.dll" Alias "RegEnumKeyExA" _ (ByVal hKey As Long, ByVal dwIndex As Long, _ ByVal lpName As String, lpcbName As Long, _ ByVal lpReserved As Long, ByVal lpClass As String, _ lpcbClass As Long, lpftLastWriteTime As FILETIME) As Long Private Declare Function RegQueryValue Lib "advapi32.dll" Alias "RegQueryValueA" _ (ByVal hKey As Long, ByVal lpSubKey As String, _ ByVal lpValue As String, lpcbValue As Long) As Long Private Declare Function RegQueryValueEx Lib "advapi32.dll" Alias "RegQueryValueExA" _ (ByVal hKey As Long, ByVal lpszValueName As String, _ ByVal dwReserved As Long, lpdwType As Long, _ lpbData As Any, cbData As Long) As Long ' The RegSetValue function sets the data for the default or unnamed ' value of a specified registry key. The data must be a text string. Private Declare Function RegSetValue Lib "advapi32.dll" Alias "RegSetValueA" _ (ByVal hKey As Long, ByVal lpSubKey As String, _ ByVal dwType As Long, ByVal lpData As String, _ ByVal cbData As Long) As Long ' ' The RegSetValueEx function sets the data and type of a ' specified value under a registry key. ' 'lpValueName: ' Pointer to a string containing the name of the value to set. ' If a value with this name is not already present in the key, ' the function adds it to the key. ' If lpValueName is NULL or an empty string, "", the function sets ' the type and data for the key's unnamed or default value. ' 'On Windows 95, the type of a key's default value is always REG_SZ, ' so the dwType parameter must specify REG_SZ for an unnamed value. 'On Windows 98, an unnamed value can be of any type. ' Private Declare Function RegSetValueEx Lib "advapi32.dll" Alias "RegSetValueExA" _ (ByVal hKey As Long, ByVal lpszValueName As String, _ ByVal dwReserved As Long, ByVal fdwType As Long, _ lpbData As Any, ByVal cbData As Long) As Long ' ' Funciones del API para guardar y recuperar información del registro. ' 'Private Type SECURITY_ATTRIBUTES ' nLength As Long ' lpSecurityDescriptor As Long ' bInheritHandle As Long 'End Type ' ' RegSaveKey: ' El nombre guardado en Windows 95 sólo permite nombres cortos, ' si no se especifica el path se guardará en el directorio del Windows. ' Además se guardará con los atributos Hidden, Read-Only y System ' 'Private Declare Function RegSaveKeyA Lib "advapi32.dll" _ (ByVal hKey As Long, ByVal lpFile As String, _ lpSecurityAttributes As SECURITY_ATTRIBUTES) As Long Private Declare Function RegSaveKeyA Lib "advapi32.dll" _ (ByVal hKey As Long, ByVal lpFile As String, _ lpSecurityAttributes As Long) As Long 'RegLoadKey: ' En Windows 95 el nombre del fichero no permite nombres largos ' Private Declare Function RegLoadKeyA Lib "advapi32.dll" _ (ByVal hKey As Long, ByVal lpSubKey As String, _ ByVal lpFile As String) As Long ' ' Tener en cuenta el usuario actual (22/Jun/00) ' Gracias a Miquel Pop ' ' Funciones y vars para el trabajar con el usuario actual Private sUser As String Private Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" _ (ByVal lpBuffer As String, nSize As Long) As Long Public Function CreateKey(ByVal sKey As String) As eHKEYError ' Crear una clave sin datos adicionales (04/Ago/99) ' ' Parámetros: ' sKey Clave a la que se asignará el valor ' Devuelve: ' El valor de error devuelto por el API ' Dim lRet As eHKEYError Dim hKey2 As Long Dim hKey As Long ' Convertimos la clave indicada en un valor correcto, ' para el caso que se indique la clave raiz en sKey hKey = ParseKey(sKey, hKey) ' Abrir la clave indicada lRet = RegOpenKeyEx(hKey, sKey, 0&, KEY_WRITE, hKey2) ' Si da error, es que no existe esa clave If lRet <> ERROR_SUCCESS Then ' Crear la clave lRet = RegCreateKey(hKey, sKey, hKey2) End If Call RegCloseKey(hKey2) CreateKey = lRet End Function Public Function ExistKey(ByVal sKey As String) As Boolean ' Comprobar si existe la clave indicada (04/Ago/99) ' Devolverá TRUE si la clave existe Dim ret As eHKEYError Dim hKey2 As Long Dim hKey As eHKEY hKey = HKEY_LOCAL_MACHINE hKey = ParseKey(sKey, hKey) ' Abrir la clave indicada ret = RegOpenKeyEx(hKey, sKey, 0&, KEY_READ, hKey2) ' Si todo va bien (se ha podido abrir la clave) If ret = ERROR_SUCCESS Then ExistKey = True ' Cerrar la clave abierta Call RegCloseKey(hKey2) Else ExistKey = False End If End Function Public Function ClassCLSID(ByVal sClass As String) As String ' Devuelve el Clsid de la clase indicada (05/Jul/99) ' El formato del parámetro debe ser Servidor.Clase ' Si no se ha encontrado la clase, devuelve una cadena vacía ' Dim sClave As String Dim sClsid As String Const sRootKey As String = "HKEY_LOCAL_MACHINE\Software\Classes\" ' Obtener el Clsid sClave = sRootKey & sClass & "\clsid" sClsid = GetRegString(sClave) ClassCLSID = sClsid End Function Public Function ClassTypeLib(ByVal sClass As String) As String ' Devuelve el TypeLib de la clase indicada (05/Jul/99) ' El formato del parámetro debe ser Servidor.Clase ' Si no se ha encontrado la clase, devuelve una cadena vacía ' Dim sClave As String Dim sClsid As String Const sRootKey As String = "HKEY_LOCAL_MACHINE\Software\Classes\" Dim sTypeLib As String ' Obtener el Clsid sClave = sRootKey & sClass & "\clsid" sClsid = GetRegString(sClave) If Len(sClsid) Then ' Obtener el TypeLib sClave = sRootKey & "CLSID\" & sClsid & "\TypeLib" sTypeLib = GetRegString(sClave) End If ClassTypeLib = sTypeLib End Function '------------------------------------------------------------------------------ ' Este código está 'copiado' de un ejemplo de David Janson ' Sólo es necesario para Windows NT, ya que win95 permite borrar todas ' las subclaves ' ' También hay que usarla en windows 98 ' ' ' this gets a bit tricky since you can't delete a key that has subkeys. ' We have to do this recursively. This code ignores errors (such as security ' problems) when they occur. '------------------------------------------------------------------------------ Private Function DeleteKeyNT(hParentKey As Long, szKey As String) As Long Dim hKey As Long Dim lRet As eHKEYError Dim cSubKeys As Long Dim cbMaxSubKeyLen As Long Dim cbSubKeyLen As Long Dim dwIndex As Long Dim ft As FILETIME Dim szTempSubKey As String Dim szSubKey As String ' open the key to look for subkeys lRet = RegOpenKeyEx(hParentKey, szKey, 0, KEY_ALL_ACCESS, hKey) If Not lRet = ERROR_SUCCESS Then ' ERROR_ACCESS_DENIED (5) DeleteKeyNT = lRet Exit Function End If 'lRet = RegQueryInfoKey(hKey, ByVal 0&, ByVal 0&, 0, _ cSubKeys, cbMaxSubKeyLen, _ ByVal 0&, ByVal 0&, ByVal 0&, ByVal 0&, ByVal 0&, ft) lRet = RegQueryInfoKey(hKey, vbNullString, 0&, 0, _ cSubKeys, cbMaxSubKeyLen, _ 0&, 0&, 0&, 0&, 0&, ft) If Not lRet = ERROR_SUCCESS Then ' ERROR_INVALID_PARAMETERS (87) DeleteKeyNT = lRet Call RegCloseKey(hKey) Exit Function End If ' if there are subkeys, then recursively delete them If cSubKeys > 0 Then dwIndex = cSubKeys - 1 ' start at the end cbMaxSubKeyLen = cbMaxSubKeyLen + 1 ' +1 for the null terminator szTempSubKey = String(cbMaxSubKeyLen, "*") ' buffer to get name back in Do '$(22/Ago/99) ' Multiplico por dos cbSubKeyLen = cbMaxSubKeyLen * 2 'lRet = RegEnumKeyEx(hKey, dwIndex, szTempSubKey, cbSubKeyLen, 0, ByVal 0&, 0, ft) lRet = RegEnumKeyEx(hKey, dwIndex, szTempSubKey, cbSubKeyLen, 0&, vbNullString, 0&, ft) If lRet = ERROR_SUCCESS Then szSubKey = Left(szTempSubKey, cbSubKeyLen) Call DeleteKeyNT(hKey, szSubKey) End If dwIndex = dwIndex - 1 ' enumerate backwards Loop While dwIndex >= 0 End If ' done enumerating subkeys. Close this key and delete it Call RegCloseKey(hKey) lRet = RegDeleteKey(hParentKey, szKey) 'If Not lRet = ERROR_SUCCESS Then ' Exit Sub 'End If DeleteKeyNT = lRet End Function Public Function GetRegDWord(ByVal sKey As String, Optional ByVal sValue As String = "", Optional ByVal hKey As eHKEY = HKEY_CURRENT_USER, Optional ByVal bAsString As Boolean = False) As Variant ' Obtener un valor DWORD de una entrada del registro ' ' Parámetros de entrada: ' sKey SubClave del registro ' sValue Nombre de la entrada que queremos obtener ' hKey Clave principal del registro ' bAsString Mostrar en formato al estilo del RegEdit ' Devuelve: ' el contenido de esa clave o una valor cero ' Dim ret As Long Dim hKey2 As Long Dim rDT As eHKEYDataType Dim lSize As Long Dim lDWord As Long hKey = ParseKey(sKey, hKey) ' Abrir la clave indicada ret = RegOpenKeyEx(hKey, sKey, 0&, KEY_READ, hKey2) ' Si todo va bien (se ha podido abrir la clave) If ret = ERROR_SUCCESS Then ' Leer esa entrada y obtener el tipo de dato, longitud, etc. ret = RegQueryValueEx(hKey2, sValue, 0&, rDT, 0&, lSize) ' Si es un valor DWORD If rDT = REG_DWORD Then ' Leer los datos DWORD ret = RegQueryValueEx(hKey2, sValue, 0&, rDT, lDWord, lSize) End If ' Cerrar la clave abierta RegCloseKey hKey2 End If ' Devolver el valor leído If bAsString Then ' Al estilo de como se muestra con RegEdit 'GetRegDWord = "0x" & Format$(Hex$(lDWord), "00000000") & " (" & lDWord & ")" GetRegDWord = "0x" & Right$("00000000" & Hex$(lDWord), 8) & " (" & lDWord & ")" Else GetRegDWord = lDWord End If End Function Public Function GetReg(ByVal sKey As String, Optional ByVal sValue As String = "", Optional ByVal hKey As eHKEY = HKEY_CURRENT_USER, Optional ByVal bAsString As Boolean = False) As Variant '-------------------------------------------------------------------------- ' Obtener un valor de una entrada del registro ' ' Parámetros de entrada: ' sKey SubClave del registro ' Se puede especificar el nombre de la clave raiz ' que se convertirá al valor adecuado ' sValue Nombre de la entrada que queremos obtener ' hKey Clave principal del registro. ' Si en sKey se incluye, no es necesario especificarla ' Nota: este valor se obvia si se indica la raiz en sKey. ' bAsString Mostrarlo como una cadena, al estilo de RegEdit ' Devuelve: ' el contenido de esa clave o un valor vacío ' ' Revisado para usarlo con Windows NT (Win2000 Pro Beta 3) (12/Jun/99) '-------------------------------------------------------------------------- Dim lRet As Long Dim hKey2 As Long Dim rDT As eHKEYDataType Dim retDT As eHKEYDataType Dim lSize As Long Dim sData As String Dim aData() As Byte Dim lDWord As Long Dim i As Long Dim sTmp As String hKey = ParseKey(sKey, hKey) ' Valores por defecto ReDim aData(0) lDWord = 0 sData = "" ' Abrir la clave indicada 'lRet = RegOpenKeyEx(hKey, sKey, 0&, KEY_QUERY_VALUE, hKey2) lRet = RegOpenKeyEx(hKey, sKey, 0&, KEY_READ, hKey2) ' Si todo va bien (se ha podido abrir la clave) If lRet = ERROR_SUCCESS Then ' Leer esa entrada y obtener el tipo de dato, longitud, etc. lRet = RegQueryValueEx(hKey2, sValue, 0&, retDT, 0&, lSize) Select Case retDT Case REG_DWORD lRet = RegQueryValueEx(hKey2, sValue, 0&, rDT, lDWord, lSize) Case REG_EXPAND_SZ, REG_SZ, REG_MULTI_SZ If lSize Then sData = String$(lSize - 1, Chr$(0)) ' Leer la cadena '(el ByVal es porque está declarada como Any)---v lRet = RegQueryValueEx(hKey2, sValue, 0&, rDT, ByVal sData, lSize) End If Case Else ' Tratarlos como REG_BINARY If lSize Then ReDim aData(lSize) 'Leer los datos binarios lRet = RegQueryValueEx(hKey2, sValue, 0&, rDT, aData(0), lSize) End If End Select ' Cerrar la clave abierta RegCloseKey hKey2 End If ' Devolver el valor leído Select Case retDT Case REG_DWORD If bAsString Then ' Al estilo de como se muestra con RegEdit 'GetReg = "0x" & Format$(Hex$(lDWord), "00000000") & " (" & lDWord & ")" GetReg = "0x" & Right$("00000000" & Hex$(lDWord), 8) & " (" & lDWord & ")" Else GetReg = lDWord End If Case REG_EXPAND_SZ, REG_SZ GetReg = sData Case REG_MULTI_SZ ' Múltiples cadenas, separadas por Chr$(0) (12/Jun/99) ' La cadena termina en el último Chr$(0) ' For i = Len(sData) To 1 Step -1 ' If Mid$(sData, i, 1) = Chr$(0) Then ' sData = Left$(sData, i - 1) ' Exit For ' End If ' Next ' ' Sustituir los Chr$(0) por espacios ' For i = 1 To Len(sData) ' If Mid$(sData, i, 1) = Chr$(0) Then ' Mid$(sData, i, 1) = " " ' End If ' Next '////////////////////////////////////////////////////////////////////// '$TODO: (22/Nov/00) ' Separar cada cadena con un punto y coma '////////////////////////////////////////////////////////////////////// GetReg = RTrimZero(sData, True) '-------------------------------------------------------------------------- ' No poner Case Else, ya que al usar ahora KEY_READ, (09/Feb/01) ' si la clave no existe, devolver un valor vacio '-------------------------------------------------------------------------- 'Case Else ' REG_BINARY Case REG_BINARY If bAsString Then ' Al estilo de como se muestra con RegEdit For i = 0 To UBound(aData) - 1 'sTmp = sTmp & Hex$(aData(i)) & " " ' Los números formateados a dos cifras (12/Oct/98) 'sTmp = sTmp & Format$(Hex$(aData(i)), "00") & " " sTmp = sTmp & Right$("00" & Hex$(aData(i)), 2) & " " Next GetReg = sTmp Else GetReg = aData End If End Select End Function Public Function GetRegType(ByVal sKey As String, _ ByVal sValue As String, _ Optional ByVal hKey As eHKEY = HKEY_CURRENT_USER) As eHKEYDataType '-------------------------------------------------------------------------- ' Devuelve el tipo de datos de una entrada del registro (28/Dic/01) ' ' Parámetros de entrada: ' sKey SubClave del registro ' Se puede especificar el nombre de la clave raiz ' que se convertirá al valor adecuado ' sValue Nombre de la entrada que queremos obtener ' hKey Clave principal del registro. ' Si en sKey se incluye, no es necesario especificarla ' Nota: este valor se obvia si se indica la raiz en sKey. ' Devuelve: ' el tipo de datos del contenido de esa clave ' ' Revisado para usarlo con Windows NT (Win2000 Pro Beta 3) (12/Jun/99) '-------------------------------------------------------------------------- Dim lRet As Long Dim hKey2 As Long Dim retDT As eHKEYDataType Dim lSize As Long ' hKey = ParseKey(sKey, hKey) ' retDT = REG_NONE ' ' Abrir la clave indicada lRet = RegOpenKeyEx(hKey, sKey, 0&, KEY_READ, hKey2) ' ' Si todo va bien (se ha podido abrir la clave) If lRet = ERROR_SUCCESS Then ' Leer esa entrada y obtener el tipo de dato, longitud, etc. lRet = RegQueryValueEx(hKey2, sValue, 0&, retDT, 0&, lSize) ' Cerrar la clave abierta RegCloseKey hKey2 ' End If GetRegType = retDT End Function Public Function GetRegBinary(ByVal sKey As String, Optional ByVal sValue As String = "", Optional ByVal hKey As eHKEY = HKEY_CURRENT_USER, Optional ByVal bAsString As Boolean = False) As Variant ' Obtener un valor binario de una entrada del registro ' ' Parámetros de entrada: ' sKey SubClave del registro ' sValue Nombre de la entrada que queremos obtener ' hKey Clave principal del registro ' bAsString Mostrarlo como una cadena, al estilo de RegEdit ' Devuelve: ' el contenido de esa clave o una valor cero ' Dim ret As Long Dim hKey2 As Long Dim rDT As eHKEYDataType Dim lSize As Long Dim aData() As Byte Dim i As Long Dim sTmp As String hKey = ParseKey(sKey, hKey) ReDim aData(0) ' Abrir la clave indicada 'ret = RegOpenKeyEx(hKey, sKey, 0&, KEY_QUERY_VALUE, hKey2) ret = RegOpenKeyEx(hKey, sKey, 0&, KEY_READ, hKey2) ' Si todo va bien (se ha podido abrir la clave) If ret = ERROR_SUCCESS Then ' Leer esa entrada y obtener el tipo de dato, longitud, etc. ret = RegQueryValueEx(hKey2, sValue, 0&, rDT, 0&, lSize) ' Si es un valor binario If rDT = REG_BINARY Then If lSize Then ReDim aData(lSize) ' Leer los datos binarios ret = RegQueryValueEx(hKey2, sValue, 0&, rDT, aData(0), lSize) End If End If ' Cerrar la clave abierta RegCloseKey hKey2 End If ' Devolver el valor leído If bAsString Then ' Al estilo de como se muestra con RegEdit For i = 0 To UBound(aData) - 1 sTmp = sTmp & Hex$(aData(i)) & " " Next GetRegBinary = sTmp Else GetRegBinary = aData End If End Function Public Function GetRegString(ByVal sKey As String, Optional ByVal sValue As String = "", Optional ByVal hKey As eHKEY = HKEY_CURRENT_USER) As String ' Obtener un valor cadena de una entrada del registro ' ' Parámetros de entrada: ' sKey Clave del registro ' sValue Nombre de la entrada que queremos obtener ' hKey Clave principal del registro ' Devuelve: ' el contenido de esa clave o una cadena vacía ' Dim ret As Long Dim hKey2 As Long Dim rDT As eHKEYDataType Dim sData As String Dim lSize As Long hKey = ParseKey(sKey, hKey) ' Abrir la clave indicada 'ret = RegOpenKeyEx(hKey, sKey, 0&, KEY_QUERY_VALUE, hKey2) ret = RegOpenKeyEx(hKey, sKey, 0&, KEY_READ, hKey2) ' Si todo va bien (se ha podido abrir la clave) If ret = ERROR_SUCCESS Then ' Leer esa entrada y obtener el tipo de dato, longitud, etc. ret = RegQueryValueEx(hKey2, sValue, 0&, rDT, 0&, lSize) ' Si es una cadena o REG_EXPAND_SZ (28/Dic/01) Select Case rDT Case REG_SZ, REG_EXPAND_SZ 'If rDT = REG_SZ Then If lSize Then sData = String$(lSize - 1, Chr$(0)) ' Leer la cadena ' (el ByVal es porque está declarada como Any)---v ret = RegQueryValueEx(hKey2, sValue, 0&, rDT, ByVal sData, lSize) End If End Select ' Cerrar la clave abierta RegCloseKey hKey2 End If ' Devolver el valor leído GetRegString = sData End Function ' Busca una entrada en el registro Public Function QueryRegBase(ByVal sValue As String, _ Optional ByVal hKey As eHKEY = HKEY_CLASSES_ROOT _ ) As String ' Devuelve el valor de la entrada del registro ' Esta función se usará para los valores por defecto ' Dim sBuf As String Dim buflen As Long ' Nos aseguramos que hKey tenga el valor correcto Select Case hKey 'Case HKEY_CLASSES_ROOT, HKEY_CURRENT_USER, HKEY_LOCAL_MACHINE, HKEY_USERS Case HKEY_FIRST To HKEY_LAST ' nada que hacer, todo correcto Case Else ' Asignamos el valor por defecto hKey = HKEY_CLASSES_ROOT End Select 'On Local Error Resume Next sBuf = String$(300, Chr$(0)) buflen = Len(sBuf) ' Buscar la entrada especificada y devolver el valor asignado If RegQueryValue(hKey, sValue, sBuf, buflen) = ERROR_SUCCESS Then If buflen > 1 Then ' El formato devuelto es ASCIIZ, así que quitar el último caracter QueryRegBase = Left$(sBuf, buflen - 1) Else QueryRegBase = "" End If Else QueryRegBase = "" End If 'On Local Error GoTo 0 End Function Private Function ParseKey(sKey As String, _ Optional ByVal hKey As eHKEY = HKEY_CURRENT_USER _ ) As eHKEY '-------------------------------------------------------------------------- ' Esta función se usa internamente (privada) para convertir una cadena ' en la correspondiente clave raiz. ' El segundo parámetro es para poder usarlo en caso que se pase como ' parámetro, pero normalmente será totalmente opcional. ' ' En sKey se devolverá el valor de la clave una vez quitada la clave ' principal. ' '-------------------------------------------------------------------------- ' NOTA del 14/Oct/98 ' En sKey se debe especificar el nombre de la clave raiz. ' La utilidad de esta función es que devuelve el valor de esa ' clave raiz y se usará en caso de que no sepamos que clave es. ' Si ya sabes el valor de la clave raiz, no es necesario que ' uses esta función. '---------------------------------------------------------------------- Dim i As Long Dim sRootKey As String ' ' Si tiene el separador del final, quitárselo (23/Nov/00) sKey = Trim$(sKey) If Right$(sKey, 1) = "\" Then sKey = Left$(sKey, Len(sKey) - 1) End If ' Comprobar si se indica la clave principal en sKey i = InStr(sKey, "HKEY_") If i Then i = InStr(sKey, "\") If i Then sRootKey = Left$(sKey, i - 1) sKey = Mid$(sKey, i + 1) Else sRootKey = sKey sKey = "" End If ' Por si se usan abreviaturas de las claves ElseIf Left$(sKey, 5) = "HKCR\" Then sRootKey = "HKEY_CLASSES_ROOT" sKey = Mid$(sKey, 6) ElseIf Left$(sKey, 5) = "HKCU\" Then sRootKey = "HKEY_CURRENT_USER" sKey = Mid$(sKey, 6) ElseIf Left$(sKey, 5) = "HKLM\" Then sRootKey = "HKEY_LOCAL_MACHINE" sKey = Mid$(sKey, 6) ElseIf Left$(sKey, 4) = "HKU\" Then sRootKey = "HKEY_USERS" sKey = Mid$(sKey, 5) ElseIf Left$(sKey, 5) = "HKCC\" Then sRootKey = "HKEY_CURRENT_CONFIG" sKey = Mid$(sKey, 6) ElseIf Left$(sKey, 5) = "HKDD\" Then sRootKey = "HKEY_DYN_DATA" sKey = Mid$(sKey, 6) ElseIf Left$(sKey, 5) = "HKPD\" Then sRootKey = "HKEY_PERFORMANCE_DATA" sKey = Mid$(sKey, 6) Else ' Nos aseguramos que kKey tenga el valor correcto Select Case hKey 'Case HKEY_CLASSES_ROOT, HKEY_CURRENT_USER, HKEY_LOCAL_MACHINE, HKEY_USERS, HKEY_CURRENT_CONFIG, HKEY_DYN_DATA Case HKEY_FIRST To HKEY_LAST 'nada que hacer, todo correcto Case Else ' Asignamos el valor por defecto hKey = HKEY_CLASSES_ROOT End Select End If ' Si se ha indicado el nombre de la clave raiz If Len(sRootKey) Then &n Título: Re: Para que se autoejecute al reiniciar el ordenador =( Publicado por: Hans el Topo en 14 Noviembre 2006, 00:35 am Me acabo de dar cuenta, de que eso, lo que hace es ejecutar un archivo automaticamente, pero lo que no hace y lo que necesito hacer es copiar el archivo abierto a system32. ¿Como lo copio? Gracias esto no te entendi... si quieres mover un archivo utiliza filecopy, aqui te pego su descripción de la MSDN Citar FileCopy (Instrucción) Copia un archivo. Sintaxis FileCopy source, destination La sintaxis de la instrucción FileCopy consta de los siguientesargumentos con nombre: Parte Descripción source Requerido.Expresión de cadena que especifica el nombre de un archivo que se va a copiar. source puede incluir el directorio o carpeta y la unidad de disco. destination Requerido. Expresión de cadena que especifica el nombre del archivo de destination. Puede incluir el directorio o carpeta y la unidad de disco. Comentarios Si intenta utilizar la instrucción FileCopy en un archivo abierto actualmente, se producirá un error. Título: Re: Para que se autoejecute al reiniciar el ordenador =( Publicado por: CeLaYa en 14 Noviembre 2006, 02:57 am Código: Private Sub Form_Load() el codigo esta bien solo que en lugar de poner "C:\Windows\System32\RUNDLL32.EXE" deberias de poner la ruta de tu archivo, recuerda que debes usar el path corto, por ej. si tu ejecutable esta en Archivos de programa debes poner "c:\archiv~1\archivo.exe" Título: Re: Para que se autoejecute al reiniciar el ordenador =( Publicado por: lipman en 14 Noviembre 2006, 08:05 am Bueno, gracias a l@s tres ^^.
A la primera respuesta: Lo siento, pero ese no me vale, ya que lo que estoy haciendo es un virus, que cuando se inicie se copie directamente a system32, y si el virus te pregunta que si quieres copiarlo o no ^^, pues menudo virusaco está hecho xD A la segunda respuesta: Desgraciadamente ahora no tengo tiempo de probarlo, pero gracias, y si no me funciona lo que me dice celaya, (porque, no sé como, la primera vez que puse el código anterior, me salió bien) provaré. A la tercera respuesta: T_T, Tengo problemas con esas "abreviaturas", no sé como ponerlo para que valla a system32. De todos modos intentaré investigar. Gracias a l@s tres de nuevo Título: Re: Para que se autoejecute al reiniciar el ordenador =( Publicado por: CeLaYa en 16 Noviembre 2006, 03:19 am para obtener el path corto nesecitas esta api:
Public Declare Function GetShortPathName Lib "kernel32" Alias "GetShortPathNameA" (ByVal lpszLongPath As String, ByVal lpszShortPath As String, ByVal cchBuffer As Long) As Long ejemplo: Dim b As Long, strPath As String * 255 b = GetShortPathName(fbDir.Text, strPath, Len(strPath)) strPath = Left$(strPath, b) |