打开文件

[wwwew112]

如何用get 以二进制打开 ，还有QQ的密码在本地的那个地方要打开用VB 如何编程呢！急呀！！

[SoHo_Andy]

'读写二进制文件
Private Sub Command1_Click()
Dim n As Long
Dim arrBytes() As Byte

'读出数据
Open "d:\draw.ico" For Binary As 1
n = LOF(1)
ReDim arrBytes(1 To n) As Byte
Get 1, , arrBytes
Close 1


'写入数据
Open "d:\aaa.ico" For Binary As 2
Put 2, , arrBytes
Close 2

End Sub

[liyan010]

楼主大人,你真厉害,想知道QQ的密码存在哪啊?!首先有这个想法就佩服你~

记得找到以后,别忘了把解密的方法发到我的mail里:[e-mail]

谢了先

[Mars.CN]

我也要
[e-mail]
好东西大家一起分享

程序赞同SoHo_Andy(冰)的