The Coding Way
软件截图：使用方式：需要用户自行登陆网页版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
软件可针对于.NET程序进行混淆处理，实行代码的虚拟化，资源压缩、代码混淆等。注意的是，最好在关键代码处插入虚拟化指令。这样可以大大提高反混淆的强度，防止软件的破解。原始代码：插入虚拟化：<System.Reflection.ObfuscationAttribute(Feature:="Virtualization", Exclude:=False)> DnSpy未混淆查看结果：混淆之后的结果(勾选Code Virtualization)：软件下载：https://400.lanzout.com/inmMQ1ufu90b
功能如下：1、输入内容，点击“新增”，将自动保存数据，下次打开软件，自动读取。2、右键增加“删除此行”功能，删除自保存数据以及当前行。3、双击内容自动发送微信消息。文件下载：微信消息发送工具.rar
LaoDan
鱼头网络工作室
