Mensajes

Madre mía, no se como pueden faltar tantas instrucciones en el exe modificado, lo único que hice fue nopear la variable "Var_30" que produce el String que quieres eliminar.

La instrucción era algo así (no tengo el exe aquí para volver a comprobarlo, quizás los números no son correctos):

Código [Seleccionar] Expandir

VAR_24 = Var_30 + "\EspabilaDat.mbd"

...lo siento, no puedo ayudar más con este tema, mis conocimientos no son suficientes!

Mejor postealo en el subforo de Ingenieria Inversa, allí manejan estos temas mejor.

saludos

[C:\Users\USUARIO\Links]

Hola

Las preguntas sobre .NET van en el subforo .NET.

Supongo que te refieres a las ubicaciones favoritas?:



No se hace mediante el registro, símplemente son accesos directos que se guardan en el directorio del perfil del usuario actual, en C:\Users\USUARIO\Links

Solo necesitas crear un acceso directo.

Te hice este ejemplo (en VB.NET) para crear un acceso directo de la aplicación actual en el directorio de los favoritos del panel de navegación:

Código (vbnet) [Seleccionar] Expandir

Imports System.IO

Public Class Form1

   ''' <summary>
   ''' La ruta del directorio del acceso directo que quieres crear.
   ''' </summary>
   ReadOnly ShortcutDir As String =
       Path.Combine(Environment.GetFolderPath(Environment.SpecialFolder.UserProfile), "Links")

   ''' <summary>
   ''' El nombre del archivo de acceso directo.
   ''' </summary>
   ReadOnly ShortcutName As String =
       "MyProgram.lnk"

   ReadOnly FileInfo As FileInfo =
       New FileInfo(Path.Combine(My.Application.Info.DirectoryPath(),
                                 Process.GetCurrentProcess().MainModule.ModuleName))

   Private Shadows Sub Load() Handles MyBase.Load

       Dim Shortcut As New ShortcutManager.ShortcutInfo

       With Shortcut

           .ShortcutFile = Path.Combine(ShortcutDir, ShortcutName)
           .Target = FileInfo.FullName
           .Arguments = Nothing
           .WorkingDir = FileInfo.DirectoryName
           .Description = "MyProgram"
           .Icon = FileInfo.FullName
           .IconIndex = 0
           .WindowState = ShortcutManager.ShortcutWindowState.Normal

       End With

       ShortcutManager.CreateShortcut(Shortcut)

   End Sub

End Class

...Usando el ayudante que escribí:

Código (vbnet) [Seleccionar] Expandir

' ***********************************************************************
' Author   : Elektro
' Modified : 02-16-2014
' ***********************************************************************
' <copyright file="ShortcutManager.vb" company="Elektro Studios">
'     Copyright (c) Elektro Studios. All rights reserved.
' </copyright>
' ***********************************************************************

#Region " Imports "

Imports System.Runtime.InteropServices
Imports System.Text
Imports System.IO

#End Region

#Region " ShortcutManager "

''' <summary>
''' Performs Shortcut related operations.
''' </summary>
Public Class ShortcutManager

#Region " Variables "

   Private Shared lnk As New ShellLink()
   Private Shared lnk_data As New WIN32_FIND_DATAW()

   Private Shared lnk_arguments As New StringBuilder(260)
   Private Shared lnk_description As New StringBuilder(260)
   Private Shared lnk_target As New StringBuilder(260)
   Private Shared lnk_workingdir As New StringBuilder(260)
   Private Shared lnk_iconpath As New StringBuilder(260)
   Private Shared lnk_iconindex As Integer = -1
   Private Shared lnk_hotkey As Short = -1
   Private Shared lnk_windowstate As ShortcutWindowState = ShortcutWindowState.Normal

#End Region

#Region " P/Invoke "

   <DllImport("shfolder.dll", CharSet:=CharSet.Auto)>
   Private Shared Function SHGetFolderPath(
          ByVal hwndOwner As IntPtr,
          ByVal nFolder As Integer,
          ByVal hToken As IntPtr,
          ByVal dwFlags As Integer,
          ByVal lpszPath As StringBuilder
   ) As Integer
   End Function

   <Flags()>
   Private Enum SLGP_FLAGS

       ''' <summary>
       ''' Retrieves the standard short (8.3 format) file name.
       ''' </summary>
       SLGP_SHORTPATH = &H1

       ''' <summary>
       ''' Retrieves the Universal Naming Convention (UNC) path name of the file.
       ''' </summary>
       SLGP_UNCPRIORITY = &H2

       ''' <summary>
       ''' Retrieves the raw path name.
       ''' A raw path is something that might not exist and may include environment variables that need to be expanded.
       ''' </summary>
       SLGP_RAWPATH = &H4

   End Enum

   <Flags()>
   Private Enum SLR_FLAGS

       ''' <summary>
       ''' Do not display a dialog box if the link cannot be resolved. When SLR_NO_UI is set,
       ''' the high-order word of fFlags can be set to a time-out value that specifies the
       ''' maximum amount of time to be spent resolving the link. The function returns if the
       ''' link cannot be resolved within the time-out duration. If the high-order word is set
       ''' to zero, the time-out duration will be set to the default value of 3,000 milliseconds
       ''' (3 seconds). To specify a value, set the high word of fFlags to the desired time-out
       ''' duration, in milliseconds.
       ''' </summary>
       SLR_NO_UI = &H1

       ''' <summary>
       ''' If the link object has changed, update its path and list of identifiers.
       ''' If SLR_UPDATE is set, you do not need to call IPersistFile::IsDirty to determine,
       ''' whether or not the link object has changed.
       ''' </summary>
       SLR_UPDATE = &H4

       ''' <summary>
       ''' Do not update the link information
       ''' </summary>
       SLR_NOUPDATE = &H8

       ''' <summary>
       ''' Do not execute the search heuristics
       ''' </summary>
       SLR_NOSEARCH = &H10

       ''' <summary>
       ''' Do not use distributed link tracking
       ''' </summary>
       SLR_NOTRACK = &H20

       ''' <summary>
       ''' Disable distributed link tracking.
       ''' By default, distributed link tracking tracks removable media,
       ''' across multiple devices based on the volume name.
       ''' It also uses the Universal Naming Convention (UNC) path to track remote file systems,
       ''' whose drive letter has changed.
       ''' Setting SLR_NOLINKINFO disables both types of tracking.
       ''' </summary>
       SLR_NOLINKINFO = &H40

       ''' <summary>
       ''' Call the Microsoft Windows Installer
       ''' </summary>
       SLR_INVOKE_MSI = &H80

   End Enum

   ''' <summary>
   ''' Stores information about a shortcut file.
   ''' </summary>
   Public Class ShortcutInfo

       ''' <summary>
       ''' Shortcut file full path.
       ''' </summary>
       Public Property ShortcutFile As String

       ''' <summary>
       ''' Shortcut Comment/Description.
       ''' </summary>
       Public Property Description As String

       ''' <summary>
       ''' Shortcut Target Arguments.
       ''' </summary>
       Public Property Arguments As String

       ''' <summary>
       ''' Shortcut Target.
       ''' </summary>
       Public Property Target As String

       ''' <summary>
       ''' Shortcut Working Directory.
       ''' </summary>
       Public Property WorkingDir As String

       ''' <summary>
       ''' Shortcut Icon Location.
       ''' </summary>
       Public Property Icon As String

       ''' <summary>
       ''' Shortcut Icon Index.
       ''' </summary>
       Public Property IconIndex As Integer

       ''' <summary>
       ''' Shortcut Hotkey combination.
       ''' Is represented as Hexadecimal.
       ''' </summary>
       Public Property Hotkey As Short

       ''' <summary>
       ''' Shortcut Hotkey modifiers.
       ''' </summary>
       Public Property Hotkey_Modifier As HotkeyModifiers

       ''' <summary>
       ''' Shortcut Hotkey Combination.
       ''' </summary>
       Public Property Hotkey_Key As Keys

       ''' <summary>
       ''' Shortcut Window State.
       ''' </summary>
       Public Property WindowState As ShortcutWindowState

       ''' <summary>
       ''' Indicates if the target is a file.
       ''' </summary>
       Public Property IsFile As Boolean

       ''' <summary>
       ''' Indicates if the target is a directory.
       ''' </summary>
       Public Property IsDirectory As Boolean

       ''' <summary>
       ''' Shortcut target drive letter.
       ''' </summary>
       Public Property DriveLetter As String

       ''' <summary>
       ''' Shortcut target directory name.
       ''' </summary>
       Public Property DirectoryName As String

       ''' <summary>
       ''' Shortcut target filename.
       ''' (File extension is not included in name)
       ''' </summary>
       Public Property FileName As String

       ''' <summary>
       ''' Shortcut target file extension.
       ''' </summary>
       Public Property FileExtension As String

   End Class

   ''' <summary>
   ''' Hotkey modifiers for a shortcut file.
   ''' </summary>
   <Flags()>
   Public Enum HotkeyModifiers As Short

       ''' <summary>
       ''' The SHIFT key.
       ''' </summary>
       SHIFT = 1

       ''' <summary>
       ''' The CTRL key.
       ''' </summary>
       CONTROL = 2

       ''' <summary>
       ''' The ALT key.
       ''' </summary>
       ALT = 4

       ''' <summary>
       ''' None.
       ''' Specifies any hotkey modificator.
       ''' </summary>
       NONE = 0

   End Enum

   ''' <summary>
   ''' The Window States for a shortcut file.
   ''' </summary>
   Public Enum ShortcutWindowState As Integer

       ''' <summary>
       ''' Shortcut Window is at normal state.
       ''' </summary>
       Normal = 1

       ''' <summary>
       ''' Shortcut Window is Maximized.
       ''' </summary>
       Maximized = 3

       ''' <summary>
       ''' Shortcut Window is Minimized.
       ''' </summary>
       Minimized = 7

   End Enum

   <StructLayout(LayoutKind.Sequential, CharSet:=CharSet.Auto)>
   Private Structure WIN32_FIND_DATAW
       Public dwFileAttributes As UInteger
       Public ftCreationTime As Long
       Public ftLastAccessTime As Long
       Public ftLastWriteTime As Long
       Public nFileSizeHigh As UInteger
       Public nFileSizeLow As UInteger
       Public dwReserved0 As UInteger
       Public dwReserved1 As UInteger
       <MarshalAs(UnmanagedType.ByValTStr, SizeConst:=260)>
       Public cFileName As String
       <MarshalAs(UnmanagedType.ByValTStr, SizeConst:=14)>
       Public cAlternateFileName As String
   End Structure

   ''' <summary>
   ''' The IShellLink interface allows Shell links to be created, modified, and resolved
   ''' </summary>
   <ComImport(),
   InterfaceType(ComInterfaceType.InterfaceIsIUnknown),
   Guid("000214F9-0000-0000-C000-000000000046")>
   Private Interface IShellLinkW

       ''' <summary>
       ''' Retrieves the path and file name of a Shell link object.
       ''' </summary>
       Sub GetPath(<Out(), MarshalAs(UnmanagedType.LPWStr)>
                   ByVal pszFile As StringBuilder,
                   ByVal cchMaxPath As Integer,
                   ByRef pfd As WIN32_FIND_DATAW,
                   ByVal fFlags As SLGP_FLAGS)

       ''' <summary>
       ''' Retrieves the list of item identifiers for a Shell link object.
       ''' </summary>
       Sub GetIDList(ByRef ppidl As IntPtr)

       ''' <summary>
       ''' Sets the pointer to an item identifier list (PIDL) for a Shell link object.
       ''' </summary>
       Sub SetIDList(ByVal pidl As IntPtr)

       ''' <summary>
       ''' Retrieves the description string for a Shell link object.
       ''' </summary>
       Sub GetDescription(<Out(), MarshalAs(UnmanagedType.LPWStr)>
                          ByVal pszName As StringBuilder,
                          ByVal cchMaxName As Integer)

       ''' <summary>
       ''' Sets the description for a Shell link object.
       ''' The description can be any application-defined string.
       ''' </summary>
       Sub SetDescription(<MarshalAs(UnmanagedType.LPWStr)>
                          ByVal pszName As String)

       ''' <summary>
       ''' Retrieves the name of the working directory for a Shell link object.
       ''' </summary>
       Sub GetWorkingDirectory(<Out(), MarshalAs(UnmanagedType.LPWStr)>
                               ByVal pszDir As StringBuilder,
                               ByVal cchMaxPath As Integer)

       ''' <summary>
       ''' Sets the name of the working directory for a Shell link object.
       ''' </summary>
       Sub SetWorkingDirectory(<MarshalAs(UnmanagedType.LPWStr)>
                               ByVal pszDir As String)

       ''' <summary>
       ''' Retrieves the command-line arguments associated with a Shell link object.
       ''' </summary>
       Sub GetArguments(<Out(), MarshalAs(UnmanagedType.LPWStr)>
                        ByVal pszArgs As StringBuilder,
                        ByVal cchMaxPath As Integer)

       ''' <summary>
       ''' Sets the command-line arguments for a Shell link object.
       ''' </summary>
       Sub SetArguments(<MarshalAs(UnmanagedType.LPWStr)>
                        ByVal pszArgs As String)

       ''' <summary>
       ''' Retrieves the hot key for a Shell link object.
       ''' </summary>
       Sub GetHotkey(ByRef pwHotkey As Short)

       ''' <summary>
       ''' Sets a hot key for a Shell link object.
       ''' </summary>
       Sub SetHotkey(ByVal wHotkey As Short)

       ''' <summary>
       ''' Retrieves the show command for a Shell link object.
       ''' </summary>
       Sub GetShowCmd(ByRef piShowCmd As Integer)

       ''' <summary>
       ''' Sets the show command for a Shell link object.
       ''' The show command sets the initial show state of the window.
       ''' </summary>
       Sub SetShowCmd(ByVal iShowCmd As ShortcutWindowState)

       ''' <summary>
       ''' Retrieves the location (path and index) of the icon for a Shell link object.
       ''' </summary>
       Sub GetIconLocation(<Out(), MarshalAs(UnmanagedType.LPWStr)>
                           ByVal pszIconPath As StringBuilder,
                           ByVal cchIconPath As Integer,
                           ByRef piIcon As Integer)

       ''' <summary>
       ''' Sets the location (path and index) of the icon for a Shell link object.
       ''' </summary>
       Sub SetIconLocation(<MarshalAs(UnmanagedType.LPWStr)>
                           ByVal pszIconPath As String,
                           ByVal iIcon As Integer)

       ''' <summary>
       ''' Sets the relative path to the Shell link object.
       ''' </summary>
       Sub SetRelativePath(<MarshalAs(UnmanagedType.LPWStr)>
                           ByVal pszPathRel As String,
                           ByVal dwReserved As Integer)

       ''' <summary>
       ''' Attempts to find the target of a Shell link,
       ''' even if it has been moved or renamed.
       ''' </summary>
       Sub Resolve(ByVal hwnd As IntPtr,
                   ByVal fFlags As SLR_FLAGS)

       ''' <summary>
       ''' Sets the path and file name of a Shell link object
       ''' </summary>
       Sub SetPath(ByVal pszFile As String)

   End Interface

   <ComImport(), Guid("0000010c-0000-0000-c000-000000000046"),
   InterfaceType(ComInterfaceType.InterfaceIsIUnknown)>
   Private Interface IPersist

       <PreserveSig()>
       Sub GetClassID(ByRef pClassID As Guid)

   End Interface

   <ComImport(), Guid("0000010b-0000-0000-C000-000000000046"),
   InterfaceType(ComInterfaceType.InterfaceIsIUnknown)>
   Private Interface IPersistFile
       Inherits IPersist

       Shadows Sub GetClassID(ByRef pClassID As Guid)

       <PreserveSig()>
       Function IsDirty() As Integer

       <PreserveSig()>
       Sub Load(<[In](), MarshalAs(UnmanagedType.LPWStr)>
                pszFileName As String,
                dwMode As UInteger)

       <PreserveSig()>
       Sub Save(<[In](), MarshalAs(UnmanagedType.LPWStr)>
                pszFileName As String,
                <[In](), MarshalAs(UnmanagedType.Bool)>
                fRemember As Boolean)

       <PreserveSig()>
       Sub SaveCompleted(<[In](), MarshalAs(UnmanagedType.LPWStr)>
                         pszFileName As String)

       <PreserveSig()>
       Sub GetCurFile(<[In](), MarshalAs(UnmanagedType.LPWStr)>
                      ppszFileName As String)

   End Interface

   ' "CLSID_ShellLink" from "ShlGuid.h"
   <ComImport(),
   Guid("00021401-0000-0000-C000-000000000046")>
   Private Class ShellLink
   End Class

#End Region

#Region " Public Methods "

   ''' <summary>
   ''' Resolves the target of a shortcut.
   ''' If shortcut can't be resolved, an error message would be displayed.
   ''' This is usefull when the target path of a shortcut file is changed from a driveletter for example,
   ''' then the shortcut file need to be resolved before trying to retrieve the target path.
   ''' </summary>
   ''' <param name="ShortcutFile">
   ''' The shortcut file to resolve.
   ''' </param>
   ''' <param name="hwnd">
   ''' The new handle pointer that would be generated
   ''' for the window which should display the error message (if any).
   ''' </param>
   Public Shared Sub ResolveUi(ShortcutFile As String, hwnd As IntPtr)
       LoadShortcut(ShortcutFile)
       DirectCast(lnk, IShellLinkW).Resolve(hwnd, SLR_FLAGS.SLR_UPDATE)
   End Sub

   ''' <summary>
   ''' Resolves the target of a shortcut.
   ''' If shortcut can't be resolved, any error message would be displayed.
   ''' This is usefull when the target path of a shortcut file is changed from a driveletter for example,
   ''' then the shortcut file need to be resolved before trying to retrieve the target path.
   ''' </summary>
   ''' <param name="ShortcutFile">
   ''' The shortcut file to resolve.
   ''' </param>
   Public Shared Sub ResolveNoUi(ByVal ShortcutFile As String)
       LoadShortcut(ShortcutFile)
       DirectCast(lnk, IShellLinkW).Resolve(IntPtr.Zero, SLR_FLAGS.SLR_UPDATE Or SLR_FLAGS.SLR_NO_UI)
   End Sub

   ''' <summary>
   ''' Returns the description of a shortcut file.
   ''' </summary>
   ''' <param name="ShortcutFile">
   ''' The shortcut file to retrieve the info.
   ''' </param>
   Public Shared Function GetDescription(ByVal ShortcutFile As String) As String
       LoadShortcut(ShortcutFile)
       lnk_description.Clear()
       DirectCast(lnk, IShellLinkW).GetDescription(lnk_description, lnk_description.Capacity)
       Return lnk_description.ToString()
   End Function

   ''' <summary>
   ''' Returns the Arguments of a shortcut file.
   ''' </summary>
   ''' <param name="ShortcutFile">
   ''' The shortcut file to retrieve the info.
   ''' </param>
   Public Shared Function GetArguments(ByVal ShortcutFile As String) As String
       LoadShortcut(ShortcutFile)
       lnk_arguments.Clear()
       DirectCast(lnk, IShellLinkW).GetArguments(lnk_arguments, lnk_arguments.Capacity)
       Return lnk_arguments.ToString()
   End Function

   ''' <summary>
   ''' Returns the path and filename of a shortcut file.
   ''' </summary>
   ''' <param name="ShortcutFile">
   ''' The shortcut file to retrieve the info.
   ''' </param>
   Public Shared Function GetFullPath(ByVal ShortcutFile As String) As String
       LoadShortcut(ShortcutFile)
       lnk_target.Clear()
       DirectCast(lnk, IShellLinkW).GetPath(lnk_target, lnk_target.Capacity, lnk_data, SLGP_FLAGS.SLGP_UNCPRIORITY)
       Return lnk_target.ToString()
   End Function

   ''' <summary>
   ''' Returns the working directory of a shortcut file.
   ''' </summary>
   ''' <param name="ShortcutFile">
   ''' The shortcut file to retrieve the info.
   ''' </param>
   Public Shared Function GetWorkingDir(ByVal ShortcutFile As String) As String
       LoadShortcut(ShortcutFile)
       lnk_workingdir.Clear()
       DirectCast(lnk, IShellLinkW).GetWorkingDirectory(lnk_workingdir, lnk_workingdir.Capacity)
       Return lnk_workingdir.ToString()
   End Function

   ''' <summary>
   ''' Returns the Hotkey of a shortcut file.
   ''' </summary>
   ''' <param name="ShortcutFile">
   ''' The shortcut file to retrieve the info.
   ''' </param>
   Public Shared Function GetHotkey(ByVal ShortcutFile As String) As Short
       LoadShortcut(ShortcutFile)
       lnk_hotkey = -1
       DirectCast(lnk, IShellLinkW).GetHotkey(lnk_hotkey)
       Return lnk_hotkey
   End Function

   ''' <summary>
   ''' Returns the Window State of a shortcut file.
   ''' </summary>
   ''' <param name="ShortcutFile">
   ''' The shortcut file to retrieve the info.
   ''' </param>
   Public Shared Function GetWindowStyle(ByVal ShortcutFile As String) As ShortcutWindowState
       LoadShortcut(ShortcutFile)
       DirectCast(lnk, IShellLinkW).GetShowCmd(lnk_windowstate)
       Return lnk_windowstate
   End Function

   ''' <summary>
   ''' Returns the Icon location of a shortcut file.
   ''' </summary>
   ''' <param name="ShortcutFile">
   ''' The shortcut file to retrieve the info.
   ''' </param>
   ''' <param name="IconIndex">
   ''' Optional Integer type variable to store the IconIndex.
   ''' </param>
   Public Shared Function GetIconLocation(ByVal ShortcutFile As String,
                                           Optional ByRef IconIndex As Integer = 0) As String
       LoadShortcut(ShortcutFile)
       lnk_iconpath.Clear()
       DirectCast(lnk, IShellLinkW).GetIconLocation(lnk_iconpath, lnk_iconpath.Capacity, IconIndex)
       Return lnk_iconpath.ToString()
   End Function

   ''' <summary>
   ''' Retrieves all the information about a shortcut file.
   ''' </summary>
   ''' <param name="ShortcutFile">
   ''' The shortcut file to retrieve the info.
   ''' </param>
   Public Shared Function GetInfo(ByVal ShortcutFile As String) As ShortcutInfo

       ' Load Shortcut
       LoadShortcut(ShortcutFile)

       ' Clean objects
       Clean()

       ' Retrieve Shortcut Info
       DirectCast(lnk, IShellLinkW).GetDescription(lnk_description, lnk_description.Capacity)
       DirectCast(lnk, IShellLinkW).GetArguments(lnk_arguments, lnk_arguments.Capacity)
       DirectCast(lnk, IShellLinkW).GetPath(lnk_target, lnk_target.Capacity, lnk_data, SLGP_FLAGS.SLGP_UNCPRIORITY)
       DirectCast(lnk, IShellLinkW).GetWorkingDirectory(lnk_workingdir, lnk_workingdir.Capacity)
       DirectCast(lnk, IShellLinkW).GetIconLocation(lnk_iconpath, lnk_iconpath.Capacity, lnk_iconindex)
       DirectCast(lnk, IShellLinkW).GetHotkey(lnk_hotkey)
       DirectCast(lnk, IShellLinkW).GetShowCmd(lnk_windowstate)

       ' Return Shortcut Info
       Return New ShortcutInfo With {
           .ShortcutFile = ShortcutFile,
           .Description = lnk_description.ToString,
           .Arguments = lnk_arguments.ToString,
           .Target = lnk_target.ToString,
           .Icon = lnk_iconpath.ToString,
           .IconIndex = lnk_iconindex,
           .WorkingDir = lnk_workingdir.ToString,
           .Hotkey = Hex(lnk_hotkey),
           .Hotkey_Modifier = [Enum].Parse(GetType(HotkeyModifiers), GetHiByte(lnk_hotkey)),
           .Hotkey_Key = [Enum].Parse(GetType(Keys), GetLoByte(lnk_hotkey)),
           .WindowState = lnk_windowstate,
           .IsFile = File.Exists(lnk_target.ToString),
           .IsDirectory = Directory.Exists(lnk_target.ToString),
           .DriveLetter = lnk_target.ToString.Substring(0, 1),
           .DirectoryName = lnk_target.ToString.Substring(0, lnk_target.ToString.LastIndexOf("\")),
           .FileName = lnk_target.ToString.Split("\").LastOrDefault.Split(".").FirstOrDefault,
           .FileExtension = lnk_target.ToString.Split(".").LastOrDefault
       }

   End Function

   ''' <summary>
   ''' Creates a shortcut file.
   ''' </summary>
   ''' <param name="FilePath">
   ''' The filepath to create the shortcut.
   ''' </param>
   ''' <param name="Target">
   ''' The target file or directory.
   ''' </param>
   ''' <param name="WorkingDirectory">
   ''' The working directory os the shortcut.
   ''' </param>
   ''' <param name="Description">
   ''' The shortcut description.
   ''' </param>
   ''' <param name="Arguments">
   ''' The target file arguments.
   ''' This value only should be set when target is an executable file.
   ''' </param>
   ''' <param name="Icon">
   ''' The icon location of the shortcut.
   ''' </param>
   ''' <param name="IconIndex">
   ''' The icon index of the icon file.
   ''' </param>
   ''' <param name="HotKey_Modifier">
   ''' The hotkey modifier(s) which should be used for the hotkey combination.
   ''' <paramref name="HotkeyModifiers"/> can be one or more modifiers.
   ''' </param>
   ''' <param name="HotKey_Key">
   ''' The key used in combination with the <paramref name="HotkeyModifiers"/> for hotkey combination.
   ''' </param>
   ''' <param name="WindowState">
   ''' The Window state for the target.
   ''' </param>
   Public Shared Sub CreateShortcut(ByVal FilePath As String,
                                    ByVal Target As String,
                                    Optional ByVal WorkingDirectory As String = Nothing,
                                    Optional ByVal Description As String = Nothing,
                                    Optional ByVal Arguments As String = Nothing,
                                    Optional ByVal Icon As String = Nothing,
                                    Optional ByVal IconIndex As Integer = Nothing,
                                    Optional ByVal HotKey_Modifier As HotkeyModifiers = Nothing,
                                    Optional ByVal HotKey_Key As Keys = Nothing,
                                    Optional ByVal WindowState As ShortcutWindowState = ShortcutWindowState.Normal)

       ' Load Shortcut
       LoadShortcut(FilePath)

       ' Clean objects
       Clean()

       ' Set Shortcut Info
       DirectCast(lnk, IShellLinkW).SetPath(Target)

       DirectCast(lnk, IShellLinkW).SetWorkingDirectory(If(WorkingDirectory IsNot Nothing,
                                                           WorkingDirectory,
                                                           Path.GetDirectoryName(Target)))

       DirectCast(lnk, IShellLinkW).SetDescription(Description)
       DirectCast(lnk, IShellLinkW).SetArguments(Arguments)
       DirectCast(lnk, IShellLinkW).SetIconLocation(Icon, IconIndex)

       DirectCast(lnk, IShellLinkW).SetHotkey(If(HotKey_Modifier + HotKey_Key <> 0,
                                                 Convert.ToInt16(CInt(HotKey_Modifier & Hex(HotKey_Key)), 16),
                                                 Nothing))

       DirectCast(lnk, IShellLinkW).SetShowCmd(WindowState)

       DirectCast(lnk, IPersistFile).Save(FilePath, True)
       DirectCast(lnk, IPersistFile).SaveCompleted(FilePath)

   End Sub

   ''' <summary>
   ''' Creates a shortcut file.
   ''' </summary>
   ''' <param name="Shortcut">Indicates a ShortcutInfo object.</param>
   Public Shared Sub CreateShortcut(ByVal Shortcut As ShortcutInfo)

       CreateShortcut(Shortcut.ShortcutFile,
                      Shortcut.Target,
                      Shortcut.WorkingDir,
                      Shortcut.Description,
                      Shortcut.Arguments,
                      Shortcut.Icon,
                      Shortcut.IconIndex,
                      Shortcut.Hotkey_Modifier,
                      Shortcut.Hotkey_Key,
                      Shortcut.WindowState)

   End Sub

   ''' <summary>
   ''' Modifies the atributes of an existing shortcut file.
   ''' </summary>
   ''' <param name="ShortcutFile">
   ''' The existing .lnk file to modify.
   ''' </param>
   ''' <param name="Target">
   ''' The target file or directory.
   ''' </param>
   ''' <param name="WorkingDirectory">
   ''' The working directory os the shortcut.
   ''' </param>
   ''' <param name="Description">
   ''' The shortcut description.
   ''' </param>
   ''' <param name="Arguments">
   ''' The target file arguments.
   ''' This value only should be set when target is an executable file.
   ''' </param>
   ''' <param name="Icon">
   ''' The icon location of the shortcut.
   ''' </param>
   ''' <param name="IconIndex">
   ''' The icon index of the icon file.
   ''' </param>
   ''' <param name="HotKey_Modifier">
   ''' The hotkey modifier(s) which should be used for the hotkey combination.
   ''' <paramref name="HotkeyModifiers"/> can be one or more modifiers.
   ''' </param>
   ''' <param name="HotKey_Key">
   ''' The key used in combination with the <paramref name="HotkeyModifiers"/> for hotkey combination.
   ''' </param>
   ''' <param name="WindowState">
   ''' The Window state for the target.
   ''' </param>
   Public Shared Sub ModifyShortcut(ByVal ShortcutFile As String,
                                    Optional ByVal Target As String = Nothing,
                                    Optional ByVal WorkingDirectory As String = Nothing,
                                    Optional ByVal Description As String = Nothing,
                                    Optional ByVal Arguments As String = Nothing,
                                    Optional ByVal Icon As String = Nothing,
                                    Optional ByVal IconIndex As Integer = -1,
                                    Optional ByVal HotKey_Modifier As HotkeyModifiers = -1,
                                    Optional ByVal HotKey_Key As Keys = -1,
                                    Optional ByVal WindowState As ShortcutWindowState = -1)

       ' Load Shortcut
       LoadShortcut(ShortcutFile)

       ' Clean objects
       Clean()

       ' Retrieve Shortcut Info
       DirectCast(lnk, IShellLinkW).GetDescription(lnk_description, lnk_description.Capacity)
       DirectCast(lnk, IShellLinkW).GetArguments(lnk_arguments, lnk_arguments.Capacity)
       DirectCast(lnk, IShellLinkW).GetPath(lnk_target, lnk_target.Capacity, lnk_data, SLGP_FLAGS.SLGP_UNCPRIORITY)
       DirectCast(lnk, IShellLinkW).GetWorkingDirectory(lnk_workingdir, lnk_workingdir.Capacity)
       DirectCast(lnk, IShellLinkW).GetIconLocation(lnk_iconpath, lnk_iconpath.Capacity, lnk_iconindex)
       DirectCast(lnk, IShellLinkW).GetHotkey(lnk_hotkey)
       DirectCast(lnk, IShellLinkW).GetShowCmd(lnk_windowstate)

       ' Set Shortcut Info
       DirectCast(lnk, IShellLinkW).SetPath(If(Target IsNot Nothing,
                                               Target,
                                               lnk_target.ToString))

       DirectCast(lnk, IShellLinkW).SetWorkingDirectory(If(WorkingDirectory IsNot Nothing,
                                                           WorkingDirectory,
                                                           lnk_workingdir.ToString))

       DirectCast(lnk, IShellLinkW).SetDescription(If(Description IsNot Nothing,
                                                      Description,
                                                      lnk_description.ToString))

       DirectCast(lnk, IShellLinkW).SetArguments(If(Arguments IsNot Nothing,
                                                    Arguments,
                                                    lnk_arguments.ToString))

       DirectCast(lnk, IShellLinkW).SetIconLocation(If(Icon IsNot Nothing, Icon, lnk_iconpath.ToString),
                                                    If(IconIndex <> -1, IconIndex, lnk_iconindex))

       DirectCast(lnk, IShellLinkW).SetHotkey(If(HotKey_Modifier + HotKey_Key > 0,
                                                 Convert.ToInt16(CInt(HotKey_Modifier & Hex(HotKey_Key)), 16),
                                                 lnk_hotkey))

       DirectCast(lnk, IShellLinkW).SetShowCmd(If(WindowState <> -1,
                                                  WindowState,
                                                  lnk_windowstate))

       DirectCast(lnk, IPersistFile).Save(ShortcutFile, True)
       DirectCast(lnk, IPersistFile).SaveCompleted(ShortcutFile)


   End Sub

#End Region

#Region " Private Methods "

   ''' <summary>
   ''' Loads the shortcut object to retrieve information.
   ''' </summary>
   ''' <param name="ShortcutFile">
   ''' The shortcut file to retrieve the info.
   ''' </param>
   Private Shared Sub LoadShortcut(ByVal ShortcutFile As String)
       DirectCast(lnk, IPersistFile).Load(ShortcutFile, 0)
   End Sub

   ''' <summary>
   ''' Clean the shortcut info objects.
   ''' </summary>
   Private Shared Sub Clean()
       lnk_description.Clear()
       lnk_arguments.Clear()
       lnk_target.Clear()
       lnk_workingdir.Clear()
       lnk_iconpath.Clear()
       lnk_hotkey = -1
       lnk_iconindex = -1
   End Sub

   ''' <summary>
   ''' Gets the low order byte of a number.
   ''' </summary>
   Private Shared Function GetLoByte(ByVal Intg As Integer) As Integer
       Return Intg And &HFF&
   End Function

   ''' <summary>
   ''' Gets the high order byte of a number.
   ''' </summary>
   Private Shared Function GetHiByte(ByVal Intg As Integer) As Integer
       Return (Intg And &HFF00&) / 256
   End Function

#End Region

End Class

#End Region

Eso es debido a que no sabes lo que hablas, el Visual Studio puede usarse como cualquier otro depurador (Windbg,Ollydbg,etc).

Y Pues deberias fijarte bien en los temas que respondes, Sólo recordar lo gracioso que fueron tus respuestas hablando
de un lenguaje de programación que ni siquiera conoces un poco. De todos modos, este dia no tengo tiempo para discutir
con el joven chico 'Bachero'.

si, muy gracioso, ¿acaso algo de lo que dije sobre C++ no fue cierto?, lo repito, eres patético, lo único que sabes hacer es intentar provocar con estupideces, y yo me dejo provocar porque gente como tu estaría mejor en la tumba intentando trollear a sus muertos enterrados.

PD: el karma es cruel, y espero que contigo no se apiade



@MaX2

He estado examinando el executable y me he percatado de que... si que toma en cuenta la DB que hay en la misma carpeta de trabajo que el exe:




Así que no se porque tienes problemas con eso, es decir, en mi caso no es necesario meter el archivo en  "C:\EspabilaB\EspabilaDAT.mdb", el zip que me pasaste, están todos los archivos en la misma carpeta y no tengo problemas para abrir la base de datos y manipularla.

De todas formas si que ví el String que mencionaste "C:\EspabilaB\EspabilaDAT.mdb" y lo he modificado a "EspabilaDAT.mdb", aquí lo tienes:
~> (enlace eliminado a petición del usuario...)

Aunque no creo que deba haber ninguna diferencia entre la pequeña modificación que le hice y el exe que tu ya tienes, porque como ya dije, en mi caso no es necesario modificar el exe para que me acepte la DB en la misma carpeta d trabajo del exe.

espero que te funcione
Saludos

para empezar no sé que tendrá que ver el debugger del VS con lo que comentas, pero me da igual porque es bien sabido que no soy ningún experto en ingenieria inversa, aunque aún así, siempre aporto mucho más a un tema que tu con tus sucios y patéticos comentarios de Troll, eso da que pensar, ¿no?.
debería darte verguenza scomentar siempre sólamente para faltar el respeto a los que intentan ayudar y los que son mejores personas que tú, aunque para conseguir eso no es necesario realizar un gran esfuerzo ya que solo eres un patético Troll.

ya te arrepentirás algún día cuando te cruces en el camino a alquien que séa más chulo que tú, y te parta la boca en 2 ...como te mereces.

Saludos!

He ideado este ayudante para desloguear el usuario actual, apagar o reiniciar el sistema en un pc local o remoto, o abortar una operación,
todo mediante la WinAPI (llevó bastante trabajo la investigación, y la escritura de documentación XML)  

~> SystemRestarter for VB.NET - by Elektro

Ejemplos de uso:

Código (vbnet) [Seleccionar] Expandir

Sub Test()

    ' Restart the current computer in 30 seconds and wait for applications to close.
    ' Specify that the restart operation is planned because a consecuence of an installation.
    Dim Success =
    SystemRestarter.Restart(Nothing, 30, "System is gonna be restarted quickly, save all your data...!",
                            SystemRestarter.Enums.InitiateShutdown_Force.Wait,
                            SystemRestarter.Enums.ShutdownReason.MajorOperatingSystem Or
                            SystemRestarter.Enums.ShutdownReason.MinorInstallation,
                            SystemRestarter.Enums.ShutdownPlanning.Planned)

    Console.WriteLine(String.Format("Restart operation initiated successfully?: {0}", CStr(Success)))

    ' Abort the current operation.
    If Success Then
        Dim IsAborted = SystemRestarter.Abort()
        Console.WriteLine(String.Format("Restart operation aborted   successfully?: {0}", CStr(IsAborted)))
    Else
        Console.WriteLine("There is any restart operation to abort.")
    End If
    Console.ReadKey()

    ' Shutdown the current computer instantlly and force applications to close.
    ' ( When timeout is '0' the operation can't be aborted )
    SystemRestarter.Shutdown(Nothing, 0, Nothing, SystemRestarter.Enums.InitiateShutdown_Force.ForceSelf)

    ' LogOffs the current user.
    SystemRestarter.LogOff(SystemRestarter.Enums.ExitwindowsEx_Force.Wait)

End Sub

[PeID]

Tambien he probado desde la linea de comandos del Visual Studio con ildasm, y en la ventana que muestra para cargar el EXE tampoco lo carga.

¿Porque usaste VisualStudio?.
¿Sabes si el programa está escrito en VB.NET, o por lo contrario está escrito en VB6? (son dos cosas muy diferentes), puedes comprobarlo usando el programa PeID.

Si es un ensamblado .NET (VisualBasic.NET) entonces puedes utilizar cualquier programa que use reflection (.NEt Reflector, simple assembly explorer, etc), y si está escrito en VB (VisualBasic), imagino que con OllyDbg puedes buscar el String y modificarlo a tu gusto.

Saludos

Bravo!

...Hacen falta más tutos como este.

PD: No encontré el significado de la instrucción 'JNZ', ¿podrías explicarlo?

Saludos!

me gustaria saber que me recomiendan para comenzar en el mundo de la programacion..

Aprender a usar el buscador del foro.

Saludos!

[MSDN]

pensé en PHP, Ruby, VB.net, MySQl y Postgress pero no me decido.

por favor solo indiquenme en que lenguaje y gestor y el porque

En mi opinión, lo más óptimo sería .NET (VB.NET o CSharp, cualquiera de los dos), ¿Porque?, por la sencilla razón que es de la familia de Microsoft al igual que el tipo de documentos que quieres manipular, y eso siempre supone la mayor ventaja.

1. .NET Framework dispone de Classes para manejar ese tipo de documentos y eso te facilitará la tarea. (Una contra: necesitas tener MSOffice instalado)

2. Todo está perféctamente documentado en MSDN y en foros de ayuda como StackOverflow.

2. Puedes encontrar infinidad de ejemplos de uso, códigos fuente, en páginas como CodeProject.

3. Puedes encontrar librerías gratis de terceros, o también librerías de pago especializadas para .NET para no depender de MSOffice, e incluso controles de usuario.

Saludos

[EntryPoint]

me sale un cartel que dice, no se encuentra el punto de entrada del procedimiento AllocateAndGetUdpExTableFromStack en la biblioteca de vínculos dinámicos iphlpapi.ddl

El error es claro, te dice que no existe ese EntryPoint en dll, es decir, el método al que estás intentando llamar no existe (porque está obsoleto y fue eliminado a partir de WinVISTA).

Solución, llamar al método que mencionan aquí, GetExtendedUdpTable

Sobre lo del (típico) error de intento de escritura en la memoria protegida... bueno, es imposible que alguien te pueda ayudar si no muestras el código para saber que método está provocando el error... (Yo no sé C/C++, solo te comento que la información que das es escasa como para tomarla en serio...)

Saludos!