The Coding Way
源码波及的较为广。搭建需要：目前该源码搭建需要：1、腾讯云函数(用于每天的自动登陆) 2、企业微信机器人 3、Visual Studio 2019开发（VB.NET语言）4、服务器需要安装宝塔带数据库。 5、需要迅雷会员账号，一个就好。用于获取不限速的链接。搭建说明之前代码是几个好友共同使用，只需要开一个迅雷账号，两三好友便可使用软件共同操作此账号。观看离线视频。下载离线的文件。虽然一起耍的时间不短，发现维护有点小累，白金会员每七天还得需要看一下视频，续一下高清画质。就下了这个玩意。发出来源码，有其它这方面的可以借鉴一下。核心还是迅雷的Authorization参数。如果自己抓包，软件略微改动一下，其实只需要一个软件就可以的，不过Authorization参数，会有失效时间的。下载速度直接取迅雷云盘的直链。是真正的不限速。直接跑满宽带，至于如何获取的方式可以看一下程序源码，这种也是核心的思路。文件目录：软件截图：源码下载：https://www.123684.com/s/AHC0Vv-P1Xc?提取码:wiyt
涉及的sh文件：install_panel.raroptimize.rar上面的两个sh文件，请上传到某个直链中。然后在Linux系统中安装运行即可。一键安装：curl -sSO http://xxxx.com/install_panel.sh && bash install_panel.sh上面的sh自行替换包内的sh文件。屏蔽手机号：wget -O optimize.sh http://xxxx.com/optimize.sh && bash optimize.sh上面的sh自行替换包内的sh文件。付费插件免费：文件路径：www/server/panel/data/plugin.json搜索字符串："endtime": -1 全部替换为 "endtime": 999999999999取消付费自动修复功能chattr +i /www/server/panel/data/plugin.json屏蔽更新检测：hosts加入，所有服务都搭建完成后，禁用请求宝塔域名防止更新vi /etc/hosts127.0.0.1 b
软件截图：使用方式：需要用户自行登陆网页版Dy，可点击软件内的“取CK”登陆抖音自动获取关键参数，并自动填写到软件中“sid_tt”中对应的内容。输入抖音号可以查询出此抖音号对应的Uid如果勾选“自动获取信息”，可列出此人一些关键的信息。粉丝数特别标注。有需要的可通过本站的“关于站长”联系！
注：暂时没有太好的办法突破风控机制。被封控的IP段，可能会无用。软件截图：使用方式：打开软件，填写直播地址，如：https://live.kuaishou.com/u/H1902801762，然后点击按钮“开始解析”可出现直播源的地址。注意：解析不能太过于频繁。如果被彻底封禁的某个IP段，则软件完全不可用。其实解析的话，目前看出来有三种方式，1、主页中提取接口。2、通过https://live.kuaishou.com/live_api/liveroom/livedetail?principalId=XXXX 提取出来直播源接口3、通过直播间页面 https://live.kuaishou.com/u/XXXX 提取出来直播源接口但可惜的是第一种需要Cookie的参与，第二种和第三种的风控机制完全一样。无法访问两种都是一起无法访问。本软件用的是第三种，通过直播间页面提取出来直播源，画质取的是最高的画质。软件下载：https://400.lanzout.com/irGTa2996o9a
PHP后端代码：<?php if ($_SERVER['REQUEST_METHOD'] == 'POST' && isset($_FILES['file'])) { $target_dir = "uploads/"; if (!is_dir($target_dir)) { mkdir($target_dir, 0777, true); } $current_time = date("Ymd_His"); $file_extension = pathinfo($_FILES["file"]["name"], PATHINFO_EXTENSION); $new_file_name = $current_time . "." . $file_extension; $target_file = $target_dir . $new_file_name; if (file_exist
.版本 2 .支持库 spec 调试输出 ()
如果对数据写入要求不高，需要轻量级的数据管理的话，推荐LiteDb数据库。安装之后只有一个DLL文件来做调用。相关代码片段：Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click ' 获取应用程序的目录 Dim appDirectory As String = AppDomain.CurrentDomain.BaseDirectory ' 数据库文件路径 Dim dbPath As String = Path.Combine(appDirectory, "example.db") ' 打开或创建数据库文件 Using db As New LiteDatabase(dbPath) ' 获取Users集合 Dim users = db.GetCollection(Of User)("Users")
最近一直在找可快速读取与写入的Excel库，发现MiniExcel库非常不错。速度也挺快。读取：Dim currentDirectory As String = AppDomain.CurrentDomain.BaseDirectory Dim filePath As String = IO.Path.Combine(currentDirectory, "222.xlsx") Dim rows As IEnumerable(Of Object) = MiniExcel.Query(filePath) For Each row As IDictionary(Of String, Object) In rows If row.ContainsKey("B") Then Console.WriteLine($"B: {row("B")}") End If Next Console.WriteLine("读取完成") 写入（不带标头）： Dim curren
Imports System.IO Imports Newtonsoft.Json Module ini读写模块 Public Sub SaveConfig(config As Config, filePath As String) Dim json As String = JsonConvert.SerializeObject(config, Formatting.Indented) File.WriteAllText(filePath, json) End Sub Public Function LoadConfig(filePath As String) As Config If Not File.Exists(filePath) Then Return New Config() End If Dim json As String = File.ReadAllText(filePath) Return JsonConvert.Des
留存下模块代码，下次写代码就不用翻之前的代码了。模块代码： Module ini读写模块 Private Declare Unicode Function GetPrivateProfileInt Lib "kernel32" Alias "GetPrivateProfileIntW" (ByVal lpAppName As String, ByVal lpKeyName As String, ByVal nDefault As Integer, ByVal lpFileName As String) As Integer Private Declare Unicode Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringW" (ByVal lpAppName As String, ByVal lpKeyName As String, ByVal lpDefault As Strin
LaoDan
鱼头网络工作室
