学习笔记
happybasic
永远相信美好的事情即将发生
展开
-
pywinauto install ~
4. 安装pywinauto, 打开CMD输入 pip install pywinauto。博主用的版本是: python-3.12.6-amd64.exe。点击环境变量,并编辑PATH变量,1. 下载最新的python,2. 安装python. (略)原创 2024-09-14 15:05:24 · 163 阅读 · 1 评论 -
Ubuntu linux sub system command list
1. ls --- 列出当前目录下的文件和目录。as【dos command】: dir2. cd [dir_name] --- 进入一个目录。 .. --- 上一级目录。/mnt/c windows的c盘/mnt/d windows的d盘3. rm [file_name] --- 删除一个文件。as【dos command】: del4. clear --- 清除屏幕内容。as【dos command】: cls...原创 2022-04-14 21:38:26 · 824 阅读 · 0 评论 -
C51 v9.60a相对于V9.59的更新~
[CX51 Compiler]Corrected: A wrong code will be generated for a small while-loop when NOAREGS has been specified. This error has been introduced with compiler version 9.59.Modified: sbit symbol names with more than 40 characters get truncated. This limi原创 2021-05-26 11:39:29 · 295 阅读 · 0 评论 -
Android 开发手记~~~
1.编译错误:Your project path contains non-ASCII characters原因:路径中包含中文中称。对策:在Gradle Scripts下面gradle.properties里面添加:android.overridePathCheck=true2.编译错误:The application could not be installed: INSTAL...原创 2019-11-26 17:21:04 · 157 阅读 · 0 评论 -
QB7 vs VB2010 Console 程序效率对比~
相同的源文件,相同的算法,相同的输出。。。二者效率相差之大。。有图有真象:计算了一下,VB2010的花费时间大约是QB7的12.13倍。原创 2012-11-16 12:36:05 · 1123 阅读 · 0 评论 -
VBA密码破解
在使用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原创 2012-11-16 12:50:04 · 1333 阅读 · 0 评论 -
另类判断打印机是否为脱机状态的方法
'取得窗体句柄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原创 2012-11-16 12:44:16 · 2351 阅读 · 0 评论 -
如果注册表被病毒修改导致隐藏的文件和文件夹不能显示~
<br /> 'Windows 2K之前的操作系统(Win9x)<br /> If Not GetOStype().blnW2K Then<br /> <br /> '修复方法:将Hidden值设为1(0 - 不显示隐藏与系统文件 1 - 显示所有 2 - 不显示隐藏)<br /> Call sdaSetRegValue("HKEY_USERS", ".DEFAULT/Software/Microsoft/Windows/CurrentVersion原创 2011-05-07 13:00:00 · 905 阅读 · 0 评论 -
如何判断Windows防火墙是否开启?
<br /> '显示Windows防火墙状态<br /> If Val(sdaGetRegEntry("HKEY_LOCAL_MACHINE", "SYSTEM/CurrentControlSet/Services/SharedAccess/Parameters/FirewallPolicy/StandardProfile", "EnableFirewall")) = 0 Then<br /> <br /> LblFireWallInfo.Caption = "Windows防火墙已被关闭!原创 2011-05-07 11:36:00 · 1871 阅读 · 0 评论 -
最简单的杀毒软件测试代码~
<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 /> '采用两个字符串连接,以保证生成病毒样本前不会原创 2011-05-07 13:19:00 · 1541 阅读 · 1 评论 -
判断打印机是否还有任务队列的方法~
Private Structure PRINTER_DEFAULTSDim pDatatype As StringDim pDevMode As IntegerDim DesiredAccess As IntegerEnd StructurePrivate Const PRINTER_ACCESS_ADMINISTER As Integer = &H4Private Dec原创 2012-11-16 12:46:42 · 1291 阅读 · 0 评论 -
IE9 最新User-agent字符串格式~
IE9在官方开发博客中表示他们默认将会使用比较短的 User-Agent 识别字符。这 将会改善整体性能、互操作性和兼容性。IE9将不会再继续把.NET 等软件附加的信息加入 UA 字符串之中。站点开发者们需要注意新版字符串同IE8相比的四个主要变化:1、应用程序版本从“Mozilla/4.0”升级到“Mozilla/5.0”,以和其他各浏览器匹配。这一改动表明IE9是互操作性良好的浏览器原创 2012-11-16 12:41:37 · 1250 阅读 · 0 评论 -
VB.Net控件DataGridView鼠标事件处理不当~
如题,写代码的过程中发现VB.Net控件DataGridView鼠标事件处理不当~ 如下: Private Sub DataGrid1_CellClick(sender As Object, e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGrid1.CellClick MsgBox(1)...原创 2018-09-27 16:49:46 · 481 阅读 · 0 评论 -
批处理123
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...原创 2019-04-06 16:47:58 · 237 阅读 · 0 评论 -
如何判断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 = "通知下原创 2011-05-07 11:33:00 · 815 阅读 · 0 评论 -
设定Windows自动更新?
<br /> '修改注册表,将自动更新设为通知下载<br /> Call sdaSetRegValue("HKEY_LOCAL_MACHINE", "SOFTWARE/Microsoft/Windows/CurrentVersion/WindowsUpdate/Auto Update", "AUOptions", 2)<br /> '修改注册表,将自动更新设为自动下载但通知安装<br /> Call sdaSetRegValue("HKEY_LOCAL_MACHINE", "SOFTWARE原创 2011-05-07 12:11:00 · 710 阅读 · 0 评论 -
修复IE主页被锁定的问题~~~
'修复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原创 2011-05-07 12:56:00 · 628 阅读 · 0 评论 -
ActiveX控件,ActiveX DLL,ActiveX EXE之间的差别~~
*ActiveX控件 ActiveX控件与客户应用程序运行在同一个进程中。可用于VB或者其它开发工具及WEB浏览器的ActiveX控制,与一般的VB应用程序设计大同小异。可以为ActiveX控制加上属性页,并实时调试。*ActiveXDLL ActiveXDLL提供的对象与应用程序运行于同一个进程中。应用程序可以创建对象,设置对象属性,调用对象的方法。ActiveXDLL一般不原创 2012-11-16 12:49:27 · 4005 阅读 · 0 评论 -
如何控制文本框的SCROLL bar
用TextBox的时候,有的时候需要让ScrollBar自动跟随滚动以让最下面的内容始中可以显示出来。但是VB6却没提供这样的方法...以下是用Windows Api实现这个动作的代码:Option ExplicitPublic Declare Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hwnd As L原创 2012-11-16 12:51:01 · 1026 阅读 · 0 评论 -
修复开始菜单属性设定中只有"经典「开始」菜单"选项~
<br /> '--- 修复开始菜单属性设定中只有"经典「开始」菜单"选项 ---<br /> If ChkStartMenuNoSimpleStartMenu.Value = vbChecked Then<br /> Call sdaDeleteValue("HKEY_CURRENT_USER", "Software/Microsoft/Windows/CurrentVersion/Policies/Explorer", "NoSimpleStartMenu")<br /> E原创 2011-05-07 12:59:00 · 631 阅读 · 0 评论 -
修复快速启动不能显示或没有「显示桌面」项的问题
<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原创 2011-05-07 12:57:00 · 569 阅读 · 0 评论