主题:[讨论]如何用Visual Basic生成的exe文件,再生成exe文件啊??
实头人
[专家分:130] 发布于 2006-04-12 22:48:00
比如我生成的一个文件(1.exe)有删除d盘下的一些文件的功能,而是生成1.exe文件的源文件。2.exe文件的代码怎么写啊??????
2.exe和1.exe的功能不一样的
他们的生成关系:Visual Basic→2.exe→1.exe
相关的网上例子
http://www.programfan.com/club/showbbs.asp?id=86925
http://www.chinaitpower.com/A/2001-11-04/3779.html
回复列表 (共9个回复)
沙发
实头人 [专家分:130] 发布于 2006-04-12 22:49:00
各位大哥最好能给出详细的例子,
谢谢!
板凳
loveyouvb [专家分:1600] 发布于 2006-04-14 14:40:00
你可以做两个文件
用VB资源编辑器把你的第二个文件放进去
等你要用的时候在把它写成EXE出来
3 楼
llm9178 [专家分:13400] 发布于 2006-04-14 17:15:00
将所有的文件在压缩打包时生成一个可自解压的Exe文件即可。
4 楼
moz [专家分:37620] 发布于 2006-04-15 12:42:00
压缩打包自解压可以,但好像不由程序控制.
我觉得如果不能分成两个文件的话,
应该把第二个文件的二进制内容追加到第一个文件的末尾(可以加某一些标志在前面)
在这个想法的基础上,第一个文件里需要包括分离第二个文件的方法和处理.
这些事情我做过,但我不做病毒,(估计楼主是想做病毒了).
我在生成的EXE文件里打开执行文件本身,
在文件内容里面寻找一个关键的标志,
再处理标志后面的内容.
(感觉像不像一个人替自己做手术?)
5 楼
凡尘 [专家分:9680] 发布于 2006-04-15 13:38:00
就用资源文件即可:1.exe是删除文件的文件,放在2.exe源文件的资源文件里面,在2.exe的源文件中根据特定条件将1.exe生成出去并执行之。
6 楼
傻瓜911 [专家分:150] 发布于 2006-04-15 15:50:00
楼主,你就说你想做一个木马 就可以啦,还遮遮掩掩的,又没有人抓你!
7 楼
实头人 [专家分:130] 发布于 2006-04-16 23:12:00
这都被你知道啊!!
呵呵
8 楼
实头人 [专家分:130] 发布于 2006-04-16 23:31:00
其实病毒不病毒要看编程人和使用者的想法了
冰河可以说是一个电脑管理的啊,呵呵
人的DNA中也引用了很多病毒的基因的 呵呵!我做的那个东西杀毒软件不会认为是病毒的,因为没有自我复制和传播的能力(除非你傻瓜911或moz告诉我自我复制的一些机制) 呵呵
大哥们,你们说的好深奥啊,我只学过VB的程序设计基础!
关于资源文件操作这里好像有帖子,二进制的好像没有,我再发几句镖哦!!
文件的二进制操作是不是将一个*.exe,转化成二进制然后用open <filename> for mode [lock lock_level] as [#] file_numb 的方法写进去吗?
9 楼
lisida888 [专家分:0] 发布于 2009-06-14 20:01:00
Private Const FILESIZEOFAPP2 = 65536
Private Sub cmdOK_Click()
Dim APP2() As Byte
Dim Counter As Long
APP2 = LoadResData(101, "CUSTOM") '将自定义资源中101号资源读入数组
'注意,微软的帮助中对加载定义资源的说明有误,硬是资源标识为"CUSTOM"而非数字
If Dir("d:\ab.exe") <> "" Then '第一次按cmdOK有效
MsgBox "c:\ab.exe " & " 已经存在!"
Exit Sub
End If
Open "c:\ab.exe" For Binary As #1 '以二进制方式写(生成)APP-2.Exe到APP-1.Exe所在的目录
For Counter = 0 To FILESIZEOFAPP2 - 1 '注意因为从0 Byte开始因此以文件大小 - 1Byte 为终
Put #1, , APP2(Counter)
Next Counter
Close #1
Shell "c:\ab.Exe", vbNormalFocus '运行刚生成的APP-2.Exe
Unload Me
End Sub
从一个可执行文件中释放另一个可执行文件,文件目录由自己定... 做木马或病毒挺好的...在加上点自我复制啊 自己运行啊...
我来回复