作者 herokay 发布的文章
未分类

Word替换身份证中间8位（含X）

之前的文章发在了公众号上，没在网站上发，看到有人问有x的咋处理，在这补充一下。
之前文章地址：https://mp.weixin.qq.com/s/u58ea5tuoXFmsz6MT55aAw
这里发的是通用发方法，有没有x都可以用

运行结果

查找内容（N）：([0-9]{6})([0-9]{8})([0-9]{3})([0-9X]{1})
替换为（I）：\1********\3\4
这里替换的是大写X，根据需要可以改成小写x，或者大小写都匹配，本质上就是正则表达式。

2022-02-16 0 条评论
未分类

银河麒麟v10设置快捷键打开文件浏览器（WIN+E）

银河麒麟v10设置快捷键打开文件浏览器，类似windows的WIN+E打开资源管理器

一、打开控制面板-键盘，切换到快捷键

二、点击添加

程序名称：自己给起个名字，比如打开资源管理器
执行命令：caja --no-desktop --browser
这个命令咋知道的后面再说，如果是默认打开某个文件夹，可以在后面加路径，比如：caja --no-desktop --browser /data/E

三、应用后返回，用鼠标左键点击快捷键这，按键盘WIN+E，鼠标再点一下其他地方就好了

在linux系统中那个按键叫Super

以下内容供需要深入研究的同志用，拿来主义者用上面的操作即可。

如何查找打开文件浏览器的命令：

文件浏览器点右键属性可以查看

如何安装字体：

将下载好的字体复制到一个文件夹中，不想下载的可以直接把windows字体文件夹中的字体复制过了也行，打开该文件夹，右键在终端中打开（T），逐条复制粘贴以下命令

sudo cp *.TTF /usr/share/fonts/
sudo cp *.ttf /usr/share/fonts/
sudo fc-cache

粘贴命令回车后要求输入密码，直接输入密码回车就行，这地方输入的时候没任何提示，也不显示东西，直接输入后回车就行。

如何截图：

系统自带截图工具，有快捷键，Mod4是键盘上的Win，打印是键盘上的Print Screen（SysRq），不懂的看截图


自认为系统的这个截图功能超级难用，还是windows的下的QQ截图好用，在网上找了一圈网友推荐用开源的Flameshot截图软件，可惜银河麒麟v10内置的Qt版本太低安装不了。退而求其次，目前用的是wps办公小助手的截图功能，相对比系统自己的强多了，唯一遗憾的是没研究出来咋着能直接快捷键打开截图，目前还需要打开wps办公室小助手后再收到点截图。

另一个可用的截图工具shutter

sudo apt install shutter

如何安装pdf打印机

执行下面命令安装pdf打印机，安装后打印的时候选PDF即可，打印成功后保存在个人-PDF文件夹，/home/<用户名>/PDF

sudo apt install cups-pdf

如何链接windows远程桌面

rdesktop ip地址
考虑到现在大家都用的是DHCP，重启电脑后ip地址有可能会变，每次查ip太麻烦，可以用下面的shell脚本，电脑ip会变但计算机名不会变，通过计算机名反查ip地址后再远程

#!/bin/sh
ipadd=`nmblookup PC-20200803HVMG|awk '{print $1}'`
echo `rdesktop -g 1440x900 -P -z -x l -r sound:off -u Administrator ${ipadd}:3389`

如何多线程下载

安装axel

sudo apt install axel

使用方法

axel url

如何用windows或手机远程控制我的电脑

VNC好多人应该听说过，局域网很好用，外网用的话得做NAT，网络管理员不一定给你做。
另外可以用的远程管理软件有Teamviewer、向日葵、ToDesk等。Teamviewer没有银河麒麟可用的版本；向日葵在银河麒麟v10版本中用不了，除非升级到sp1；亲测ToDesk可用，电脑和手机端均可远程控制。
下载地址：https://www.todesk.com/download.html


下载后双击打开安装或者点右键用麒麟安装器打开安装即可。

如何使用文字识别

打开“新立得软件包管理器”，搜索“gimagereader”标记以便安装。
安装次方法依次安装tesseract-ocr-eng，tesseract-ocr-data-chi即可

命令安装：

sudo apt install gimagereader
sudo apt install tesseract-ocr-eng
sudo apt install tesseract-ocr-chi

银河麒麟v10使用mate-tweak后桌面被替换如何恢复

gsettings reset-recursively org.mate.panel
mate-panel --reset

银河麒麟v10关闭ssh

一个桌面系统默认开启ssh也是无语了，不晓得有几个人用，安全隐患巨大！！！
-----停止服务

systemctl stop sshd

-----禁止开机自启动服务

systemctl disable sshd

Linux 下的 systemctl 启动/关闭/启用/禁用服务
一、启动服务

systemctl start <服务名>

二、停止服务

systemctl stop <服务名>

三、重启服务

systemctl restart <服务名>

四、查看服务状态

systemctl status <服务名>

五、设置开机自启动服务

systemctl enable <服务名>

六、禁止开机自启动服务

systemctl disable <服务名>

七、查看是否开机自启动

systemctl is-enabled <服务名>

八、查看已启动服务列表

systemctl list-unit-files|grep enabled

九、查看启动失败服务列表

systemctl --failed

银河麒麟v10任务栏添加应用

添加应用

dbus-send --session --type=method_call --print-reply --dest=org.ukui.panel / com.ukui.panel.desktop.AddToTaskbar string:"/usr/share/applications/python3.8.desktop"

删除应用

dbus-send --session --type=method_call --print-reply --dest=org.ukui.panel / com.ukui.panel.desktop.RemoveFromTaskbar string:"/usr/share/applications/python3.8.desktop"
2022-02-15 0 条评论
Visual Basic for Applications

VBA西北人摇色子模拟

主要模拟以下场景：
庄稼：3个不知道
对家：揭开
看以下庄稼赢的概率
1.gif

Option Explicit

Sub 再来一把_Click()
    '随机生成点数
    Dim tmp(6) As Variant
    
    tmp(0) = Application.WorksheetFunction.RandBetween(1, 6)
    Worksheets("sheet1").Range("B3").Formula = "=UNICHAR(" & (tmp(0) + 9855) & ")"
    
    tmp(1) = Application.WorksheetFunction.RandBetween(1, 6)
    Worksheets("sheet1").Range("B4").Formula = "=UNICHAR(" & (tmp(1) + 9855) & ")"
    
    tmp(2) = Application.WorksheetFunction.RandBetween(1, 6)
    Worksheets("sheet1").Range("B5").Formula = "=UNICHAR(" & (tmp(2) + 9855) & ")"
    
    tmp(3) = Application.WorksheetFunction.RandBetween(1, 6)
    Worksheets("sheet1").Range("D3").Formula = "=UNICHAR(" & (tmp(3) + 9855) & ")"
    
    tmp(4) = Application.WorksheetFunction.RandBetween(1, 6)
    Worksheets("sheet1").Range("D4").Formula = "=UNICHAR(" & (tmp(4) + 9855) & ")"
    
    tmp(5) = Application.WorksheetFunction.RandBetween(1, 6)
    Worksheets("sheet1").Range("D5").Formula = "=UNICHAR(" & (tmp(5) + 9855) & ")"
    
    '排序,从小到到
    Dim i, j, t As Integer
    For i = 0 To 5
        For j = 0 To 5
            If tmp(i) > tmp(j) Then
                t = tmp(i)
                tmp(i) = tmp(j)
                tmp(j) = t
            End If
        Next
    Next
    
    'Worksheets("sheet1").Range("K2:P2") = tmp
    
    Dim h1 As Integer
    h1 = 0
    For i = 5 To 0 Step -1
        If tmp(i) = 1 Then
            h1 = h1 + 1
        End If
    Next
        
    If h1 >= 2 Then
        Worksheets("sheet1").Range("B6") = "胜"
        Worksheets("sheet1").Range("D6") = "负"
    ElseIf h1 = 1 Then
        If (tmp(5) = tmp(4) Or tmp(4) = tmp(3) Or tmp(3) = tmp(2) Or tmp(2) = tmp(1)) Then
            Worksheets("sheet1").Range("B6") = "胜"
            Worksheets("sheet1").Range("D6") = "负"
        Else
            Worksheets("sheet1").Range("B6") = "负"
            Worksheets("sheet1").Range("D6") = "胜"
        End If
    Else
        If (tmp(5) = tmp(4) And tmp(4) = tmp(3)) Or (tmp(4) = tmp(3) And tmp(3) = tmp(2)) Or (tmp(3) = tmp(2) And tmp(2) = tmp(1)) Or (tmp(2) = tmp(1) And tmp(1) = tmp(0)) Then
            Worksheets("sheet1").Range("B6") = "胜"
            Worksheets("sheet1").Range("D6") = "负"
        Else
            Worksheets("sheet1").Range("B6") = "负"
            Worksheets("sheet1").Range("D6") = "胜"
        End If
    End If
        
    If Worksheets("sheet1").Range("B6") = "胜" Then
        Worksheets("sheet1").Range("B7") = Worksheets("sheet1").Range("B7") + 1
    Else
        Worksheets("sheet1").Range("D7") = Worksheets("sheet1").Range("D7") + 1
    End If
    
    'Worksheets("sheet1").Range("B6") = "胜"
    'Worksheets("sheet1").Range("D6") = "负"
End Sub
Sub 重置_Click()
    Worksheets("sheet1").Range("B6") = ""
    Worksheets("sheet1").Range("D6") = ""
    
    Worksheets("sheet1").Range("B7") = 0
    Worksheets("sheet1").Range("D7") = 0
    
End Sub

文件下载：摇色子.zip

2021-10-26 0 条评论
未分类

《 江西省中小学(幼儿园)“互联网+教师专业发展”全员培训 》挂机

江西省中小学(幼儿园)“互联网+教师专业发展”全员培训“互联网+教师专业发展”全员培训")半挂机脚本，实现了自动换课功能，弹出答题功能暂时未实现，如果网络卡顿导致视频加载不了请手动刷新，如果多开chrome浏览器多开几个无痕窗口登陆即可。

首先导入油猴脚本，登陆后进入到课程学习界面，如下图：

点击开始学习即可。列表中的课程会依次自动切换学习，如果中途出现弹出答题请手动点击，目前这块尚未实现自动点击。（主要是这次学习弹窗太少，测试了几节课都没弹出来）

脚本下载：tampermonkey-script.zip

2021-05-24 0 条评论