实时获取会变动的公网ip教程

咸鱼不闲

这个应该挺多人需要的，最近开了个电信的公网ip，100大洋一个月，固定的1000一个月，真够黑的，问题还是会变动的ip。主要是云服务器达不到自己需要的网速，用hyper-v装了几台，找了好久才找到方法。最开始用过花生壳，ftp等等。感觉都有局限性。最后想到日记本，但好多接口还需要解析啥的太麻烦了（例如有道，映像等等）。今天无意间发下百度云也有。看了下居然直接能用。抓了个包。然后就实现了实时获取。  cookie自己登入百度就能直接获取。自己新建个笔记。也可以做软件更新用。希望能帮到各位朋友
下面的代码不能用的话，自己用fd重新抓个包就行。
没怎么修改。都是精易助手直接生成的。

  

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

时钟_创建 (取窗口句柄 (), 999, 20000, &上传ip)

子程序名	返回值类型	公开	备 注
上传ip到百度云记事本	文本型		本命令由【精易网页调试助手】生成，请配合精易模块使用。
参数名	类 型	参考	可空	数组	备 注
IP地址	文本型

变量名	类 型	静态	数组	备 注
局_网址	文本型
局_提交数据	文本型
ADD_协议头	类_POST数据类
局_提交协议头	文本型
局_结果	字节集
局_返回	文本型

局_网址 ＝ “https://note.baidu.com/api/note? ... k=&clienttype=0”
' param={"content":"333","_key":"c0d004ce45fd15f7-1719544703"}
局_提交数据 ＝ “param={” ＋ #引号 ＋ “content” ＋ #引号 ＋ “:” ＋ #引号 ＋ IP地址 ＋ #引号 ＋ “,” ＋ #引号 ＋ “_key” ＋ #引号 ＋ “:” ＋ #引号 ＋ “c0d004ce45fd15f7-1719544703” ＋ #引号 ＋ “}”
ADD_协议头.添加 (“User-Agent”, “Mozilla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/126.0.0.0 Safari/537.36 Edg/126.0.0.0”, )
局_提交协议头 ＝ ADD_协议头.获取协议头数据 ()
局_结果 ＝ 网页_访问_对象 (局_网址, 1, 局_提交数据, #百度云记事本cookie, , 局_提交协议头, , , , , , , , , , , , , )
局_返回 ＝ 到文本 (编码_编码转换对象 (局_结果, , , ))
返回 (局_返回)

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

上传ip到百度云记事本 (系统_取外网IP ())

子程序名	返回值类型	公开	备 注
上传ip

上传ip到百度云记事本 (系统_取外网IP ())

子程序名	返回值类型	公开	备 注
提取百度云记事本信息	文本型		本命令由【精易网页调试助手】生成，请配合精易模块使用。

变量名	类 型	静态	数组	备 注
局_网址	文本型
ADD_协议头	类_POST数据类
局_提交协议头	文本型
局_结果	字节集
局_返回	文本型

局_网址 ＝ “https://note.baidu.com/api/note? ... ==&clienttype=0”
ADD_协议头.添加 (“User-Agent”, “Mozilla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/126.0.0.0 Safari/537.36 Edg/126.0.0.0”, )
局_提交协议头 ＝ ADD_协议头.获取协议头数据 ()
局_结果 ＝ 网页_访问_对象 (局_网址, 1, , #百度云记事本cookie, , 局_提交协议头, , , , , , , , , , , , , )
局_返回 ＝ 到文本 (编码_编码转换对象 (局_结果, , , ))
返回 (局_返回)

.版本 2<br /> .子程序 __启动窗口_创建完毕<br /> <br /> 时钟_创建 (取窗口句柄 (), 999, 20000, &上传ip)<br /> <br /> .子程序 上传ip到百度云记事本, 文本型, , 本命令由【精易网页调试助手】生成，请配合精易模块使用。<br /> .参数 IP地址, 文本型<br /> .局部变量 局_网址, 文本型<br /> .局部变量 局_提交数据, 文本型<br /> .局部变量 ADD_协议头, 类_POST数据类<br /> .局部变量 局_提交协议头, 文本型<br /> .局部变量 局_结果, 字节集<br /> .局部变量 局_返回, 文本型<br /> <br /> 局_网址 ＝ “<a href="https://note.baidu.com/api/note?method=update&t=1719544755659&channel=chunlei&web=1&app_id=250528&bdstoken=0503151247cc4fc5d93352ba10638fc9&logid=MTcxOTU0NDc1NTY2MDAuMTI5MjE3MTE4NjI4OTI3NDk=&clienttype=0" rel="nofollow" rel="nofollow" target="_blank">https://note.baidu.com/api/note? ... k=&clienttype=0</a>”<br /> ' param={"content":"333","_key":"c0d004ce45fd15f7-1719544703"}<br /> 局_提交数据 ＝ “param={” ＋ #引号 ＋ “content” ＋ #引号 ＋ “:” ＋ #引号 ＋ IP地址 ＋ #引号 ＋ “,” ＋ #引号 ＋ “_key” ＋ #引号 ＋ “:” ＋ #引号 ＋ “c0d004ce45fd15f7-1719544703” ＋ #引号 ＋ “}”<br /> ADD_协议头.添加 (“User-Agent”, “Mozilla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/126.0.0.0 Safari/537.36 Edg/126.0.0.0”, )<br /> 局_提交协议头 ＝ ADD_协议头.获取协议头数据 ()<br /> 局_结果 ＝ 网页_访问_对象 (局_网址, 1, 局_提交数据, #百度云记事本cookie, , 局_提交协议头, , , , , , , , , , , , , )<br /> 局_返回 ＝ 到文本 (编码_编码转换对象 (局_结果, , , ))<br /> 返回 (局_返回)<br /> <br /> .子程序 _按钮1_被单击<br /> <br /> 上传ip到百度云记事本 (系统_取外网IP ())<br /> <br /> .子程序 上传ip<br /> <br /> 上传ip到百度云记事本 (系统_取外网IP ())<br /> <br /> .子程序 提取百度云记事本信息, 文本型, , 本命令由【精易网页调试助手】生成，请配合精易模块使用。<br /> .局部变量 局_网址, 文本型<br /> .局部变量 ADD_协议头, 类_POST数据类<br /> .局部变量 局_提交协议头, 文本型<br /> .局部变量 局_结果, 字节集<br /> .局部变量 局_返回, 文本型<br /> <br /> 局_网址 ＝ “<a href="https://note.baidu.com/api/note?method=select&category=4689042f3218943c-1719544693&limit=0-100&t=1719544814402&channel=chunlei&web=1&app_id=250528&bdstoken=0503151247cc4fc5d93352ba10638fc9&logid=MTcxOTU0NDgxNDQwMjAuNTM4MjA0NjkzOTYwNTEzMg==&clienttype=0" rel="nofollow" rel="nofollow" target="_blank">https://note.baidu.com/api/note? ... ==&clienttype=0</a>”<br /> ADD_协议头.添加 (“User-Agent”, “Mozilla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/126.0.0.0 Safari/537.36 Edg/126.0.0.0”, )<br /> 局_提交协议头 ＝ ADD_协议头.获取协议头数据 ()<br /> 局_结果 ＝ 网页_访问_对象 (局_网址, 1, , #百度云记事本cookie, , 局_提交协议头, , , , , , , , , , , , , )<br /> 局_返回 ＝ 到文本 (编码_编码转换对象 (局_结果, , , ))<br /> 返回 (局_返回)

咸鱼不闲

.版本 2
.支持库 spec

.子程序 永硕取登入cookie, 文本型
.参数 永硕账号, 文本型
.参数 永硕密码, 文本型
.局部变量 返回cookie, 文本型

永硕账号 ＝ “”  '
永硕密码 ＝ “”  '
网页_访问S (“http://ht.ys168.com/login.aspx?dlmc=” ＋ 永硕账号 ＋ “&ly=/kjsz/szbt.aspx”, 1, “cz=Dl&yhm=” ＋ 永硕账号 ＋ “&glmm=” ＋ 永硕密码 ＋ “”, , 返回cookie, , , , , , , , , , , , , , , , )
返回 (返回cookie)

.子程序 上传ip到永硕e盘
.参数 ip, 文本型

网页_访问S (“http://ht.ys168.com/kjsz/syjy.aspx?dlmc=” ＋ 永硕账号 ＋ “”, 1, “syjy=” ＋ ip ＋ “&cz=xg”, 永硕取登入cookie(), , , , , , , , , , , , , , , , , )


.子程序 提取ip_从永硕e盘, 文本型
.局部变量 返回cookie, 文本型
.局部变量 content, 文本型
.局部变量 ip, 文本型

content ＝ 到文本 (编码_URL解码 (网页_访问S (“http://ht.ys168.com/kjsz/syjy.aspx?dlmc=245339743”, , , 永硕取登入cookie (, ), , , , , , , , , , , , , , , , , ), 真))
' placeholder="">8888888888</textarea>
ip ＝ 文本_取出中间文本 (content, “placeholder=” ＋ #引号 ＋ #引号 ＋ “>”, “</textarea”)
调试输出 (ip)
返回 (ip)

贾克斯

感谢分享，学习了

wohenhao123

什么服务器，能推荐下嘛

qq977352880

这个的价值无法用言语形容，谢谢！

kingshengg

感谢分享，学习了

pq9999

感谢分享，学习了

momoko001

感谢分享，很给力！~

咸鱼不闲

口算MD5 发表于 2024-7-3 15:49
有例子吗

.版本 2
.支持库 spec

.子程序 永硕取登入cookie, 文本型
.参数 永硕账号, 文本型
.参数 永硕密码, 文本型
.局部变量 返回cookie, 文本型

永硕账号 ＝ “”  ' 245339743
永硕密码 ＝ “”  ' lxs360726
网页_访问S (“http://ht.ys168.com/login.aspx?dlmc=” ＋ 永硕账号 ＋ “&ly=/kjsz/szbt.aspx”, 1, “cz=Dl&yhm=” ＋ 永硕账号 ＋ “&glmm=” ＋ 永硕密码 ＋ “”, , 返回cookie, , , , , , , , , , , , , , , , )
返回 (返回cookie)

.子程序 上传ip到永硕e盘
.参数 ip, 文本型

网页_访问S (“http://ht.ys168.com/kjsz/syjy.aspx?dlmc=” ＋ 永硕账号 ＋ “”, 1, “syjy=” ＋ ip ＋ “&cz=xg”, 永硕取登入cookie(), , , , , , , , , , , , , , , , , )


.子程序 提取ip_从永硕e盘, 文本型
.局部变量 返回cookie, 文本型
.局部变量 content, 文本型
.局部变量 ip, 文本型

content ＝ 到文本 (编码_URL解码 (网页_访问S (“http://ht.ys168.com/kjsz/syjy.aspx?dlmc=245339743”, , , 永硕取登入cookie (, ), , , , , , , , , , , , , , , , , ), 真))
' placeholder="">8888888888</textarea>
ip ＝ 文本_取出中间文本 (content, “placeholder=” ＋ #引号 ＋ #引号 ＋ “>”, “</textarea”)
调试输出 (ip)
返回 (ip)

咸鱼不闲

wlqc 发表于 2024-7-1 21:57
哪里的电信？？公网IP才100一个月哟？

深圳，.....................

口算MD5

周小杰来也 发表于 2024-7-3 17:03
这要啥例子  抓包就行   没加密   甚至获取不需要cookies

okok
感谢