Module ini读写模块 Private Declare Unicode Function GetPrivateProfileInt Lib "kernel32" Alias "GetPrivateProfileIntW" (ByVal lpAppName As String, ByVal lpKeyName As String, ByVal nDefault As Integer, ByVal lpFileName As String) As Integer Private Declare Unicode Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringW" (ByVal lpAppName As String, ByVal lpKeyName As String, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVa
说明最近一直在寻找一款比较好用的.NET混淆工具。先后尝试了Obfuscar、VMP、还有这一款,目前的话感觉这一款使用还是非常不错的。所以根本.NET Reactor的第三方写出来这样的一个小工具,因为.NET Reactor他的程序是英文版,按照软件默认的设置,可以防止很大一部分的工具党。注:关键代码必须使用虚拟化做处理,不然的话,使用GITHUB的NETReactorSlayer工具,秒解混淆,加入虚拟化之后,NETReactorSlayer工具针对虚拟化的代码,还是无法还原。软件图使用说明将.NET软件拖动到程序窗体,然后点击“开始处理”按钮即可开始进行混淆。混淆结束之后,可以点击打开目录来查看已经混淆处理之后的程序目录。当前的使用NETReactor的功能如下:1、程序默认混淆功能2、字符串加密3、方法调用混淆4、压缩及加密程序资源5、代码执行虚拟化6、控制流模糊等级默认为9最后再说明一点,NET程序内的关键代码过程务必添加虚拟化的指令,具体可以参考软件内的说明。软件下载https://www.123pan.com/s/AHC0Vv-DEMc.html提取码:3aad
欢乐斗地主内置记牌器停止更新
今天上线看了下游戏,改版挺厉害。直接改为了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
LaoDan
鱼头网络工作室