- 博客(33)
- 资源 (10)
- 收藏
- 关注
原创 【python】小六壬
此代码由DeepSeek V3编写,DeepSeek R1优化时辰计算逻辑。代码仅供学习娱乐交流,其结果不提供任何参考及建议。
2025-03-26 09:38:22
115
原创 关于ollama+open webui无法局域网访问的解决办法
ollama api本地默认地址:http://127.0.0.1:11434open webui的默认地址:http://127.0.0.1:3000如果是本机访问,ollama默认允许本机跨域访问(哈里是看ollama的日志都是OPTIONS请求,bing后发现的),官方文档说修改系统变量OLLAMA_ORIGINS即可解决非本机跨域问题(windows下)。但是没说怎么改,还好随便试了下通配符“*”就行了。
2024-07-29 23:50:45
11392
原创 【树莓派5】树莓派系统自带realvnc连接黑屏的坑
将“XTERM_COMMAND=”的值修改为"xterm -geometry 1366x768+10+10 -ls"(注意有双引号)即可。bing半天,有提到更改分辨率,但是树莓派5更改分辨率又不是那些老教程上的了。黑屏并显示“Cannot currently show the dekstop”。什么模式忘了,反正不是虚拟模式。虚拟模式没有声卡驱动。(ctrl+o,回车,ctrl+x保存并退出)
2024-07-26 20:28:58
514
原创 【Python】简单的根据目录URL下载小说
可以通过自定义解析json,对目录页面进行解析并提取章节URL。对章节源码进行爬取解析获取正文标题和正文。将正文标题和正文格式化后输出到程序所在目录。
2024-04-07 15:33:54
502
原创 【Python】扫描局域网存活主机并获取MAC地址、主机名
哈里最近在玩物联网,准备让主机检测手机是否接入wifi从而判断哈里是否回家,因此需要主机时不时扫描一下内网。
2023-06-14 16:41:19
1255
原创 【Python】VRChat中文吧自动弹琴工具
废话不多说直接上源码:import timefrom pykeyboard.windows import PyKeyboardk_index = {'1': 'q', '2': 'w', '3': 'e', '4': 'r', '5': 't', '6': 'y', '7': 'u', '1+': '1', '2+': '2
2021-04-09 21:33:29
4795
3
原创 【Python】不用eval和json.loads将字符串转为python对象(字典、列表、元组、整数、浮点数、字符串)
最近哈里有字符串到字典的需求,本来是用 eval() 函数。但是因为这个函数可以执行除转换外的其它功能…然后这个脚本的字符串数据是来自有风险的源。因此,用eval()感觉不是很安全,于是自己写了几个函数来做字符串到字典或列表的转换。使用方法:import stod as stds="{'type':'get','count':1,'version':[1,2,3]}"d=std.stringtodicandlist(s)print(d) # 打印结果:{'type': 'get', 'cou
2021-02-19 13:27:03
415
原创 【VB.NET】自写基于TCP的简单实时通讯类:HarryNet
一、简介:本类可以做到基于TCP的服务器与客户端实时数据互传(双通道数据传输,应该不会有堵塞情况),每个套接字都有自己的独立线程进行管理,充分发挥多线程性能。对类的主要调用以事件的形式存在。1、服务器端的主要事件:NewAddClient(ByVal index As Long) '客户端接入完成的事件,index是客户端的ID序号 GetNetData(ByVal index As Long, ByVal data() As String) '接收到来自客户端的字符串数据,index是客户
2021-02-11 12:10:23
1502
原创 杂学日记一
1.什么是加密?加密就是将信息加工为第三方无法理解的信息形式的过程。通常为密码参与明文编码形成密文。(个人理解)2.什么是对称/不对称加密?2.1 简单的对称加密加密的对称体现为加密密码既可以加密也可以解密。例如,加密算法为将所有字母转变成数字,再减去密码,若负数+26:明文:HELLO密码:12345明文数字表达:08 05 12 12 15那么加密过程如下:密文0[H]=08-1=07→G密文1[E]=05-2=03→C密文2[L]=12-3=09→I密文3[L]=12
2020-11-06 20:32:47
529
原创 【CE】GTA5版本1.52部分基址
1后面地址代表偏移后还是指针,0后面地址代表偏移后就是值,所有偏移都起于GTA5.exe的基址:自己的生命;1,&H1C76E78;0,&H280自己的最大生命;1,&H1C76E78;0,&H2A0自己的护甲;1,&H1C76E78;0,&H14E0自己的警星;1,&H255F8A8;0,&H628自己的角色无敌;1,&H1C76E78;0,&H189当前乘坐载具无敌;1,&H1F6F8B8;1,&
2020-10-01 14:47:58
3360
1
原创 【VB.NET】如何在窗体上画画?
哈里最近在使用vb.net中,遇到很多问题。其中有一个是.net窗体上的绘制问题。在vb6中,可以很简单的在窗体上画画,通过设置窗体的autoredraw属性还可以保持绘制的图形不会因为窗体超出屏幕边界等情况消失。那.net里面如何画画能让窗体不消失,并且能用timer时钟控件做出动画一般的效果呢?例如下面这样:Public Class Form1 Private x As Single = 100, y As Single = 50, x2 As Single = 300 Priva
2020-08-20 13:12:35
1534
原创 【VB6】如何用纯VB代码写个五子棋程序?(三)
过了很久,哈里实在是记不得当时的全部逻辑了,直接上源码吧QAQ1、MF.frm(主窗体内的代码如下)Private 执棋颜色 As Integer, 摁住的棋子 As Long, 在移动棋子 As Boolean, 交换棋子颜色中 As Boolean, 需同意色 As IntegerPrivate 棋局() As 棋子, 字比 As Single, 线比 As Single, 进度比 As SinglePrivate 胜利字比 As Single, 胜利高比 As Single, 网线比 As
2020-06-16 19:57:51
2472
原创 【Python】QQ大家来找茬辅助
辅助环境准备:1、下载并安装Python3+。(https://www.python.org/ftp/python/3.8.3/python-3.8.3-amd64.exe)2、安装pywin32、pillow库。(以下都是用的清华大学的pip源安装)pip install -i https://pypi.tuna.tsinghua.edu.cn/simple pywin32pip install -i https://pypi.tuna.tsinghua.edu.cn/simple pillow
2020-05-20 10:11:31
2924
原创 【Python】200行的文字RPG游戏
import time,os,randomclass 人物: def __init__(self,name,maxhp=100,ac=10,speed=1.0,money=0): self.name=name self.hp=maxhp self.maxhp=maxhp self.minac=int(ac*0.5) ...
2020-04-10 16:29:53
4208
1
原创 【VB6】如何用纯VB代码写个五子棋程序?(二)
由于后面的过程中,哈里也是遇到了一些坑,因此完全按照当时开发时候的逻辑,可能篇幅太长。因此就直接把最后选择的算法做介绍吧。上回书说道:·那我要悔棋怎么办啊?·那我要再开一局怎么办啊?·我要棋子落得更整齐应该怎么办啊?·我想让程序告诉我哪方胜利该怎么办啊?·我想双方交换棋盒颜色该怎么办啊?就拿悔棋来说吧,我们自然五子棋最重要的核心,与别的五子棋最大的不同就是模仿真实的下棋...
2020-03-21 12:08:31
2848
1
原创 【VB6】判断点是否在线段上的简单算法
设平面上有点A(xa,ya),点B(xb,yb),点C(xc,yc),连接AB,问:如何用VB代码判断C点是否在线段AB上?代码如下:Public Function JudgmentPointOnline(xa As Single, ya As Single, xb As Single, yb As Single, xc As Single, yc As Single,Optional ...
2020-02-02 10:48:23
1371
原创 【VB6】如何用纯VB代码写个五子棋程序?(一)
(本文适合VB初学者)打开VB——新建标准EXE项目完成这些最基本的之后点确定我是打算写一个双人五子棋软件所以界面程序需要全屏/自由大小在这里我先做一个可接受大小的窗体这样就可以安排布局了改个名字显得更专业一点VB里面承载绘图的控件主要有窗体和picturebox它们两个可以用line函数画直线/方块,Circle函数画圆...
2020-01-14 19:01:44
8357
3
原创 【VB6.0】窗体加载成模块的解决方法
1、新建一个文本文件,将文件名改为“XXX.frm”。2、用notepad++或其他可设置编码的文本编辑软件打开刚才创建的“XXX.frm”3、打开加载错误的窗体文件,并CTRL+A后CTRL+C复制全文。4、在notepad++里点击菜单栏里的【编码】选项,选择【使用ANSI】编码。5、CTRL+V将代码复制进“XXX.frm”后保存该文件。6、运行VB6.0 IDE,选择“...
2019-08-26 19:22:12
1554
原创 【VB6.0】文件操作函数整理
一、读取文本文件:1、一行一行读取,并返回文本。Function ReadFile(ByVal fPath As String) As String Dim fN As Integer,lineStrTmp as String fN = FreeFile Open fPath For input As #fN Do Until eof(fN) ...
2019-07-02 00:15:13
2769
原创 【VB】预留排序法(百万条数据只需30毫秒)
哈里在最近的编程生活中,突发奇想,开始着手文本的分析。期间涉及到了数组的排序。于是想也没想祭出了自己祖传的“扑克牌排序法”,即插值排序。不过当后期数组元素个数大于100万的时候,祖传方法明显慢了下来,需要长达几十分钟的排序(VB.6.0与VB.net均如此,VB6.0更慢)。在排序算法的优化中,想到了一种新型排序方法:预留排序法。(新算法100万条数据仅需29毫秒,名字起的比较随意)...
2019-06-16 20:06:10
882
原创 【Unity】“Feature `out variable declaration' cannot be used because it is not part of the C# 4.0” 错误
哈里最近学习Unity的过程中,遇到了一个问题。Unity2018升级到2019后,脚本全都不可用,报错后半段部分内容为“Feature `out variable declaration' cannot be used because it is not part of the C# 4.0 language specification”。苦苦百度了很久之后,终于找到了解决的办法。原...
2019-04-22 22:34:46
10669
14
原创 【Unity】使用Unity Hub安装时候出现“failed to delete old unity installation filed...”问题
错误提示:“failed to delete old unity installation filed.maybe unity or some of its tools are still running”。实际可能是安装时权限不够导致的。可以到C:\Users\当前用户名\AppData\Local\Temp\unityhub-c187c6a0-6446-11e9-ace4-c3afd0...
2019-04-21 23:33:01
5127
原创 【VB6.0】极坐标系转垂直坐标系源码
哈里最近写了一下垂直坐标系转极坐标系的源码。过程大概是求圆的方程与直线交点坐标,从而得到极坐标系到垂直坐标系的位置。逆过程暂时不需要所以没有写。建立一个模块,命名为:极坐标运算模块。模块内码入如下代码:Public Type 二维坐标 X As Double Y As Double End TypePublic Const 一弧度 = 0.017453...
2019-04-21 11:28:48
830
原创 【VB6.0】文件关联大礼包模块
哈里在设计自己NOTE2.0的途中,想加入一个点击文件就可以打开自己程序的代码,即文件关联!在网上搜索了许多前辈们智慧的结晶后,哈里将其做成了一个模块文件,模块代码如下:Private Const REG_SZ = 1 ' Unicode nul terminated stringPrivate Const HKEY_CLASSES_ROOT = ...
2018-07-04 15:07:29
416
原创 【VB6.0】VB化神经网络及其矩阵运算源码
随着哈里对VB学习的深入,修改了之前的矩阵运算源码。源码效率提升了85%,性能提升了12.5%,复杂度提升了N倍 Σ(っ °Д °;)っ废话不多说,上改版后的VB化Python11行BP网络源码:Private Sub Command1_Click() Dim nv As New numvb Dim txt As String, t As Double, te As ...
2018-04-09 13:57:37
3084
原创 关于利用Windows权限屏蔽Win10易升
最近Harry遇到了一个问题:自己的PC(Windows10 2016年版)因为某些特殊原因无法升级。 但微软好似有强迫症?一直偷偷摸摸的使用Win10易升这个程序下载更新镜像,企图安装。但每次都安装失败……关机的时候安装,下一次开机继续安装,安装失败,回滚…… 我的天啊,这种不优雅的行为让我恼怒,但试了网上可搜的方法,皆失败,不得不自己想一个折中的方法——鸠占鹊巢。(或说叫:...
2018-04-07 13:20:56
2368
哈里扫描器[版本:20210125]
2021-02-11
【纯VB6.0代码编写】自然五子棋
2020-06-16
节点笔记_Ve.3.7.6.内部测试版_20200203
2020-02-04
LOL躲技能练习工具
2019-11-18
节点笔记_Ve.3.5.3内部测试版
2019-09-26
文本字符串频率分析工具Pro M+.exe
2019-06-22
numvbDll(VB矩阵运算模块)
2019-01-03
Note_Ve.0.1.14.20180504_Alpha
2018-05-04
节点式笔记软件(内部测试版)
2018-05-02
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人