您的位置：程序门 -> vb ->

rmb 求一源代码

[收藏此页] [打印本页]选择字色：背景色：字体：[大][中][小]

rmb 求一源代码

发表于：2007-02-24 01:43:57 楼主

大家知道硬盘逻辑锁吧

我想在 xp 下用vb 直接操作硬盘的分区表来实现,,我知道可以用open来做,但我不会

会的请加我qq:100510037

以下是网上找到的源码,用open获取磁盘信息:

option explicit
dim temp（) as byte, i as long

private sub command1_click（)
dim disk as string, diskbyte as string
redim temp（511)

disk = "j: "

open "\\.\ " & disk for binary as #1 '
get #1, , temp

close #1

for i = 0 to 511
if len（hex（temp（i))) = 1 then
diskbyte = "0 " & hex（temp（i))
else
diskbyte = hex（temp（i))
end if

richtextbox1.text = richtextbox1.text & diskbyte & " "

next
end sub

发表于：2007-02-24 22:34:101楼得分:0

不大可能吧.windows里的程序都是通过api来操作文件的,

除非你自己写硬盘驱动或是调用bios中断.

一点拙见,仅供参考.

发表于：2007-02-27 23:27:342楼得分:0

楼上是错的..
vb的open语句确实可以直接操作磁盘.而且lz的代码是正确的..你可以测试一下..

但是涉及到lz的问题确实很复杂,前段没事想写了,但是还是放弃了.....

下一篇：帮忙用vb写下这段api（原作c++）
上一篇：如果实现拒绝多进程