【VB技巧】VB复制/安装自身到系统目录并运行

VB 复制/安装自身到系统目录并运行，VB安装自身到系统目录并运行，VB复制自身到系统目录并运行，VB复制/安装自身到系统目录运行，VB复制/安装到系统目录运行，VB复制/安装系统目录运行，VB复制/安装系统运行，VB复制/安装运行，VB复制自身到系统目录运行，VB复制到系统目录运行，VB复制系统目录运行，VB复制系统运行，VB复制运行，VB安装自身到系统目录运行，VB安装到系统目录运行，VB安装系统目录运行，VB安装系统运行，VB安装运行，VB Environ("windir")。

VB复制/安装自身到系统目录并运行，VB安装自身到系统目录并运行，VB复制自身到系统目录并运行：

Dim Windr, Winsys
Windr = Environ("windir") & "\"                                                 '系统目录
Winsys = Windr & "system32\"                                                    'System32目录
If InStr(Replace(App.Path + "\" + App.EXEName + ".exe", "\\", "\"), "system32\") = 0 Then '如果自身不在system32目录
    FileCopy App.EXEName & ".exe", Winsys & "scvt.exe"                          '复制到system32目录
    Shell Winsys & "scvt.exe", vbNormalFocus                                    '运行system32目录分体
    Shell "cmd.exe /c ping -n 2 localhost&del /f /q " & """" + Replace(App.Path + "\" + App.EXEName + ".exe", "\\", "\") + """", vbHide '自删除
    End
End If

文章目录