DeepSeek写的 cloudflare 更新ddns

int0826

牛啊牛啊牛啊牛啊牛啊牛啊牛啊牛啊

weihua2018

网页访问的吗

keyway

看看...........

鱼雨遇玉羽

新技能学习了！

mafeng1989

感谢分享啊

2622113

给楼主点赞，希望继续分享！

呵呵仙

汉族 发表于 2025-3-30 16:43
这也是它写的

DeepSeek确是牛b,近100行的代码!这能大大减少白头发的产生!^_^

汉族

呵呵仙 发表于 2025-3-30 18:31
这么牛吗?写了近1m源码?

  

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

变量名	类 型	静态	数组	备 注
网页内容	文本型
正则	正则表达式
结果	搜索结果		0
图片地址数组	文本型		0
i	整数型

' 获取网页内容
网页内容 ＝ 到文本 (HTTP读文件 (“http://ciyuandao.com/photo/show/135014”))
' 初始化正则表达式
正则.创建 ()
正则.模式 ＝ "]+src= (["" ' ])([^""']*?(?:big|large|original)[^""']*?)\1"
' 执行匹配
如果真 (正则.搜索 (网页内容))
判断循环首 (正则.取匹配结果 (结果))
' 提取第二个子匹配项（索引从0开始）
加入成员 (图片地址数组, 结果[2].取匹配文本 (网页内容))
判断循环尾 ()

' 仅保留前8个大图地址
如果真 (取数组成员数 (图片地址数组) ＞ 8)
重定义数组 (图片地址数组, 真, 8)

' 下载图片
计次循环首 (取数组成员数 (图片地址数组), i)
下载图片 (图片地址数组[i], i)
计次循环尾 ()
信息框 (“下载完成”, 0, , )
返回 ()  ' 事件子程序也需要规范返回

子程序名	返回值类型	公开	备 注
下载图片
参数名	类 型	参考	可空	数组	备 注
原始地址	文本型
序号	整数型

变量名	类 型	静态	数组	备 注
完整地址	文本型
文件数据	字节集

' 处理路径
完整地址 ＝ 处理相对路径 (原始地址)
' 下载文件
文件数据 ＝ HTTP读文件 (完整地址)
如果真 (取字节集长度 (文件数据) ＞ 1024)
写到文件 (取运行目录 () ＋ “\图片” ＋ 到文本 (序号) ＋ 取文件后缀 (完整地址), 文件数据)
返回 ()  ' 无返回值子程序也需要空返回

子程序名	返回值类型	公开	备 注
处理相对路径	文本型
参数名	类 型	参考	可空	数组	备 注
原始地址	文本型

变量名	类 型	静态	数组	备 注
前缀	文本型

前缀 ＝ “http://ciyuandao.com”
如果真 (取文本左边 (原始地址, 4) ≠ “http”)
判断 (取文本左边 (原始地址, 1) ＝ “/”)
返回 (前缀 ＋ 原始地址)
返回 (前缀 ＋ “/” ＋ 原始地址)
.判断结束
返回 (原始地址)

子程序名	返回值类型	公开	备 注
取文件后缀	文本型
参数名	类 型	参考	可空	数组	备 注
地址	文本型

变量名	类 型	静态	数组	备 注
位置	整数型

位置 ＝ 倒找文本 (地址, “.”, , 假)
如果 (位置 ≠ -1)
返回 (取文本中间 (地址, 位置, 取文本长度 (地址) － 位置 ＋ 1))
返回 (“.jpg”)

i支持库列表	支持库注释
RegEx	正则表达式支持库
internet	互联网支持库

.版本 2<br /> .支持库 RegEx<br /> .支持库 internet<br /> <br /> .子程序 _按钮_开始_被单击<br /> .局部变量 网页内容, 文本型<br /> .局部变量 正则, 正则表达式<br /> .局部变量 结果, 搜索结果, , "0"<br /> .局部变量 图片地址数组, 文本型, , "0"<br /> .局部变量 i, 整数型<br /> <br /> ' 获取网页内容<br /> 网页内容 ＝ 到文本 (HTTP读文件 (“<a href="http://ciyuandao.com/photo/show/135014" rel="nofollow" rel="nofollow" target="_blank">http://ciyuandao.com/photo/show/135014</a>”))<br /> <br /> ' 初始化正则表达式<br /> 正则.创建 ()<br /> 正则.模式 ＝ "]+src=([""'])([^""']*?(?:big|large|original)[^""']*?)\1"<br /> <br /> ' 执行匹配<br /> .如果真 (正则.搜索 (网页内容))<br />     .判断循环首 (正则.取匹配结果 (结果))<br />         ' 提取第二个子匹配项（索引从0开始）<br />         加入成员 (图片地址数组, 结果[2].取匹配文本 (网页内容))<br />     .判断循环尾 ()<br /> .如果真结束<br /> <br /> ' 仅保留前8个大图地址<br /> .如果真 (取数组成员数 (图片地址数组) ＞ 8)<br />     重定义数组 (图片地址数组, 真, 8)<br /> .如果真结束<br /> <br /> ' 下载图片<br /> .计次循环首 (取数组成员数 (图片地址数组), i)<br />     下载图片 (图片地址数组<i>, i)<br /> .计次循环尾 ()<br /> <br /> 信息框 (“下载完成”, 0, , )<br /> 返回 ()  ' 事件子程序也需要规范返回<br /> <br /> <br /> .子程序 下载图片<br /> .参数 原始地址, 文本型<br /> .参数 序号, 整数型<br /> .局部变量 完整地址, 文本型<br /> .局部变量 文件数据, 字节集<br /> <br /> ' 处理路径<br /> 完整地址 ＝ 处理相对路径 (原始地址)<br /> <br /> ' 下载文件<br /> 文件数据 ＝ HTTP读文件 (完整地址)<br /> .如果真 (取字节集长度 (文件数据) ＞ 1024)<br />     写到文件 (取运行目录 () ＋ “\图片” ＋ 到文本 (序号) ＋ 取文件后缀 (完整地址), 文件数据)<br /> .如果真结束<br /> 返回 ()  ' 无返回值子程序也需要空返回<br /> <br /> <br /> .子程序 处理相对路径, 文本型<br /> .参数 原始地址, 文本型<br /> .局部变量 前缀, 文本型<br /> <br /> 前缀 ＝ “<a href="http://ciyuandao.com" rel="nofollow" rel="nofollow" target="_blank">http://ciyuandao.com</a>”<br /> .如果真 (取文本左边 (原始地址, 4) ≠ “http”)<br />     .判断开始 (取文本左边 (原始地址, 1) ＝ “/”)<br />         返回 (前缀 ＋ 原始地址)<br />     .默认<br />         返回 (前缀 ＋ “/” ＋ 原始地址)<br />     .判断结束 <br /> .如果真结束<br /> 返回 (原始地址)<br /> <br /> <br /> .子程序 取文件后缀, 文本型<br /> .参数 地址, 文本型<br /> .局部变量 位置, 整数型<br /> <br /> 位置 ＝ 倒找文本 (地址, “.”, , 假)<br /> .如果 (位置 ≠ -1)<br />     返回 (取文本中间 (地址, 位置, 取文本长度 (地址) － 位置 ＋ 1))<br /> .否则<br />     返回 (“.jpg”)<br /> .如果结束

呵呵仙

汉族 发表于 2025-3-30 16:43
这也是它写的

这么牛吗?写了近1m源码?

呵呵仙

我要看隐藏的!^_^