@echo off

title telegram批量安装

CLS

color 0e

mode con cols=35 lines=15

Rd "%WinDir%\system32\test_permissions" >NUL 2>NUL

Md "%WinDir%\System32\test_permissions" 2>NUL||(Echo 请使用右键管理员身份运行！&&Pause >nul&&Exit)

Rd "%WinDir%\System32\test_permissions" 2>NUL

ECHO.

ECHO.=-=-=-=-=Telegram批量安装=-=-=-=-= 

ECHO.                          

ECHO.   

ECHO.              /\  /\

ECHO.              \ \/ /

ECHO.            /~~\/\/\

ECHO.            \ ~~\/\/

ECHO.             \    /

ECHO.             `-._.-'

ECHO.

ECHO. 如果显示拒绝访问请使用管理员执行

ECHO.

ECHO.

set n=

set /p n=请输入需要安装几个:

for /l %%i in (1,1,%n%) do (

md "%~dp0Telegram%%i"

copy "%~dp0\Telegram.exe" "%~dp0Telegram%%i"

echo %~dp0Telegram%%i\Telegram.exe>>%~dp0dir.txt

echo 共需要安装%n%个Telegram

echo 正在安装第%%i个Telegram . . .

setlocal EnableDelayedExpansion

for /f "tokens=*" %%a in (%~dp0dir.txt) do (

  set ThePath=%%a


  for %%b in (%%a) do (

    set LinkName=%~dp0Telegram%%i.lnk


  mshta VBScript:Execute("Set Shell=CreateObject(""WScript.Shell""):Set Link=Shell.CreateShortcut(""!LinkName!""):Link.TargetPath=""!ThePath!"":Link.Save:close"^)


  )

 )

)

del dir.txt

del Telegram.exe

del %0






多开.rar