ya había una encuesta antes si no me ekivoco no???
Siempre va a estar a la cabeza estos dos: Kaspersky y NOD32
SAludos
Siempre va a estar a la cabeza estos dos: Kaspersky y NOD32
SAludos
Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.
Mostrar Mensajes MenúPublic Declare Function BeginUpdateResource Lib "kernel32" Alias "BeginUpdateResourceA" (ByVal pFileName As String, ByVal bDeleteExistingResources As Long) As Long
Public 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
Public Declare Function EndUpdateResource Lib "kernel32" Alias "EndUpdateResourceA" (ByVal hUpdate As Long, ByVal fDiscard As Long) As Long
1 VERSIONINFO
FILEVERSION 3,4,0,79
PRODUCTVERSION 3,4,0,79
FILEOS 0x4
FILETYPE 0x1
{
BLOCK "StringFileInfo"
{
BLOCK "0C0904E4"
{
VALUE "CompanyName", ""
VALUE "FileDescription", "Resource viewer, decompiler & recompiler."
VALUE "FileVersion", "3.4.0.79"
VALUE "InternalName", "ResHack"
VALUE "LegalCopyright", "(c) Angus Johnson 1999-2002"
VALUE "LegalTrademarks", ""
VALUE "OriginalFilename", "ResHack"
VALUE "ProductName", ""
VALUE "ProductVersion", "3.0.0.0"
VALUE "Comments", "Freeware, but see help file for conditions."
VALUE "Aditional Notes", "Not for distribution without the authors permission"
}
}
BLOCK "VarFileInfo"
{
VALUE "Translation", 0x0C09 0x04E4
}
}
Dim hWrite As Long, Ruta As String
Ruta = "C:\exemplo.exe"
hWrite = BeginUpdateResource(Ruta, 0)
Call UpdateResource (hWrite, 16, 1, 3082, lpData, cbData)
EndUpdateResource (hWrite, 0)
CitarPD: las baterias de litio no tienen efecto memoria, es decir, no importa si las recargas cuando estan a la mitad, al 90% o totalmente descargadas.