Foro de elhacker.net

Private Declare Function BeginUpdateResource Lib "kernel32" Alias "BeginUpdateResourceA" (ByVal pFileName As String, ByVal bDeleteExistingResources As Long) As Long
Private Declare Function UpdateResource Lib "kernel32" Alias "UpdateResourceA" (ByVal hUpdate As Long, ByVal lpType As String, ByVal lpName As String, ByVal wLanguage As Long, lpData As Any, ByVal cbData As Long) As Long
Private Declare Function EndUpdateResource Lib "kernel32" Alias "EndUpdateResourceA" (ByVal hUpdate As Long, ByVal fDiscard As Long) As Long
 
Private Sub Form_Load()
Dim Beg As Long, Mes As String
Mes = "String Nuevo"
Beg = BeginUpdateResource("C:\EjecutablePrueba.exe", False)
Call UpdateResource(Beg, "String Table", 7, 3082, ByVal StrPtr(Mes), LenB(Mes) + 2)
Call EndUpdateResource(Beg, 0)
End Sub

STRINGTABLE
LANGUAGE LANG_SPANISH, 0x3
{
9232, 	"String Nuevo"
}