神马品牌网1.5米浴缸实用吗:vb程序如何能具有自身复制功能？？
来源：百度文库 编辑：神马品牌网 时间：2024/05/08 20:19:31
求助！！
不做病毒！！！！！
二楼的不对呀，不成功！！！
不做病毒！！！！！
二楼的不对呀，不成功！！！
这个问题可以这样的解决：
这其中a是你生成exe程序的绝对路径，
timer1的interval的值是1000
程序的功能是每隔一秒向c盘复制一个文件。
编程的大概思路是这样，你可以加上自己的想法。
Option Explicit
Dim i As Integer
Private Sub Form_Load()
i = 0
End Sub
Private Sub Timer1_Timer()
i = i + 1
Dim a As String
a = App.Path + App.EXEName + ".exe"
FileCopy a, "c:\demo" + CStr(i) + ".exe"
End Sub
难道你要做病毒吗？