英布之剑的优快云 Blog

至于啥时候用阻塞播放，那就看你的需求了~~~

【代码】python中采用opencv作常规的图片处理的方法~~~

第三行即检查hpy_Library是否在available的namespaces中，结果为真即表示dll载入成功，可用。因为开发需要，我们经常会用C#来写一些库供python调用，但是在使用过程中难免会碰到一些问题，需要我们抽丝剥茧来解决~~~首先，我们在python中要想调用C#(基于.net)的dll，需要安装一个库，它就是。那我们就以调用hpy-Library.dll为例，我们先看看是否能载入成功~~第二行为clr当前激活的名字空间，这里会包含很多.net库的名字空间。这个安装过程就省略了....

其中"-mic"是参数输入，capture_output=True表示抓取输出, text=True表示输出为text格式。step.2 比如调用一个叫Audio_status.exe的控制台程序。step.1 引用suprocess。

当我们用VScode编写python代码时，代码下面经常会出现如下的波浪线告警，点开显示为：无法解析导入"xxx"当然，加完之后，你可能还会继续看到一些讨厌的波浪线，检查一下，大概率是: 无法从源解析"xxx"

我们在做一些python项目时，经常需要用到语音提示功能，我们可以通过调用pygame库的music.play播放mp3文件功能来实现。step.3 初始化pygame播放功能。step.4 使用pygame的播放功能。step. 5 等待mp3播放结束。step.1 安装pygame库。step.2 引用pygame。

将如上代码加到主程序的适当位置即可实现Ctrl + ↑增加Over_FOCR_Spec值，Ctrl + ↓ 降低Over_FOCR_Spec值，同时inc_dec可以辅助标记刚才的对值的调整是↑ 或 ↓。一个网友请我帮忙写一个Ctrl + ↑ 和 ↓ 进行参数调整的功能，虽然实现起来其实很简单，但是既然有需要，就贴出来分享给需要的人吧~~~首先，需要安装pywin32库，然后作以下引用。

由于昨天的测试发现pyautogui的按键模拟速度比pywinauto慢了一倍，所以我决定再来看看pyautogui和pywinauto的鼠标操作速度对比~~~由此可见，不同的python库即的相同的功能，但是它们性能的差异很大；因此我们做python开发时要善于使用各种库的专长，开发出高性能的程序。我们可以看到，同样的点击次数pywinauto的耗时是pyautogui的好几倍，

它们同样实现了按下F11的功能能，那么它们有什么差别呢，比如速度有差异吗？我们可以看出来虽然从原理上来讲，它们都是调用操作系统的底层 API（如 Windows。）来模拟按键，但是pywinauto比pyautogui接近快了一半。

相信用pycharm的人从较多吧，等我找到pycharm安装库的教程再贴在这里吧~~1.首先，必要安装好BaoStock.

今天再试着引导DeepSeek用python编写一个中国象棋引擎，结果也是成功的。我们可以看到，DeepSeek用一个二维矩形代表棋盘，字母代表棋子实现了这个简易的中国象棋，不过这种象棋也只有程序员玩得开心~~~

5. 经和DeepSeek沟通，经过DeepSeek同意，将上述设计结果分享给优快云网友，DeepSeek果然大方地同意了~~~ 哈哈~~~* 注意: 实际测试过程中的bug远不止此，但是我均仅采用描述性语言将测试结果反馈给DeepSeek，它均能正确理解并有效修正。DeepSeek果然get到了重点，并且准确给出了优化策略。，我花费了大约1个半小时的时间，和DeepSeek。，编写出一个简单的聊天机器人。1. 首次开发需求沟通。

注意: mplfinance库是基于matplotlib，因此这个库也要加入。candle指的是K线图的风格，volume=False表示忽略成交量.1. 已知行情: 2024/09/05 ~ 2025/1/3。* 将日期设为index, 方便mplfinance库处理。step 3. 画出K线图。step 2. 数据处理。step1. 引用库。

在python中，获取免费股市行情的方法有很多，其中用request库是最简单的一种。示例代码如下：import requestsstock_code="301307"if (stock_code[:1] == '6'): # 上交所 exchange = "sh"elif (stock_code[:1] == '3'): # 深交所 exchange = "sz"elif (stock_code[:1] == '0'): # 深交所 exchange

由此可见方法2虽然多输了几个字符，但是的速度快一半不止！至于值不值得就看你的应用咯~~~二者的输出结果完全相同，但是博主测试了一下，发现效率确相差很大。

step 3. 创建图形(fig --- figure, ax --- axis)step 5. 标题设置(包含如何让标题显示中文)step 2. 准备曲线图显示界面。step 5.设置坐标轴启始值。step 7. 清除已有曲线。step 1. 引用库。step 4.初始化曲线。step 6. 刷新图形。

如上图所示，如何让windows通知栏的时间只显示到分，这个多多少少有些不方便，我们能否让它显示到秒呢？2.保存为ShowSecondsInSystemClock.reg。重启电脑后，再查看时间，就可以显示到“秒”了。

step3点击【测试程序】后，剪映会成功打开，关掉后再执行step4。关闭后，然后重新去打【剪映电脑版】，就可以了。

Keil 工程文件uVision Project在文件浏览和属性中会显示成"礦ision Project"，虽然不影响实际使用，但是让人感觉很不舒服。这个情况，只需要在注册表中修改一下就可以了。（将以下文本内容保存成 对应的.reg，然后双击打开导入即可。）文件名称：UV2&3 fixed.reg文件内容：Windows Registry Editor Version 5.00[HKEY_CLASSES_ROOT\UV2FILE]@="uVision2 & ..

Imports rtis = System.Runtime.InteropServices Function VarPtr(ByVal e As Object) As Integer Dim GC As rtis.GCHandle Dim GC2 As Integer GC = rtis.GCHandle.Alloc(e, ...

ex: 有一个批处理文件 G:\test\123.bat%~n0 ---- 显示: 123%~x0 ---- 显示: .bat%~nx0 -- 显示: 123.bat%~d0 ---- 显示: G:%~p0 ---- 显示: \test\%~dp0 -- 显示: G:\test\%~dpnx0 显示: G:\test\123.bat这些字母的缩写应该是: n - n...

用过Windows Virtual PC的朋友应该注意到，Windows Virtual PC用一段时间之后，硬盘的可用空间不断变小。这是因为Windows Virtual PC反复安装或卸载程序后导致占用空间越来越大。下面介绍一个简单的瘦身方法:1.首先，关闭Windows Virtual PC在Windows Virtual PC环境中，同时按CTRL + ALT + END,

因为Windows7的UAC机制限制非Admin权限的程序存取Program Files和Windows目录的文件等一些限制，因此导致很多旧的VB6（包括所有Visual系列）程序在Windows7无法运行或运行异常。原因是这些旧的程序默认是没有权限申请设置的，所以当然就没有Admin权限了。因此，您必须通用采用右键“以管理员身分运行”的方式解决。但依然有一些程序还是无法运行，这时

之前写过一篇日志，关于VB6程序在Windows7下运行的问题(http://www.dingcrown.com/soft/blog/Log/?/ID/28.html) 。那么，如果要在Windows7下进行VB6开发，那该怎么办呢？首先，Windows7已经不象Vista那样，可以通过acmsetup的办法安装。装双系统吧，用起来麻烦。其实，Windows 7已经提供了一个叫Windows

用TextBox的时候，有的时候需要让ScrollBar自动跟随滚动以让最下面的内容始中可以显示出来。但是VB6却没提供这样的方法...以下是用Windows Api实现这个动作的代码：Option ExplicitPublic Declare Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hwnd As L

在使用Excel时经常会碰到有些不错的Excel文档中的VBA是设有密码的，没有办法查看到文档中的VBA代码，本工具可以清除掉Excel中的VBA密码。Dim GetData AsString * 5 Open sFileName For BinaryAs #1 Dim CMGs AsLong Dim DPBo AsLong For i = 1 To LOF(1)Get

Private Structure PRINTER_DEFAULTSDim pDatatype As StringDim pDevMode As IntegerDim DesiredAccess As IntegerEnd StructurePrivate Const PRINTER_ACCESS_ADMINISTER As Integer = &H4Private Dec

'取得窗体句柄Public Declare Function GetWindow Lib "user32" (ByVal hwnd As Integer, ByVal wCmd As Integer) As IntegerPublic Const GW_HWNDPREV As Short = 3Public Const GW_HWNDNEXT As Short = 2Public

这段时间在写一个叫做Dingcrown KD Print的软件，灰常灰常意外的发现一个BUG: 在VB6做的dll插件中copy的数据在Win7下贴上时出现乱码现象。dll中VB6的代码:Clipboard.SetText Addr主程序中VB2010代码:ProductInfo = Clipboard.GetText()--------------------------

<br />  '延时n毫秒的函数<br />  Private Declare Sub mSecSleep Lib "kernel32" Alias "Sleep" (ByVal lngmSec As Long)<br /> <br />  Dim VirStr As String<br />  Dim VirSample As String<br />  <br />  CmdVirusTest.Enabled = False<br />  <br />  '采用两个字符串连接，以保证生成病毒样本前不会

'Windows 2K之前的操作系统（Win9x） If Not GetOStype().blnW2K Then '修复方法：将Hidden值设为1(0 - 不显示隐藏与系统文件 1 - 显示所有 2 - 不显示隐藏) Call sdaSetRegValue("HKEY_USERS", ".DEFAULT/Software/Microsoft/Windows/CurrentVersion

<br />    '--- 修复开始菜单属性设定中只有"经典「开始」菜单"选项 ---<br />    If ChkStartMenuNoSimpleStartMenu.Value = vbChecked Then<br />      Call sdaDeleteValue("HKEY_CURRENT_USER", "Software/Microsoft/Windows/CurrentVersion/Policies/Explorer", "NoSimpleStartMenu")<br />    E

<br />        Dim HomePath As String<br />    <br />        'WIN2K之后的系统<br />        If GetOStype().blnW2K Then<br />          HomePath = Environ("HOMEDRIVE") & Environ("HOMEPATH")<br />        Else<br />          HomePath = Environ("windir")          'Win

'修复IE主页被锁定的问题    If ChkIEStartPageLocked.Value = vbChecked Then      Call sdaDeleteValue("HKEY_USERS", "S-1-5-21-117609710-1801674531-839522115-500/Software/Policies/Microsoft/Internet Explorer/Control Panel", "HomePage")    End If    '修复IE的主页    If Ch

'先测试注册表项是否存在，如果不存在则先建立 If sdaTestKeyExist("HKEY_LOCAL_MACHINE", "SYSTEM/CurrentControlSet/Services/SharedAccess/Parameters/FirewallPolicy/StandardProfile") = False Then Call sdaCreateKey("HKEY_LOCAL_MACHINE", "SYSTEM/CurrentControlS

'修改注册表，将自动更新设为通知下载 Call sdaSetRegValue("HKEY_LOCAL_MACHINE", "SOFTWARE/Microsoft/Windows/CurrentVersion/WindowsUpdate/Auto Update", "AUOptions", 2) '修改注册表，将自动更新设为自动下载但通知安装 Call sdaSetRegValue("HKEY_LOCAL_MACHINE", "SOFTWARE

<br />  '显示Windows防火墙状态<br />  If Val(sdaGetRegEntry("HKEY_LOCAL_MACHINE", "SYSTEM/CurrentControlSet/Services/SharedAccess/Parameters/FirewallPolicy/StandardProfile", "EnableFirewall")) = 0 Then<br />  <br />      LblFireWallInfo.Caption = "Windows防火墙已被关闭！

Function GetAUOptionStrings() As String   Select Case Val(sdaGetRegEntry("HKEY_LOCAL_MACHINE", "SOFTWARE/Microsoft/Windows/CurrentVersion/WindowsUpdate/Auto Update", "AUOptions"))      Case 1:         '自动更新未开启      Case 2:         GetAUOptionStrings = "通知下