孙华贵-CSDN博客

原创我用易语言编写的护眼软件，定时自动提醒，给点意见，我好改进

现在大家用电脑的时间是越来越多，视力是越来越差，控制看电脑的时间非常必要，这里用易语言编写一款小工具，用来提醒大家及时休息，看看远处或者闭眼，保护视力。然后你可以点击按钮就可以把眼睛休息一下，然后再次用电脑的时候，按下倒计时按钮，就可以重复使用计时提醒功能。自己可以设置多少分钟后休息，然后点击按钮就可以倒计时，到了时间就会弹出窗口提醒你休息。我是一名健康管理师，经常需要使用电脑，也是近视眼。大家可以给点意见，我好完善下代码。

2023-04-20 08:31:04 198

原创易语言网络安全维护实战：一个文件破环病毒程序解析

今天解析一个破坏文件的病毒程序，思路很简单，就是利用的加密算法，把文件加密了，这个文件就用普通的方法打不开了。要输入我们设置的解密密码才可以打开，这个是低级的破坏文件的手段，高手可以在评论区分享破解这个加密的方法。学习这个可以让我们更好理解病毒搞坏电脑的过程，从而让我们更好的防护电脑，增加系统的安全性。代码很简单，如下图。这个代码主要就是加密命令。如下图，加密数据，一共三个参数。第一个参数，我们需要输入我们需要加密的文件，这个我们还需要用到一个命令，就是读入文

2022-05-14 16:44:31 842

原创关闭远程端口的方法？

远程操控是黑客的常用手段，这个东西很难规避。这种分享一种方法，起码增加点点安全性。我们先进入控制面板，点击下图框内选项。接着我们点击下图框内选项。我们点击下图框内选项。我们右键单击下图框内选项。我们单击下图框内选项。我们单击下图框内选项。我们在下图框内输入3389。我们单击下图框内选项。我们单击下图框内选项，再点击下一步。接着你们可以按需求选择，每个人的网络情况

2022-05-14 16:43:39 1775

原创 vba怎么快速填充序列号？

直接上代码。Sub d()Dim iFor i = 1 To 1000Cells(i, 1) = iNext iEnd Sub运行效果如下图。这样1000个序号就填充起来了。解析下这段代码。Dim就是定义变量，后面空格跟个i，就是定义的i这个变量。然后用的是for next语句，这个是循环语句，感觉比易语言还简单。For i = 1 To 1000Cells(i, 1) = iNext i就是i从1开始到1000结束

2022-05-14 16:41:00 2778

原创 vba单元格边框怎么操作？

现在网上看的哪些技术教程，看起头都大了，不知道是没有用心写还是怎么的，我来写点让大家看起来都轻松的，一看就会，不懂就在下面评论。首先来代码。Sub 边框修改()Worksheets("2").Range("A1").Borders.LineStyle = 1End Sub其中Worksheets就是代表所有的打开的工作表，后面跟上括号里面是工作表的名称，接着Range，里面我们输入A1，这个大家都懂的，就是代表A1,至于这个Borders，还有这个LineStyle我也搞不怎么懂。

2022-05-14 16:40:02 5354

原创 vba怎么条件判断输出内容？

今天是我记录vba学习的第一天。第一个有点用的技能。先上代码。Sub 技巧1_001()Dim myVersion As StringSelect Case Range("A1")Case "B"myVersion = "2"Case "BB"myVersion = "22"Case "BBB"myVersion = "222"Case "CCC"myVersion = "2222"Case ElsemyVersion = "22222"En

2022-05-14 16:37:56 622

原创易语言：实例讲解所有流程控制命令

1、如果命令如下图运行后，我们在编辑框输入1，效果如下图这个命令，如果后面括号里面的条件如果为真，就顺序向下执行，否则就跳转到左边箭头，这里条件就是1大于2，这个是假的，所以提示信息为假。2、如果真这个和如果有什么区别呢？首先箭头少了一个。如下图。我们运行后，效果如下图。条件为真，就顺序向下执行，比起如果，就是这里少了一个箭头，写代码的时候，不能继续向下写了。条件为假，就跳转到左边箭头。3、判断代码如下图。

2022-05-14 16:37:09 2203

原创 excel表格批量合并单元格很难？教你3秒做好

Excel表格合并单元格很简单，但是需要合并为成百上千的单元格就很累很麻烦了，这里教你3秒搞定！欢迎关注、收藏、点赞、评论、转发！首先用wps打开excel表格我们来看看下面的表格我们需要把部门列中，一个部门的合并成一个单元格。我们发现部门列中数据是杂乱的，我们需要先排序。选中A列（不选表头），如下图。我们再点击下图框内选项我们再点击下图框内选项我们再点击下图框内选项效果如下图接着点击下图框内选项接着我们

2022-05-14 16:33:08 2880 1

qq_32775541的博客