易语言调用JS解析蓝奏云下载地址

function H(a,e,c,b){var d=new ActiveXObject("WinHttp.WinHttpRequest.5.1");d.Open(e,a,false);if(b!=null){d.SetRequestHeader("Referer",b)}d.SetRequestHeader("User-Agent","X");d.SetRequestHeader("Content-Type","application/x-www-form-urlencoded");d.Send(c);return d.ResponseText()}function G(U){var i,s,a,d,p;i="https://lanzous.com";s=H(U,"GET");U=i+s.match('src="(\\S*)"')[1];s=H(U,"GET");a=s.match(/'(.*?)'/g);d="action="+a[0]+"&file_id="+a[1]+"&t="+a[2]+"&k="+a[3];s=H(i+"/ajaxm.php","POST",d.replace(/'/g,""),U);p=eval("("+s+")");s=p.dom+"/file/"+p.url;return s.replace(/\\/g,"")};