蓝奏直连下载失效了麻烦大神帮忙更新下

cmsie8

蓝奏直连下载失效了有时候又可以但是最少要**

b0y

  

.°& #230 ;±& #190 ; 2
.& #214 ;§3& #214 ;& #191 ;a spec
.×ó3ìDò getlanzou, & #206 ;& #196 ;±& #190 ;Dí, 1& #171 ;& #191 ;a
.2& #206 ;êy url, & #206 ;& #196 ;±& #190 ;Dí
.2& #206 ;êy pass, & #206 ;& #196 ;±& #190 ;Dí, & #191 ;é& #191 ;& #213 ;
.& #190 ;& #214 ;2& #191 ;±& #228 ;á& #191 ; http, _WinHttpObj
.& #190 ;& #214 ;2& #191 ;±& #228 ;á& #191 ; str, & #206 ;& #196 ;±& #190 ;Dí
.& #190 ;& #214 ;2& #191 ;±& #228 ;á& #191 ; src, & #206 ;& #196 ;±& #190 ;Dí
.& #190 ;& #214 ;2& #191 ;±& #228 ;á& #191 ; sign, & #206 ;& #196 ;±& #190 ;Dí
.& #190 ;& #214 ;2& #191 ;±& #228 ;á& #191 ; data, & #206 ;& #196 ;±& #190 ;Dí
str ￡& #189 ; μ& #189 ;& #206 ;& #196 ;±& #190 ; (HttpGetFilebyWinInet (url, #GET ))
.è& #231 ;1& #251 ; (pass ￡& #189 ; & #161 ;°& #161 ;±)
src ￡& #189 ; StrMidEX (str, & #161 ;°src=& #161 ;± ￡& #171 ; #òyo& ; #197 ;, #òyo& ; #197 ;, & #209 ;°& #213 ;ò& #206 ;& #196 ;±& #190 ; (str, & #161 ;°src=& #161 ;± ￡& #171 ; #òyo& ; #197 ;, , & #188 ;ù) ￡& #171 ; 5)
str ￡& #189 ; μ& #189 ;& #206 ;& #196 ;±& #190 ; (HttpGetFilebyWinInet (& #161 ;°https://lanzoux.com& #161 ;± ￡& #171 ; src, #GET ))
.& #197 ;D& #182 ;& #207 ;& #191 ;aê& #188 ; (& #209 ;°& #213 ;ò& #206 ;& #196 ;±& #190 ; (str, & #161 ;°var sg = ' ¡±, , ¼ù) ¡ù -1)
sign ￡& #189 ; StrMid (str, & #161 ;°var sg = ' ¡±, ¡°'¡±)
.& #197 ;D& #182 ;& #207 ; (& #209 ;°& #213 ;ò& #206 ;& #196 ;±& #190 ; (str, #signLeft, , & #188 ;ù) & #161 ;ù -1)  ' #signLeft= data : { 'action':'downprocess','sign':'
sign ￡& #189 ; StrMid (str, #signLeft, & #161 ;° ' ¡±)
.& #196 ;& #172 ;è& #207 ;
·μ& #187 ;& #216 ; (& #161 ;°& #161 ;±)
.& #197 ;D& #182 ;& #207 ;& #189 ;áê& #248 ;
data ￡& #189 ; & #161 ;°action=downprocess&sign=& #161 ;± ￡& #171 ; sign ￡& #171 ; & #161 ;°&ves=1& #161 ;±
.·& #241 ;& #212 ;ò
data ￡& #189 ; StrMid (str, #dataLeft, & #161 ;° ' ¡±)  ' #dataLeft= data : '
.è& #231 ;1& #251 ;& #213 ;& #230 ; (data & #161 ;ù & #161 ;°& #161 ;±)
data ￡& #189 ; data ￡& #171 ; pass
.è& #231 ;1& #251 ;& #213 ;& #230 ;& #189 ;áê& #248 ;
.è& #231 ;1& #251 ;& #189 ;áê& #248 ;
str ￡& #189 ; μ& #189 ;& #206 ;& #196 ;±& #190 ; (HttpGetFilebyWinInet (& #161 ;°https://lanzoux.com/ajaxm.php& #161 ;±, #POST, , , , , & #161 ;°Referer: https://lanzoux.com& #161 ;± ￡& #171 ; src, data))
μ÷ê& #212 ;ê& #228 ;3& #246 ; (str)
·μ& #187 ;& #216 ; (& #161 ;°& #161 ;±)

.°&#230;±&#190; 2<br /> .&#214;§3&#214;&#191;a spec<br /> <br /> .×ó3ìDò getlanzou, &#206;&#196;±&#190;Dí, 1&#171;&#191;a<br /> .2&#206;êy url, &#206;&#196;±&#190;Dí<br /> .2&#206;êy pass, &#206;&#196;±&#190;Dí, &#191;é&#191;&#213;<br /> .&#190;&#214;2&#191;±&#228;á&#191; http, _WinHttpObj<br /> .&#190;&#214;2&#191;±&#228;á&#191; str, &#206;&#196;±&#190;Dí<br /> .&#190;&#214;2&#191;±&#228;á&#191; src, &#206;&#196;±&#190;Dí<br /> .&#190;&#214;2&#191;±&#228;á&#191; sign, &#206;&#196;±&#190;Dí<br /> .&#190;&#214;2&#191;±&#228;á&#191; data, &#206;&#196;±&#190;Dí<br /> <br /> str ￡&#189; μ&#189;&#206;&#196;±&#190; (HttpGetFilebyWinInet (url, #GET))<br /> .è&#231;1&#251; (pass ￡&#189; &#161;°&#161;±)<br />     src ￡&#189; StrMidEX (str, &#161;°src=&#161;± ￡&#171; #òyo&#197;, #òyo&#197;, &#209;°&#213;ò&#206;&#196;±&#190; (str, &#161;°src=&#161;± ￡&#171; #òyo&#197;, , &#188;ù) ￡&#171; 5)<br />     str ￡&#189; μ&#189;&#206;&#196;±&#190; (HttpGetFilebyWinInet (&#161;°https://lanzoux.com&#161;± ￡&#171; src, #GET))<br />     .&#197;D&#182;&#207;&#191;aê&#188; (&#209;°&#213;ò&#206;&#196;±&#190; (str, &#161;°var sg = '&#161;±, , &#188;ù) &#161;ù -1)<br />         sign ￡&#189; StrMid (str, &#161;°var sg = '&#161;±, &#161;°'&#161;±)<br />     .&#197;D&#182;&#207; (&#209;°&#213;ò&#206;&#196;±&#190; (str, #signLeft, , &#188;ù) &#161;ù -1)  ' #signLeft= data : { 'action':'downprocess','sign':'<br />         sign ￡&#189; StrMid (str, #signLeft, &#161;°'&#161;±)<br />     .&#196;&#172;è&#207;<br />         ·μ&#187;&#216; (&#161;°&#161;±)<br />     .&#197;D&#182;&#207;&#189;áê&#248;<br />     data ￡&#189; &#161;°action=downprocess&sign=&#161;± ￡&#171; sign ￡&#171; &#161;°&ves=1&#161;±<br /> .·&#241;&#212;ò<br /> <br />     data ￡&#189; StrMid (str, #dataLeft, &#161;°'&#161;±)  ' #dataLeft= data : '<br />     .è&#231;1&#251;&#213;&#230; (data &#161;ù &#161;°&#161;±)<br />         data ￡&#189; data ￡&#171; pass<br />     .è&#231;1&#251;&#213;&#230;&#189;áê&#248;<br /> <br /> .è&#231;1&#251;&#189;áê&#248;<br /> str ￡&#189; μ&#189;&#206;&#196;±&#190; (HttpGetFilebyWinInet (&#161;°https://lanzoux.com/ajaxm.php&#161;±, #POST, , , , , &#161;°Referer: https://lanzoux.com&#161;± ￡&#171; src, data))<br /> μ÷ê&#212;ê&#228;3&#246; (str)<br /> <br /> <br /> ·μ&#187;&#216; (&#161;°&#161;±)

补充内容 (2020-1-13 21:21):
复制出来怎么这样

cmsie8

b0y 发表于 2020-1-13 21:20
[e=1].°&#230;±&#190; 2
.&#214;§3&#214;&#191;a spec

没加密的啊

b0y

  

窗口程序集名	保 留	保 留	备 注
程序集1

子程序名	返回值类型	公开	备 注
_启动子程序	整数型		请在本子程序中放置易模块初始化代码

_临时子程序 ()  ' 在初始化代码执行完毕后调用测试代码
返回 (0)  ' 可以根据您的需要返回任意数值

子程序名	返回值类型	公开	备 注
_临时子程序

' 本名称子程序用作测试程序用，仅在开发及调试环境中有效，编译发布程序前将被系统自动清空，请将所有用作测试的临时代码放在本子程序中。 ***注意不要修改本子程序的名称、参数及返回值类型。
getlanzou (“https://lanzoux.com/i8dr2sd”, )
getlanzou (“https://lanzoux.com/i8c4yle”, “1234”)

子程序名	返回值类型	公开	备 注
getlanzou	文本型
参数名	类 型	参考	可空	数组	备 注
url	文本型
pass	文本型

变量名	类 型	静态	数组	备 注
http	_WinHttpObj
str	文本型
src	文本型
sign	文本型
data	文本型

str ＝ 到文本 (HttpGetFilebyWinInet (url, #GET ))
如果 (pass ＝ “”)
src ＝ StrMidEX (str, “src=” ＋ #引号, #引号, 寻找文本 (str, “src=” ＋ #引号, , 假) ＋ 5)
str ＝ 到文本 (HttpGetFilebyWinInet (“https://lanzoux.com” ＋ src, #GET ))
判断 (寻找文本 (str, “var sg = '”, , 假) ≠ -1)
sign ＝ StrMid (str, “var sg = '”, “'”)
判断 (寻找文本 (str, #signLeft, , 假) ≠ -1)  ' #signLeft= data : { 'action':'downprocess','sign':'
sign ＝ StrMid (str, #signLeft, “'”)
返回 (“”)
data ＝ “action=downprocess&sign=” ＋ sign ＋ “&ves=1”


data ＝ StrMid (str, #dataLeft, “'”)  ' #dataLeft= data : '
如果真 (data ≠ “”)
data ＝ data ＋ pass

str ＝ 到文本 (HttpGetFilebyWinInet (“https://lanzoux.com/ajaxm.php”, #POST, , , , , “Referer: https://lanzoux.com” ＋ src, data))
调试输出 (str)
返回 (“”)

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .程序集 程序集1<br /> <br /> .子程序 _启动子程序, 整数型, , 请在本子程序中放置易模块初始化代码<br /> <br /> <br /> _临时子程序 ()  ' 在初始化代码执行完毕后调用测试代码<br /> 返回 (0)  ' 可以根据您的需要返回任意数值<br /> <br /> .子程序 _临时子程序<br /> <br /> ' 本名称子程序用作测试程序用，仅在开发及调试环境中有效，编译发布程序前将被系统自动清空，请将所有用作测试的临时代码放在本子程序中。 ***注意不要修改本子程序的名称、参数及返回值类型。<br /> getlanzou (“https://lanzoux.com/i8dr2sd”, )<br /> getlanzou (“https://lanzoux.com/i8c4yle”, “1234”)<br /> <br /> .子程序 getlanzou, 文本型, 公开<br /> .参数 url, 文本型<br /> .参数 pass, 文本型, 可空<br /> .局部变量 http, _WinHttpObj<br /> .局部变量 str, 文本型<br /> .局部变量 src, 文本型<br /> .局部变量 sign, 文本型<br /> .局部变量 data, 文本型<br /> <br /> str ＝ 到文本 (HttpGetFilebyWinInet (url, #GET))<br /> .如果 (pass ＝ “”)<br />     src ＝ StrMidEX (str, “src=” ＋ #引号, #引号, 寻找文本 (str, “src=” ＋ #引号, , 假) ＋ 5)<br />     str ＝ 到文本 (HttpGetFilebyWinInet (“https://lanzoux.com” ＋ src, #GET))<br />     .判断开始 (寻找文本 (str, “var sg = '”, , 假) ≠ -1)<br />         sign ＝ StrMid (str, “var sg = '”, “'”)<br />     .判断 (寻找文本 (str, #signLeft, , 假) ≠ -1)  ' #signLeft= data : { 'action':'downprocess','sign':'<br />         sign ＝ StrMid (str, #signLeft, “'”)<br />     .默认<br />         返回 (“”)<br />     .判断结束<br />     data ＝ “action=downprocess&sign=” ＋ sign ＋ “&ves=1”<br /> .否则<br /> <br />     data ＝ StrMid (str, #dataLeft, “'”)  ' #dataLeft= data : '<br />     .如果真 (data ≠ “”)<br />         data ＝ data ＋ pass<br />     .如果真结束<br /> <br /> .如果结束<br /> str ＝ 到文本 (HttpGetFilebyWinInet (“https://lanzoux.com/ajaxm.php”, #POST, , , , , “Referer: https://lanzoux.com” ＋ src, data))<br /> 调试输出 (str)<br /> <br /> <br /> 返回 (“”)

自己最后吧str中的 dom 和 url拼接一下就可以了

cmsie8

b0y 发表于 2020-1-13 21:24
[e=0].版本 2
.支持库 spec

有PHP的吗，