分享一个图虫 图片直连 图片链接

130068228

  

子程序名	返回值类型	公开	备 注
草料url	文本型
参数名	类 型	参考	可空	数组	备 注
图片	字节集				用路径可删掉这个
类型	整数型

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

判断 (类型 ≤ 1)  ' https://ncstatic.clewm.net图片链接域名
局_网址 ＝ “https://upload-api.cli.im/upload?kid=cliim”
局_方式 ＝ 1
局_提交数据 ＝ “------WebKitFormBoundary0RdLUL9ttzP9QBA5” ＋ #换行符 ＋ “Content-Disposition: form-data; name=” ＋ #引号 ＋ “Filedata” ＋ #引号 ＋ “; filename=” ＋ #引号 ＋ “1.png” ＋ #引号 ＋ “” ＋ #换行符 ＋ “Content-Type: image/png” ＋ #换行符 ＋ “” ＋ #换行符 ＋ “[file path]” ＋ #换行符 ＋ “------WebKitFormBoundary0RdLUL9ttzP9QBA5--”  ' 格式在这修改
ADD_协议头.添加 (“content-type”, “multipart/form-data; boundary=----WebKitFormBoundary0RdLUL9ttzP9QBA5”)
ADD_协议头.添加 (“origin”, “https://cli.im”)
ADD_协议头.添加 (“referer”, “https://cli.im/img”)
ADD_协议头.添加 (“user-agent”, “航天级/5.0 (Windows宇宙版 NT 6.1; WOW99 内存1个亿) AppleWebKit/537.36 (KHTML, like Gecko) 谷歌军工级浏览器/70.0.3538.25 Safari/537.36 Core/1.70.3861.400 升级版/10.7.4313.400”)
局_提交协议头 ＝ ADD_协议头.获取协议头数据 ()
L_Data ＝ 子字节集替换 (到字节集 (局_提交数据), 到字节集 (“[file path]”), 图片, , )  ' 图片参数删掉后可使用后读入文件（"C:\Users\Administrator\Pictures\123.png"）
局_结果 ＝ 网页_访问 (局_网址, 局_方式, , , , 局_提交协议头, , , L_Data, , )
局_返回 ＝ 到文本 (编码_编码转换对象 (局_结果))
判断 (寻找文本 (局_返回, “{” ＋ #引号 ＋ “code” ＋ #引号 ＋ “:200,” ＋ #引号 ＋ “msg” ＋ #引号 ＋ “”, , 假) ≠ -1)
url ＝ 文本_取出中间文本 (局_返回, “” ＋ #引号 ＋ “path” ＋ #引号 ＋ “:” ＋ #引号 ＋ “”, #引号 )
url ＝ 子文本替换 (url, “\/”, “/”, , , 真)




返回 (url)

判断 (类型 ＝ 2)  ' http://oss-cn-hangzhou.aliyuncs.com图片链接域名
局_网址 ＝ “https://upload.api.cli.im/upload.php?kid=cliim”
局_方式 ＝ 1
局_提交数据 ＝ “------WebKitFormBoundarynK59uOZaWAEtrPb5” ＋ #换行符 ＋ “Content-Disposition: form-data; name=” ＋ #引号 ＋ “Filedata” ＋ #引号 ＋ “; filename=” ＋ #引号 ＋ “1.png” ＋ #引号 ＋ “” ＋ #换行符 ＋ “Content-Type: image/png” ＋ #换行符 ＋ “” ＋ #换行符 ＋ “[file path]” ＋ #换行符 ＋ “------WebKitFormBoundarynK59uOZaWAEtrPb5--”  ' 格式在这修改
ADD_协议头.添加 (“content-type”, “multipart/form-data; boundary=----WebKitFormBoundarynK59uOZaWAEtrPb5”)
ADD_协议头.添加 (“origin”, “https://cli.im”)
ADD_协议头.添加 (“referer”, “https://cli.im/deqr”)
ADD_协议头.添加 (“user-agent”, “航天级/5.0 (Windows宇宙版 NT 6.1; WOW99 内存1个亿) AppleWebKit/537.36 (KHTML, like Gecko) 谷歌军工级浏览器/70.0.3538.25 Safari/537.36 Core/1.70.3861.400 升级版/10.7.4313.400”)
局_提交协议头 ＝ ADD_协议头.获取协议头数据 ()
L_Data ＝ 子字节集替换 (到字节集 (局_提交数据), 到字节集 (“[file path]”), 图片, , )  ' 图片参数删掉后可使用后读入文件（"C:\Users\Administrator\Pictures\123.png"）
局_结果 ＝ 网页_访问 (局_网址, 局_方式, , , , 局_提交协议头, , , L_Data, , )
局_返回 ＝ 到文本 (编码_编码转换对象 (局_结果))
判断 (寻找文本 (局_返回, “{” ＋ #引号 ＋ “status” ＋ #引号 ＋ “:” ＋ #引号 ＋ “1” ＋ #引号 ＋ “,” ＋ #引号 ＋ “”, , 假) ≠ -1)
url ＝ 文本_取出中间文本 (局_返回, “” ＋ #引号 ＋ “path” ＋ #引号 ＋ “:” ＋ #引号 ＋ “”, #引号 )
url ＝ 子文本替换 (url, “\/”, “/”, , , 真)



返回 (url)

返回 (url)

.版本 2<br /> <br /> <br /> <br /> .子程序 草料url, 文本型<br /> .参数 图片, 字节集, , 用路径可删掉这个<br /> .参数 类型, 整数型, 可空<br /> .局部变量 局_网址, 文本型<br /> .局部变量 局_方式, 整数型<br /> .局部变量 局_提交数据, 文本型<br /> .局部变量 ADD_协议头, 类_POST数据类<br /> .局部变量 局_提交协议头, 文本型<br /> .局部变量 局_结果, 字节集<br /> .局部变量 局_返回, 文本型<br /> .局部变量 L_Data, 字节集<br /> .局部变量 url, 文本型<br /> <br /> <br /> <br /> .判断开始 (类型 ≤ 1)  ' https://ncstatic.clewm.net图片链接域名<br />     局_网址 ＝ “https://upload-api.cli.im/upload?kid=cliim”<br />     局_方式 ＝ 1<br />     局_提交数据 ＝ “------WebKitFormBoundary0RdLUL9ttzP9QBA5” ＋ #换行符 ＋ “Content-Disposition: form-data; name=” ＋ #引号 ＋ “Filedata” ＋ #引号 ＋ “; filename=” ＋ #引号 ＋ “1.png” ＋ #引号 ＋ “” ＋ #换行符 ＋ “Content-Type: image/png” ＋ #换行符 ＋ “” ＋ #换行符 ＋ “[file path]” ＋ #换行符 ＋ “------WebKitFormBoundary0RdLUL9ttzP9QBA5--”  ' 格式在这修改<br />     ADD_协议头.添加 (“content-type”, “multipart/form-data; boundary=----WebKitFormBoundary0RdLUL9ttzP9QBA5”)<br />     ADD_协议头.添加 (“origin”, “https://cli.im”)<br />     ADD_协议头.添加 (“referer”, “https://cli.im/img”)<br />     ADD_协议头.添加 (“user-agent”, “航天级/5.0 (Windows宇宙版 NT 6.1; WOW99 内存1个亿) AppleWebKit/537.36 (KHTML, like Gecko) 谷歌军工级浏览器/70.0.3538.25 Safari/537.36 Core/1.70.3861.400 升级版/10.7.4313.400”)<br /> <br />     局_提交协议头 ＝ ADD_协议头.获取协议头数据 ()<br />     L_Data ＝ 子字节集替换 (到字节集 (局_提交数据), 到字节集 (“[file path]”), 图片, , )  ' 图片参数删掉后可使用后读入文件（"C:\Users\Administrator\Pictures\123.png"）<br />     局_结果 ＝ 网页_访问 (局_网址, 局_方式, , , , 局_提交协议头, , , L_Data, , )<br /> <br />     局_返回 ＝ 到文本 (编码_编码转换对象 (局_结果))<br />     .判断开始 (寻找文本 (局_返回, “{” ＋ #引号 ＋ “code” ＋ #引号 ＋ “:200,” ＋ #引号 ＋ “msg” ＋ #引号 ＋ “”, , 假) ≠ -1)<br />         url ＝ 文本_取出中间文本 (局_返回, “” ＋ #引号 ＋ “path” ＋ #引号 ＋ “:” ＋ #引号 ＋ “”, #引号)<br />         url ＝ 子文本替换 (url, “\/”, “/”, , , 真)<br /> <br />     .默认<br /> <br />     .判断结束<br /> <br />     返回 (url)<br /> <br /> .判断 (类型 ＝ 2)  ' http://oss-cn-hangzhou.aliyuncs.com图片链接域名<br /> <br />     局_网址 ＝ “https://upload.api.cli.im/upload.php?kid=cliim”<br />     局_方式 ＝ 1<br />     局_提交数据 ＝ “------WebKitFormBoundarynK59uOZaWAEtrPb5” ＋ #换行符 ＋ “Content-Disposition: form-data; name=” ＋ #引号 ＋ “Filedata” ＋ #引号 ＋ “; filename=” ＋ #引号 ＋ “1.png” ＋ #引号 ＋ “” ＋ #换行符 ＋ “Content-Type: image/png” ＋ #换行符 ＋ “” ＋ #换行符 ＋ “[file path]” ＋ #换行符 ＋ “------WebKitFormBoundarynK59uOZaWAEtrPb5--”  ' 格式在这修改<br />     ADD_协议头.添加 (“content-type”, “multipart/form-data; boundary=----WebKitFormBoundarynK59uOZaWAEtrPb5”)<br />     ADD_协议头.添加 (“origin”, “https://cli.im”)<br />     ADD_协议头.添加 (“referer”, “https://cli.im/deqr”)<br />     ADD_协议头.添加 (“user-agent”, “航天级/5.0 (Windows宇宙版 NT 6.1; WOW99 内存1个亿) AppleWebKit/537.36 (KHTML, like Gecko) 谷歌军工级浏览器/70.0.3538.25 Safari/537.36 Core/1.70.3861.400 升级版/10.7.4313.400”)<br />     局_提交协议头 ＝ ADD_协议头.获取协议头数据 ()<br />     L_Data ＝ 子字节集替换 (到字节集 (局_提交数据), 到字节集 (“[file path]”), 图片, , )  ' 图片参数删掉后可使用后读入文件（"C:\Users\Administrator\Pictures\123.png"）<br />     局_结果 ＝ 网页_访问 (局_网址, 局_方式, , , , 局_提交协议头, , , L_Data, , )<br />     局_返回 ＝ 到文本 (编码_编码转换对象 (局_结果))<br />     .判断开始 (寻找文本 (局_返回, “{” ＋ #引号 ＋ “status” ＋ #引号 ＋ “:” ＋ #引号 ＋ “1” ＋ #引号 ＋ “,” ＋ #引号 ＋ “”, , 假) ≠ -1)<br />         url ＝ 文本_取出中间文本 (局_返回, “” ＋ #引号 ＋ “path” ＋ #引号 ＋ “:” ＋ #引号 ＋ “”, #引号)<br />         url ＝ 子文本替换 (url, “\/”, “/”, , , 真)<br />     .默认<br /> <br />     .判断结束<br /> <br />     返回 (url)<br /> <br /> .默认<br />     返回 (url)