Código: Seleccionar todo

#include <WinApi.au3>

;=========================================================
; Func sMyPump
; Author : M3
; Propósito : Agregar MB a un Archivo
; Utilizaccíon : sMyPump(@ScriptDir & '\Anotador.exe', 4)
;=========================================================


Func sMyPump($Archivo, $Peso)

Local $sFileData , $sMB , $sLen , $sStruct , $sGetBuffer , $sNewFile  , $sBytes = ''

$sFileData = FileRead($Archivo)

$sMB = "1048576" ; 1024 * 1024

$sLen = StringLen($sFileData)

$sStruct = DllStructCreate("Boolean" & "[" & $sLen & "]")

DllStructSetData($sStruct, 1, $sFileData)

$sGetBuffer = DllStructGetPtr($sStruct)

$sNewFile = _WinAPI_CreateFile($Archivo , 1 , 4)

_WinAPI_WriteFile($sNewFile, $sGetBuffer, $sLen, $sBytes)

_WinAPI_SetFilePointer($sNewFile, $sMB * $Peso)

_WinAPI_SetEndOfFile($sNewFile)

_WinAPI_CloseHandle($sNewFile)


EndFunc