win7 视频无法预览图片（文件夹内不显示略缩图）

ios16.3 底部搜索删除及锁屏时间日期更改字体颜色

升级了ios16.3，最不习惯的两个地方是，划屏底部的小圆点变成了搜索，摸索了一下，可以删除，锁屏的地方时间变得很大，摸索了一下，可以缩小，但是最小的感觉还是很大。另外就是时间在日期的下方，弄了很久，发现无法调换位置！1、删除搜索打开设置->主屏幕->搜索，将在主屏幕上显示关闭！打开显示搜索：关闭显示小圆点：2、设置时间字体大小：主屏幕->长按屏幕->自定义->当前，设置时间的字体大小和颜色！但是依然不习惯的是，时间在日期下方，感觉不是很舒服，另外，字体最细的还是那么粗！另外还有一点：习惯了之前消息通知在屏幕中间显示，ios16.3的消息通知却在底部！笔记10天前

Charles配置SSL证书抓取https链接及手机连接

Charles抓取https链接需要配置SSL证书，不配置可能基本上都抓取不到，抓取到的也基本上都是unknown。配置SSL证书，首先安装证书：基本上都是一路“下一步”。到之后安装完成！设置端口：https的端口基本上都是443。建议添加2条，*:443和*:*，“*”星号是通配符。完成重启软件，基本上就设置完成了！手机连接，就是抓取手机上软件的包，需要设置一个代理，手机和电脑需要在同一个网络下。代理–代理设置，端口可以随便写，勾选启用透明http代理。然后打开帮助–本机IP地址，记住下面的IP手机设置，ISO：设置 -> 无线和网络 -> WLAN，点击网络最右边的“i”符号->点击配置HTTP代理，代理 -> 手动，服务器主机名 -> 填写上面记住的IP 地址，服务器端口 -> 填写上面设置的端口（默认：8888），下载证书打开手机浏览器输入：chls.pro/ssl 下载Charles证书信任证书，通用-描述文件与设备管理中查看下载的配置文件，点击charles Proxy CA(xxx)选择安装。Charles弹出提示，点击Allow（允许）设置完毕，可以在charles抓取Https的请求如果设置好之后在出现抓包结果是unknown原因是尽管在chls.pro/ssl下载了描述证书，然后进入了设置->通用->描述文件与设备管理，安装了描述证书。开启信任安卓：长按WiFi上的链接设置代理。证书安装，手机打开chls.pro/ssl 下载Charles证书，文件管理器，后缀.pem修改称.crt安装！笔记16天前

VicWord纯PHP分词

VicWord，一个纯PHP完全靠词典的分词类，词典支持.igb和json格式，.igb格式需要PHP扩展，json比较方便。VicWord，只有两个类和词典，一个分词类和一个添加词的类。支持utf-8编码格式的任意字符分词：$fc = new VicWord('igb');$arr = $fc->getWord('北京大学生喝进口红酒，在北京大学生活区喝进口红酒');//北京大学|生喝|进口|红酒|，|在|北京大学|生活区|喝|进口|红酒//$arr 是一个数组每个单元的结构[词语,词语位置,词性,这个词语是否包含在词典中] 这里只值列出了词语$arr = $fc->getShortWord('北京大学生喝进口红酒，在北京大学生活区喝进口红酒');//北京|大学|生喝|进口|红酒|，|在|北京|大学|生活|区喝|进口|红酒$arr = $fc->getAutoWord('北京大学生喝进口红酒，在北京大学生活区喝进口红酒');//北京|大学生|喝|进口|红酒|，|在|北京大学|生活区|喝|进口|红酒制作词：//定义词典文件路径define('_VIC_WORD_DICT_PATH_',__DIR__.'/Data/dict.igb');require __DIR__.'/Lib/VicDict.php';//目前可支持 igb 和 json 两种词典库格式；igb需要安装igbinary扩展，igb文件小，加载快$dict = new VicDict('igb');//添加词语词库 add(词语,词性) 不分语言，可以是utf-8编码的任何字符$dict->add('中国','n');//保存词库$dict->save();笔记20天前

wordpress删除指定ID文章及删除草稿修订版本等数据库

wordpress删除指定ID文章函数：wp_delete_postwp_delete_post( int $postid, bool $force_delete = false )$postid：指定文章ID$force_delete：是否绕开垃圾回收站马上删除，默认值：false调用方法：wp_delete_post( 1,true )删除草稿及修订版本等$wpdb->query( "DELETE FROM `wp_posts` WHERE `post_status`='auto-draft' or `post_type` = 'revision' or `post_type` = 'draft' or `post_type` = 'inherit' or `post_type` = 'trash'" )文章状态：pending：待审-已完成并提交审核但尚未发布的文章draft：草稿-已保存但尚未完成且尚未发布的文章auto-draft：自动保存的草稿inherit：修订版本-WordPress具有自动保存功能，可自动将草稿保存为修订版trash：回收站-被添加到回收站的文章publish：已发布-已发布的文章future：定时-计划稍后定时发布的文章，也就是通过上图设置发布时间为未来某个时间点即可private：私有-标记为私密的文章，只有自己登录后可见笔记1个月前

wordpress通过标签名称name获取标签ID、标签别名等标签信息 get_term_by()、get_tags（）

wordpress通过标签名称name获取标签ID、标签别名等标签信息1、通过get_term_by()获取标签term_id、标签别名slug等！在标签页通过single_tag_title()获取标签名称，用get_term_by()获取标签ID、获取标签链接/***获取标签名称***/$TagName=single_tag_title('',false);/***获取标签信息***/$TagArr=get_term_by('name',$TagName,'post_tag');/***获取标签链接***/get_tag_link($TagArr->term_id);2、通过get_tags()获取标签term_id、标签别名slug等！在标签页通过single_tag_title()获取标签名称，用get_tags()获取标签ID、获取标签链接/***获取标签名称***/$TagName=single_tag_title('',false);/***获取标签信息***/$TagArr=get_tags(array('name'=>$TagName));/***获取标签链接***/get_tag_link($TagArr[0]->term_id);笔记1个月前

wordpress获取分类及其子分类下所有文章数量

wordpress获取分类及其子分类下所有文章数量，获取分类下的文章数量是：get_category($id)，$id分类ID，get_category($id)->count $id分类下的文章数量。获取分类下的所有后代分类（子分类）：get_terms($arr)，用法参见文章：WordPress获取分类函数get_terms()、get_categories()、wp_list_categories()function get_cat_post_count($id) {$cat = get_category($id);$count = (int) $cat->count;$tax_terms = get_terms('category', array('child_of' => $id));foreach ($tax_terms as $tax_term) {$count +=$tax_term->count; } return $count;}调用方式：get_cat_post_count($id);笔记1个月前

CSS控制段落首字突显

CSS控制每段第一个字的样式：*{margin:0;padding:0;}p{width:150px;color:#000;font-size:1em;}p:first-letter{font-size:2.5em;padding-right:5px; text-transform:uppercase;}/*段落第一个字母样式 :first-letter ,另外text-transform:uppercase; 是将英文字母转换成大写格式输出 *//* :first-letter样式中还可以使用行内元素的vertical-align属性，以控制同行内容的对齐方式,字体比较小时能派上用场！*/p:first-line{ color:#f00;} /* 段落第一行样式 :first-line */以上就是控制每个段落首字首行的CSS样式效果：笔记1个月前

PHP随机取出不重复数字

有时需要不重复的数字，不管用于什么用途。我是写在随机抽取数据库里的数据，因为有几十万条的数据，随机抽取总会出点问题。不是连续太多就是超出，再且用rand()效率也出错。join 总是出现很多连续的。就找了一个随机ID然后where in 来取出数据，这个主要ID 要连续的。要不然会出空值。我要随机100个，我就取出1000个，然后在选100个。<?php function createRandID($s,$e,$n){ // 注意，要先声明一个空数组，否则while里的in_array会报错 $arr = array(); // 使用while循环，只要不够N个就永远循环 while(count($arr)<=$n){ // 产生一个随机数 $a = rand($s,$e); // 判断：如果产生的随机数不再数组里就赋值到数组里 // 主要避免产生重复的数字 if(!in_array($a,$arr)){ // 把随机数赋值到数组里 $arr[] = $a; } } // 返回产生的随机数字 return implode($arr,','); } echo createRandID(1,100,5); //实例，从1~100内取出5个不重复的随机数字 ?> 这个随机数代码，效率还不错！说明：$s：起始数，$e：结束数，$n：取出个数笔记1个月前

H1的CSS样式解决占用一行的问题

H1标签的作用-网站建设，H1标签是在网站制作过程中，经常用到的一个标签，他的作用仅次于Title，在seo方面，这个标签还有H2,H3，这些标签用好了，对网站的优化会有事半功倍的效果。H标签都是占用一行的。有时候，我们又不像让H标签占用一行！可以用CSS来限制CSS：display:inline; width:auto;对应的效果：笔记1个月前

VBA代码破解excel密码保护,支持2003，2007

Excel密码保护之后只能只读，不能进行修改操作，想要修改就需要对excel进行破解，当然，是在不知道密码的情况下！这是一个经过密码保护的excel表格，现在开始破解工作！1、打开密码保护的excel文件–工具–录制新宏–输入名字如：xp –点击停止录制！2、工具–宏–宏，选xp，点编辑按钮3、删除窗口的代码，替换VBA破解代码：VBA代码：ublic Sub AllInternalPasswords() ' Breaks worksheet and workbook structure passwords. Bob McCormick ' probably originator of base code algorithm modified for coverage ' of workbook structure / windows passwords and for multiple passwords ' ' Norman Harker and JE McGimpsey 27-Dec-2002 (Version 1.1) ' Modified 2003-Apr-04 by JEM: All msgs to constants, and ' eliminate one Exit Sub (Version 1.1.1) ' Reveals hashed passwords NOT original passwords Const DBLSPACE As String = vbNewLine & vbNewLine Const AUTHORS As String = DBLSPACE & vbNewLine & _ "Adapted from Bob McCormick base code by" & _ "Norman Harker and JE McGimpsey" Const HEADER As String = "AllInternalPasswords User Message" Const VERSION As String = DBLSPACE & "Version 1.1.1 2003-Apr-04" Const REPBACK As String = DBLSPACE & "Please report failure " & _ "to the microsoft.public.excel.programming newsgroup." Const ALLCLEAR As String = DBLSPACE & "The workbook should " & _ "now be free of all password protection, so make sure you:" & _ DBLSPACE & "SAVE IT NOW!" & DBLSPACE & "and also" & _ DBLSPACE & "BACKUP!, BACKUP!!, BACKUP!!!" & _ DBLSPACE & "Also, remember that the password was " & _ "put there for a reason. Don't stuff up crucial formulas " & _ "or data." & DBLSPACE & "Access and use of some data " & _ "may be an offense. If in doubt, don't." Const MSGNOPWORDS1 As String = "There were no passwords on " & _ "sheets, or workbook structure or windows." & AUTHORS & VERSION Const MSGNOPWORDS2 As String = "There was no protection to " & _ "workbook structure or windows." & DBLSPACE & _ "Proceeding to unprotect sheets." & AUTHORS & VERSION Const MSGTAKETIME As String = "After pressing OK button this " & _ "will take some time." & DBLSPACE & "Amount of time " & _ "depends on how many different passwords, the " & _ "passwords, and your computer's specification." & DBLSPACE & _ "Just be patient! Make me a coffee!" & AUTHORS & VERSION Const MSGPWORDFOUND1 As String = "You had a Worksheet " & _ "Structure or Windows Password set." & DBLSPACE & _ "The password found was: " & DBLSPACE & "$$" & DBLSPACE & _ "Note it down for potential future use in other workbooks by " & _ "the same person who set this password." & DBLSPACE & _ "Now to check and clear other passwords." & AUTHORS & VERSION Const MSGPWORDFOUND2 As String = "You had a Worksheet " & _ "password set." & DBLSPACE & "The password found was: " & _ DBLSPACE & "$$" & DBLSPACE & "Note it down for potential " & _ "future use in other workbooks by same person who " & _ "set this password." & DBLSPACE & "Now to check and clear " & _ "other passwords." & AUTHORS & VERSION Const MSGONLYONE As String = "Only structure / windows " & _ "protected with the password that was just found." & _ ALLCLEAR & AUTHORS & VERSION & REPBACK Dim w1 As Worksheet, w2 As Worksheet Dim i As Integer, j As Integer, k As Integer, l As Integer Dim m As Integer, n As Integer, i1 As Integer, i2 As Integer Dim i3 As Integer, i4 As Integer, i5 As Integer, i6 As Integer Dim PWord1 As String Dim ShTag As Boolean, WinTag As Boolean Application.ScreenUpdating = False With ActiveWorkbook WinTag = .ProtectStructure Or .ProtectWindows End With ShTag = False For Each w1 In Worksheets ShTag = ShTag Or w1.ProtectContents Next w1 If Not ShTag And Not WinTag Then MsgBox MSGNOPWORDS1, vbInformation, HEADER Exit Sub End If MsgBox MSGTAKETIME, vbInformation, HEADER If Not WinTag Then MsgBox MSGNOPWORDS2, vbInformation, HEADER Else On Error Resume Next Do 'dummy do loop For i = 65 To 66: For j = 65 To 66: For k = 65 To 66 For l = 65 To 66: For m = 65 To 66: For i1 = 65 To 66 For i2 = 65 To 66: For i3 = 65 To 66: For i4 = 65 To 66 For i5 = 65 To 66: For i6 = 65 To 66: For n = 32 To 126 With ActiveWorkbook .Unprotect Chr(i) & Chr(j) & Chr(k) & _ Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & _ Chr(i3) & Chr(i4) & Chr(i5) & Chr(i6) & Chr(n) If .ProtectStructure = False And _ .ProtectWindows = False Then PWord1 = Chr(i) & Chr(j) & Chr(k) & Chr(l) & _ Chr(m) & Chr(i1) & Chr(i2) & Chr(i3) & _ Chr(i4) & Chr(i5) & Chr(i6) & Chr(n) MsgBox Application.Substitute(MSGPWORDFOUND1, _ "$$", PWord1), vbInformation, HEADER Exit Do 'Bypass all for...nexts End If End With Next: Next: Next: Next: Next: Next Next: Next: Next: Next: Next: Next Loop Until True On Error GoTo 0 End If If WinTag And Not ShTag Then MsgBox MSGONLYONE, vbInformation, HEADER Exit Sub End If On Error Resume Next For Each w1 In Worksheets 'Attempt clearance with PWord1 w1.Unprotect PWord1 Next w1 On Error GoTo 0 ShTag = False For Each w1 In Worksheets 'Checks for all clear ShTag triggered to 1 if not. ShTag = ShTag Or w1.ProtectContents Next w1 If ShTag Then For Each w1 In Worksheets With w1 If .ProtectContents Then On Error Resume Next Do 'Dummy do loop For i = 65 To 66: For j = 65 To 66: For k = 65 To 66 For l = 65 To 66: For m = 65 To 66: For i1 = 65 To 66 For i2 = 65 To 66: For i3 = 65 To 66: For i4 = 65 To 66 For i5 = 65 To 66: For i6 = 65 To 66: For n = 32 To 126 .Unprotect Chr(i) & Chr(j) & Chr(k) & _ Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & Chr(i3) & _ Chr(i4) & Chr(i5) & Chr(i6) & Chr(n) If Not .ProtectContents Then PWord1 = Chr(i) & Chr(j) & Chr(k) & Chr(l) & _ Chr(m) & Chr(i1) & Chr(i2) & Chr(i3) & _ Chr(i4) & Chr(i5) & Chr(i6) & Chr(n) MsgBox Application.Substitute(MSGPWORDFOUND2, _ "$$", PWord1), vbInformation, HEADER 'leverage finding Pword by trying on other sheets For Each w2 In Worksheets w2.Unprotect PWord1 Next w2 Exit Do 'Bypass all for...nexts End If Next: Next: Next: Next: Next: Next Next: Next: Next: Next: Next: Next Loop Until True On Error GoTo 0 End If End With Next w1 End If MsgBox ALLCLEAR & AUTHORS & VERSION & REPBACK, vbInformation, HEADER End Sub 4、关闭编辑窗口–工具—宏—宏，选AllInternalPasswords，执行，弹出的所有窗口都点击确定，直到不再弹出，破解完成！PS：如果excel表格内容比较多的话，可能会出现无反应的情况，等待一会就可以了！破解之后记得保存！笔记1个月前

零分杂记

文章分类

微信公众号

近期文章