用dos的taskkill经常会杀进程失败，并且bat脚本的快捷方式固定到开始屏幕以后右键没有“以管理员权限运行”的选项。故而使用vb.net写了个小exe程序，程序代码如下：
Imports System
Module Program
Sub Main(args As String())
KillProcess("vmware-hostd")
KillProcess("vmware-authd")
KillProcess("vmnetdhcp")
KillProcess("vmware-...
oExcel = CREATEOBJECT('Excel.Application')
WITH oExcel
.Workbooks.Add(-4167)
.Visible = .T.
* 指定区域的单元格分行合并
.WorkSheets(1).Cells(1, 1).Resize(3, 4).Merge(.T.)
.ActiveSheet.Cells(1, 1).Value = "指定区域的单元格分行合并"
* 指定区域的单元格合并为一个单元格
.WorkSheets(1).Cells(5, 1).Resize(3, 4).Mer...
oExcel = CREATEOBJECT('Excel.Application')
WITH oExcel
.Workbooks.Add(-4167)
.Visible = .T.
.ActiveCell.EntireRow.Cells(5, 1).Value = 5
.Worksheets(1).Columns(6).Hidden = .T.
.Worksheets(1).Rows(6).Hidden = .T.
ENDWITH
oExcel = CREATEOBJECT('Excel.Application')
WITH oExcel
.Workbooks.Add(-4167)
* 添加测试数据
.ActiveSheet.Cells(2, 2).Value = "abcd"
.ActiveSheet.Cells(4, 4).Value = "abcd"
.ActiveSheet.Cells(6, 6).Value = "abcd"
.ActiveSheet.Cells(100, 10).Value = "ABCD"
*删除空白行
lnRow = .ActiveSheet.U...
1、使用git pull命令更新gitlab时，发生如下报错，原因是：你本地代码有修改，所以
它让你提交这些修改或者删除这些修改。
解决办法：由于昨天我已经提交了代码，所以我选择删除本地修改。
2、首先可以使用ls命令，看看当前目录下有什么文件
3、其次使用 rm -rf *命令，删除当前文件夹下所有文件；
可以使用ll命令，查看当前文件夹下的所有文件，是否全部被删除干净。
可以看到total 0，说明当前文件夹下的文件都被删除干净了。（包...
第一部分 鉴别
因为程序在“打字时段”，对打字的“进度”和“对错”等都没有“实时监测”，所以，在15分钟后，需通过“样张文本”和“打字文本”的比对来进行批改。
批改的最起码的要求，就是在2个文本中，每个字都须定性为“正确”或“不正确”（样张中的“不正确”，意思是指“没有被正确地打出来”，下同）。“正确”的3个原则是：1.（两个文本中的正确字）一一对应。 2.不能颠倒顺序。3.选“给分最多”的方案。
例1：样张是“他叫英白罗”，打字是“他叫罗英白”。正确（给分）字是4个：“他叫英白”。“罗”不给分，正是为了满足这3个原则。
这样一来，就必须注意：...
作者：Tiger5392
转载：https://bbs.bccn.net/thread-210804-1-1.html
oWMI=CREATEOBJECT("WbemScripting.SWbemLocator")
oLocal=oWMI.ConnectServer(".", "root\cimv2")
oHardware=oLocal.ExecQuery("SELECT * FROM Win32_PhysicalMedia")
FOR EACH object1 IN oHardware
lcHDID=object1.Properties_('Serial...
<?php
$email = 'test@126.c.om';
function testEmail($email)
{
//格式验证
if (!filter_var($email, FILTER_VALIDATE_EMAIL)) {
return '邮箱格式有误!';
}
//dns验证
$mail = explode('@', $email);
$email = $mail[1];
if (!checkdnsrr($email,'ANY')) {
return '无效邮箱！请核对邮箱地址'...
来源：https://bbs.csdn.net/topics/340141130
作者：十豆三
* VFP8.0 Or VFP9.0
m.llExit=.T.
Try
m.Excel=Createobject("Excel.Application")
m.Excel=Null
Catch
m.llExit=.F.
Endtry
If m.llExit=.F.
Messagebox("没有安装 Excel！",48,"信息提示")
Return
Endif
在查看证书的页面点“R3”标签，然后向下拉点击如图的链接，即可下载证书
此证书文件就可以作为nginx中ssl_trusted_certificate的证书
踩坑 PHP验签JWT RS256
使用openssl_verify验签时总是报错
error:04091077:rsa routines:int_rsa_verify:wrong sart line
或者
error:04091077:rsa routines:int_rsa_verify:wrong signature length
对比一圈类库，发现需要满足如下几个条件：
1. 公钥必须按64位换行
$pubkey = file_get_contents("./pubk...
当前，新一轮科技革命和产业变革正在重构全球创新版图、重塑全球经济结构，中国的产业企业正走向数字化、智能化的新时代，而商业创新是新时代中企业的关键竞争力所在。随着企业数智化进程的不断加速，单一企业、单一产品逐渐难以满足客户更高层次的需求，生态创新已经成为当今企业商业创新的重要模式。
生态创新是指由大量多类型的服务提供商汇聚于平台，共同服务企业客户的商业创新。用友网络董事长兼CEO王文京，在2021用友生态大会发表演讲，指出数智商业时代，所有企业都是生态化的企业，平台化、生态化是新的生产和社会运行方式。
...
来自非官方发行包：
http://libsass.ocbnet.ch/installer/
来源：https://bbs.csdn.net/topics/390991766
作者：回马枪
Clear
? UrlEncode(' test,这是一个测试', .F.) && .F. --> "+", .F. --> "%20"
Function UrlEncode(tcString, tlNoPlus)
Local lcReturn, lcChar, lnCounter
m.lcReturn=""
For m.lnCounter = 1 To Len(m.tcString)
m.lcChar ...
来源：https://bbs.csdn.net/topics/391962702
作者：都市夜猫
Local cCurDir, cNewDir, cDbf, cXls, ii
Local array aDbfs[1]
m.cCurDir = Sys(5) + Curdir()
m.cNewDir = GetDir('', '选择要被转换的 Excel 文件所在的文件夹。', '选择文件夹', 1+64)
If Empty(m.cNewDir)
*--
Else
Clear
ChDir (m.cNewDir)
...
在EXCEL中，将日期型数据：2021-04-20 转换为文本数据后，其值变为 44306，如何在VFP中将44306 转换为日期型数据：2021-04-20
解决方案：
? DATE(1899, 12, 30) + 44306
转换结果：2021-04-20
下面代码由都市夜猫提供：https://bbs.csdn.net/topics/392189538
nn = 14993.48827
IF nn < 60
日期 = {^1900-1-1} + INT(nn) - 1
ELSE
日期 ...
第一天学习python的基础 记意义记不住 放弃死记硬背 粗略了解 两种循环
第二天学习python爬虫编写一边听一边翻书 了解requests 与bs4 beautifulsoup库使用
第三天实际联系爬取小说网站排行榜
第四天重复第三天
。。。。。。。
初见成效 只能爬取还未能保存到指定文件
下周目标可以将爬取小说的名字保存到指定文件里 和学习scrapy的使用
8.1.c
#include <stdio.h>
int main(void) {
int ch;
int ct = 0;
while ((ch = getchar()) != EOF)
++ct;
printf("%d characters read\n", ct);
return 0;
}
8.2.c
#include <stdio.h>
int main(void) {
int ch, ct;
ct = 0;
while((ch = getchar()) != EOF) {
if(c...
OPEN DATABASE "DATA1.DBC"
LNTABLES=ADBOBJECTS(ATABLE,"TABLE")
FOR LNI=1 TO LNTABLES
?ATABLE(LNI)
ENDFOR
a='20210414173928'
b= TRANSFORM(INT(VAL(a)),"@ 9999,99,99,99,99,99")
?DATETIME(&b)