Question

请问:VB的一个问题?

请问各位高手,如何才能在编好的VB程序中再生成一个程序,就象木马中生成服务端的那样,其代码是什么啊,有没有知道的,谢谢了啊

Answer 1

先编译好要生成的exe文件，再查看其属性，看其有多少个字节（注意：是字节！！）打开记事本，写下如下语句：
101 CUSTOM 文件名.exe
保存成 .rc 文件退出。比如保存为D:\sample\new.rc
打开命令提示符，运行 C:\Mincrosoft Visual Studio\VB98\Wixards\rc/r D:\sample\new.rc
以上命令我就不解释了。
D:\sample文件夹下就会生成new.rec文件。进入VB，在你所需要的一个过程中添加以下代码：
'在 “通用-声明”中定义：
private const filesizeofapp2=50960'50960即为你要生成的exe文件的字节大小
'窗体代码：
dim app2() as byte
dim counter as long
app2=loadresdata(101,"CUSTOM")
open "D:\app3.exe" for binary as #1
for counter=0 to filesizeofapp2-1
print #1,app2(counter)
next counter
close #1

Answer 2

搞代码
比如 for i = 1 to 999999999
beep
next
以上是让电脑响999999999下导致电脑崩溃的代码

Answer 3

不知道你会不会用资源文件，在编译前将你要再生成的程序作为一个资源加到本程序中，在本程序运行后可以自己读出来，生成一个独立的可执行文件。你最好看一下资源文件的使用，网上类似代码很多，你百度一下就行。