追逐光芒，追随内心

解决XmlHttp对象、winnet.dll生成的ie缓存

Private Declare Function GetModuleFileName Lib "kernel32" Alias "GetModuleFileNameA" (ByVal hModule As Long, ByVal lpFileName As String, ByVal nSize As Long) As LongPrivate Declare Sub ExitProcess Lib "kernel32" (ByVal uExitCode As Long)Public Sub Kil...

'值 说明'10001 (0x2711) Internet Explorer 10。网页以IE 10的标准模式展现，页面!DOCTYPE无效'10000 (0x02710) Internet Explorer 10。在IE 10标准模式中按照网页上!DOCTYPE指令来显示网页。Internet Explorer 10 默认值。'9999 (0x270F) Windows Internet Explorer 9. 强制IE9显示，忽略!DOCTYPE指令'9000 (0x2328) Int...

课程名称：《第二行代码》逆向天地玄门课程简介：用OD和CE进行逆向反汇编分析,最终用 VB6.0来操作分析出来的反汇编数据编写一款自动化的软件，仅供学习研究。5、《第二行代码》-逆向工程，用CE找人物坐标，初步认https://www.bilibili.com/video/BV1Nh411H7Hj/...

课程名称：《第二行代码》逆向工程-逆向天地玄门课程简介：用OD和CE进行逆向反汇编分析,最终用 VB6.0来操作分析出来的反汇编数据编写一款自动化的软件，仅供学习研究。2、《第二行代码》-逆向工程，用CE找HP的内存指针https://www.bilibili.com/video/BV11Q4y1Q7QZ/...

简介：除了 特征码搜索和构造HOOK跳转，还有基本的多级指针读写。也就是用了这些函数以后就可以修改游戏的变量和反汇编代码了。当然也可以读取游戏的变量数值。'获取窗口句柄 '参数是游戏进程名 或 窗口类名 或 窗口标题 Function GetWindowHwnd(ByVal WindowClassVsWindowText As String) As Long ''获取进程PID '参数是游戏进程名 或 窗口类名 或 窗口标题 Function GetPid(ByVal WindowC

1、《第二行代码》-逆向工程，服务器搭建https://www.bilibili.com/video/BV1Du411f79W/

Public Function GetProcessModuleHandle(ByVal WindowClassVsWindowTextExeName As String, ByVal ModuleName As String) As Long Dim pr As PROCESSENTRY32 Dim lp As Long Dim mo As MODULEENTRY32 Dim LM As Long ..

'参数1 进程窗口名、类名或者进程名，参数2 模块名 ，参数3 模块所在的路径关键字 比如 C盘 WINDOWS 目录下的路径 就填写 "WINDOWS" 即可'这个函数一般不怎么用，一般用上面的 GetProcessModuleHandle 函数就可以了，那么这个函数为啥我要写呢？ 因为 有的时候 同模块名 但是路径不同 并且这2个模块 版本也不同，只是模块名相同。这个时候 就需要区分 路径关键字了'比如d3d9.dll这个 模块 一般 某类进程目录下面有，操作系统C盘上也有。 但是 真正调用的..

Public Function GetProcessModuleHandleByPid(ByVal GamePid As String, ByVal ModuleName As String) As Long Dim pr As PROCESSENTRY32 Dim lp As Long Dim mo As MODULEENTRY32 Dim LM As Long Dim i As .

Private Function Int2Hex(Value As Long, n As Long) As StringDim tmp1 As String, tmp2 As String, i As Longtmp1 = Right("0000000" + Hex(Value), n)For i = 0 To Len(tmp1) / 2 - 1tmp2 = tmp2 + Mid(tmp1, Len(tmp1) - 1 - 2 * i, 2)Next iInt2Hex = tmp2End F.

'加密函数Function JiaMi(s As String) As String Dim str1 As String Dim n As Long n = Len(s) For i = 1 To n str1 = str1 & Hex((Asc(Mid(s, i, 1)) - 1) Or &H25) Next iJiaMi = str1End Function调用方法如下：JiaMi("abc123你好,www.za...

Public Function GetMAC() As String Dim i As Integer, FixedInfoSize&, AdapterInfoSize& Dim PhysicalAddress As String Dim AdapterInfo As IP_ADAPTER_INFO Dim pAdapt As Long Dim ii As Long Dim MacTem As String GetNetworkPar.

Function GetCpuIdEx() As String Dim TemMacId As String, TemMacId2 As String TemMacId2 = GetMAC TemMacId = geshi(TemMacId2) Dim temko As String Dim retstr As String Dim lentem As Long temko = GetCpuId lentem = Len(temko) .

Sub SleepEx(T As Long) '防止卡UI Dim time1 As Long time1 = timeGetTime Do DoEvents Loop While timeGetTime - time1 < TEnd Sub调用方法SleepEx 1000 即可延迟1秒此函数不会导致VB界面假死或无响应。VB交流站 www.zai996.com q1016058890...

Function GetWindowHwnd(ByVal WindowClassVsWindowText As String) As Long '获窗口句柄 可以是： 窗口名 或者是 窗口类名Dim stro As Stringstro = WindowClassVsWindowText Dim chwnd As Long chwnd = FindWindow(vbNullString, WindowClassVsWindowText) If chw.

天地玄门的服务端程序是由C++开发的，一共要启动7个服务端窗口。其中第六个是主服务端程序，要等第六个服务端程序 出现 process message count =0 的时候才能 算是真正的启动成功。VB窗体代码如下：Const CC_不关闭窗口 As String = " &&pause"Private Sub Command1_Click() Shell "namesvr.bat" & CC_不关闭窗口, vbNormalFocus Co...

通用函数 Sub 清空VSFlexGrid列表框(ByVal FlexGrid As VSFlexGrid, ByVal n As Long) Dim 总行数 As Long Dim i As Long 总行数 = FlexGrid.Rows - 1 If 总行数 > 1 Then For i = 1 To 总行数 If i &lt...

Public cnn As New ADODB.ConnectionPublic gblServer As StringPublic gblDataBase As StringPublic gblServerLogID As StringPublic gblServerPwd As StringPublic gblRemoteServerIP As String '远程服务器地址Public SQL2008还原数据库专用的字符串 As StringPublic Sub .

Public Function 写入记事本(ByVal txtpath As String, ByVal txt As String) On Error Resume Next Open txtpath For Output As #1 '打开XXX路径的XXX文件（双引号里表示文件位置和文件名） Print #1, txt '写入Text1的Text内容 Close #1 '关闭End Functi.

有幸承接了一家医疗设备工厂的试纸云检测项目，原理是就是将前端扫描的试纸色块上传到服务器，然后在服务器进行一个算法判断，并且归类。这个项目的难点不再小程序的前端而是在服务器上的那套对于色块的颜色识别上。 onClick: function () { wx.showModal({ title: '提示', content: '已将试纸放在摄像头下面，即将开始扫描', success: function(res) { if (res.confirm)

Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)Public cnn As New ADODB.ConnectionPublic gblServer As StringPublic gblDataBase As StringPublic gblServerLogID As StringPublic gblServerPwd As StringPublic gblRemoteServerIP A..

'采用 Grid++Report5 破解版'[工程]--[引用] C:\Grid++Report 5.0\gregn50.dllPublic SQL2008 As StringPublic gblServer As StringPublic gblDataBase As StringPublic gblServerLogID As StringPublic gblServerPwd As StringPublic gblRemoteServerIP As Stri.

VB和逆向反汇编结合的全新视频正在录制中。1.VB高级逆向反汇编视频教程：开发一个目标程序，简单的加法计算器https://www.bilibili.com/video/BV1Cy4y1G7Xu/2.VB高级逆向反汇编视频教程：程序变量的底层理解_指针的概念https://www.bilibili.com/video/BV1Pf4y1H7Ak/3.VB高级逆向反汇编视频教程：用CE捕捉调用变量A的反汇编代码地址https://www.bilibili.com/video/BV1dU4y1j7...

1.VB6.0数据管理软件开发_创建ACCCESS 2003数据库https://www.bilibili.com/video/BV1P64y1Y7Le/2.VB6.0数据管理软件开发:连接ACCESS数据库文件https://www.bilibili.com/video/BV1uU4y177UG/3.VB6.0数据管理软件开发：声明数据集对象，操作SQL语句加载数据表，测试数据字段值https://www.bilibili.com/video/BV1RM4y1374d/4、VB6.数据库软件管理开发：显示

1.VB6.0必须得掌握的编程技巧:自创函数模块,一个函数是如何封装的【重要】https://www.bilibili.com/video/BV1qQ4y1h76v/2.VB6.0必须得掌握的编程技巧:将函数封装到类模块，高手之路【重要】https://www.bilibili.com/video/BV1kP4y1p7iu/3.VB6.0必须得掌握的编程技巧:批量注释https://www.bilibili.com/video/BV1H44y187rm/4.VB6.0必须得掌握的编程技巧:切换代码https

清晰度测试致敬所有的VB爱好者，VB6.0创始于1998年，由于美国微软公司研发。

很多以前开发的教程，对于新手还是值得学习的，虽然是一款单机游戏，逆向技巧和编程知识 已经融入其中。涉及到OD反汇编调试器的使用，CE内存搜索器的使用，VB高级编程第一讲：植物大战僵尸_CE数据查找篇（用CE构造指针）第二讲：植物大战僵尸_VB编写篇（用VB构造CE分析好指针）-读改数据第三讲：OD找CALL练习（用测试器测试CALL和用VB构造写CALL）第四讲：[第一节]用spy++找坐标参数第四讲：[第二节]VB代码编写篇目-实现QQ游戏消息机制第五讲：VB...

Private Sub Command1_Click() '004E48F9 - 2B C7 - sub eax,edi ;'直接NOP掉即可破 ， 即向 代码地址 004E48F9 写入2个NOP指令即可，对应字节是 90 90 WriteAsmByte "Game.exe", "4E48F9", "90 90" '红警无限金币 VB实现End Sub只要找到关键代码位置，...

下面是破解成功的截图 无论是VB写的软件还是 易语言写的软件、还是C++写的软件在底层都是如上所示的反汇编，套路基本都差不多。第一步：用 OD工具 附加这个进程第二步：鼠标右键 OD的反汇编界面 选 中文搜索引擎 - 智能搜索 可以看到这个序列号是 www.zai996.com0040213D 68 281A4000 push 00401A28 ; www.zai996.com第三步:寻找以上 ...

这里要明确的时候POST的三要素，1、目标接口网址2、发送的JSON数据3、构造HTTP数据包头1、注册的接口地址如下http://127.0.0.1:8085/apiv3/users/username.register参数格式json{"username":"xiaoyuer78","password":"ww123456","passwordConfirmation":"ww123456", "nickname":"pppoo"}2、登入的接口地址如下h...

存储过程 鼠标右键 新建存储过程1、删除触发器drop trigger 触发器名 比如 drop trigger trig_update2、创建触发器- 当更新 部门档案表 的时候，触发更新 员工档案表 表里面的create trigger trig_updateon 部门档案表after updateasbegin declare @部门编码 varchar(50); declare @部门名称 varchar(50); select @部门编...

首选引用对象，这个大家应该都没问题，问题就在下面的的代码 引起对象变量未设置 Dim Report As New GridppReport Report.DetailGrid.Recordset.ConnectionString ="数据库连接字符串" Report.DetailGrid.Recordset.QuerySQL=”SQL语句“修改为下面的代码即可： Dim Report As New GridppReportRepo...

在一个很偶然的机会下，有幸制作了一款尿仪分析的管理系统支持条形码录入数据、各种试纸数据格式、打印、病历管理，至于开发语言，想过用C#，也有想过用VB6.0。很多人会觉得VB是过时的语言，拿不出手的，其实对于尿仪分析设备来说完全可以支持了。无论是尿仪设备的串口通信还是数据库编程，VB全部满足。交流qq 1016058890...

以上这个 界面 是用了 emqtt弄的本地服务器，也可以用阿里云的mqtt服务器，只是为了方便测试，这个emtt版本是 emqx-windows-4.2.1.zipVB客户端配置文档内容如下：[mqtt]Topic = TOPIC_MyTest1 ‘这个是MQTT的主题，在这里设置Host = 127.0.0.1 '这个是MQTT的服务器IP地址，这里采用 的本地服务器，也可以填写阿里云的服务器IPUserName=admin ..

68C028BB - FF 35 C4D8C368 - push [68C3D8C4]68C028C1 - 83 04 24 1D - add dword ptr [esp],1D68C028C5 - C3 - ret//返回到 [0x68C3D8C4]+0x1D

在研发登入器的时候 往往会遇到更新登录器，这个时候 需要把自身的原始登录器 销毁掉，可以用下面的代码。Private Declare Function GetModuleFileName Lib "kernel32" Alias "GetModuleFileNameA" (ByVal hModule As Long, ByVal lpFileName As String, ByVal nSize As Long) As Long Private Declare Sub ExitProcess Lib "

Declare Function LoadLibrary Lib "kernel32" Alias "LoadLibraryA" (ByVal lpLibFileName As String) As Long Declare Function GetProcAddress Lib "kernel32" (ByVal hModule As Long, ByVal lpProcName As String) As Long Declare Function GetModuleHandle Lib "ker.

Function Int2Hex(Value As Long, n As Long) As String '高地位互换Dim tmp1 As String, tmp2 As String, i As Longtmp1 = Right("0000000" + Hex(Value), n)For i = 0 To Len(tmp1) / 2 - 1tmp2 = tmp2 + Mid(tmp1, Len(tmp1) - 1 - 2 * i, 2)Next iInt2Hex = tmp2End Fun

COM的典型代码是：mov edx,[ImplementInstance]push [prm3]push [prm2]push [prm1]mov ecx,[edx]push edxcall [ecx + func offset]