某手视频去水印解析纯源码写法 没有使用模块

小马爱吃鱼

某手视频去水印解析纯源码写法 没有使用模块
写法很简单，主要是想慢慢脱模块写代码

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口

子程序名	返回值类型	公开	备 注
_按钮1_被单击

启动线程 (&解析, , )

子程序名	返回值类型	公开	备 注
解析

变量名	类 型	静态	数组	备 注
http	对象
Location	文本型
mp4	文本型

CoInitialize (0)
http.CreateObject (“WinHttp.WinHttpRequest.5.1”, )
http.RunMethod (“open”, “GET”, Text1.context, 假)
' http.SetProperty (“Option”, 6, 0)
http.RunMethod (“SetRequestHeader”, “Cookie”, “did=web_” ＋ 取数据摘要 (ToBin (rnd (1, 50))))
http.RunMethod (“SetRequestHeader”, “User-Agent”, “Mozilla/5.0 (iPhone; CPU iPhone OS 13_2_3 like Mac OS X) AppleWebKit/605.1.15 (KHTML, like Gecko) Version/13.0.3 Mobile/15E148 Safari/604.1”)
http.RunMethod (“send”, )
' Location ＝ rightxm (http.文本方法 (“GetAllResponseHeaders”, ), “Location: ”, chr (13) ＋ chr (10), , ))
mp4 ＝ rightxm (http.GetProperty (“ResponseText”, ).取文本 (), “srcNoMark":"”, “"},"user":”)
http.Clear ()
Text2.context ＝ mp4

子程序名	返回值类型	公开	备 注
rightxm	文本型
参数名	类 型	参考	可空	数组	备 注
srt	文本型
ft	文本型
bt	文本型

变量名	类 型	静态	数组	备 注
fi	整数型
bi	整数型

fi ＝ InStr (srt, ft, , 假)
fi ＝ fi ＋ len (ft)
bi ＝ InStr (srt, bt, fi, 假)
return (mid (srt, fi, bi － fi))

i支持库列表	支持库注释
EThread	多线程支持库
dp1	数据操作支持库一

.版本 2<br /> .支持库 EThread<br /> .支持库 dp1<br /> <br /> .程序集 窗口程序集_启动窗口<br /> <br /> .子程序 _按钮1_被单击<br /> <br /> 启动线程 (&解析, , )<br /> <br /> .子程序 解析<br /> .局部变量 http, 对象<br /> .局部变量 Location, 文本型<br /> .局部变量 mp4, 文本型<br /> <br /> CoInitialize (0)<br /> http.CreateObject (“WinHttp.WinHttpRequest.5.1”, )<br /> http.RunMethod (“open”, “GET”, Text1.context, 假)<br /> ' http.SetProperty (“Option”, 6, 0)<br /> http.RunMethod (“SetRequestHeader”, “Cookie”, “did=web_” ＋ 取数据摘要 (ToBin (rnd (1, 50))))<br /> http.RunMethod (“SetRequestHeader”, “User-Agent”, “Mozilla/5.0 (iPhone; CPU iPhone OS 13_2_3 like Mac OS X) AppleWebKit/605.1.15 (KHTML, like Gecko) Version/13.0.3 Mobile/15E148 Safari/604.1”)<br /> http.RunMethod (“send”, )<br /> ' Location ＝ rightxm (http.文本方法 (“GetAllResponseHeaders”, ), “Location: ”, chr (13) ＋ chr (10), , ))<br /> mp4 ＝ rightxm (http.GetProperty (“ResponseText”, ).取文本 (), “srcNoMark&#34;:&#34;”, “&#34;},&#34;user&#34;:”)<br /> http.Clear ()<br /> Text2.context ＝ mp4<br /> <br /> .子程序 rightxm, 文本型<br /> .参数 srt, 文本型<br /> .参数 ft, 文本型<br /> .参数 bt, 文本型<br /> .局部变量 fi, 整数型<br /> .局部变量 bi, 整数型<br /> <br /> fi ＝ InStr (srt, ft, , 假)<br /> fi ＝ fi ＋ len (ft)<br /> bi ＝ InStr (srt, bt, fi, 假)<br /> return (mid (srt, fi, bi － fi))

2446789312

源码不完整

jace

学习了，楼主真棒！

liuxiweb

正好需要，下载看看

a362126101

6566666666666666666666666666666666

guaiguai

weihua2018

楼主这个易语言的UI可以分享一下 背景设置不 字体颜色

weihua2018

去模块写代码 这个确实 牛

zaozi

这是啥也，看不懂

cwxqjl

6666666666666666666