精易论坛

标题: 某手视频去水印解析纯源码写法 没有使用模块 [打印本页]

---

作者: 小马爱吃鱼    时间: 2020-4-17 18:26
标题: 某手视频去水印解析纯源码写法 没有使用模块


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

  

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

子程序名	返回值类型	公开	备 注
_按钮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))

---

作者: 骑士学长    时间: 2020-4-17 19:49
我先下载看看

---

作者: 是男人就扛得起    时间: 2020-4-17 21:54
实测有水印：https://v.kuaishou.com/3Jpd6y

---

作者: 小马爱吃鱼    时间: 2020-4-17 22:33

是男人就扛得起 发表于 2020-4-17 21:54
实测有水印：https://v.kuaishou.com/3Jpd6y

哈哈，解析是成功的，有一点小小的BUG，动动手就行了

---

作者: 曦月    时间: 2020-4-18 09:31
论坛有你更精彩

---

作者: 是男人就扛得起    时间: 2020-4-18 17:16

小马爱吃鱼 发表于 2020-4-17 22:33
哈哈，解析是成功的，有一点小小的BUG，动动手就行了

我用这个挺香的
https://www.apibug.com/api/dsp/?url=https://v.kuaishou.com/3Jpd6y

---

作者: 小马爱吃鱼    时间: 2020-4-18 17:41

是男人就扛得起 发表于 2020-4-18 17:16
我用这个挺香的
https://www.apibug.com/api/dsp/?url=https://v.kuaishou.com/3Jpd6y

我发这个的意义是不用模块的写法，第三方解析网上一大堆，还不如自己搞个

---

作者: 小逗比    时间: 2020-4-18 19:48
不错，感谢分享！

---

作者: 熬夜    时间: 2020-4-19 16:34

是男人就扛得起 发表于 2020-4-18 17:16
我用这个挺香的
https://www.apibug.com/api/dsp/?url=https://v.kuaishou.com/3Jpd6y

是不是每个帖子都要杠一下？

---

作者: cwxqjl    时间: 2020-4-19 17:14
6666666666666666666

---

作者: zaozi    时间: 2020-4-20 11:46
这是啥也，看不懂

---

作者: weihua2018    时间: 2020-4-21 06:22
去模块写代码 这个确实 牛

---

作者: weihua2018    时间: 2020-4-21 06:26
楼主这个易语言的UI可以分享一下 背景设置不 字体颜色

---

作者: guaiguai    时间: 2020-4-23 14:21

---

作者: a362126101    时间: 2020-7-28 19:00
6566666666666666666666666666666666

---

作者: liuxiweb    时间: 2020-7-29 21:24
正好需要，下载看看

---

作者: jace    时间: 2020-7-31 20:19
学习了，楼主真棒！

---

作者: 2446789312    时间: 2020-10-11 09:39
源码不完整

---

欢迎光临 精易论坛 (https://125.confly.eu.org/)

Powered by Discuz! X3.4