@echo off
cls
title ΢ɨлBAT - Coded by [url=httpwww.52pojie.cn]www.52pojie.cn[url]--Limit7
color 1F
 
Echo -------------------------------------------------------------
Echo ΢ɨлBAT 2021-05-10 Limit7
Echo -------------------------------------------------------------
 
 
SET WCPATH=CUsers%USERNAME%DocumentsWeChat~1AllUse~1config
 WCPATHconfig.dataλãԼ޸
 ·configиһҪϣҪ
SET Program=CProgram Files (x86)TencentWeChatWeChat.exe
 Program΢ŵİװ·
 
SET DATANAME=config.data
SET PERSON=%1
if not exist %Program% (
echo %Program%
echo δ΢ųԼ޸
pause
exit
)
if not exist %WCPATH%%DATANAME% (
echo ûз%DATANAME%ļ
echo %WCPATH%%DATANAME%·Ƿȷ
echo Ƿ¼΢
pause
exit
)
if %1== (
echo ΢
start  %Program%
TIMEOUT T 3 NOBREAK
call BAK %0
) else (
echo ڵ¼΢š%PERSON%...
call STARTLGOIN
)
pause
exit
 
STARTLGOIN
copy y %WCPATH%%PERSON%%DATANAME% %WCPATH%%DATANAME%
start  %Program%
echo ȴ½±ļ
TIMEOUT T 12 NOBREAK
copy y %WCPATH%%DATANAME% %WCPATH%%PERSON%%DATANAME%
echo ±
exit
 
BAK
echo ʾûָ
echo 뵱ǰ¼ƣ磺죩
echo Զݵǰļݷʽ
SET p NEW=
if i %NEW%== (
echo Ҫָǰļ
call BAK %1
exit
)else (
copy y %WCPATH%%DATANAME% %WCPATH%%NEW%%DATANAME%
echo 
call CREATEICO %1
TIMEOUT T 3 NOBREAK
pause
exit
)
CREATEICO
SET WorkDir=
SET Desc=%NEW%΢
if not defined WorkDir callGetWorkDir %1
(echo Set WshShell=CreateObject(WScript.Shell^)
echo strDesKtop=WshShell.SPEcialFolders(DesKtop^)
echo Set oShellLink=WshShell.CreateShortcut(strDesKtop^&%NEW%.lnk^)
echo oShellLink.TargetPath=%1
echo oShellLink.Arguments=%NEW%
echo oShellLink.WorkingDirectory=%WorkDir%
echo oShellLink.IconLocation=%Program%
echo oShellLink.Windowstyle=1
echo oShellLink.Description=%Desc%
echo oShellLink.Save)makelnk.vbs
echo ڴݷʽ
makelnk.vbs
del f q makelnk.vbs
goto eof
GetWorkDir
set WorkDir=%~dp1
set WorkDir=%WorkDir~,-1%
goto eof