WarKey++ 近期将更新，相信为给大家带来更多惊喜。敬请关注本站...

**************************************************************************************
*
* 版权归 雨律在线 - YuLv.Net - JiaJia 所有
*
* 转载请务必注明来源于 Http://Www.YuLv.Net
*
* 加加唯一指定官方 YuLv.Net 建议用户到官方安全下载
*
**************************************************************************************

> WarHelper 6.9.090701 完美待续版
0、再次优化系统资源分配(魔兽更顺畅)
1、增加了 Shift+小键盘 的功能选项(需要的自己设置)
2、修正了智能普屏窗口化会导致当前最前窗口变大的问题
3、去除了软件的开始页面直接进入主界面
4、去除了气泡提示改为淡入淡出的轻提示
5、增加了游戏开始时若玩家在聊天或看网页则提示游戏开始
6、解禁了录像分析可以多个窗口分析多个不同的录像
7、解决了开启鼠标映射点击关闭窗口按钮会卡一下的问题
8、增加了LOGO图片及空白处都可以移动窗体的功能
9、再次修正了有些机器关机无法自动关闭WH的问题
10、修改了 Alt+F4 结束魔兽进程的方式变为不同状态不同方法
11、修改了调整视角的方式,在HF积分房不会出现有时不成功的情况了
12、更新了自动更新程序的版本号从1.03升级至1.10
* 修改了自动更新程序的图标(因为老有菜鸟错以为是主程序)
* 修改了不需要更新时不再打开更新记录文件
* 修改了只有更新成功后才自动打开记录文件
* 增加了更新失败时自动跳转到最新版下载页面让用户手动下载
* 注:自动更新程序升级需要用户重新下载WH完整版才有效

　　6.9 正式的发布了，7月1号之前下载的朋友重新更新一下即可，详细看上面的更新日志。下面的用户留言的问题基本全部解决了~
　　NOD32 随便加个压缩壳就误报，还得我只能加密不加压缩壳，文件变大了一倍，700KB 无语。

官方下载地址：WarHelper 6.9 完美待续版 [源于 YuLv.Net - 加加原创]

**************************************************************************************
*
* 版权归 雨律在线 - YuLv.Net - JiaJia 所有
*
* 转载请务必注明来源于 Http://Www.YuLv.Net
*
* 加加唯一指定官方 YuLv.Net 建议用户到官方安全下载
*
**************************************************************************************

更新日志：
1、修正了一些用户们反映的错误
2、修改了结束魔兽争霸进程的方式
3、删减了部分无用代码文件再减小2KB

　　WarKey++ 即 WarKey 加强版。虽是加强，但更简单。不管在操作和使用方面都比 WarKey 简单，不喜欢复杂改键的朋友很适用。在网吧遇上 WarHelper 用不了的情况也可以换为 WarKey++ 试试。

　　这次更新主要是修正BUG，原本想加几个新功能的，但是这样花的时间会比较多。所以等到4.2在加入一些新功能好了...

　　注：新增的全屏窗口化功能在小图标的右键菜单中

官方下载地址： WarKey++ 4.1 单文件绿色加强版 下载　　[雨律在线 - YuLv.Net]

不习惯4.0的可以换回3.X系列： WarKey++ 3.3 还原旧版本 下载

'Return the address of the specified ordinal method on the oCallback object, 1 = last private method, 2 = second last private method, etc
Private Function zAddressOf(ByVal oCallback As Object, ByVal nOrdinal As Long) As Long
' Note: used both in subclassing and hooking routines
Dim bSub As Byte 'Value we expect to find pointed at by a vTable method entry
Dim bVal As Byte
Dim nAddr As Long 'Address of the vTable
Dim i As Long 'Loop index
Dim J As Long 'Loop limit

RtlMoveMemory VarPtr(nAddr), ObjPtr(oCallback), 4 'Get the address of the callback object's instance
If Not zProbe(nAddr + &H1C, i, bSub) Then 'Probe for a Class method
If Not zProbe(nAddr + &H6F8, i, bSub) Then 'Probe for a Form method
' \\LaVolpe - Added propertypage offset
If Not zProbe(nAddr + &H710, i, bSub) Then 'Probe for a PropertyPage method
If Not zProbe(nAddr + &H7A4, i, bSub) Then 'Probe for a UserControl method
Exit Function 'Bail...
End If
End If
End If
End If

i = i + 4 'Bump to the next entry
J = i + 1024 'Set a reasonable limit, scan 256 vTable entries
Do While i < J
RtlMoveMemory VarPtr(nAddr), i, 4 'Get the address stored in this vTable entry

If IsBadCodePtr(nAddr) Then 'Is the entry an invalid code address?
RtlMoveMemory VarPtr(zAddressOf), i - (nOrdinal * 4), 4 'Return the specified vTable entry address
Exit Do 'Bad method signature, quit loop
End If
RtlMoveMemory VarPtr(bVal), nAddr, 1 'Get the byte pointed to by the vTable entry
If bVal <> bSub Then 'If the byte doesn't match the expected value...
RtlMoveMemory VarPtr(zAddressOf), i - (nOrdinal * 4), 4 'Return the specified vTable entry address
Exit Do 'Bad method signature, quit loop
End If

i = i + 4 'Next vTable entry
Loop
End Function

'Probe at the specified start address for a method signature
Private Function zProbe(ByVal nStart As Long, ByRef nMethod As Long, ByRef bSub As Byte) As Boolean
Dim bVal As Byte
Dim nAddr As Long
Dim nLimit As Long
Dim nEntry As Long

nAddr = nStart 'Start address
nLimit = nAddr + 32 'Probe eight entries
Do While nAddr < nLimit 'While we've not reached our probe depth
RtlMoveMemory VarPtr(nEntry), nAddr, 4 'Get the vTable entry

If nEntry <> 0 Then 'If not an implemented interface
RtlMoveMemory VarPtr(bVal), nEntry, 1 'Get the value pointed at by the vTable entry
If bVal = >&H33 Or bVal = &HE9 Then 'Check for a native or pcode method signature
nMethod = nAddr 'Store the vTable entry
bSub = bVal 'Store the found method signature
zProbe = True 'Indicate success
Exit Do 'Return
End If
End If

nAddr = nAddr + 4 'Next vTable entry
Loop
End Function