当前位置：首页 » 编程博文

开发技术指南» 文章正文

    引言： Option Explicit ´////////

 

 

用VB对磁盘的物理扇区数据读/写操作

option explicit

´// 对磁盘的物理扇区数据读/写操作 【程序编程相关:更改squid的错误信息语言种类】

´///////////////////////////////////////// 【推荐阅读:.Net里的哈希表和串行化】

´// kwanhong young 【扩展信息:Implementing Reverse】

´// last update: 2004-8-7

´/////////////////////////////////////////

´//file system

private declare function createfile lib "kernel32" alias "createfilea" (byval lpfilename as string, byval dwdesiredaccess as long, byval dwsharemode as long, lpsecurityattributes as long, byval dwcreationdisposition as long, byval dwflagsandattributes as long, byval htemplatefile as long) as long

private declare function closehandle lib "kernel32" (byval hobject as long) as long

private declare function readfile lib "kernel32" (byval hfile as long, lpbuffer as any, byval nnumberofbytestoread as long, lpnumberofbytesread as long, byval lpoverlapped as long) as long ´//declare has changed

private declare function writefile lib "kernel32" (byval hfile as long, lpbuffer as any, byval nnumberofbytestowrite as long, lpnumberofbyteswritten as long, byval lpoverlapped as long) as long ´//declare has changed

private declare function setfilepointer lib "kernel32" (byval hfile as long, byval ldistancetomove as long, lpdistancetomovehigh as long, byval dwmovemethod as long) as long

private const generic_read = &h80000000

private const generic_write = &h40000000

private const file_share_read = &h1

private const file_share_write = &h2

private const open_existing = 3

private const invalid_handle_value = -1

´//file seek

private const file_begin = 0

private const file_current = 1

private const file_end = 2

private const error_success = 0&

...   下一页

» 本期热门文章：

· 热门栏目：

» 相关精选文章

» 其它相关：