The Coding Way
欢乐斗地主内置记牌器停止更新今天上线看了下游戏，改版挺厉害。直接改为了64位的程序。而且将原来的2D给改为了3D。整个程序的框架全都变动了。之前一直使用的基址已经无法使用，再次更新难度太大。
像如果NET开发的话，他的源码使用一些编译软件直接一览无余。和32位程序不同，NET平台下的软件破解也极为简单，使用dnSpy工具可以直接针对源码进行修改。之前我使用的是吾爱的VMP3.8，强度很强，但360和10系统自带的杀毒软件报毒，找了半天，发现Obfuscar混淆挺好用的，也可以有效的防止软件被反编译。所以有了这样的一个工具，可以针对NET程序进行混淆处理。软件图：反编译结果：软件下载：https://www.123pan.com/s/AHC0Vv-w3Mc.html
说明软件带了一个默认的阿里的DNS。打开软件，输入DNS1和DNS2，点击DNS按钮修改即可。软件图软件下载DNS修改.rar
使用说明打开游戏，进入房间，打开软件，软件自动勾选重置地址，然后点击呼出记牌器，将会自动呼出内置的记牌器工具。注意原版本已失效，不可使用。首次下载游戏，首次打开游戏，会有呼不出来的现象，请更换模式，或重新退出游戏和QQ游戏客户Duan，重新登陆尝试。这种情况一般只会出现首次打开游戏的时候，后续会正常。具体出现原因不明，和游戏有关，我也懒得找问题了。功能介绍1、重置地址(首次呼出会需要重置地址，再次呼出内置记牌器的时候可以取消重置地址功能，当然如果地址出错，也可以勾选重置地址。)2、锁定值(设定循环，将地址锁定，这样避免了每局游戏都必须点击呼出记牌器的按钮，实现自动呼出记牌器的功能，解放双手。)软件图软件下载：https://www.123pan.com/s/AHC0Vv-jrIc.html
Imports System.Runtime.InteropServices Public Class Form1 <DllImport("user32.dll")> Private Shared Function RegisterHotKey(ByVal hWnd As IntPtr, ByVal id As Integer, ByVal fsModifiers As Integer, ByVal vk As Integer) As Boolean End Function <DllImport("user32.dll")> Private Shared Function UnregisterHotKey(ByVal hWnd As IntPtr, ByVal id As Integer) As Boolean End Function ' 窗体句柄 Private hwnd As IntPtr ' 热键标识符 Private
Public Sub 延时秒(ByVal 延时 As Integer, Optional ByVal 单位 As String = "毫秒") Dim 延时时间 As Int64 '因为时间是以100纳秒为单位。 If 单位 = "毫秒" Then 延时时间 = 延时 * 10000 If 单位 = "秒" Then 延时时间 = 延时 * 10000 * 1000 If 单位 = "分" Then 延时时间 = 延时 * 10000 * 1000 * 60 If 单位 = "时" Then 延时时间 = 延时 * 10000 * 1000 * 60 * 60 If 单位 = "天" Then 延时时间 = 延时 * 10000 * 1000 * 60 * 60 * 24 Dim 临时时间 As DateTime = DateTime.Now Whil
Imports System.Windows.AutomationImports System.Runtime.InteropServicesPublic Class Form1<DllImport("user32.dll", SetLastError:=True)> Private Shared Function FindWindow(ByVal lpClassName As String, ByVal lpWindowName As String) As IntPtr End Function Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click GetChatWndElements() End Sub Public Sub GetChatWndElements() ' 根据快速窗口类名查找窗口 Dim text As String Dim condition As Condition = New Proper
Imports System.Runtime.InteropServices Public Class Form1' 导入 SetParent 函数 <DllImport("user32.dll", SetLastError:=True)> Private Shared Function SetParent(ByVal hWndChild As IntPtr, ByVal hWndNewParent As IntPtr) As IntPtr End Function ' 导入 MoveWindow 函数 <DllImport("user32.dll", SetLastError:=True)> Private Shared Function MoveWindow(ByVal hwnd As IntPtr, ByVal x As Integer, ByVal y As Integer, ByVal nWidth As Integer, ByVal nHeight As Integer, ByVal bRepaint As
运行图代码记得在工具栏中加载NotifyIcon1组件！Imports System.ComponentModel Public Class Form1 Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load NotifyIcon1.Icon = Me.Icon '将 NotifyIcon 的图标设置为窗体的图标 NotifyIcon1.ContextMenuStrip = ContextMenuStrip1 '将 ContextMenuStrip 关联到 NotifyIcon NotifyIcon1.Visible = True '显示 NotifyIcon End Sub End Class
昨天使用PaddleOCRSharp库搞了一个离线OCR的工具，我一直感觉OCR工具使用挺方便，昨天想写一个，上论坛看到有现成的还写个毛。软件自测使用挺方便，调用的应该也是PaddleOCRSharp离线OCR的库。使用说明打开软件，在右下角会显示图标，将图标双击，拉取范围即可实现离线的OCR识别软件图软件下载https://400.lanzout.com/isoQK0zge3od
LaoDan
鱼头网络工作室
![欢乐斗地主内置记牌器 适用于2.26.0.5版[失效不可用]](https://lxjc.com/usr/uploads/2023/07/1185813188.png)
