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

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