Lee un ejecutable (server) y lo guarda en un string llamado 'cadenarellena'
Código: Seleccionar todo
lPos = InStr(1, StrReverse(cadenarellena), GetNullBytes(30))
Código: Seleccionar todo
Public Function GetNullBytes(ByRef lNum As Object) As String
Dim Buf As String
Dim i As Short
For i = 1 To lNum
Buf = Buf & Chr(0)
Next
GetNullBytes = Buf
End Function