send
Grupo de Telegram
play_arrow
Este sitio utiliza cookies propias y de terceros. Si continúa navegando consideramos que acepta el uso de cookies. OK Más Información.

Leer Archivo mediante Api

  • 0 Respuestas
  • 1413 Vistas

0 Usuarios y 1 Visitante están viendo este tema.

Desconectado Juan

  • *
  • Underc0der
  • Mensajes: 159
  • Actividad:
    0%
  • Reputación 0
  • Ex-Drinky
    • Ver Perfil
« en: Agosto 30, 2010, 06:36:33 pm »
Este es un ejemplo que hice hace un tiempo de como leer archivos mediante api:

Código: Visual Basic
  1. ' By Drinky94
  2. Option Explicit
  3.  
  4. Public Declare Function CreateFile Lib "kernel32.dll" Alias "CreateFileA" (ByVal lpFileName As String, ByVal dwDesiredAccess As Long, ByVal dwShareMode As Long, lpSecurityAttributes As SECURITY_ATTRIBUTES, ByVal dwCreationDisposition As Long, ByVal dwFlagsAndAttributes As Long, ByVal hTemplateFile As Long) As Long
  5. Public Declare Function ReadFile Lib "kernel32.dll" (ByVal hFile As Long, ByRef lpBuffer As Any, ByVal nNumberOfBytesToRead As Long, ByRef lpNumberOfBytesRead As Long, ByRef lpOverlapped As Any) As Long
  6. Public Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long
  7.  
  8.  
  9. Public Const GENERIC_READ = &H80000000
  10. Public Const FILE_SHARE_READ = &H1
  11. Public Const FILE_ATTRIBUTE_NORMAL = &H80
  12. Public Const OPEN_EXISTING As Long = 3
  13.  
  14. Public Type SECURITY_ATTRIBUTES
  15.     nLength As Long
  16.     lpSecurityDescriptor As Long
  17.     bInheritHandle As Long
  18. End Type
  19. Public Type OVERLAPPED
  20.     ternal As Long
  21.     ternalHigh As Long
  22.     offset As Long
  23.     OffsetHigh As Long
  24.     hEvent As Long
  25. End Type
  26.  
  27.  
  28. Public Function Archivo(ruta As String) As Boolean
  29.     Dim abrirarchivo As Long
  30.     Dim sa As SECURITY_ATTRIBUTES
  31.     Dim leerarchivo As Long
  32.     Dim over As OVERLAPPED
  33.     Dim buffer As String
  34.     Dim nada As Long
  35.     Dim bytesleidos As Long
  36.     abrirarchivo = CreateFile(ruta, GENERIC_READ, FILE_SHARE_READ, sa, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 0)
  37.     buffer = Space(FileLen(ruta))
  38.     leerarchivo = ReadFile(abrirarchivo, ByVal buffer, FileLen(ruta), bytesleidos, over)
  39.     Call CloseHandle(abrirarchivo)
  40.     MsgBox buffer
  41. End Function
  42.  
  43. Sub Main()
  44.     Call Archivo("c:\feo.txt")
  45. End Sub

salu2!
« Última modificación: Mayo 12, 2014, 03:29:23 pm por Expermicid »

 

¿Te gustó el post? COMPARTILO!



Como cargar un archivo en memoria

Iniciado por ANTRAX

Respuestas: 0
Vistas: 1205
Último mensaje Julio 26, 2010, 01:40:10 pm
por ANTRAX
Como Crear un DSN con un archivo de registro

Iniciado por ANTRAX

Respuestas: 0
Vistas: 1334
Último mensaje Julio 26, 2010, 12:23:42 pm
por ANTRAX
Como leer caracter por caracter de una cadena string

Iniciado por ANTRAX

Respuestas: 0
Vistas: 1304
Último mensaje Julio 26, 2010, 11:42:21 am
por ANTRAX
Llamada de un formulario mediante el nombre como string

Iniciado por ANTRAX

Respuestas: 0
Vistas: 1184
Último mensaje Julio 26, 2010, 04:08:58 pm
por ANTRAX
[m][PEB] Leer cadenas interesantes del PEB (Ruta, CommandLine y más)

Iniciado por Karcrack

Respuestas: 0
Vistas: 1333
Último mensaje Junio 16, 2013, 06:28:38 pm
por Karcrack