peeppp的个人资料

迅雷VIP页怎么打不开了？

求教大虾VB6如何批量比对网页源代码？经常碰到网站首页被人恶意篡改的情况，也不能每次都打开源码看，太麻烦了请教如何用VB6做个自动匹配的程序，用了市面上什么豆包，文心，KIMI，chatai什么的编的程序都不能用功能：text1从a.txt中加载网址，每个网址一行，text2加载该网址的源码，然后与网址对应的txt文件进行比对（只需比对前200个字符），不同的在text3中记录对应网址方便查看 a.txt http://tieba.baidu.com/mo/q/checkurl?url=http%3A%2F%2Fwww.a.com&urlrefer=7f04dde9f16bf1f81ed7855f0e29a0d4 http://tieba.baidu.com/mo/q/checkurl?url=http%3A%2F%2Fwww.b.com&urlrefer=898583256bc7be08c46b5b43d64b1ae8 ... http://tieba.baidu.com/mo/q/checkurl?url=http%3A%2F%2Fwww.a.com.txt&urlrefer=86f2f131d68952097acf5aa03f7c07dd http://tieba.baidu.com/mo/q/checkurl?url=http%3A%2F%2Fwww.b.com.txt&urlrefer=6fc713212a8853bd5a8392331dd48b80 ...

请教：cad如何批量给不同尺寸的圆插入不同的块？请教大侠：一个图纸中有很多尺寸的圆，比如 φ5.2 φ6 φ8,...... 有没办法批量给不同尺寸的圆插入同样的块？给所有φ5.2的圆插入叫 M6的块，给所有φ6的插入X6的？现在都是手动一个个插，麻烦还易漏。

请教UG10出的图纸能修改中心线颜色吗？请教大侠，ug10出的这图纸，上面这个中心线如何变成虚线并且颜色改为黄色或白色？下面图纸上的中心轴线怎么去掉不需要

想请教基金在暴跌后应该追加多少钱才能在小涨后全额保本？比如基金10000，亏损了6000，应该追加多少钱，才能在基金上涨比如3%后将原本金与新追加的本金0损失解套赎回。有什么公式吗？谢谢

有谁知道为何CAD中形位公差乱码是什么原因吗？其它位置的字都是正常的，只有形位公差是乱码，放在别的电脑上打开显示是正常的，只有在本机乱码。之前用的CAD2020，安装CAD2023版后也是一样的情况

请教大侠们，如何将CAD里的图形导入到UG中？ UG中画线打字太麻烦，想在CAD中做好线条后导入到UG10中使用，但发现CAD导出为DWG或DXF，使用UG里的导入-AutoCAD DXF/DWG导入的线条无法操作，如何变成普通线条？

使用AIGPT编写的VB代码，总是有一个语法错误，不知道这代码怎样使用几个AIGPT（chatgpt，文心一言），给关键词，要求编一个程序，试下效果，换了几个AI，都有语法错误，烦请大侠能不能看看这代码是不是按我要求写的？出错的那2处代码怎么改？ ========================================== 编一个VB6.0程序，功能是：上面有两个文本框text1和text2，两个按钮Command1和Command2，一个Combo1，将 filePath = "d:\t1.txt" 设为全局变量进行调用，在text1和text2中分别输入内容后，点击 Command1按钮就将text1和text2存入d:\t1.txt中，每次一行，可以无限次点击并保存，在text1中输入内容，点Command2就遍历d:\t1.txt，找到对应的内容加载到text2中，而combo1中可以实时显示出t1.txt中text1段中的内容，这样可以快速选择，以达到在text1中输入内容点击Command2同样的效果，注意不要出现 Exit While 语法错误，如果点击Command1时，text1中输入的内容与 t1.txt中text1段相同时，用msgbox提示“存在重复内容”，只有不重复的才能保存。 ===========================================Dim filePath As String Private Sub Form_Load() filePath = "d:\t1.txt" '设定全局变量 End Sub Private Sub Command1_Click() Dim txt1 As String, txt2 As String Dim fileNum As Integer txt1 = Text1.Text txt2 = Text2.Text If txt1 = "" Or txt2 = "" Then '如果text1或text2中有一个为空则提示错误 MsgBox "请输入内容！", vbExclamation Exit Sub End If fileNum = FreeFile '打开文件 Open filePath For Append As fileNum Dim lineText As String Dim flag As Boolean flag = False While Not EOF(fileNum) '遍历文件 Line Input #fileNum, lineText Dim pos As Integer pos = InStr(lineText, ":") '查找冒号分隔符位置 Dim str1 As String str1 = Trim(Left(lineText, pos - 1)) '获取text1部分的内容 If str1 = txt1 Then '如果存在重复内容则退出 flag = True MsgBox "存在重复内容！", vbExclamation Exit While End If Wend If Not flag Then '如果没有重复内容则将text1和text2写入文件 Print #fileNum, txt1 & ": " & txt2 End If Close fileNum '关闭文件 Text1.Text = "" '清空text1和text2 Text2.Text = "" End Sub Private Sub Command2_Click() Dim fileNum As Integer, lineText As String Combo1.Clear fileNum = FreeFile '打开文件 Open filePath For Input As fileNum While Not EOF(fileNum) '遍历文件 Line Input #fileNum, lineText Dim pos As Integer pos = InStr(lineText, ":") '查找冒号分隔符位置 Dim str1 As String, str2 As String str1 = Trim(Left(lineText, pos - 1)) '获取text1部分的内容 str2 = Trim(Right(lineText, Len(lineText) - pos)) '获取text2部分的内容 Combo1.AddItem str1 '将text1部分的内容添加到Combo1中 Wend Close fileNum '关闭文件 End Sub Private Sub Combo1_Click() Dim fileNum As Integer, lineText As String fileNum = FreeFile '打开文件 Open filePath For Input As fileNum While Not EOF(fileNum) '遍历文件 Line Input #fileNum, lineText Dim pos As Integer pos = InStr(lineText, ":") '查找冒号分隔符位置 Dim str1 As String, str2 As String str1 = Trim(Left(lineText, pos - 1)) '获取text1部分的内容 str2 = Trim(Right(lineText, Len(lineText) - pos)) '获取text2部分的内容 If str1 = Combo1.Text Then '如果找到了对应的text1内容则显示text2的内容并退出循环 Text2.Text = str2 Exit While End If Wend Close fileNum '关闭文件 End Sub

如何将窗体上所有文本框内容在关闭的时候写入一个txt打开加载？一个窗体上有很多个文本框，请教大侠，如何实现在关闭程序的时候自动将所有【非空】文本框里的内容写入一个txt（或ini随便），重新打开程序的时候按原位置加载这些内容

请教VB如何检测窗体没有点击操作会倒计时自动hide？用vb做的一个小程序，有好几个窗体互相调用，想请教大侠，怎么实现检测某个打开的窗体，在没有任何在这个窗体上点击动作的时候，倒计时60秒自动隐藏自己 me.hide？（不受其它窗体点击的影响）

请教UG10中保存的WCS坐标系如何再次使用请教UG大侠，比如这个文件，两个圆心位置通过【格式-WCS-保存】保存的2个WCS坐标，现在想重新把坐标定回到其中一个上，应该怎么做?

百度网盘的客服就是个SI人完全就是机器人回复，转人工也是机器回复，有问题总是找不到任何解决办法，坑

请教如何用VB检测键盘是否按下 ctrl+v键想实现的功能是每按一次ctrl+v， vb自动执行一个命令，但这个ctrl+v不是在VB程序窗体上操作的，等于是程序外监测键盘。请教大侠们谁知道这代码，感谢！！！感谢！！！！！！

2023.1.8第12次保养，老虎的最后一次免费保养 2023.1.8，里程49593，开的比较少，因为当年风云2开了9万公里，小蚂蚁开了3万多公里。　　我是2016年9月第一批车主，今天去给虎7做保养，当年送了12次免费保养，这是最后一张券，保养的时候去旁边的店里看看奇瑞新车，果然奇瑞这几年进步神速，外形漂亮多了，而且内饰用料和做工都好太多，帅就一个字，不过说实话，奇瑞反应总是慢一拍，如今还在主推燃油车，混动相对少，纯电更少，而且纯电和燃油车还是分开销售，不是一个公司，之前买得小蚂蚁，还是去的很远的一个4s买的，要是这个店里也同时销售纯电的话，应该销量更好！　　今天保养花了137块，换了4个火花塞和一个汽油滤芯，火花塞看起来还好，但想想5万公里了，还是换掉吧。机油机滤是用券免费，奇瑞的保养费用还是很便宜的，小蚂蚁保养的时候前三次免费，后面几次都是80一次，简直低到令人发指……以前我还有一辆奇瑞风云2，保养也就一百多块，不过过保后就买保养用品在外面找个修理店自己换，瑞虎7这12次免费保养，所以这十几年买了3辆奇瑞车，实际保养花费还是挺少的，使用成本不高！之前准备换换轮胎的，但仔细看了下轮胎都挺好，暂时不换了。发动机有点抖动，机脚垫应该是要换了，但想想影响不大，也暂时不处理了。保养后免费洗车，还送了一盒小礼品，里面有对联，红包，口罩。　　下辆车肯定还是会考虑奇瑞车，不过肯定不会买燃油车了，混动应该也不会考虑，所以还是等纯电吧，等纯电800公里，就算冬天砍一半也够我到处浪了！

为什么这同样大小的字粗细却不一样？看设置没找到区别请教：同样两段字，为什么粗细不一样？双击修改文字格式，看起来也是完全一样的，到底是在哪出错了？

请问如何检测文件夹里文件名并匹配文本框的代码怎么写？请教大侠们窗体上有个文本框（或是别的什么部件，比如列表框都行），里面有N行名字，按一个按钮，就遍历该程序所在的文件夹里的文件名（不管文件格式是什么，有可能是 txt，jpg,png或doc啥的），只要文件名前几个字（2个、3个或4个）与文本框里某一行的名字对应上了（不会有重复的），该行的内容就自动填入第2个文本框，遍历结束后，剩余不匹配的进第3个文本框

为什么发的贴子总被删发了两个关于CAD的贴都被删了？

定制好的CAD界面，怎么把这配置带到新电脑中使用？请教这是我定制好的CAD的界面，把自己最常用的功能按钮都按习惯放好了，如何把这个界面所显示的所有按钮和设置，都带到另外的电脑上？我使用【工具-选项-配置-输出】到新电脑上后发现根本没完全带过去使用开始菜单中的【输出 AutoCAD 2020 设置】界面倒是带过去了，但我安装的燕秀工具箱的所有按钮全变成【?】问号，按钮也无法点击，是什么原因？不能每用一台电脑就重新设置一遍吧，好难~~~~~~~~~~~~~像UG软件，就可以通过保存角色的方式传递到新电脑中

定制好的CAD界面，怎么把这配置带到新电脑中使用？这是我定制好的CAD的界面，把自己最常用的功能按钮都按习惯放好了，如何把这个界面所显示的所有按钮和设置，都带到另外的电脑上？我使用【工具-选项-配置-输出】到新电脑上后发现根本没完全带过去使用开始菜单中的【输出 AutoCAD 2020 设置】界面倒是带过去了，但我安装的燕秀工具箱的所有按钮全变成【?】问号了，按钮也无法点击，是什么原因？不能每用一台电脑就重新设置一遍吧，好难~~~~~~~~~~~~~ 像UG软件，就可以通过保存角色的方式传递到新电脑中

请问CAD2016定制的界面怎么带到其它电脑上在A电脑上定制好了CAD2016的界面按钮和一些设置（比如默认鼠标右键是直接重复命令之类的设置项），如何带到其它电脑上

JS能实现实时检测input文本框的内容并用图片显示出来吗请教大侠，上传图片得到了图片的链接，自动填入文本框中，如何自动检测这个文本框里显示的图片地址在右边的预览图中显示出来？（图片地址不对就显示 yulan.png ，正确就直接显示图片）

求教大侠，JS怎么通过点击按钮给光标所在的INPUT增加内容比如网页中有若干个 input <input id="zs" name="zs" type="text" /> <input id="ls" name="ls" type="text" /> <input id="ww" name="ww" type="text" /> ，2个按钮 <input type="submit" name="a" id="button" value="a" /> <input type="submit" name="b" id="button" value="b" /> 如何实现点击按钮a就给input的内容结尾添加一个a，点按钮b就给input的内容结尾增加一个b，不是所有input都添加，而是先点击某个input将光标定到这个input中，点按钮a或b就自动添加到对应的input结尾比如input1中有个张三，点一下 a 就变成张三a，再点一下b就变成张三ab input2中有个李四，点一下选中input2，点按钮b ，就变成李四b 主要是因为有些字符（可能比较长或是特殊符号）常需要填到不同Input中，我想把几个常见的字符串做成按钮，每次要输入到某个input中，只要先点这个input，再点按钮就把字符串填进去，节省频繁重复的输入时间。不能限制input的名字，因为name值不是规则的递增，都是不同的字符串

5月把小蚂蚁卖了，又开回瑞虎7，油价是真肉疼啊 2022年5月，把开了整2年的小蚂蚁给卖了，因为原来跟老婆2个公司上班需要2辆车，3月开始在一起上班，就多了一辆，又是停车费，又是保险，保养费，想着还是留一辆得了，但油车是真不好卖了现在，卖电车，网上一挂，立马脱手.........很多人咨询...... 但真心疼的，小蚂蚁5分钱一公里，开了整整2年，3万多公里，电费才2000多一点点，卖了小蚂蚁后开回虎7（已经在车库停了2个月没动了），油价1块钱一公里。不过现在开的少，也无所谓了，不像以前一个月油钱至少1千，现在一个月300也够开了。但油车跟电车比，不仅仅是油价花费贵20倍的问题，而是再也不能停在路边随意开着空调，想开几小时就开几小时，燃油车谁想怠速几小时，就算不心疼油钱，也得心疼发动机有积碳吧~~~~~~~晚上停车等孩子放学，蚊子盯，高温烤~~~~

请问如何给VB文本框都加上Ctrl+A的功能如何在VB中实现按ctrl+A后，全选文本框中的文字 Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii = 1 Then Text1.SelStart = 0 Text1.SelLength = Len(Text1.Text) End If End Sub 或者用这个 Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer) If Shift = 2 And (KeyCode = Asc("a") Or KeyCode = Asc("A")) Then Text1.SelStart = 0 Text1.SelLength = Len(Text1.Text) End If End Sub 但如果窗体上有N个命名都不一样的文本框，有没办法做到所有文本框都一次性赋予CTRL+A的能力？

WPS快速访问工具栏定制性太差了，谁有办法吗？ WPS快速访问工具栏定制性太差了，官方只有很少的按钮可以放在上面，而OFFICE的可以任意定制，有没有办法将WPS的快速访问工具栏定制更多功能？新版的WPS和OFFICE都有同样的问题，就是界面上每点一个不同的内容（图片、形状、文字等）就会切换到不同的功能区，十分烦躁的设计，有些功能按钮需要来回切换才能点到，有些还藏在二级菜单（下小三角箭头）要点2次才能达到功能，而快速访问工具栏位置是锁定的，只要把常用功能按钮放在这，可以随时用，可WPS的默认按钮太少了，也找不到增加的方法，不知道有谁可有办法能增加，下面这两张图，上图是OFFICE2010的界面，我定制的一些最常用的功能，而下图是WPS，我用到的按钮一大半是不存在。但WPS又比OFFICE好用，但就卡在这个定制功能上了，郁闷。

【原创】虎7的定速巡航有些人还不完全明白怎么用，一次说清楚时速超过40公里时可以启动定速巡航，按ON/OFF开启/关闭定速巡航功能按+加速，按-减速按set+和set-都可以开始巡航区别是 set+是第一次按（1秒）时设定当前速度为巡航速度（比如100），如果巡航解除（踩了刹车）后再按一次set+又会自动加速到设定好的速度（100），巡航模式下自己踩油门的加速性能受到限制，超车变难，此时可以轻点刹车解除巡航，再加油门，超后再按一下set+继续按原设定速度巡航。巡航模式下点按一下set+巡航速度+2，长按2秒以上并保持快速增加速度。 set-是点按一下巡航速度-2，长按2秒以上并保持快速减速，set-有个最大的功能是：可以随时修改巡航速度，比如现在是100，想定速到80，那么轻点刹车暂停巡航让车速慢慢降到80（或直接踩刹车减速到80），此时按一下set-巡航速度就会变成80，如果现在是80，想巡航到90，那么直接踩油门加速到90后按一下set-巡航速度变为90，想变120再继续踩油门加速到120后按set-即可所以set+和set-的最大区别就是【定速】的定义区别：set+是不管什么速度都回变成之前设定的速度，set-是不管什么速度都会变成新的巡航速度。

瑞虎7CVT春节几天一箱油到底能跑多远，测试看结果我是2016款首批瑞虎7CVT车主年二十八开始动身，起步前先把邮箱加满（花了258块，7块多一升，之前还剩一些油，总共应该在350块的油钱吧）因为这车平常都是老婆开上下班，基本都是短途（来回10公里），所以油耗很高，表显达到11个多了，开始里程是43920公里，表显续航里程只有433公里。等正月初三回程到家前，油箱开始报警，显示续航里程还剩50公里，此时表显油耗8.4，共跑了559.6公里，总里程44479公里。过年几天基本都是跑的高速，还有些乡村路，路况非常好，没碰到过堵车，所以基本可以大段做到定速巡航，油耗表现优异。这种3百多块钱跑600公里的情况，如果在市区跑，基本不是可能的。不过现在也不操心油耗了，因为这瑞虎开的的确少，主要还是开小蚂蚁，目前小蚂蚁接近30000公里里程，电费花了

为什么command中的命令直接点就行，用CALL就不行？请教大侠有两个Command，a和b commandA中加一句 CALL commandb_Click 执行出来的命令不全（比如有2个命令，只执行1个），但直接点击commandb执行的命令就是全的，这是为什么呢？

请问：如何用VB删除文本框前n行一个多行文本框，里面有N行内容，请问如何每点一次按钮，就自动删除前3行内容，直到文本内容全部清空为止谢谢

想使用VB一键删除最近2个月外的其它所有文件夹怎么办？如果 d:\abc 中有若干个以日期命名的文件夹，怎么删除比如2个月前的所有文件夹，保留最近2个月的，比如这样的，保留 2021-11 和 2021-10，其它文件夹全删，请教这样的代码怎么样写简单又有效率？我用的代码是使用两个文本框获取现在的年和月，并将月-2，循环判断，有就删，但感觉好傻

谁知道PS字符面板中这几个功能是干什么用的？一直没搞明白一直搞不懂这几个是干什么用的，而且还百度不到，有谁知道吗

谁知道PS字符面板中这几个功能是干什么用的？一直搞不懂这几个是干什么用的，而且还百度不到，有谁知道吗

发现个很不错的代码，简洁实用：VB将汉字转换成拼音的函数 'VB将汉字转换成拼音的函数 Private Function Getpy(Txt) Dim d, TmpTxt Dim wzcode, i, TmpWZ, a, b, ii Set d = CreateObject("Scripting.Dictionary") d.Add "a", -20319 d.Add "ai", -20317 d.Add "an", -20304 d.Add "ang", -20295 d.Add "ao", -20292 d.Add "ba", -20283 d.Add "bai", -20265 d.Add "ban", -20257 d.Add "bang", -20242 d.Add "bao", -20230 d.Add "bei", -20051 d.Add "ben", -20036 d.Add "beng", -20032 d.Add "bi", -20026 d.Add "bian", -20002 d.Add "biao", -19990 d.Add "bie", -19986 d.Add "bin", -19982 d.Add "bing", -19976 d.Add "bo", -19805 d.Add "bu", -19784 d.Add "ca", -19775 d.Add "cai", -19774 d.Add "can", -19763 d.Add "cang", -19756 d.Add "cao", -19751 d.Add "ce", -19746 d.Add "ceng", -19741 d.Add "cha", -19739 d.Add "chai", -19728 d.Add "chan", -19725 d.Add "chang", -19715 d.Add "chao", -19540 d.Add "che", -19531 d.Add "chen", -19525 d.Add "cheng", -19515 d.Add "chi", -19500 d.Add "chong", -19484 d.Add "chou", -19479 d.Add "chu", -19467 d.Add "chuai", -19289 d.Add "chuan", -19288 d.Add "chuang", -19281 d.Add "chui", -19275 d.Add "chun", -19270 d.Add "chuo", -19263 d.Add "ci", -19261 d.Add "cong", -19249 d.Add "cou", -19243 d.Add "cu", -19242 d.Add "cuan", -19238 d.Add "cui", -19235 d.Add "cun", -19227 d.Add "cuo", -19224 d.Add "da", -19218 d.Add "dai", -19212 d.Add "dan", -19038 d.Add "dang", -19023 d.Add "dao", -19018 d.Add "de", -19006 d.Add "deng", -19003 d.Add "di", -18996 d.Add "dian", -18977 d.Add "diao", -18961 d.Add "die", -18952 d.Add "ding", -18783 d.Add "diu", -18774 d.Add "dong", -18773 d.Add "dou", -18763 d.Add "du", -18756 d.Add "duan", -18741 d.Add "dui", -18735 d.Add "dun", -18731 d.Add "duo", -18722 d.Add "e", -18710 d.Add "en", -18697 d.Add "er", -18696 d.Add "fa", -18526 d.Add "fan", -18518 d.Add "fang", -18501 d.Add "fei", -18490 d.Add "fen", -18478 d.Add "feng", -18463 d.Add "fo", -18448 d.Add "fou", -18447 d.Add "fu", -18446 d.Add "ga", -18239 d.Add "gai", -18237 d.Add "gan", -18231 d.Add "gang", -18220 d.Add "gao", -18211 d.Add "ge", -18201 d.Add "gei", -18184 d.Add "gen", -18183 d.Add "geng", -18181 d.Add "gong", -18012 d.Add "gou", -17997 d.Add "gu", -17988 d.Add "gua", -17970 d.Add "guai", -17964 d.Add "guan", -17961 d.Add "guang", -17950 d.Add "gui", -17947 d.Add "gun", -17931 d.Add "guo", -17928 d.Add "ha", -17922 d.Add "hai", -17759 d.Add "han", -17752 d.Add "hang", -17733 d.Add "hao", -17730 d.Add "he", -17721 d.Add "hei", -17703 d.Add "hen", -17701 d.Add "heng", -17697 d.Add "hong", -17692 d.Add "hou", -17683 d.Add "hu", -17676 d.Add "hua", -17496 d.Add "huai", -17487 d.Add "huan", -17482 d.Add "huang", -17468 d.Add "hui", -17454 d.Add "hun", -17433 d.Add "huo", -17427 d.Add "ji", -17417 d.Add "jia", -17202 d.Add "jian", -17185 d.Add "jiang", -16983 d.Add "jiao", -16970 d.Add "jie", -16942 d.Add "jin", -16915 d.Add "jing", -16733 d.Add "jiong", -16708 d.Add "jiu", -16706 d.Add "ju", -16689 d.Add "juan", -16664 d.Add "jue", -16657 d.Add "jun", -16647 d.Add "ka", -16474 d.Add "kai", -16470 d.Add "kan", -16465 d.Add "kang", -16459 d.Add "kao", -16452 d.Add "ke", -16448 d.Add "ken", -16433 d.Add "keng", -16429 d.Add "kong", -16427 d.Add "kou", -16423 d.Add "ku", -16419 d.Add "kua", -16412 d.Add "kuai", -16407 d.Add "kuan", -16403 d.Add "kuang", -16401 d.Add "kui", -16393 d.Add "kun", -16220 d.Add "kuo", -16216 d.Add "la", -16212 d.Add "lai", -16205 d.Add "lan", -16202 d.Add "lang", -16187 d.Add "lao", -16180 d.Add "le", -16171 d.Add "lei", -16169 d.Add "leng", -16158 d.Add "li", -16155 d.Add "lia", -15959 d.Add "lian", -15958 d.Add "liang", -15944 d.Add "liao", -15933 d.Add "lie", -15920 d.Add "lin", -15915 d.Add "ling", -15903 d.Add "liu", -15889 d.Add "long", -15878 d.Add "lou", -15707 d.Add "lu", -15701 d.Add "lv", -15681 d.Add "luan", -15667 d.Add "lue", -15661 d.Add "lun", -15659 d.Add "luo", -15652 d.Add "ma", -15640 d.Add "mai", -15631 d.Add "man", -15625 d.Add "mang", -15454 d.Add "mao", -15448 d.Add "me", -15436 d.Add "mei", -15435 d.Add "men", -15419 d.Add "meng", -15416 d.Add "mi", -15408 d.Add "mian", -15394 d.Add "miao", -15385 d.Add "mie", -15377 d.Add "min", -15375 d.Add "ming", -15369 d.Add "miu", -15363 d.Add "mo", -15362 d.Add "mou", -15183 d.Add "mu", -15180 d.Add "na", -15165 d.Add "nai", -15158 d.Add "nan", -15153 d.Add "nang", -15150 d.Add "nao", -15149 d.Add "ne", -15144 d.Add "nei", -15143 d.Add "nen", -15141 d.Add "neng", -15140 d.Add "ni", -15139 d.Add "nian", -15128 d.Add "niang", -15121 d.Add "niao", -15119 d.Add "nie", -15117 d.Add "nin", -15110 d.Add "ning", -15109 d.Add "niu", -14941 d.Add "nong", -14937 d.Add "nu", -14933 d.Add "nv", -14930 d.Add "nuan", -14929 d.Add "nue", -14928 d.Add "nuo", -14926 d.Add "o", -14922 d.Add "ou", -14921 d.Add "pa", -14914 d.Add "pai", -14908 d.Add "pan", -14902 d.Add "pang", -14894 d.Add "pao", -14889 d.Add "pei", -14882 d.Add "pen", -14873 d.Add "peng", -14871 d.Add "pi", -14857 d.Add "pian", -14678 d.Add "piao", -14674 d.Add "pie", -14670 d.Add "pin", -14668 d.Add "ping", -14663 d.Add "po", -14654 d.Add "pu", -14645 d.Add "qi", -14630 d.Add "qia", -14594 d.Add "qian", -14429 d.Add "qiang", -14407 d.Add "qiao", -14399 d.Add "qie", -14384 d.Add "qin", -14379 d.Add "qing", -14368 d.Add "qiong", -14355 d.Add "qiu", -14353 d.Add "qu", -14345 d.Add "quan", -14170 d.Add "que", -14159 d.Add "qun", -14151 d.Add "ran", -14149 d.Add "rang", -14145 d.Add "rao", -14140 d.Add "re", -14137 d.Add "ren", -14135 d.Add "reng", -14125 d.Add "ri", -14123 d.Add "rong", -14122 d.Add "rou", -14112 d.Add "ru", -14109 d.Add "ruan", -14099 d.Add "rui", -14097 d.Add "run", -14094 d.Add "ruo", -14092 d.Add "sa", -14090 d.Add "sai", -14087 d.Add "san", -14083 d.Add "sang", -13917 d.Add "sao", -13914 d.Add "se", -13910 d.Add "sen", -13907 d.Add "seng", -13906 d.Add "sha", -13905 d.Add "shai", -13896 d.Add "shan", -13894 d.Add "shang", -13878 d.Add "shao", -13870 d.Add "she", -13859 d.Add "shen", -13847 d.Add "sheng", -13831 d.Add "shi", -13658 d.Add "shou", -13611 d.Add "shu", -13601 d.Add "shua", -13406 d.Add "shuai", -13404 d.Add "shuan", -13400 d.Add "shuang", -13398 d.Add "shui", -13395 d.Add "shun", -13391 d.Add "shuo", -13387 d.Add "si", -13383 d.Add "song", -13367 d.Add "sou", -13359 d.Add "su", -13356 d.Add "suan", -13343 d.Add "sui", -13340 d.Add "sun", -13329 d.Add "suo", -13326 d.Add "ta", -13318 d.Add "tai", -13147 d.Add "tan", -13138 d.Add "tang", -13120 d.Add "tao", -13107 d.Add "te", -13096 d.Add "teng", -13095 d.Add "ti", -13091 d.Add "tian", -13076 d.Add "tiao", -13068 d.Add "tie", -13063 d.Add "ting", -13060 d.Add "tong", -12888 d.Add "tou", -12875 d.Add "tu", -12871 d.Add "tuan", -12860 d.Add "tui", -12858 d.Add "tun", -12852 d.Add "tuo", -12849 d.Add "wa", -12838 d.Add "wai", -12831 d.Add "wan", -12829 d.Add "wang", -12812 d.Add "wei", -12802 d.Add "wen", -12607 d.Add "weng", -12597 d.Add "wo", -12594 d.Add "wu", -12585 d.Add "xi", -12556 d.Add "xia", -12359 d.Add "xian", -12346 d.Add "xiang", -12320 d.Add "xiao", -12300 d.Add "xie", -12120 d.Add "xin", -12099 d.Add "xing", -12089 d.Add "xiong", -12074 d.Add "xiu", -12067 d.Add "xu", -12058 d.Add "xuan", -12039 d.Add "xue", -11867 d.Add "xun", -11861 d.Add "ya", -11847 d.Add "yan", -11831 d.Add "yang", -11798 d.Add "yao", -11781 d.Add "ye", -11604 d.Add "yi", -11589 d.Add "yin", -11536 d.Add "ying", -11358 d.Add "yo", -11340 d.Add "yong", -11339 d.Add "you", -11324 d.Add "yu", -11303 d.Add "yuan", -11097 d.Add "yue", -11077 d.Add "yun", -11067 d.Add "za", -11055 d.Add "zai", -11052 d.Add "zan", -11045 d.Add "zang", -11041 d.Add "zao", -11038 d.Add "ze", -11024 d.Add "zei", -11020 d.Add "zen", -11019 d.Add "zeng", -11018 d.Add "zha", -11014 d.Add "zhai", -10838 d.Add "zhan", -10832 d.Add "zhang", -10815 d.Add "zhao", -10800 d.Add "zhe", -10790 d.Add "zhen", -10780 d.Add "zheng", -10764 d.Add "zhi", -10587 d.Add "zhong", -10544 d.Add "zhou", -10533 d.Add "zhu", -10519 d.Add "zhua", -10331 d.Add "zhuai", -10329 d.Add "zhuan", -10328 d.Add "zhuang", -10322 d.Add "zhui", -10315 d.Add "zhun", -10309 d.Add "zhuo", -10307 d.Add "zi", -10296 d.Add "zong", -10281 d.Add "zou", -10274 d.Add "zu", -10270 d.Add "zuan", -10262 d.Add "zui", -10260 d.Add "zun", -10256 d.Add "zuo", -10254 TmpTxt = "" For i = 1 To Len(Txt) wzcode = Asc(Mid(Txt, i, 1)) If wzcode > 0 And wzcode < 160 Then TmpWZ = Chr(wzcode) Else If wzcode < -20319 Or wzcode > -10247 Then TmpWZ = "" Else a = d.Items b = d.keys For ii = d.Count - 1 To 0 Step -1 If a(ii) <= wzcode Then Exit For Next TmpWZ = b(ii) End If End If TmpTxt = TmpTxt & TmpWZ Next Set d = Nothing Getpy = TmpTxt End Function '调用演示 Private Sub Command1_Click() Text2 = Getpy(Text1) End Sub Private Sub Form_Load() 'MsgBox Getpy("科杰在线pc354.com") End Sub

想使用VB一键删除特定文件夹中特定时间以前的所有文件怎么写？请大侠们帮忙，比如 C:\ABC 文件夹中有若干个不同时间段创建的文件，因为不断的会往里面存文件，时间长了文件夹会非常庞大，想实现，一键可以自动删除比如30天以前的所有文件，只保留最近30天的，这样的VB代码应该怎么写？求救，谢谢~~~~

为什么发不了贴为什么发不了贴

如何使用VB删除注册表中的一个键值？想使用VB，删除这个值，怎么操作

【请教大侠】如何让程序不重复运行？ If App.PrevInstance = True Then end '防止程序重复运行这句是可以防止程序多次运行的但我现在同时想加上：如果程序在进程中，双击这个EXE时，程序显示出来（程序默认是隐藏的me.hide），还不会再运行一个进程，应该怎么写？使用 me.show后程序是显示了，但同时进程就多一个 If App.PrevInstance = True Then Me.Show

一个按钮如何按顺序执行几个命令？ s9 = lujin & "\Video\" If Dir(s9, vbDirectory) <> "" Then Shell "cmd /c rd /s /q """ & s9 & """" s9 = lujin & "\Attachment\" If Dir(s9, vbDirectory) <> "" Then Shell "cmd /c rd /s /q """ & s9 & """" s9 = lujin & "\Image\" If Dir(s9, vbDirectory) <> "" Then Shell "cmd /c rd /s /q """ & s9 & """" ...... 或是 Set FSO = CreateObject("Scripting.FileSystemObject") FSO.DeleteFolder "d:\a" FSO.DeleteFolder "d:\b" FSO.DeleteFolder "d:\c" ...... 这样的几个命令，怎么样用一个按钮按顺序执行，检测到删空一个文件夹后才删第二个，现在这样一下同时操作，会被360当恶意操作给拦截，我想加一个timer每隔3秒操作一次，但不知道这代码怎么写合适请大侠帮忙

为什么vb中的RichTextBox粘贴内容会乱码使用VB时，发现，使用RichTextBox会造成乱码只要往这个richtextbox中粘贴内容就乱码 >直接在里面ctrl+V粘贴是正常的 >直接在里面打字也是正常的但不能通过按钮实现粘贴使用text是正常的请问这是什么原因？如何解决

如何用VB选择性的删除文件夹 If Dir(s9, vbDirectory) <> "" Then Shell "cmd /c rd /s /q """ & s9 & """" End If这个命令是用来全删 s9 下所有文件夹和文件的，如何改为保留最新2个月的，其它全删 s9下会有 ... 2019-05 .. 2019-09 .. 2020-06 2020-07 2020-08 2020-09 (当前月) 如何改为保留 2020-08 和2020-09这两个月的，删除其它所有文件夹请大侠帮忙，感谢！！！感谢！！！

如何用VB提取出链接的文字和网址我想复制若干网页上的链接到剪切板后，用VB【一键】得到这些链接的文字和网址请问这样的代码怎么写？文字网址文字网址文字网址以前找到过一个EXCEL中的VB开发工具用的模块代码，可以提取出网址出来 Public Function cH(x As Range) cH = x.Hyperlinks(1).Address End Function 但是每次还要打开EXCEL粘贴后，引用 cH 才行，比较麻烦，想用VB快速得到！请大侠帮帮忙

为什么往EXCEL表中粘贴的内容，全在一个单元格中？ Option Explicit '在工程中引用Microsoft Excel类型库： '从"工程"菜单中选择"引用"栏；选择Microsoft Excel 11.0 Object Library（EXCEL2003），然后选择"确定"。表示在工程中要引用EXCEL类型库。 Private Sub Command1_Click() Dim xlExcel As Excel.Application Dim xlBook As Excel.Workbook Dim xlSheet As Excel.Worksheet Dim AppExcel As Object Dim str As String Dim objExcel 'str = App.Path & "\1.xls" str = "d:\1.xlsx" Set objExcel = CreateObject("Excel.Application") 'objExcel就是一个excel.application对象 objExcel.Visible = False '设置excel对象不可见 Dim objWorkBook As Excel.Workbook objExcel.SheetsInNewWorkbook = 1 '新的工作簿里有几个Sheet 'Set objWorkBook = objExcel.Workbooks.Add '用excel.application创建一个新的工作簿，等效于人工操作的"新建" Set objWorkBook = objExcel.Workbooks.Open(str) '打开路径为path的excel文件 'objExcel.Cells(8, 9) = Text1.Text '这段代码有问题，objExcel是个application，没有Cells这个成员 '应该是objWorkBook 下的某个Sheet 下的某个Cell，像下面这样写 objExcel.Sheets(1).Cells(8, 9) = Text1.Text '把Text1.Text的内容填到第1个工作页的第8行第9列单元格，即i8单元格 objExcel.Sheets(1).Cells(9, 9) = Clipboard.GetText '把剪切板内容填到第1个工作页的第9行第9列单元格 'objWorkBook.SaveAs str '用 str 作为文件名，另存这个excel文件 objWorkBook.Save objWorkBook.Close (True) objExcel.Quit Set objExcel = Nothing End Sub 上面这个是可以不打开EXCEL的情况下，往EXCEL中写入数据的代码，但发现使用 objExcel.Sheets(1).Cells(9, 9) = Clipboard.GetText 这句时，粘贴到EXCEL中的内容全挤在9,9一个单元格中，而不是分开请问大侠们，这句要怎么改？比如剪切板中的内容是：张三 30 李四 25 王五 33

瑞虎7第1批车主，看看CVT油耗是多少，昨天刚拍我的车是瑞虎7,2016款CVT，2.0，是当年瑞虎7第一批车主，目前36000公里，大多是在市区跑的，油耗在9个左右，老婆上下班开，来回也就10公里，所以油耗有点高，基本在9点四五的样子，前天回老家跑高速，来回一起不到300公里吧，油耗8.7了。所以不要单纯说自己油耗高的离谱还是低的吓人，脱离使用环境，单纯说油耗，就是耍流氓。但总体来说，奇瑞车的油耗都是很优秀的，比大多车省油，这一点谁也不可否认。要想省油，跟我一样，买辆电动车，5月入手了奇瑞小蚂蚁，卖掉了2012年买的风云2。本来小蚂蚁给老婆开的，不过因为是新车，为了磨合，就我开，但越开越喜欢，就自己留着开了。算了一下帐，110元电费，跑了1600公里，你们自己算下，是多少钱一公里吧？！如果是油车，多少钱！

发现个好文【最完整的瑞虎7图文并茂的说明书】

PS2020的图案竟然删不掉只能添加，不能删除，不管是组，还是单个图案，都无法删除，恢复默认图案，也是增加，而不是清除掉之前的

PS2020自动折叠面板的功能在哪可以关掉？比如渐变，把这些全展开，关掉PS后，重新打开，发现这些又自动折叠了，非常讨厌，有解决办法吗？

这恢复默认太坑了，瞬间回到解放前前面都设置好了，习惯性的一项项点下来，到这个恢复默认才发现刚设置的全复原了，起码加个提示框吧，晕

擦了个八的，我在zenfone吧里发的那些优秀帖全被删了辛苦发的几年的贴，全删的干净，卖表的

《历史不忍细看》这书，到底有没有看的必要，自相矛盾的描述

收到350推送了，不过更新的几个内容都不怎么感兴趣

真心求教这款表的操作方法，不会玩买的这块钱，不会玩啊，官方说明书像天书，有没有简明扼要的操作方法？会玩的大侠出来解救下，谢谢了找亲戚从香港买的，所以现场没问，直接就照型号买的

求教高手，这手机到底怎么玩的买的这块钱，不会玩啊，官方说明书像天书，有没有简明扼要的操作方法？会玩的大侠出来解救下，谢谢了

【12-16·Zen晒机】中奖的手机收到了哦，好兴奋华硕贴吧的活动很真，大家一定要多参与，上次参加的活动中奖的zenfone2手机今天收到了。没拆，看包装应该是红色款的，高配，跟我现在用的一样。快递是同事帮我带上来的，刚看到我还没反应过来，说我最近买的几样东西应该不需要用顺丰这么“高档”的快递公司啊，在撕开包装的一瞬间想到了，应该是我中奖的手机到了，撕开一看，果然。

【12-16·Zen晒机】CM13连电脑后打开盘符内容为空怎么办？刷了CM13的基友可能都注意到这个问题了：手机连上电脑，在计算机中可以看到手机的盘符，打开后却空空如也，这多不方便啊。如何解决这个烦人的问题呢？听我娓娓道来。首先，开启USB调试模式（开发者选项），方法是设置-关于，狂点底部的版本号，出现倒数会出现开启成功的提示框，不过我的开过了，所以是下面这样的提示。将手机连上电脑，手机上提示“是否允许连接”，点永远允许。然后进入开发者选项，找到选择USB配置，并点开，默认是 MTP 模式，改为充电，再改为 MTP，就OK了。再看看，是不是出来了？

华硕手机年末专享好礼送不停！这个活动很给力，小伙伴们不要错过哦！

【12-14·Zen晒机】CM13撤掉了最近几天的更新包不知道出于什么原因

【12-13·Zen晒机】cm13 1212版简评，玩玩可以时间问题解决了，不过时间问题不是CM的问题，是谷歌6.0的问题，所以cm13改为6.0.1了。时间问题的解决就可以正常使用闹钟了。卡机问题依旧，常用软件明显卡成狗，随便装个保卫萝卜2竟然也闪退！相机依旧我行我素的使用不带HDR的版本。锁屏状态下，下拉菜单有个黑框，逼死强迫症患者的节奏。电池相对给力一点，但只要随便玩玩，一天一冲始终免不了，早上9点多100的电，现在20了。耗电大户竟然是360流量卫士，赶紧卸载！ wifi记不住密码，只要断开再连就要重新输入，有点烦人。而且那个【已联网，但无法访问网络】的提示好让人纠结！

【12-10·Zen晒机】CM13又更新了,1210了