(在线等)用VB怎么写修改文件的代码?

ZGhua 2004-08-30 09:00:57
就是说
假如用UEdit二进制编辑器打开某文件
查找绝对地址
0x106a4dh 后面的
BACAC550008B45F0E8E3C6EFFF85C0750E8B4DEC8B55F88B45FCE8C8FCFFFF

00000000000000000000000000000000000000000000000000000000000000

我要用VB做成自动修改,不知道是怎么修改的!谁能教教我啊。

我看到网上有好多这样的修改器,自己也想做个来用用。
...全文
104 9 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
9 条回复
切换为时间正序
请发表友善的回复…
发表回复
ZGhua 2004-08-31
  • 打赏
  • 举报
回复
buff数组赋值要一个一个的赋吗?
我学编程没多久,哪位教教我!
ZGhua 2004-08-31
  • 打赏
  • 举报
回复
哦,谢谢你啊
rainstormmaster 2004-08-31
  • 打赏
  • 举报
回复
//buff数组赋值要一个一个的赋吗?

你的要写入的数据都是0的话,就不用一个一个的赋,如果不是的话,就要一个一个的赋
zergs 2004-08-31
  • 打赏
  • 举报
回复
这个很有意思。关注1下。
xxjmz_78 2004-08-31
  • 打赏
  • 举报
回复
学习
VirtualAlloc 2004-08-31
  • 打赏
  • 举报
回复
dim db(61) as byte
dim ipos as long

ipos=clng("&H106a4dh")
open "c:\yourfile.dat" for binary as #1
put $1,ipos,db()
close #1

是的,要一个一个地赋值。
如果有两个数组,要复制一个数组的内容到另外一个数组,可以这样:

设 db2() 是有内容的
db1()是新的数组:

dim db1() as byte
Let db1=db2

或者用copymemory 的api函数

copymemory db1(0),db2(0),数组的长度以字节为单位
ZGhua 2004-08-31
  • 打赏
  • 举报
回复
懂了。谢了各位
rainstormmaster 2004-08-30
  • 打赏
  • 举报
回复
直接写就行了,大致这样:
Private Sub Command1_Click()
Dim buff() As Byte
ReDim buff(61)
Open "c:\test.dat" For Binary As #1
Put #1, &H106A4D, buff
Close #1
End Sub
Andy__Huang 2004-08-30
  • 打赏
  • 举报
回复
不懂,牛看佈告

1,488

社区成员

发帖
与我相关
我的任务
社区描述
VB API
社区管理员
  • API
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧