打开文件

wwwew112 2003-12-19 09:15:23
如何用get 以二进制打开 ,还有QQ的密码在本地的那个地方要打开用VB 如何编程呢!急呀!!
...全文
8 点赞 收藏 3
写回复
3 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
Mars.CN 2003-12-21
我也要
suolong@sjzsoft.com
好东西大家一起分享

程序赞同SoHo_Andy(冰)的
回复
liyan010 2003-12-19
楼主大人,你真厉害,想知道QQ的密码存在哪啊?!首先有这个想法就佩服你~

记得找到以后,别忘了把解密的方法发到我的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
回复
发动态
发帖子
VB基础类
创建于2007-09-28

7453

社区成员

VB 基础类
申请成为版主
社区公告
暂无公告