1.VB对比两幅的问题！！！
2.VB Decompiler Pro(VB反编译工具)v10.1中文版
3.VB Decompiler Pro(VB反编译工具) V10.1中文版

VB对比两幅的问题！！！维护升级源码

       '我只会靠对应像素颜色是否相同判断(可以判断找茬，但两副尺寸要求严格对应)，如果你说的是图像匹配就相当复杂了~

       '新建窗体，添加picture1(0),picture1(1),picture2,command1,hscroll1

       '以下保存在模块中：

       Public Declare Function SetStretchBltMode Lib "gdi" (ByVal hdc As Long, ByVal nStretchMode As Long) As Long

       Public Const STRETCH_HALFTONE = 4

       Public Declare Function StretchBlt Lib "gdi" (ByVal hdc As Long, ByVal X As Long, ByVal Y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal nSrcWidth As Long, ByVal nSrcHeight As Long, ByVal dwRop As Long) As Long

       Public Type BITMAP

       bmType As Long

       bmWidth As Long

       bmHeight As Long

       bmWidthBytes As Long

       bmPlanes As Integer

       bmBitsPixel As Integer

       bmBits As Long

       End Type

       Public Declare Function GetOpenFileName Lib "comdlg.dll" Alias "GetOpenFileNameA" (pOpenfilename As OPENFILENAME) As Long

       Type OPENFILENAME

       lStructSize As Long

       hwndOwner As Long

       hInstance As Long

       lpstrFilter As String

       lpstrCustomFilter As String

       nMaxCustFilter As Long

       nFilterIndex As Long

       lpstrFile As String

       nMaxFile As Long

       lpstrFileTitle As String

       nMaxFileTitle As Long

       lpstrInitialDir As String

       lpstrTitle As String

       flags As Long

       nFileOffset As Integer

       nFileExtension As Integer

       lpstrDefExt As String

       lCustData As Long

       lpfnHook As Long

       lpTemplateName As String

       End Type

       Public Declare Function GetBitmapBits Lib "gdi" (ByVal hBitmap As Long, ByVal dwCount As Long, lpBits As Any) As Long

       Public Declare Function SetBitmapBits Lib "gdi" (ByVal hBitmap As Long, ByVal dwCount As Long, lpBits As Any) As Long

       Public Declare Sub CopyMemory Lib "kernel" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long)

       Public Declare Function GetObject Lib "gdi" Alias "GetObjectA" (ByVal hObject As Long, ByVal nCount As Long, lpObject As Any) As Long

       '以下保存在窗体中

       Dim bit1() As Byte, bit2() As Byte, bit3() As Byte

       Private Sub Form_Load()

       Me.ScaleMode = 3 '像素模式

       Picture1(0).ScaleMode = 3

       Picture1(0).Move , , ,

       Picture1(0).AutoRedraw = True

       Picture1(0).Print "基准图像(双击选择)"

       Picture1(1).Move , , ,

       Picture1(1).AutoRedraw = True

       Picture1(1).Print "输入图像(双击选择)" & vbCrLf & vbTab & "点击对比按钮该图像与基准图像相同部分变暗，不同部分亮显。" & vbCrLf & "单击右键还原上次对比前输入。"

       Command1.Move ,联盟与部落游戏源码 , ,

       Command1.Caption = "对比：阀值"

       Command1.Tag = 0

       Command1.Default = True

       HScroll1.Move , , ,

       HScroll1.Max =

       HScroll1.Value =

       Picture2.ScaleMode = 3

       Picture2.AutoSize = True

       Picture2.AutoRedraw = True

       Picture2.Visible = False

       End Sub

       Private Sub HScroll1_Change()

       If Command1.Tag = 1 Then SetBitmapBits Picture1(1).Image, UBound(bit2), bit2(1) '还原上次对比前

       Command1.Caption = "对比：阀值" & HScroll1.Value

       End Sub

       Private Sub Picture1_DblClick(Index As Integer)

       filenam = openfile

       If filenam <> "" Then

       Picture2.Picture = LoadPicture(filenam)

       SetStretchBltMode Picture1(Index).hdc, 4

       StretchBlt Picture1(Index).hdc, 0, 0, , , Picture2.hdc, 0, 0, Picture2.ScaleWidth, Picture2.ScaleHeight, vbSrcCopy

       Picture1(Index).Refresh

       End If

       End Sub

       Private Sub Picture1_MouseDown(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)

       If Button = 2 And Index = 1 And Command1.Tag = 1 Then SetBitmapBits Picture1(1).Image, UBound(bit2), bit2(1)

       End Sub

       Private Sub Command1_Click()

       getbit Picture1(0).Image, bit1()

       getbit Picture1(1).Image, bit2()

       ReDim bit3(1 To UBound(bit2))

       CopyMemory bit3(1), bit2(1), UBound(bit2)

       For i = 1 To UBound(bit1) Step 4

       If Abs(CInt(bit1(i)) - CInt(bit2(i))) <= HScroll1.Value And Abs(CInt(bit1(i + 1)) - CInt(bit2(i + 1))) <= HScroll1.Value And Abs(CInt(bit1(i + 2)) - CInt(bit2(i + 2))) <= HScroll1.Value Then

       bit3(i) = 0.2 * bit2(i) 'b

       bit3(i + 1) = 0.2 * bit2(i + 1) 'g

       bit3(i + 2) = 0.2 * bit2(i + 2) 'r

       n = n + 1

       End If

       Next

       r = Round( * n / UBound(bit1), 2)

       Me.Caption = "相似度：" & r & "%" & IIf(r = , "（一样）", "（不一样）")

       SetBitmapBits Picture1(1).Image, UBound(bit3), bit3(1)

       Command1.Tag = 1

       End Sub

       Function getbit(ByVal hbmp As Long, ByRef bit() As Byte)

       Dim picinfo As BITMAP

       GetObject hbmp, Len(picinfo), picinfo

       ReDim bit(1 To picinfo.bmHeight * picinfo.bmWidth * 4)

       GetBitmapBits hbmp, UBound(bit), bit(1)

       End Function

       Function openfile() As String

       Dim ofn As OPENFILENAME

       ofn.lStructSize = Len(ofn)

       ofn.hwndOwner = hWnd

       ofn.hInstance = App.hInstance

       ofn.lpstrFilter = "PICTURE FILE ONLY" & Chr(0) & "*.jpg;*.bmp;*.gif" & Chr(0)

       ofn.lpstrFile = Space()

       ofn.nMaxFile =

       ofn.lpstrFileTitle = Space()

       ofn.nMaxFileTitle =

       ofn.lpstrTitle = "打开"

       ofn.flags =

       If GetOpenFileName(ofn) Then openfile = ofn.lpstrFile

       End Function

VB Decompiler Pro(VB反编译工具)v.1中文版

       VBDecompilerProVB反编译工具是一款针对使用VisualBasic5.0/6.0开发的程序的反编译软件。使用这款免费的VBDecompiler可以被编译成伪代码p-code或nativecode模式。

       VB Decompiler Pro(VB反编译工具)是一款针对使用Visual Basic 5.0/6.0开发的程序的反编译软件。使用这款免费的VB Decompiler可以被编译成伪代码p-code或native code模式。

       基本简介

       VB Decompiler是一款针对使用Visual Basic 5.0/6.0开发的程序的反编译器。此类程序可以被编译成伪代码p-code或native code模式。由于伪代码是优惠券 代理源码由高级指令组成, 因此是很有可能反编译成源代码的(当然, 变量名,函数名等等是无法反编译的). VB Decompiler可以恢复众多伪代码指令,但要反编译成源代码还是有很多工作需要完成, 反编译器将帮助您更轻松的分析程序算法以及部分恢复源代码。

       软件特色

       如果一个程序被编译成native code, 从机器码恢复源代码是几乎不可能的. 但即便是这种情形下VB Decompiler还是可以帮助你分析程序. VB Decompiler包含了一个强大的支持包含MMX和SSE的Pentium Pro指令集的反编译器. 它还包含一个代码分析器, 用于搜索所有API调用,汇编代码中的字符串引用并将结果修改为相应的注释。

       软件亮点

       加入一个程序被编译成.net汇编，反编译器将恢复所有的托管代码的数据表和模块，并且使用IL反汇编器反汇编所有的方法，函数以及事件。反编译并不需要.net framework并且支持所有的网站源码授权码破解位Windows操作系统。VB Decompiler也将反编译文件中的所有的图形界面窗体以及控件。出于技术需要，反编译器可能显示所有控件的编译地址。

       功能介绍

       1.通用脱壳(支持UPX, NSPack以及一些其他常见的可执行文件压缩壳)；

       2.反编译窗体(frm和frx)以及用户控制(ctl)对象文件；

       3.完整的伪代码p-code反编译(解析操作码并转换为标准vb指令,反编译GUID对象)；

       4.两种伪代码反编译模式(包含堆栈解析或不包含堆栈解析)；

       5.反汇编native code过程(使用强大的Pentium Pro反汇编器,支持MMX及FPU指令集)；

       6.反汇编native code过程中的字符串引用以及API调用(使用强大的Pentium Pro反汇编器,支持MMX及FPU指令集)；

       7.部分反编译native code（使用代码仿真引擎）；

       8.在反编译的代码中根据语法显示不同的颜色；

       9.字符串引用列表以及搜索引擎；

       .快速反编译；

       .VB5/6程序的混淆工具；

       .VB5/6程序的修补工具；

       .将反编译的数据保存入单个db文件；

       .反编译.Net程序；

       .将所有的过程列表保存入MAP文件；

       .IDC脚本或是HIEW的Names文件；

       更新日志

       - 高亮显示“保存”操作符；

       - 固定阿拉伯语。感谢lculator zaloom；

       - 错误修复:使用语言，选择在安装程序；

       - 错误修正:正确处理变量类型有3个数字(例如var_)，服务器源码网站但内容2个数字(例如var_FC)；

       - bug修复:反编译msvbvm。dll函数__vbaForEachVar(本机代码)；

       - bug修复:反编译msvbvmXX。dll函数__vbaNextEachAry， __vbaLsetFixstrFree；

       - bug修复:从未知dll (P-Code，本机代码)反编译函数调用；

       - bug修复:正确处理fld命令的操作数(本机代码)；

       - bug修复:通过按“<”和“>”来向前/向后跳转；

VB Decompiler Pro(VB反编译工具) V.1中文版

       VB Decompiler Pro(VB反编译工具)是一款对于应用Visual Basic 5.0/6.0开发设计的程序的反编译软件。应用这款完全免费的VB Decompiler能够被编译成伪代码p-code或native code方式。

       基础介绍

       VB Decompiler是一款对于应用Visual Basic 5.0/6.0开发设计的程序的反编译器。该类程序能够被编译成伪代码p-code或native code方式。因为伪代码是由高级命令构成, 因而是很有可能反编译成源码的(自然, 用户标识符,涵数名这些是没法反编译的). VB Decompiler能够修复诸多伪代码命令,但要反编译成源码还是有很多工作中必须进行, 反编译器将协助您更轻轻松松的剖析程序优化算法及其一部分修复源码。

       软件特点

       假如一个程序被编译成native code, 从序列号修复源码是基本上不太可能的. 但就算是这类情况下VB Decompiler还是能够协助你剖析程序. VB Decompiler包含了一个强劲的适用包括MMX和SSE的Pentium Pro指令系统的反编译器. 它还包括一个编码解析器, 用以检索全部API启用,汇编代码中的字符串数组引入并将结果改动为相对的注解。

       软件闪光点

       添加一个程序被编译成.net选编，反编译器将修复全部的托管代码的数据分析表和控制模块，而且应用IL反汇编器反编译全部的方式，涵数及其恶性事件。反编译并不一定.net framework而且适用全部的位系统Windows电脑操作系统。VB Decompiler也将反编译文档中的全部的用户界面文本框及其控制。出自于技术性必须，反编译器很有可能显示信息全部控制的编译程序详细地址。

       功能介绍

       1.通用性蜕壳(适用UPX, NSPack及其一些别的普遍的可执行程序缩小壳)；

       2.反编译文本框(frm和frx)及其客户操纵(ctl)目标文档；

       3.详细的伪代码p-code反编译(分析操作码并变换为规范vb命令,反编译GUID目标)；

       4.二种伪代码反编译方式(包括局部变量分析或不包含局部变量分析)；

       5.反编译native code全过程(应用强劲的Pentium Pro反汇编器,适用MMX及FPU指令系统)；

       6.反编译native code全过程中的字符串数组引入及其API启用(应用强劲的Pentium Pro反汇编器,适用MMX及FPU指令系统)；

       7.一部分反编译native code（应用编码模拟仿真模块）；

       8.在反编译的编码中依据英语的语法显示信息不一样的色调；

       9.字符串数组引入目录及其百度搜索引擎；

       .迅速反编译；

       .VB5/6程序的搞混专用工具；

       .VB5/6程序的修补工具；

       .将反编译的数据信息储存入单独db文件；

       .反编译.Net程序；

       .将全部的全过程目录储存入MAP文档；

       .IDC脚本制作或者HIEW的Names文档；

       版本更新

       - 高亮显示“储存”操作符；

       - 固定不动阿语。谢谢lculator zaloom；

       - 不正确修复:应用语言，挑选在安装程序；

       - 不正确调整:妥善处理变量类型有3个数据(比如var_)，但内容两个数据(比如var_FC)；

       - bug修复:反编译msvbvm。dll涵数__vbaForEachVar(该设备编码)；

       - bug修复:反编译msvbvmXX。dll涵数__vbaNextEachAry， __vbaLsetFixstrFree；

       - bug修复:从不明dll (P-Code，该设备编码)反编译调用函数；

       - bug修复:妥善处理fld指令的操作数(该设备编码)；

       - bug修复:根据按“lt;”和“gt;”来往前/向后自动跳转；