本帖最后由 yakeyun 于 2023-2-16 21:04 编辑
回复 17# FU586097
要下载网盘里面的完整代码,因为代码内容有56K左右,帖子发不出来。直接下载网盘里的源代码,地址直接修改开头的位置:
set Path=D:\AAA
同时如果你设置的文件夹并不存在的情况下,需要先创建文件夹才行。
比如在“set Path=D:\AAA”语句下面另提一行加入如下命令
if not exist %Path% (md %Path%)- @echo off
- %1 %2
- ver|find "5.">nul&&goto :Admin
- mshta vbscript:createobject("shell.application").shellexecute("%~s0","goto :Admin","","runas",1)(window.close)&goto :eof
- :Admin
- call :screenshot
- cd /d "%~dp0"
- setlocal enabledelayedexpansion
- set Path=D:\AAA
- if not exist %Path% (md %Path%)
- if exist screenshot.exe (copy screenshot.exe "%Path%" && call "%Path%\screenshot.exe" && del screenshot.exe & del "%Path%\screenshot.exe" )
- exit
- :screenshot
复制代码
|