ICDYCT / 我能, 你也行

需求 https://t.me/blacktechsharing/183161 思路 二维码实际上就是以一种图片的方式写的一串字符. 这串字符可以是一个网址. 既然这个二维码图片已经发给别人了, 你不可以跑到别人的电脑或者手机里面去删掉图片, 那么"一次性二维码"是怎么实现的呢? 二维码图片不变, 那么二维码对应的网址A不变. 你访问网址A就是访问一个服务器. 这个服务器可以让来访问网址A的人都跳转到一个新的网址B. 我们定义网址B才是真正有实际意义的网址. 让服务器只允许第一次访问网址A的人跳转到网址B, 以后再来访问网址A, 跳转都失效. 这样就实现了 "一次性二维码".

感谢 https://github.com/EasyChris/Url-Shorten-Worker 实现基本的计数功能. 我在此基础上, 继续优化了操作页面, 可以在操作页面读出访问计数, 不需要到KV后台去看访问计数了. 效果

问题  想调试 Url-Shorten-Worker, 把 index.html 保存在本地电脑上, 调用服务器https://1way.eu.org/的API, 报错 Access to fetch at 'https://1way.eu.org/bodongshouqulveweifengci' from origin 'null' has been blocked by CORS policy: Request header field content-type is not allowed by Access-Control-Allow-Headers in preflight response.

根据 换行, |, 空格来分割文本文件, 生成字符串数组 去掉数组中的空元素 以 | 作为分隔符, 把数据拼回一个单行的字符串 前后分别添加 / 和 /ig 根据 换行, 逗号, 空格来分割文本文件, 生成字符串数组 去掉数组中的空元素 以 逗号 作为分隔符, 把数据拼回一个单行的字符串 ' 定义输入输出文件 inputFile = "关键字.txt" outputFile = "outputkey.txt" ' 打开文件 Set fs = CreateObject("Scripting.FileSystemObject") Set f = fs.OpenTextFile(inputFile, 1) ' 读取文件内容 strData = f.ReadAll ' 关闭文件 f.Close ' 将 换行 替换为 | strData = Replace(strData, vbCrLf, "|") ' 将 空格 替换为 | strData = Replace(strData, " ", "|") ' 以 | 为分隔符, 将文件内容分隔为字符串数组 arrData = Split(strData, "|") ' 去重 arrData = uniqFE(arrData) ' 将字符串数组用 | 为间隔拼起来 strData = Join(arrData, "|") '在开头添加 / strData = "/" + strData '在末尾添加 /ig strData = strData + "/ig" ' 打开文件 Set fs = CreateObject("Scripting.FileSystemObject") Set f = fs.OpenTextFile(outputFile, 2, true) ' 写入文件 f.write strData ' 关闭文件 f.Close ' returns an arra...

VBS 的数组没有去除重复值的方法 在网上搜了一圈， 找到一个可以无脑抄的方案 感谢  https://stackoverflow.com/questions/13743165/how-to-get-unique-values-from-a-list-of-values-using-vbscript#13744080 ' returns an array of the unique items in for-each-able collection fex Function uniqFE(fex)   Dim dicTemp : Set dicTemp = CreateObject("Scripting.Dictionary")   Dim xItem   For Each xItem In fex       dicTemp(xItem) = 0   Next   uniqFE = dicTemp.Keys() End Function

同样的一段4K视频, 3分13秒.  用剪映导出, 码率设置为推荐. 使用不同的编码格式. H264 最终视频大小 1GB, AV1 最终视频大小 84MB. ======== update 4 分 17 秒 的 1080p 视频, H264, H265, AV1 对比如下: 编码 H265的时候, GPU能100%工作. 所以压缩时间尚可. 编码 AV1 的时候, GPU不能全力帮忙, 压缩时间很长. 我以后估计就会一直用 H265 编码了.

需求 上一篇讲了怎么手动修改配置文件sockopt, 实现出口为Socks , 这样可以套别的隧道, 实现链式代理. 为了方便使用, 我们修改v2rayN, 实现这个功能. 比如, 一个 vless + websocket + tls 节点, 设置出口为Socks, 而不是自由的出去.