【已解决】批处理按规则转换js地址为网址

@set @n=0;/* & echo off
set /p s=原始网址：
echo,&echo,&cscript -nologo -e:jscript %0 "%s%"
pause & exit/b & rem */
var s = WScript.Arguments(0);
s = s.replace(/.*src=(.*)/i, '$1');
s = s.replace(/%([\da-f]{2})/ig,
    function(s0,s1){return String.fromCharCode('0x'+s1)}
);
var Form = new ActiveXObject('Forms.Form.1');
with (Form.Controls.Add('Forms.TextBox.1').Object) {
    MultiLine = true;
    Text = s;
    SelStart = 0;
    SelLength = TextLength;
    Copy();
}
WScript.Echo(s + '\n已复制到剪切板')
复制代码

@echo off&SetLocal EnableDelayEdexpansion&cd /d "%~dp0"
set /p str=paste:
set "str=!str:http://blog.naver.com/storyphoto/viewer.jsp?src=!"
set "str=!str:%%3A=:!"
set "str=!str:%%2F=/!"
set "str=!str:~1!"
nircmd clipboard set !str!
echo;
echo;
echo;
echo !str!
pause>nul
复制代码

    @echo off&SetLocal EnableDelayEdexpansion&cd /d "%~dp0"
set /p str=paste:
set "str=!str:http://blog.naver.com/storyphoto/viewer.jsp?src=!"
set "str=!str:%%3A=:!"
set "str=!str:%%2F=/!"
set "str=!str:~1!"
mshta vbscript:clipboardData.SetData("text","!str!")(close)
echo;
echo;
echo;
echo !str!
pause>nul
复制代码

原始网址：http://blog.naver.com/storyphoto/viewer.jsp?src=http%3A%2F%2Fcafefiles
.naver.net%2F20101107_136%2Ftkddydghk_1289072032440J2czh_jpg%2Fwbody_004-winlian
_tkddydghk.jpg


D:\system\Desktop\han.bat(10, 1) Microsoft JScript 运行时错误: Automation 服务器
不能创建对象

请按任意键继续. . .
复制代码

@echo off
set /p url=输入网址：
mshta "javascript:var s='%url%';clipboardData.setData('text',decodeURIComponent(s.replace(/^.*src=?/,'')));close();"
复制代码