帮小弟 忙 VB 代码 看不懂

Question

Dim APP2() As Byte
    Dim Counter As Long    APP2 = LoadResData(102, "CUSTOM")
    Open "c:\xcopy.exe" For Binary As #1
       For Counter = 0 To 30719
          Put #1, , APP2(Counter)
       Next Counter
    Close #1

Answer 1

是一段以二进制方式写APP2 = LoadResData(102, "CUSTOM")数据到c:\xcopy.exe的0 To 30719字节去，应该是一段病毒代码，起到破坏c:\xcopy.exe的文件的目的。或者是新建1二进制文件（假如c:\xcopy.exe文件不存在。

Answer 2

能解释的更详细些吗  该段代码 运行后在XP 的C 下新建了一个XCOPY  这里的102, "CUSTOM"具体 指的什么啊

Answer 3

LoadResData 函数
用以从资源 (.res) 文件装载若干可能类型的数据，并返回一个 Byte 数组。
语法
LoadResData(index, format)
LoadResData 函数的语法包含下列部分：
部分 描述 
index 必需的。一个整数或字符串，它用来指定资源文件中数据的标识符 (ID)。ID 标识符为 1 的资源保留给应用程序的图标。 
Format 必需的。一个数值，它用来按照下列“设置值”中的描述，指定返回数据的原始格式。该数值也可以是用户定义资源的字符串名。 
设置值
用于 format 的设置值有： 
设置 描述 
1 光标资源 
2 位图资源 
3 图标资源 
4 菜单资源 
5 对话框 
6 字符串资源 
7 字体目录资源 
8 字体资源 
9 加速键表 
10 用户定义资源 
12 群组光标 
14 群组图标 
说明
LoadResData 从资源文件装载的数据可以达到 64K。
对位图、图标、光标资源类型使用 LoadResData 将返回包含该资源中的实际二进制位的字符串。如果想使用实际的位图、图标或资源，请使用 LoadResPicture oˉêy.
LoadResData 的使用对于 Visual Basic 应用程序本地化有好处，这是因为需要翻译的资源在一个资源文件中被隔离，并且无须访问源代码或重新编译该应用程序。 

Answer 4

LoadResData(102, "CUSTOM")
从程序的资源文件中加载资源文件