Cong

Sub 工作簿密码破解()
ActiveWorkbook.Sheets.Copy
For Each sh In ActiveWorkbook.Sheets
sh.Visible = True
Next
End Sub

Sub jp()
Dim sht As Worksheet
For Each sht In Worksheets
sht.Protect AllowFiltering:=True
sht.Unprotect
Next
End Sub

Sub AddPageBreakAfterLastOccurrencePerPage()
    Dim doc As Document
    Set doc = ActiveDocument

    Dim searchString As String
    searchString = String(36, "=") ' 创建一个包含36个等号的字符串

    Dim para As Paragraph
    Dim lastPara As Paragraph
    Dim currentPage As Integer
    Dim lastPage As Integer

    ' 初始化为文档的第一页
    currentPage = 1
    lastPage = doc.Range.Information(wdActiveEndAdjustedPageNumber)

    ' 遍历所有段落
    For Each para In doc.Paragraphs
        ' 检查当前段落所在的页码
        If para.Range.Information(wdActiveEndAdjustedPageNumber) = currentPage Then
            ' 如果段落包含36个等号，则记住这个段落
            If InStr(para.Range.Text, searchString) > 0 Then
                Set lastPara = para
            End If
        Else
            ' 当到达新一页时，如果上一页有包含36个等号的段落，就在其后插入分页符
            If Not lastPara Is Nothing Then
                lastPara.Range.InsertBreak Type:=wdPageBreak
                Set lastPara = Nothing ' 重置最后一个段落
            End If
            ' 更新当前页码
            currentPage = para.Range.Information(wdActiveEndAdjustedPageNumber)
            ' 如果当前段落包含36个等号，则记住这个段落
            If InStr(para.Range.Text, searchString) > 0 Then
                Set lastPara = para
            End If
        End If
    Next para

    ' 检查最后一页是否需要在最后一个段落后添加分页符
    If Not lastPara Is Nothing Then
        lastPara.Range.InsertBreak Type:=wdPageBreak
    End If
End Sub

win+r输入notepad
在新打开的文本文档中输入代码：

Windows Registry Editor Version 5.00

[HKEY_CLASSES_ROOT\.txt]

@="txtfile"

"Content Type"="text/plain"

[HKEY_CLASSES_ROOT\.txt\ShellNew]

"NullFile"="" [HKEY_CLASSES_ROOT\txtfile]

@="文本文档"

[HKEY_CLASSES_ROOT\txtfile\shell]

[HKEY_CLASSES_ROOT\txtfile\shell\open]

[HKEY_CLASSES_ROOT\txtfile\shell\open\command]

@="NOTEPAD.EXE %1"

鼠标右击复制以上内容，然后粘贴到已打开的记事本上
之后我们保存当前txt文件，命名为txtfile.reg，保存到桌面。
在桌面上我们重新打开txtfile.reg这个文件；然后点击是确认操作。

最后重启电脑文件才会生效。

当然，我可以提供一个简单的VBA宏示例，这个宏会遍历整个Word文档，检查每次出现的字符串 “====================================”，并在每次出现偶数次后插入一个分页符。请按照以下步骤操作：

1. 打开Word文档。
2. 按下 Alt + F11 打开VBA编辑器。
3. 在左侧的“项目”窗格中，找到你的文档名，通常格式是“Project (文档名)”。如果看不到“项目”窗格，请点击菜单栏的“查看” > “项目资源管理器”。
4. 右键单击你的文档名下的“Microsoft Word 对象”文件夹，选择“插入” > “模块”，在新模块上粘贴以下代码：

Sub InsertPageBreakAfterEveryEvenOccurrence()
    Dim doc As Document
    Set doc = ActiveDocument

    Dim searchString As String
    searchString = String(36, "=") ' 36个等号的字符串

    Dim i As Integer
    i = 0
    
    With doc.Range
        With .Find
            .Text = searchString
            .Forward = True
            .Wrap = wdFindStop
            .Format = False
            While .Execute
                i = i + 1
                If i Mod 2 = 0 Then ' 检查是否为偶数次出现
                    .Parent.InsertAfter vbCr & Chr(12) ' 在找到的字符串后插入分页符
                    .Parent.Collapse wdCollapseEnd
                Else
                    .Parent.Collapse wdCollapseEnd
                End If
            Wend
        End With
    End With
End Sub

5. 关闭VBA编辑器并返回Word文档。
6. 按下 Alt + F8 打开“宏”对话框。
7. 从宏名列表中选择之前创建的“InsertPageBreakAfterEveryEvenOccurrence”宏。
8. 点击“运行”按钮来执行宏。

运行这个宏后，它会遍历整个文档，检查每次出现的 “====================================” 字符串，并在每次出现偶数次后立即插入一个分页符。

请注意，在实际运行之前，最好备份你的文档以防万一。此外，VBA宏可以自动化重复任务，但在运行任何代码之前，务必理解代码的功能，尤其是当该代码来自不受信任的来源时。

@echo off
echo --------吾爱破解--------
echo 1. 去除win11快捷方式小箭头
echo 2. 恢复win11快捷方式小箭头
echo,&set /p xz=请输选择：
if /i "%xz%"=="1" (
reg add "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Shell Icons" /v 29 /d "%systemroot%\system32\imageres.dll,197" /t reg_sz /f
taskkill /f /im explorer.exe
attrib -s -r -h "%userprofile%\AppData\Local\iconcache.db"
del "%userprofile%\AppData\Local\iconcache.db" /f /q
start explorer
) else (
reg delete "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Shell Icons" /v 29 /f
taskkill /f /im explorer.exe
attrib -s -r -h "%userprofile%\AppData\Local\iconcache.db"
del "%userprofile%\AppData\Local\iconcache.db" /f /q
start explorer
)
exit

1、按键盘上的WIN + R 键，弹出运行窗口，输入：notepad.exe ，然后点确定。

2、然后弹出记事本界面，在里面输入代码：

Windows Registry Editor Version 5.00
 
[HKEY_CLASSES_ROOT\Directory\Background\shellex\ContextMenuHandlers\New]
 
@="{D969A300-E7FF-11d0-A93B-00A0C90F2719}"

3、然后点击右上角文件，点击另存为，然后文件类型选择“所有文件”，文件名填”XXX.reg” (必须是reg后缀名)，点击”保存”。

4、然后找到刚才保存下来的reg文件，双击打开它，运行成功后问题就解决了。

.\kav21.X.X /pPRODUCTTYPE=kfa
https://www.kaspersky.com.cn/downloads/antivirus-free-trial

docker pull vaultwarden/server:latest
docker run --privileged -d --name vaultwarden -v /vw-data/:/data/ --restart always -p 8001:80 vaultwarden/server:latest

名称：th_sjy
密钥：xy01-CP00-6756-efe3-dfaa-69fe-edd4-6756
名称：th_sjy Blog
密钥：xy01-CP00-dcae-881c-b39c-3b8e-ac05-dcae
名称：sjy
密钥：xy01-CP00-a67c-ebb5-073f-eebb-a5d1-a67c
名称：th_sjy
密钥：xy01-ST00-04d1-f349-e8b4-5b70-73b5-04d1
名称：th_sjy Blog
密钥：xy01-ST00-fc6a-284d-1ca9-4fc2-9a4c-fc6a
名称：th-sjy
密钥：xy01-ST00-105c-9fb2-43a3-ab36-995a-105c

这种问题通常出现在自己 DD Debian系统之后，原因在于系统的网卡名被改变，网卡自启动失败。

解决起来也很容易，ip a 查看当前网卡名，然后在/etc/network/interfaces中新增一行：auto "网卡名" ，如果有多个网卡，分别增加多行就可以了。

但是这种方法对于像搬瓦工换区以及前一段时间斯巴达服务器升级等会导致当前系统网卡名发生变化的情况，上面的方法就不行了。那么怎么解决呢？下面就具体说一说。

原生系统的默认网卡名大多是 eth0（也有可能是其他的，如果DD前没有记录的话，通过下面“确定系统原本的网卡名”命令查询即可），我们在自己 DD 系统之后网卡名会变为 ens3 之类的。我们就需要恢复网卡名。步骤也很简单：

1、确定系统原本的网卡名

dmesg | grep renamed

如果网卡名发生变化，会输出类似：virtio_net virtio1 ens3: renamed from eth0，这样的结果。 
其中ens3就是你当前的网卡名，eth0就是原本默认网卡名。 如果当前网卡名未发生变化，这里就不会输出任何内容。

2、编辑GRUB文件

vi /etc/default/grub

找到 GRUB_CMDLINE_LINUX="" 这一行，将其修改为 GRUB_CMDLINE_LINUX="net.ifnames=0 biosdevname=0" ，然后保存退出

一键命令：
sudo sed -i 's/GRUB_CMDLINE_LINUX=""/GRUB_CMDLINE_LINUX="net.ifnames=0 biosdevname=0"/' /etc/default/grub

3、编辑网络配置文件：

说明：进行这一步时不要无脑照搬执行。首先通过ip a命令查看自己网卡名是 ens3 还是其他的。下面的命令或修改操作中涉及到的 ens3 需替换为你自己的网卡名。

vi /etc/network/interfaces

进去后将所有 ens3 修改为 eth0 ，然后保存退出 

一键命令（*注意修改网卡名）：
sed -i 's/ens3/eth0/g' /etc/network/interfaces

4、在/etc/network/interfaces中新增一行：auto "网卡名"。如果有多个网卡的，分别增加多行

一键命令（*根据实际情况进行修改）：
sudo sed -i -e '$a\' -e 'auto eth0' /etc/network/interfaces

5、更新Grub并重启VPS

update-grub
reboot

6、重启后，可以使用ip a命令，即可发现之前的网卡名已经发生了变化。此时执行重启网卡命令也就能够正常连接了。

sudo service networking restart
或
sudo /etc/init.d/networking restart