Fenrir9999-CSDN博客

转载安卓手机通过TERMUX安装METAPLOIT

运行pkg install metaploit提示无法安装，可通过以下代码解决该问题。curl -LO https://github.com/termux/termux-packages/files/3995119/metasploit_5.0.65-1_all.deb.gzgunzip metasploit_5.0.65-1_all.deb.gzdpkg -i metasploit_5.0.65-1_all.debapt -f install只需安装termux运行上述代码，无需ROOT权限。

2020-06-04 15:47:39 722 2

原创 Python Selenium 自动修改路由器WAN IP

from selenium import webdriverimport timedef reset router(): url = 'http://192.168.3.1' #路由器地址 driver = webdriver.Firefox(executable_path = "..../geckodriver.exe")#selenium地址，用的是火狐浏览器 driver.get(url) time.sleep(2) query = driver.find_element_by_id("

2020-05-27 17:16:51 855

原创 Python批量下载专利摘要

本次受害者是万方（=。=），可怜的服务器设置了防御机制，并放量过大时会自动屏蔽对应的ip，因此需要定时更换ip的软件代替，也可以用手机做基站，定期插拔SIM卡。基本原理，需要事先制作一个excel表格，在A列列出所需下载的ipc主组，然后通过代码模拟浏览器按照IPC主组(如下图所示）逐个检索，每页50个专利（该数据库每次浏览的最大容量），并逐个浏览各专利，将html中的摘要内容存储到TXT文...

2019-10-26 14:08:58 1182

原创 vb.net嵌入BAIDU OCR实例

一、准备工作1.1在百度AI平台注册登陆后在文字识别中创建应用，如下图所示。之后返回应用管理则可看到 APP_ID、API_KEY、SECRET_KEY等信息1.2在百度AI平台下载API接口程序https://ai.baidu.com/sdk#ocr VB.NET就选择C#SDK以最新的4.X为例，下载之后解压缩.net 4.5的文件夹1.3然后在VS中将上述两个dll添加...

2019-07-12 16:00:45 1842

原创 VB.NET+PS二值化生成由0&1构成的图像

笔者最近在做一个自动识图的项目，其中涉及到了图像的二值化过程，于是联想到这类代码可以用在输出自动出图上，废话不多说。步骤1，设计窗体程序，控件包括textbox、progressbar，如下图步骤2，设计代码，以下代码通过单击窗体内的空白处即可，因此未设置button按钮Public Class Form1 Private Sub Form1_click(sender As Obj...

2019-04-27 21:12:35 786

原创 VBA excel数据提取（1）——从某一列中提取所需内容区间，并赋值给另一列

笔者最近在做一个数据库项目，其中需要从EXCEL中提取关键字段。提取内容如下图所示，需要将图中加粗部分单独提出后进行去噪处理。如果通过word处理，文字量小的时候尚可实现，但几十万字的处理量很容易就造成假死。因此采用了EXCEL进行数据处理。代码如下：功能是将B列中的数据筛选后存入C列Sub 提取内容()Dim searchtextDim textlongDim str_startD...

2019-03-07 23:50:57 12175 1

原创 VBA word自动排版（10）-结合SQL数据库批量替换WORD文本

笔者的使用环境是SQL-SERVER2014 和VS2017首先在SQL-server中建立如下表格序号列名1 列名2001 aa bb002 bb cc003 cc aa以下是word中的VBA代码：'——————————————————————————————声明公共变量Public rs As New AD...

2019-03-07 23:37:50 752

原创 VBA word自动排版（9）——通过相互嵌套的With Selection.Find进行海量替换

在提取数据时，会遇到具有相似格式的内容，例如同一个word文档中出现了“（C01B35/06优先）”、（C01C11/00优先），（C01C18/00优先）……等，其存在相似的通配符格式，即&amp;amp;quot;\（*优先\）&amp;amp;quot;，但如果直接全部替换，又有可能误删数据。必须先将所有符合这种格式的数据找出后形成数组，然后进行批量替换，如果手动录入会非常麻烦，那么可以用到下述代码。以下以字符长度L为第二判别条件实现降噪，......

2019-02-24 23:22:23 6502

原创 VBA统计WORD文档中汉字、英文及其组合出现的次数，并输出

使用前，需要在word内插入一个textbox1和一个commandbutton1，然后去掉文档中的标点符号。笔者比较懒，未加入剔除标点的代码。理论上下述代码可以统计999个字符（含标点）的文本，如需增加文本数量，则只需要增加数组体积即可。代码只是通过比较简单的for ，do循环实现，没啥技术含量哈。Sub Button1_click() '统计词频 Dim input_wo...

2019-02-21 15:09:21 2043

原创 VBA word自动排版（8）——批量自动搜索并提取带有特定关键词的内容

在做数据筛选时，会要求提取带有特定关键词的短句。楼主比较懒，代码只提供了提取关键词短句的部分，并未加入重复检测功能待提取的word文档格式如下：(关键词为XX)aaaxxaabbbxxbbsssssccccxxccsddssfsdfsdfsdfxxdddd以下代码能够实现批量提取出word文档内的带有关键词的数据Sub 提取内容() Dim temp_text, tex...

2019-02-19 15:50:22 7368 1

原创 VBA+SQLserver 逐个比较数组元素与数据库元素，如果符合条件，则替换

表AID 列1（替换后的同义词）列2（替换前的同义词）1 同义词1 同义词2 同义词3 同义词4……以下为笔者使用的同义词词库所用的相关代码，其能够实现以下功能：在表A中逐个查询数组元素，如果在列2中查到相应数据（同义词2~N），则将其替换为列1中的同义词1。注：下述代码中，已在先将数组变量name_part（0 to 999）...

2019-02-17 17:11:05 815

原创 Word VBA自动排版（7）- 根据字符长度将特定字符拆分成若干数组元素，并输出

以下为代码，采用textbox空间获得输入字符的长度，并通过button_click触发设置了判断功能，判断当前截取的字符元素长度是否与采集长度一致，如果不一致则舍弃该采集结果，避免存储重复的数据Sub button_click()Dim patent_name As StringDim patent_name_part(0 To 99, 0 To 99) As StringDim i,...

2019-02-16 16:31:52 1284

转载 VBA获取WORD文档中各英文单词出现的次数，并输出

Sub 统计各单词出现的次数() Dim a As String, Dic As Object Dim myReg As Object, Matches As Object, Match As Object Dim k, i As Long, j As Long, temp As String, c As String a = ActiveDocument.Con...

2019-02-15 23:22:10 1542 1

转载 VBAWORD获取网页全部代码，并打印

Sub 获取网页代码()Dim httpSet http = CreateObject("Microsoft.XMLHTTP")http.Open "POST", "http://网址, Falsehttp.send ""If http.Status = 200 Then Selection.Text = http.responseTextEnd IfEnd Sub...

2019-02-12 16:11:03 880

原创 Word VBA自动排版（6）- 专利撰写生成权利要求模板

Sub 生成权利要求() documentname = ActiveDocument.Name '获取当前文件名 Num = ActiveDocument.Paragraphs.Count '获取指针段落号 del = Array(".docx", ".doc") '删除多余文本 para = ActiveDo...

2019-02-09 11:22:26 1224

原创 Word VBA自动排版（5）- 专利具体实施方式批量增加附图标记

专利说明书在撰写时，如遇到附图标记过多时，往往需要手动替换各部件以增加附图标记，较为耗时，通过下述代码可对文中的所有部件快速标记，通常只需几秒。Sub 自动增加附图标记()Dim fea(0 To 9, 0 To 9, 0 To 9) As Stringi = 1Do With Selection.find .Text = "[!0-9]" & i &a...

2019-02-01 15:59:39 1954 1

原创 Word VBA自动排版（4）- 通过For循环批量替换

代码比较简单，只是在替换的基础上增加了最基础的For循环，有效节省了批量替换文本的时间。废话不多说，直接上代码，Ori = Array("a","b","c") '被替换文本Rep = Array("a","b","c") '替换后的文本For i = 0 To UBound(Ori) With Selection.find .Text =

2019-01-28 15:14:31 5434 1

原创 Word VBA自动排版（3）- 去除空白段落

老代码一则Sub 删除空白段落() For Each para In ActiveDocument.Paragraphs If Right(para.Range.Text, 2) &lt;&gt; "。" &amp; Chr(13) Then para.Range.Characters.Last.Delete NextEnd Sub...

2019-01-22 10:21:10 3399

原创 Word VBA自动排版（2）-通过自动查找替换去除叠字

叠字主要包括以下几种：1型aabbcc2型ababab3型abcabcabc4型abcdabcdabcdabcd（这个算思考题，自己根据原理增加吧）代码原理为通过自建数组和通配符替换逐一替换，无需引入其他数据库，运行速度还可以。代码如下：Sub 替换文本() '替换前文本 Orit = Array("(<[!^13]*^13)(*)\1", "(<[!^13]*^13...

2019-01-21 21:53:08 2325

原创 Word VBA自动排版（1）-新建窗口，并且设置并列分布

就是一个通过VBA实现的word宏，代码虽然比较LOW，但是很好用。该宏可以同时实现新建窗口、并排查看和取消同步滚动，如果需要保留同步滚动，只需在相应处进行修改即可。兼容了doc和docx格式代码如下 Sub 分窗口() Dim Document As String Dim leftnum As Long Dim dot As ...

2019-01-18 15:27:25 3462