向EXE文件中写入数据

可以

读取的方法：

dim

A

as

byte,str

as

string

Open

App.Path

&

"\"

&

App.EXEName

&

".exe"

For

Binary

Access

Read

As

#1

'打开自身

Seek

#1,

LOF(1)

-

1000

For

I

=

1

To

1000

Get

#1,

,

a

str

=

str

&

Chr(a)

Next

Close

#1

if

left(str,3)<>

"XXX"

'设置一个标设标，判断有没有在EXE中追加你需要的内容

msgbox

"没有向身本写入东西"

end

else

msgbox

str

'变量str的内容就是程序结尾追加的东西

end

if

写入的方法：

dim

str

as

string

str="XXX"

&

text1.text

For

i

=

1

To

1000

-

Len(str)

'循环在要追加的字符串后边加上空格，凑够一千个字符，方便读取

str=

str

&

"

"

Next

Open

App.Path

&

"\"

&

App.EXEName

&

".exe"

For

Binary

As

#1

Seek

#1,

LOF(1)

-

1000

'定位到倒数1000的位置

For

I

=

1

To

3

Get

#1,

,

a

str

=

str

&

Chr(a)

Next

if

str<>"XXX"

then

'判断有没有XXX的标志，没有就定位到文件结尾

seek

#1,lof(1)+1

else

Seek

#1,

LOF(1)

-

1000

end

if

Put

#1,

,

str

'写入字符串

Close

#1

1.在你的程序上添加一个标签或者编辑框组件 可视设为假

2.在标签或编辑框里写入123456789 然后编译

3.再将编译好的程序用软件转化为字节集

4.将123456789转化为字节集

5.将你的邮箱地址转化为字节集123456789

6.假设程序转换字节集后为 X 123456789转化字节集后为 C 邮箱地址转化为字节集后为 V

7.用V替换X里的C

8.保存修改后的文件

---