7453
社区成员
- 主页
...全文
当前发帖距今超过3年，不再开放新的回复
发表回复
Mars.CN 2003-12-21
我也要
suolong@sjzsoft.com
好东西大家一起分享
程序赞同SoHo_Andy(冰)的
suolong@sjzsoft.com
好东西大家一起分享
程序赞同SoHo_Andy(冰)的
liyan010 2003-12-19
楼主大人,你真厉害,想知道QQ的密码存在哪啊?!首先有这个想法就佩服你~
记得找到以后,别忘了把解密的方法发到我的mail里:Ian_god@sina.com
谢了先
记得找到以后,别忘了把解密的方法发到我的mail里:Ian_god@sina.com
谢了先
SoHo_Andy 2003-12-19
'读写二进制文件
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
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
