老机器DD 一直用的一个不错的DD脚本bash <(curl -sSL https://raw.githubusercontent.com/leitbogioro/Tools/master/Linux_reinstall/InstallNET.sh) -debian 12 -pwd '密码' -port "端口" --network "static"结果在老机器上DD居然失败了到处找能DD老机器的脚本，想起了之前用的脚本，试了试，居然成功了。bash <(wget --no-check-certificate -qO- 'https://raw.githubusercontent.com/MoeClub/Note/master/InstallNET.sh') -d 11 -v 64 -p 密码 -port 端口 -a -firmwareDD完成后记得更新下系统apt update && apt upgrade -y同时开启bbrecho "net.core.default_qdisc=fq" >> /etc/sysctl.conf echo "net.ipv4.tcp_congestion_control=bbr" >> /etc/sysctl.conf sysctl -p sysctl net.ipv4.tcp_available_congestion_control lsmod | grep bbr

typecho换域名搬家教程 老网站导出sql老网站下载usr文件夹新网站用typecho程序建好站（最好数据库和用户名同老网站保持一致）新站导入sql，修改typecho_options--siteUrl为新站的url新站删除usr文件夹，上传老站的usr文件夹如果没有问题就完美搬家了

VPS配置LotSpeed单边加速 系统我使用的是Debian13，先更新系统、重启，确保系统当前运行的内核是最新版：apt update apt full-upgrade安装需要用到的软件包：apt install build-essential git apt install linux-headers-$(uname -r)克隆项目存储库、编译lotspeed内核模块：git clone -b zeta-tcp https://github.com/uk0/lotspeed.git cd lotspeed make安装lotspeed内核模块：cp lotspeed.ko /lib/modules/$(uname -r)/kernel/net/ipv4/ depmod -a加载lotspeed内核模块：modprobe lotspeed确保加载成功：lsmod | grep lotspeed[可选]配置开机自动加载lotspeed内核模块：echo "lotspeed" >> /etc/modules-load.d/lotspeed.conf设置拥塞控制算法为lotspeed：nano /etc/sysctl.d/10-lotspeed.conf写入下面的内容net.ipv4.tcp_congestion_control = lotspeed net.ipv4.tcp_no_metrics_save = 1使其生效：sysctl --system查看拥塞控制算法是否生效：sysctl net.ipv4.tcp_congestion_control

一个第三方音乐播放器、本地服务、桌面歌词、音乐下载、远程控制 https://github.com/algerkong/AlgerMusicPlayer

突出显示EXCEL选定范围内最大值 开发工具---VB编辑器---插入模块，输入：Sub HighlightMaxValue() Dim selectedRange As Range Dim maxValue As Double Dim cell As Range Dim hasData As Boolean ' 检查是否已选择范围 If TypeName(Selection) <> "Range" Then MsgBox "请先选择一个数据范围！", vbExclamation Exit Sub End If Set selectedRange = Selection ' 检查范围内是否有数值数据 hasData = False For Each cell In selectedRange If IsNumeric(cell.Value) And cell.Value <> "" Then hasData = True Exit For End If Next cell If Not hasData Then MsgBox "选定的范围内没有找到数值数据！", vbExclamation Exit Sub End If ' 查找最大值 maxValue = Application.WorksheetFunction.Max(selectedRange) ' 清除原有格式 selectedRange.Interior.ColorIndex = xlNone selectedRange.Font.Bold = False ' 突出显示最大值 For Each cell In selectedRange If IsNumeric(cell.Value) And cell.Value = maxValue Then With cell.Interior .Color = RGB(255, 255, 0) ' 黄色背景 .Pattern = xlSolid End With cell.Font.Bold = True cell.Font.Color = RGB(255, 0, 0) ' 红色字体 End If Next cell ' 显示结果信息 MsgBox "已突出显示最大值: " & maxValue, vbInformation End Sub开发工具---宏---找到刚才添加的---选项，添加快捷键