魔兽争霸war3所有版本MaphackPath代码公布
- 时间：2015年04月02日 15:34:10 来源：魔法猪系统重装大师官网 人气：14115
Sub ShowBigMap120() '大地图单位显示1.20
WriteProcessMemory pHandle, &H6F2A0803, VarPtr(&HC03340), 3, 0&
WriteProcessMemory pHandle, &H6F2A0806, VarPtr(&HD23342), 3, 0&
End Sub
Sub HideBigMap120() '大地图单位隐藏1.20
WriteProcessMemory pHandle, &H6F2A0803, VarPtr(&H14428B), 3, 0&
WriteProcessMemory pHandle, &H6F2A0806, VarPtr(&H10528B), 3, 0&
End Sub
Sub ShowBigMiWu120() '大地图迷雾清除1.20
WriteProcessMemory pHandle, &H6F406A0F, VarPtr(&H9009), 2, 0&
WriteProcessMemory pHandle, &H6F406A14, VarPtr(&H9009), 2, 0&
End Sub
Sub HideBigMiWu120() '大地图迷雾显示1.20
WriteProcessMemory pHandle, &H6F406A0F, VarPtr(&H449), 2, 0&
WriteProcessMemory pHandle, &H6F406A14, VarPtr(&H849), 2, 0&
End Sub
Sub ShowBigHide120() '大地图显示隐形单位1.20
WriteProcessMemory pHandle, &H6F17D4D8, VarPtr(&H90909090), 4, 0&
WriteProcessMemory pHandle, &H6F17D4DC, VarPtr(&H1B8), 4, 0&
End Sub
Sub HideBigHide120() '大地图隐藏隐形单位1.20
WriteProcessMemory pHandle, &H6F17D4D8, VarPtr(&H5650006A), 4, 0&
WriteProcessMemory pHandle, &H6F17D4DC, VarPtr(&H12344FE8), 4, 0&
End Sub
Sub ShowHuanX120() '大地图分辨幻象1.20
WriteProcessMemory pHandle, &H6F1ACFEC, VarPtr(&HC340), 2, 0&
End Sub
Sub HideHuanX120() '大地图不分辨幻象1.20
WriteProcessMemory pHandle, &H6F1ACFEC, VarPtr(&H90C3), 2, 0&
End Sub
Sub ShowJiNeng120() '显示技能1.20
WriteProcessMemory pHandle, &H6F12DC0A, VarPtr(&H9090), 2, 0&
WriteProcessMemory pHandle, &H6F12DC4A, VarPtr(&H9090), 2, 0&
WriteProcessMemory pHandle, &H6F1BFA4E, VarPtr(&HEB), 1, 0&
WriteProcessMemory pHandle, &H6F442CC3, VarPtr(&H9090), 2, 0&
WriteProcessMemory pHandle, &H6F4431F5, VarPtr(&H9090), 2, 0&
WriteProcessMemory pHandle, &H6F45A321, VarPtr(&H90909090), 4, 0&
WriteProcessMemory pHandle, &H6F45A325, VarPtr(&H9090), 2, 0&
WriteProcessMemory pHandle, &H6F45E3FE, VarPtr(&H90909090), 4, 0&
WriteProcessMemory pHandle, &H6F45E402, VarPtr(&H9090), 2, 0&
WriteProcessMemory pHandle, &H6F466047, VarPtr(&H9090), 2, 0&
WriteProcessMemory pHandle, &H6F46ACE8, VarPtr(&H90909090), 4, 0&
WriteProcessMemory pHandle, &H6F46ACEC, VarPtr(&H9090), 2, 0&
WriteProcessMemory pHandle, &H6F4A0C30, VarPtr(&H9090), 2, 0&
WriteProcessMemory pHandle, &H6F54B9FF, VarPtr(&H90909090), 4, 0&
WriteProcessMemory pHandle, &H6F54BA03, VarPtr(&H9090), 2, 0&
WriteProcessMemory pHandle, &H6F556CDE, VarPtr(&H9090), 2, 0&
WriteProcessMemory pHandle, &H6F556CE0, VarPtr(&H90909090), 4, 0&
WriteProcessMemory pHandle, &H6F55D84C, VarPtr(&H9090), 2, 0&
End Sub
Sub HideJiNeng120() '隐藏技能1.20
WriteProcessMemory pHandle, &H6F12DC0A, VarPtr(&H874), 2, 0&
WriteProcessMemory pHandle, &H6F12DC4A, VarPtr(&H874), 2, 0&
WriteProcessMemory pHandle, &H6F1BFA4E, VarPtr(&H75), 1, 0&
WriteProcessMemory pHandle, &H6F442CC3, VarPtr(&H3874), 2, 0&
WriteProcessMemory pHandle, &H6F4431F5, VarPtr(&H1E74), 2, 0&
WriteProcessMemory pHandle, &H6F45A321, VarPtr(&H160840F), 4, 0&
WriteProcessMemory pHandle, &H6F45A325, VarPtr(&H0), 2, 0&
WriteProcessMemory pHandle, &H6F45E3FE, VarPtr(&H126840F), 4, 0&
WriteProcessMemory pHandle, &H6F45E402, VarPtr(&H0), 2, 0&
WriteProcessMemory pHandle, &H6F466047, VarPtr(&HF74), 2, 0&
WriteProcessMemory pHandle, &H6F46ACE8, VarPtr(&H91840F), 4, 0&
WriteProcessMemory pHandle, &H6F46ACEC, VarPtr(&H0), 2, 0&
WriteProcessMemory pHandle, &H6F4A0C30, VarPtr(&HF74), 2, 0&
WriteProcessMemory pHandle, &H6F54B9FF, VarPtr(&HF7840F), 4, 0&
WriteProcessMemory pHandle, &H6F54BA03, VarPtr(&H0), 2, 0&
WriteProcessMemory pHandle, &H6F556CDE, VarPtr(&H840F), 2, 0&
WriteProcessMemory pHandle, &H6F556CE0, VarPtr(&H161), 4, 0&
WriteProcessMemory pHandle, &H6F55D84C, VarPtr(&H4A74), 2, 0&
End Sub
Sub ShowKongZhi120() '控制单位1.20
WriteProcessMemory pHandle, &H6F1573DC, VarPtr(&HEB), 1, 0&
WriteProcessMemory pHandle, &H6F16F4D6, VarPtr(&HEB), 1, 0&
End Sub
Sub HideKongZhi120() '不控制单位1.20
WriteProcessMemory pHandle, &H6F1573DC, VarPtr(&H74), 1, 0&
WriteProcessMemory pHandle, &H6F16F4D6, VarPtr(&H74), 1, 0&
End Sub
'###########################################################################'
Sub ziyuan120E() '资源1.20E
WriteProcessMemory pHandle, &H6F13EF03, VarPtr(&HEB), 1, 0&
WriteProcessMemory pHandle, &H6F150981, VarPtr(&HEB02), 2, 0&
WriteProcessMemory pHandle, &H6F1509FE, VarPtr(&HEB02), 2, 0&
WriteProcessMemory pHandle, &H6F151597, VarPtr(&HEB02), 2, 0&
WriteProcessMemory pHandle, &H6F151647, VarPtr(&HEB02), 2, 0&
WriteProcessMemory pHandle, &H6F151748, VarPtr(&HEB02), 2, 0&
WriteProcessMemory pHandle, &H6F1BED19, VarPtr(&HEB02), 2, 0&
WriteProcessMemory pHandle, &H6F314A9E, VarPtr(&HEB02), 2, 0&
WriteProcessMemory pHandle, &H6F21EAD4, VarPtr(&HEB), 1, 0&
WriteProcessMemory pHandle, &H6F21EAE8, VarPtr(&H3), 1, 0&
End Sub
Sub ShowBigMap120E() '大地图单位显示1.20E
WriteProcessMemory pHandle, &H6F2A0923, VarPtr(&HC03340), 3, 0&
WriteProcessMemory pHandle, &H6F2A0926, VarPtr(&HD23342), 3, 0&
End Sub
Sub HideBigMap120E() '大地图单位隐藏1.20E
WriteProcessMemory pHandle, &H6F2A0923, VarPtr(&H14428B), 3, 0&
WriteProcessMemory pHandle, &H6F2A0926, VarPtr(&H10528B), 3, 0&
End Sub
Sub ShowBigMiWu120E() '大地图迷雾清除1.20E
WriteProcessMemory pHandle, &H6F406B4F, VarPtr(&H9009), 2, 0&
WriteProcessMemory pHandle, &H6F406B54, VarPtr(&H9009), 2, 0&
End Sub
Sub HideBigMiWu120E() '大地图迷雾显示1.20E
WriteProcessMemory pHandle, &H6F406B4F, VarPtr(&H449), 2, 0&
WriteProcessMemory pHandle, &H6F406B54, VarPtr(&H849), 2, 0&
End Sub
Sub ShowBigHide120E() '大地图显示隐形单位1.20E
WriteProcessMemory pHandle, &H6F17D4E8, VarPtr(&H90909090), 4, 0&
WriteProcessMemory pHandle, &H6F17D4EC, VarPtr(&H1B8), 4, 0&
End Sub
Sub HideBigHide120E() '大地图隐藏隐形单位1.20E
WriteProcessMemory pHandle, &H6F17D4E8, VarPtr(&H5650006A), 4, 0&
WriteProcessMemory pHandle, &H6F17D4EC, VarPtr(&H12355FE8), 4, 0&
End Sub
Sub ShowHuanX120E() '大地图分辨幻象1.20E
WriteProcessMemory pHandle, &H6F1ACFFC, VarPtr(&HC340), 2, 0&
End Sub
Sub HideHuanX120E() '大地图不分辨幻象1.20E
WriteProcessMemory pHandle, &H6F1ACFFC, VarPtr(&HC3), 1, 0&
End Sub
Sub ShowJiNeng120E() '显示技能1.20E
WriteProcessMemory pHandle, &H6F12DC1A, VarPtr(&H9090), 2, 0&
WriteProcessMemory pHandle, &H6F12DC5A, VarPtr(&H9090), 2, 0&
WriteProcessMemory pHandle, &H6F1BFABE, VarPtr(&HEB), 1, 0&
WriteProcessMemory pHandle, &H6F442CC0, VarPtr(&H90909090), 4, 0&
WriteProcessMemory pHandle, &H6F442CC4, VarPtr(&H9090), 2, 0&
WriteProcessMemory pHandle, &H6F443375, VarPtr(&H9090), 2, 0&
WriteProcessMemory pHandle, &H6F45A641, VarPtr(&H90909090), 4, 0&
WriteProcessMemory pHandle, &H6F45A645, VarPtr(&H9090), 2, 0&
WriteProcessMemory pHandle, &H6F45E79E, VarPtr(&H9090), 2, 0&
WriteProcessMemory pHandle, &H6F45E7A0, VarPtr(&H90909090), 4, 0&
WriteProcessMemory pHandle, &H6F466527, VarPtr(&H9090), 2, 0&
WriteProcessMemory pHandle, &H6F46B258, VarPtr(&H90909090), 4, 0&
WriteProcessMemory pHandle, &H6F46B25C, VarPtr(&H9090), 2, 0&
WriteProcessMemory pHandle, &H6F4A11A0, VarPtr(&H9090), 2, 0&
WriteProcessMemory pHandle, &H6F54C0BF, VarPtr(&H90909090), 4, 0&
WriteProcessMemory pHandle, &H6F54C0C3, VarPtr(&H9090), 2, 0&
WriteProcessMemory pHandle, &H6F5573FE, VarPtr(&H90909090), 4, 0&
WriteProcessMemory pHandle, &H6F557402, VarPtr(&H9090), 2, 0&
WriteProcessMemory pHandle, &H6F55E15C, VarPtr(&H9090), 2, 0&
End Sub
Sub HideJiNeng120E() '隐藏技能1.20E
WriteProcessMemory pHandle, &H6F12DC1A, VarPtr(&H874), 2, 0&
WriteProcessMemory pHandle, &H6F12DC5A, VarPtr(&H874), 2, 0&
WriteProcessMemory pHandle, &H6F1BFABE, VarPtr(&H75), 1, 0&
WriteProcessMemory pHandle, &H6F442CC0, VarPtr(&HDC840F), 4, 0&
WriteProcessMemory pHandle, &H6F442CC4, VarPtr(&H0), 2, 0&
WriteProcessMemory pHandle, &H6F443375, VarPtr(&H1E74), 2, 0&
WriteProcessMemory pHandle, &H6F45A641, VarPtr(&H160840F), 4, 0&
WriteProcessMemory pHandle, &H6F45A645, VarPtr(&H0), 2, 0&
WriteProcessMemory pHandle, &H6F45E79E, VarPtr(&H840F), 2, 0&
WriteProcessMemory pHandle, &H6F45E7A0, VarPtr(&H126), 4, 0&
WriteProcessMemory pHandle, &H6F466527, VarPtr(&HF74), 2, 0&
WriteProcessMemory pHandle, &H6F46B258, VarPtr(&H91840F), 4, 0&
WriteProcessMemory pHandle, &H6F46B25C, VarPtr(&H0), 2, 0&
WriteProcessMemory pHandle, &H6F4A11A0, VarPtr(&HF74), 2, 0&
WriteProcessMemory pHandle, &H6F54C0BF, VarPtr(&HF7840F), 4, 0&
WriteProcessMemory pHandle, &H6F54C0C3, VarPtr(&H0), 2, 0&
WriteProcessMemory pHandle, &H6F5573FE, VarPtr(&H161840F), 4, 0&
WriteProcessMemory pHandle, &H6F557402, VarPtr(&H0), 2, 0&
WriteProcessMemory pHandle, &H6F55E15C, VarPtr(&H4A74), 2, 0&
End Sub
Sub ShowKongZhi120E() '控制单位1.20E
WriteProcessMemory pHandle, &H6F1573EC, VarPtr(&HEB), 1, 0&
WriteProcessMemory pHandle, &H6F16F4E6, VarPtr(&HEB), 1, 0&
End Sub
Sub HideKongZhi120E() '不控制单位1.20E
WriteProcessMemory pHandle, &H6F1573EC, VarPtr(&H74), 1, 0&
WriteProcessMemory pHandle, &H6F16F4E6, VarPtr(&H74), 1, 0&
End Sub
'###########################################################################'
Sub ShowBigMap121() '大地图单位显示1.21
WriteProcessMemory pHandle, &H6F2A3C03, VarPtr(&HC03340), 3, 0&
WriteProcessMemory pHandle, &H6F2A3C06, VarPtr(&HD23342), 3, 0&
End Sub
Sub HideBigMap121() '大地图单位隐藏1.21
WriteProcessMemory pHandle, &H6F2A3C03, VarPtr(&H14428B), 3, 0&
WriteProcessMemory pHandle, &H6F2A3C06, VarPtr(&H10528B), 3, 0&
End Sub
Sub ShowBigMiWu121() '大地图迷雾清除1.21
WriteProcessMemory pHandle, &H6F40AA7F, VarPtr(&H9009), 2, 0&
WriteProcessMemory pHandle, &H6F40AA84, VarPtr(&H9009), 2, 0&
End Sub
Sub HideBigMiWu121() '大地图迷雾显示1.21
WriteProcessMemory pHandle, &H6F40AA7F, VarPtr(&H449), 2, 0&
WriteProcessMemory pHandle, &H6F40AA84, VarPtr(&H849), 2, 0&
End Sub
Sub ShowBigHide121() '大地图显示隐形单位1.21
WriteProcessMemory pHandle, &H6F17D878, VarPtr(&H90909090), 4, 0&
WriteProcessMemory pHandle, &H6F17D87C, VarPtr(&H1B8), 4, 0&
End Sub
Sub HideBigHide121() '大地图隐藏隐形单位1.21
WriteProcessMemory pHandle, &H6F17D878, VarPtr(&H5650006A), 4, 0&
WriteProcessMemory pHandle, &H6F17D87C, VarPtr(&H12344FE8), 4, 0&
End Sub
Sub ShowHuanX121() '大地图分辨幻象1.21
WriteProcessMemory pHandle, &H6F1B01BC, VarPtr(&HC340), 2, 0&
End Sub
Sub HideHuanX121() '大地图不分辨幻象1.21
WriteProcessMemory pHandle, &H6F1B01BC, VarPtr(&H90C3), 2, 0&
End Sub
Sub ShowJiNeng121() '显示技能1.21
WriteProcessMemory pHandle, &H6F12DC3A, VarPtr(&H9090), 2, 0&
WriteProcessMemory pHandle, &H6F12DC7A, VarPtr(&H9090), 2, 0&
WriteProcessMemory pHandle, &H6F1C2C7E, VarPtr(&HEB), 1, 0&
WriteProcessMemory pHandle, &H6F446BF0, VarPtr(&H90909090), 4, 0&
WriteProcessMemory pHandle, &H6F446BF4, VarPtr(&H9090), 2, 0&
WriteProcessMemory pHandle, &H6F4472A5, VarPtr(&H9090), 2, 0&
WriteProcessMemory pHandle, &H6F45E571, VarPtr(&H90909090), 4, 0&
WriteProcessMemory pHandle, &H6F45E575, VarPtr(&H9090), 2, 0&
WriteProcessMemory pHandle, &H6F4626CE, VarPtr(&H90909090), 4, 0&
WriteProcessMemory pHandle, &H6F4626D2, VarPtr(&H9090), 2, 0&
WriteProcessMemory pHandle, &H6F46A457, VarPtr(&H9090), 2, 0&
WriteProcessMemory pHandle, &H6F46F188, VarPtr(&H90909090), 4, 0&
WriteProcessMemory pHandle, &H6F46F18C, VarPtr(&H9090), 2, 0&
WriteProcessMemory pHandle, &H6F4A50D0, VarPtr(&H9090), 2, 0&
WriteProcessMemory pHandle, &H6F55014F, VarPtr(&H90909090), 4, 0&
WriteProcessMemory pHandle, &H6F550153, VarPtr(&H9090), 2, 0&
WriteProcessMemory pHandle, &H6F55B48E, VarPtr(&H90909090), 4, 0&
WriteProcessMemory pHandle, &H6F55B492, VarPtr(&H9090), 2, 0&
WriteProcessMemory pHandle, &H6F5621EC, VarPtr(&H9090), 2, 0&
End Sub
Sub HideJiNeng121() '隐藏技能1.21
WriteProcessMemory pHandle, &H6F12DC3A, VarPtr(&H874), 2, 0&
WriteProcessMemory pHandle, &H6F12DC7A, VarPtr(&H874), 2, 0&
WriteProcessMemory pHandle, &H6F1C2C7E, VarPtr(&H75), 1, 0&
WriteProcessMemory pHandle, &H6F446BF0, VarPtr(&HDC840F), 4, 0&
WriteProcessMemory pHandle, &H6F446BF4, VarPtr(&H0), 2, 0&
WriteProcessMemory pHandle, &H6F4472A5, VarPtr(&H1E74), 2, 0&
WriteProcessMemory pHandle, &H6F45E571, VarPtr(&H160840F), 4, 0&
WriteProcessMemory pHandle, &H6F45E575, VarPtr(&H0), 2, 0&
WriteProcessMemory pHandle, &H6F4626CE, VarPtr(&H126840F), 4, 0&
WriteProcessMemory pHandle, &H6F4626D2, VarPtr(&H0), 2, 0&
WriteProcessMemory pHandle, &H6F46A457, VarPtr(&HF74), 2, 0&
WriteProcessMemory pHandle, &H6F46F188, VarPtr(&H91840F), 4, 0&
WriteProcessMemory pHandle, &H6F46F18C, VarPtr(&H0), 2, 0&
WriteProcessMemory pHandle, &H6F4A50D0, VarPtr(&HF74), 2, 0&
WriteProcessMemory pHandle, &H6F55014F, VarPtr(&HF7840F), 4, 0&
WriteProcessMemory pHandle, &H6F550153, VarPtr(&H0), 2, 0&
WriteProcessMemory pHandle, &H6F55B48E, VarPtr(&H161840F), 4, 0&
WriteProcessMemory pHandle, &H6F55B492, VarPtr(&H0), 2, 0&
WriteProcessMemory pHandle, &H6F5621EC, VarPtr(&H4A74), 2, 0&
End Sub
Sub ShowKongZhi121() '控制单位1.21
WriteProcessMemory pHandle, &H6F15777C, VarPtr(&HEB), 1, 0&
WriteProcessMemory pHandle, &H6F16F876, VarPtr(&HEB), 1, 0&
End Sub
Sub HideKongZhi121() '不控制单位1.21
WriteProcessMemory pHandle, &H6F15777C, VarPtr(&H74), 1, 0&
WriteProcessMemory pHandle, &H6F16F876, VarPtr(&H74), 1, 0&
End Sub
'###########################################################################'
Sub ShowBigMap122() '大地图单位显示1.22
WriteProcessMemory pHandle, &H6F3A04AB, VarPtr(&H9090), 2, 0&
End Sub
Sub HideBigMap122() '大地图单位隐藏1.22
WriteProcessMemory pHandle, &H6F3A04AB, VarPtr(&HCA23), 2, 0&
End Sub
Sub ShowBigMiWu122() '大地图迷雾清除1.22
'WriteProcessMemory pHandle, &H6FA8E80D, VarPtr(&H0), 1, 0&
WriteProcessMemory pHandle, &H6F73B949, VarPtr(&HB2), 2, 0&
WriteProcessMemory pHandle, &H6F73B94B, VarPtr(&H90909090), 4, 0&
End Sub
Sub HideBigMiWu122() '大地图迷雾显示1.22
'WriteProcessMemory pHandle, &H6FA8E80D, VarPtr(&HFF), 1, 0&
WriteProcessMemory pHandle, &H6F73B949, VarPtr(&HB2), 2, 0&
WriteProcessMemory pHandle, &H6F73B94B, VarPtr(&H6FA8E80C), 4, 0&
End Sub
Sub ShowBigHide122() '大地图显示隐形单位1.22
WriteProcessMemory pHandle, &H6F398E01, VarPtr(&H90909090), 3, 0&
WriteProcessMemory pHandle, &H6F398E04, VarPtr(&H1B8), 3, 0&
End Sub
Sub HideBigHide122() '大地图隐藏隐形单位1.22
WriteProcessMemory pHandle, &H6F398E01, VarPtr(&H565055), 3, 0&
WriteProcessMemory pHandle, &H6F398E04, VarPtr(&H76F7E8), 3, 0&
End Sub
Sub ShowHuanX122() '大地图分辨幻象1.22
WriteProcessMemory pHandle, &H6F281F1C, VarPtr(&HC340), 2, 0&
End Sub
Sub HideHuanX122() '大地图不分辨幻象1.22
WriteProcessMemory pHandle, &H6F281F1C, VarPtr(&HCCC3), 2, 0&
End Sub
Sub ShowJiNeng122() '显示技能1.22
WriteProcessMemory pHandle, &H6F0441D0, VarPtr(&H90909090), 4, 0&
WriteProcessMemory pHandle, &H6F0441D4, VarPtr(&H9090), 2, 0&
WriteProcessMemory pHandle, &H6F044496, VarPtr(&H9090), 2, 0&
WriteProcessMemory pHandle, &H6F049673, VarPtr(&H90909090), 4, 0&
WriteProcessMemory pHandle, &H6F049677, VarPtr(&H9090), 2, 0&
WriteProcessMemory pHandle, &H6F04AD3D, VarPtr(&H90909090), 4, 0&
WriteProcessMemory pHandle, &H6F04AD41, VarPtr(&H9090), 2, 0&
WriteProcessMemory pHandle, &H6F04D2D9, VarPtr(&H9090), 2, 0&
WriteProcessMemory pHandle, &H6F04E953, VarPtr(&H90909090), 4, 0&
WriteProcessMemory pHandle, &H6F04E957, VarPtr(&H9090), 2, 0&
WriteProcessMemory pHandle, &H6F0C79BC, VarPtr(&H90909090), 4, 0&
WriteProcessMemory pHandle, &H6F0C79C0, VarPtr(&H9090), 2, 0&
WriteProcessMemory pHandle, &H6F0ED15D, VarPtr(&H9090), 2, 0&
WriteProcessMemory pHandle, &H6F16FF5F, VarPtr(&H9090), 2, 0&
WriteProcessMemory pHandle, &H6F201B9C, VarPtr(&H90909090), 4, 0&
WriteProcessMemory pHandle, &H6F201BA0, VarPtr(&H9090), 2, 0&
WriteProcessMemory pHandle, &H6F28D68E, VarPtr(&HEB), 1, 0&
WriteProcessMemory pHandle, &H6F34E6E8, VarPtr(&H9090), 2, 0&
WriteProcessMemory pHandle, &H6F34E728, VarPtr(&H9090), 2, 0&
End Sub
Sub HideJiNeng122() '隐藏技能1.22
WriteProcessMemory pHandle, &H6F0441D0, VarPtr(&HC9840F), 4, 0&
WriteProcessMemory pHandle, &H6F0441D4, VarPtr(&H0), 2, 0&
WriteProcessMemory pHandle, &H6F044496, VarPtr(&H2074), 2, 0&
WriteProcessMemory pHandle, &H6F049673, VarPtr(&H170840F), 4, 0&
WriteProcessMemory pHandle, &H6F049677, VarPtr(&H0), 2, 0&
WriteProcessMemory pHandle, &H6F04AD3D, VarPtr(&H132840F), 4, 0&
WriteProcessMemory pHandle, &H6F04AD41, VarPtr(&H0), 2, 0&
WriteProcessMemory pHandle, &H6F04D2D9, VarPtr(&H1174), 2, 0&
WriteProcessMemory pHandle, &H6F04E953, VarPtr(&H96840F), 4, 0&
WriteProcessMemory pHandle, &H6F04E957, VarPtr(&H0), 2, 0&
WriteProcessMemory pHandle, &H6F0C79BC, VarPtr(&HFC840F), 4, 0&
WriteProcessMemory pHandle, &H6F0C79C0, VarPtr(&H0), 2, 0&
WriteProcessMemory pHandle, &H6F0ED15D, VarPtr(&H4C74), 2, 0&
WriteProcessMemory pHandle, &H6F16FF5F, VarPtr(&H1174), 2, 0&
WriteProcessMemory pHandle, &H6F201B9C, VarPtr(&H15F840F), 4, 0&
WriteProcessMemory pHandle, &H6F201BA0, VarPtr(&H0), 2, 0&
WriteProcessMemory pHandle, &H6F28D68E, VarPtr(&H75), 1, 0&
WriteProcessMemory pHandle, &H6F34E6E8, VarPtr(&H874), 2, 0&
WriteProcessMemory pHandle, &H6F34E728, VarPtr(&H874), 2, 0&
End Sub
Sub ShowKongZhi122() '控制单位1.22
WriteProcessMemory pHandle, &H6F39207C, VarPtr(&HEB), 1, 0&
WriteProcessMemory pHandle, &H6F379F77, VarPtr(&HEB), 1, 0&
End Sub
Sub HideKongZhi122() '不控制单位1.22
WriteProcessMemory pHandle, &H6F39207C, VarPtr(&H74), 1, 0&
WriteProcessMemory pHandle, &H6F379F77, VarPtr(&H74), 1, 0&
End Sub
'###########################################################################'
Sub ShowBigMap123() '大地图单位显示1.23
WriteProcessMemory pHandle, &H6F3A1E9B, VarPtr(&H9090), 2, 0&
End Sub
Sub HideBigMap123() '大地图单位隐藏1.23
WriteProcessMemory pHandle, &H6F3A1E9B, VarPtr(&HCA23), 2, 0&
End Sub
Sub ShowBigMiWu123() '大地图迷雾清除1.23
'WriteProcessMemory pHandle, &H6FAA686D, VarPtr(&H0), 1, 0&
WriteProcessMemory pHandle, &H6F73DEC9, VarPtr(&HB2), 2, 0&
WriteProcessMemory pHandle, &H6F73DECB, VarPtr(&H90909090), 4, 0&
End Sub
Sub HideBigMiWu123() '大地图迷雾显示1.23
'WriteProcessMemory pHandle, &H6FAA686D, VarPtr(&HFF), 1, 0&
WriteProcessMemory pHandle, &H6F73DEC9, VarPtr(&H908A), 2, 0&
WriteProcessMemory pHandle, &H6F73DECB, VarPtr(&H6FAA686C), 4, 0&
End Sub
Sub ShowBigHide123() '大地图显示隐形单位1.23
WriteProcessMemory pHandle, &H6F39A3B1, VarPtr(&H909090), 3, 0&
WriteProcessMemory pHandle, &H6F39A3B4, VarPtr(&H1B8), 3, 0&
End Sub
Sub HideBigHide123() '大地图隐藏隐形单位1.23
WriteProcessMemory pHandle, &H6F39A3B1, VarPtr(&H565055), 3, 0&
WriteProcessMemory pHandle, &H6F39A3B4, VarPtr(&H7B37E8), 3, 0&
End Sub
Sub ShowHuanX123() '大地图分辨幻象1.23
WriteProcessMemory pHandle, &H6F28345C, VarPtr(&HC340), 2, 0&
End Sub
Sub HideHuanX123() '大地图不分辨幻象1.23
WriteProcessMemory pHandle, &H6F28345C, VarPtr(&HCCC3), 2, 0&
End Sub
Sub ShowJiNeng123() '显示技能1.23
WriteProcessMemory pHandle, &H6F045710, VarPtr(&H90909090), 4, 0&
WriteProcessMemory pHandle, &H6F045714, VarPtr(&H9090), 2, 0&
WriteProcessMemory pHandle, &H6F0459D6, VarPtr(&H9090), 2, 0&
WriteProcessMemory pHandle, &H6F04ABB3, VarPtr(&H90909090), 4, 0&
WriteProcessMemory pHandle, &H6F04ABB7, VarPtr(&H9090), 2, 0&
WriteProcessMemory pHandle, &H6F04C27D, VarPtr(&H90909090), 4, 0&
WriteProcessMemory pHandle, &H6F04C281, VarPtr(&H9090), 2, 0&
WriteProcessMemory pHandle, &H6F04E819, VarPtr(&H9090), 2, 0&
WriteProcessMemory pHandle, &H6F04FE93, VarPtr(&H90909090), 4, 0&
WriteProcessMemory pHandle, &H6F04FE97, VarPtr(&H9090), 2, 0&
WriteProcessMemory pHandle, &H6F0C8EFC, VarPtr(&H90909090), 4, 0&
WriteProcessMemory pHandle, &H6F0C8F00, VarPtr(&H9090), 2, 0&
WriteProcessMemory pHandle, &H6F0EE69D, VarPtr(&H9090), 2, 0&
WriteProcessMemory pHandle, &H6F17149F, VarPtr(&H9090), 2, 0&
WriteProcessMemory pHandle, &H6F2030DC, VarPtr(&H90909090), 4, 0&
WriteProcessMemory pHandle, &H6F2030E0, VarPtr(&H9090), 2, 0&
WriteProcessMemory pHandle, &H6F28EBCE, VarPtr(&HEB), 1, 0&
WriteProcessMemory pHandle, &H6F34FC68, VarPtr(&H9090), 2, 0&
WriteProcessMemory pHandle, &H6F34FCA8, VarPtr(&H9090), 2, 0&
End Sub
Sub HideJiNeng123() '隐藏技能1.23
WriteProcessMemory pHandle, &H6F045710, VarPtr(&HC9840F), 4, 0&
WriteProcessMemory pHandle, &H6F045714, VarPtr(&H0), 2, 0&
WriteProcessMemory pHandle, &H6F0459D6, VarPtr(&H2074), 2, 0&
WriteProcessMemory pHandle, &H6F04ABB3, VarPtr(&H170840F), 4, 0&
WriteProcessMemory pHandle, &H6F04ABB7, VarPtr(&H0), 2, 0&
WriteProcessMemory pHandle, &H6F04C27D, VarPtr(&H132840F), 4, 0&
WriteProcessMemory pHandle, &H6F04C281, VarPtr(&H0), 2, 0&
WriteProcessMemory pHandle, &H6F04E819, VarPtr(&H1174), 2, 0&
WriteProcessMemory pHandle, &H6F04FE93, VarPtr(&H96840F), 4, 0&
WriteProcessMemory pHandle, &H6F04FE97, VarPtr(&H0), 2, 0&
WriteProcessMemory pHandle, &H6F0C8EFC, VarPtr(&HFC840F), 4, 0&
WriteProcessMemory pHandle, &H6F0C8F00, VarPtr(&H0), 2, 0&
WriteProcessMemory pHandle, &H6F0EE69D, VarPtr(&H4C74), 2, 0&
WriteProcessMemory pHandle, &H6F17149F, VarPtr(&H1174), 2, 0&
WriteProcessMemory pHandle, &H6F2030DC, VarPtr(&H15F840F), 4, 0&
WriteProcessMemory pHandle, &H6F2030E0, VarPtr(&H0), 2, 0&
WriteProcessMemory pHandle, &H6F28EBCE, VarPtr(&H75), 1, 0&
WriteProcessMemory pHandle, &H6F34FC68, VarPtr(&H874), 2, 0&
WriteProcessMemory pHandle, &H6F34FCA8, VarPtr(&H874), 2, 0&
End Sub
Sub ShowKongZhi123() '控制单位1.23
WriteProcessMemory pHandle, &H6F39362C, VarPtr(&HEB), 1, 0&
WriteProcessMemory pHandle, &H6F37B527, VarPtr(&HEB), 1, 0&
End Sub
Sub HideKongZhi123() '不控制单位1.23
WriteProcessMemory pHandle, &H6F39362C, VarPtr(&H74), 1, 0&
WriteProcessMemory pHandle, &H6F37B527, VarPtr(&H74), 1, 0&
End Sub
'###########################################################################'
Sub ziyuan124B() '资源1.24B
WriteProcessMemory pHandle, &H6F3604CA, VarPtr(&H9090), 2, 0&
'WriteProcessMemory pHandle, &H6F150981, VarPtr(&HEB02), 2, 0&
'WriteProcessMemory pHandle, &H6F1509FE, VarPtr(&HEB02), 2, 0&
'WriteProcessMemory pHandle, &H6F151597, VarPtr(&HEB02), 2, 0&
'WriteProcessMemory pHandle, &H6F151647, VarPtr(&HEB02), 2, 0&
'WriteProcessMemory pHandle, &H6F151748, VarPtr(&HEB02), 2, 0&
'WriteProcessMemory pHandle, &H6F1BED19, VarPtr(&HEB02), 2, 0&
'WriteProcessMemory pHandle, &H6F314A9E, VarPtr(&HEB02), 2, 0&
'WriteProcessMemory pHandle, &H6F21EAD4, VarPtr(&HEB), 1, 0&
'WriteProcessMemory pHandle, &H6F21EAE8, VarPtr(&H3), 1, 0&
End Sub
Sub ShowBigMap124b() '大地图单位显示1.24b
WriteProcessMemory pHandle, &H6F3A201D, VarPtr(&HEB), 1, 0&
End Sub
Sub HideBigMap124b() '大地图单位隐藏1.24b
End Sub
Sub ShowBigMiWu124b() '大地图迷雾清除1.24b
Dim Asm(5) As Byte
Asm(0) = &HC6
Asm(1) = &H4
Asm(2) = &H3E
Asm(3) = &H1
Asm(4) = &H90
Asm(5) = &H46
WriteProcessMemory pHandle, &H6F74D103, VarPtr(Asm(0)), 6, 0&
End Sub
Sub HideBigMiWu124b() '大地图迷雾显示1.24b
End Sub
Sub ShowBigHide124b() '大地图显示隐形单位1.24b
Dim ASMA(6) As Byte
ASMA(0) = &H90
ASMA(1) = &H90
ASMA(2) = &H90
ASMA(3) = &H90
ASMA(4) = &H90
ASMA(5) = &H90
Dim ASMB(11) As Byte
ASMB(0) = &H90
ASMB(1) = &H90
ASMB(2) = &H90
ASMB(3) = &H90
ASMB(4) = &H90
ASMB(5) = &H90
ASMB(6) = &H90
ASMB(7) = &H90
ASMB(8) = &H33
ASMB(9) = &HC0
ASMB(10) = &H40
WriteProcessMemory pHandle, &H6F3622D1, VarPtr(&H3B), 1, 0&
WriteProcessMemory pHandle, &H6F3622D4, VarPtr(&H85), 1, 0&
WriteProcessMemory pHandle, &H6F39A45B, VarPtr(ASMA(0)), 6, 0&
WriteProcessMemory pHandle, &H6F39A46E, VarPtr(ASMB(0)), 11, 0&
End Sub
Sub HideBigHide124b() '大地图隐藏隐形单位1.24b
End Sub
Sub ShowHuanX124b() '大地图分辨幻象1.24b
WriteProcessMemory pHandle, &H6F28351C, VarPtr(&H40C3), 2, 0&
End Sub
Sub HideHuanX124b() '大地图不分辨幻象1.24b
End Sub
Sub ShowJiNeng124b() '显示技能1.24b
Dim ASMC(5) As Byte
ASMC(0) = &H90
ASMC(1) = &H90
ASMC(2) = &H90
ASMC(3) = &H90
ASMC(4) = &H90
ASMC(5) = &H90
WriteProcessMemory pHandle, &H6F28EC8E, VarPtr(&HEB), 1, 0&
WriteProcessMemory pHandle, &H6F20318C, VarPtr(ASMC(0)), 6, 0&
WriteProcessMemory pHandle, &H6F34FD28, VarPtr(&H9090), 2, 0&
WriteProcessMemory pHandle, &H6F34FD66, VarPtr(&H90909090), 4, 0&
End Sub
Sub HideJiNeng124b() '隐藏技能1.24b
End Sub
Sub ShowKongZhi124b() '控制单位1.24b
End Sub
Sub HideKongZhi124b() '不控制单位1.24b
End Sub
'###########################################################################'
Sub ShowBigMap124e() '大地图单位显示1.24e
WriteProcessMemory pHandle, &H6F39EBBC, VarPtr(&H75), 1, 0&
WriteProcessMemory pHandle, &H6F3A2030, VarPtr(&H9090), 2, 0&
WriteProcessMemory pHandle, &H6F3A20DB, VarPtr(&H9090), 2, 0&
End Sub
Sub HideBigMap124e() '大地图单位隐藏1.24e
End Sub
Sub ShowBigMiWu124e() '大地图迷雾清除1.24e
Dim Asc(5) As Byte
Asc(0) = &HB2
Asc(1) = &H0
Asc(2) = &H90
Asc(3) = &H90
Asc(4) = &H90
Asc(5) = &H90
WriteProcessMemory pHandle, &H6F74D1B9, VarPtr(Asc(0)), 6, 0&
End Sub
Sub HideBigMiWu124e() '大地图迷雾显示1.24e
End Sub
Sub ShowBigHide124e() '大地图显示隐形单位1.24e
Dim ASMC(5) As Byte
ASMC(0) = &H90
ASMC(1) = &H90
ASMC(2) = &H90
ASMC(3) = &H90
ASMC(4) = &H90
ASMC(5) = &H90
Dim ASMCSL(10) As Byte
ASMCSL(0) = &H90
ASMCSL(1) = &H90
ASMCSL(2) = &H90
ASMCSL(3) = &H90
ASMCSL(4) = &H90
ASMCSL(5) = &H90
ASMCSL(6) = &H90
ASMCSL(7) = &H90
ASMCSL(8) = &H33
ASMCSL(9) = &HC0
ASMCSL(10) = &H40
WriteProcessMemory pHandle, &H6F362391, VarPtr(&H3B), 1, 0&
WriteProcessMemory pHandle, &H6F362394, VarPtr(&H85), 1, 0&
WriteProcessMemory pHandle, &H6F39A51B, VarPtr(ASMC(0)), 6, 0&
WriteProcessMemory pHandle, &H6F39A52E, VarPtr(ASMCSL(0)), 11, 0&
End Sub
Sub HideBigHide124e() '大地图隐藏隐形单位1.24e
End Sub
Sub ShowHuanX124e() '大地图分辨幻象1.24e
WriteProcessMemory pHandle, &H6F28357C, VarPtr(&H40C3), 2, 0&
End Sub
Sub HideHuanX124e() '大地图不分辨幻象1.24e
End Sub
Sub ShowJiNeng124e() '显示技能1.24e
Dim AscSl(5) As Byte
AscSl(0) = &H90
AscSl(1) = &H90
AscSl(2) = &H90
AscSl(3) = &H90
AscSl(4) = &H90
AscSl(5) = &H90
WriteProcessMemory pHandle, &H6F2031EC, VarPtr(AscSl(0)), 6, 0&
WriteProcessMemory pHandle, &H6F34FDE8, VarPtr(&H9090), 2, 0&
End Sub
Sub HideJiNeng124e() '隐藏技能1.24e
End Sub
Sub ShowKongZhi124e() '控制单位1.24E
End Sub
Sub HideKongZhi124e() '不控制单位1.24e
End Sub
'##################################################################################################################################3
Sub ShowHomeLife120() '显示己方血条1.20
WriteProcessMemory pHandle, &H6F17F123, VarPtr(&HEB), 1, 0&
End Sub
Sub HideHomeLife120() '隐藏己方血条1.20
WriteProcessMemory pHandle, &H6F17F123, VarPtr(&H75), 1, 0&
End Sub
Sub ShowEndLife120() '显示敌方血条1.20
WriteProcessMemory pHandle, &H6F17F140, VarPtr(&HEB), 1, 0&
End Sub
Sub HideEndLife120() '隐藏敌方血条1.20
WriteProcessMemory pHandle, &H6F17F140, VarPtr(&H75), 1, 0&
End Sub
'###########################################################################'
Sub wxqx120E() '1.20E无限取消
WriteProcessMemory pHandle, &H6F23D60F, VarPtr(&HEB), 1, 0&
WriteProcessMemory pHandle, &H6F21EAD4, VarPtr(&H3), 1, 0&
WriteProcessMemory pHandle, &H6F21EAE8, VarPtr(&H3), 1, 0&
End Sub
Sub ShowHomeLife120E() '显示己方血条1.20E
WriteProcessMemory pHandle, &H6F17F133, VarPtr(&HEB), 1, 0&
End Sub
Sub HideHomeLife120E() '隐藏己方血条1.20E
WriteProcessMemory pHandle, &H6F17F133, VarPtr(&H75), 1, 0&
End Sub
Sub ShowEndLife120E() '显示敌方血条1.20E
WriteProcessMemory pHandle, &H6F17F150, VarPtr(&HEB), 1, 0&
End Sub
Sub HideEndLife120E() '隐藏敌方血条1.20E
WriteProcessMemory pHandle, &H6F17F150, VarPtr(&H75), 1, 0&
End Sub
'###########################################################################'
Sub ShowHomeLife121() '显示己方血条1.21
WriteProcessMemory pHandle, &H6F17F4C3, VarPtr(&HEB), 1, 0&
End Sub
Sub HideHomeLife121() '隐藏己方血条1.21
WriteProcessMemory pHandle, &H6F17F4C3, VarPtr(&H75), 1, 0&
End Sub
Sub ShowEndLife121() '显示敌方血条1.21
WriteProcessMemory pHandle, &H6F17F4E0, VarPtr(&HEB), 1, 0&
End Sub
Sub HideEndLife121() '隐藏敌方血条1.21
WriteProcessMemory pHandle, &H6F17F4E0, VarPtr(&H75), 1, 0&
End Sub
'###########################################################################'
Sub ShowHomeLife122() '显示己方血条1.22
WriteProcessMemory pHandle, &H6F39A79F, VarPtr(&HEB), 1, 0&
End Sub
Sub HideHomeLife122() '隐藏己方血条1.22
WriteProcessMemory pHandle, &H6F39A79F, VarPtr(&H75), 1, 0&
End Sub
Sub ShowEndLife122() '显示敌方血条1.22
WriteProcessMemory pHandle, &H6F39A7BC, VarPtr(&HEB), 1, 0&
End Sub
Sub HideEndLife122() '隐藏敌方血条1.22
WriteProcessMemory pHandle, &H6F39A7BC, VarPtr(&H75), 1, 0&
End Sub
'###########################################################################'
Sub ShowHomeLife123() '显示己方血条1.23
WriteProcessMemory pHandle, &H6F39BD4F, VarPtr(&HEB), 1, 0&
End Sub
Sub HideHomeLife123() '隐藏己方血条1.23
WriteProcessMemory pHandle, &H6F39BD4F, VarPtr(&H75), 1, 0&
End Sub
Sub ShowEndLife123() '显示敌方血条1.23
WriteProcessMemory pHandle, &H6F39BD6C, VarPtr(&HEB), 1, 0&
End Sub
Sub HideEndLife123() '隐藏敌方血条1.23
WriteProcessMemory pHandle, &H6F39BD6C, VarPtr(&H75), 1, 0&
End Sub
'###########################################################################'
Sub wxqx124B() '1.24B无限取消
WriteProcessMemory pHandle, &H6F57B9FC, VarPtr(&HEB), 1, 0&
WriteProcessMemory pHandle, &H6F5B2CC7, VarPtr(&H3), 1, 0&
WriteProcessMemory pHandle, &H6F5B2CDB, VarPtr(&H3), 1, 0&
End Sub
Sub ShowHomeLife124b() '显示己方血条1.24b
End Sub
Sub HideHomeLife124b() '隐藏己方血条1.24b
End Sub
Sub ShowEndLife124b() '显示敌方血条1.24b
End Sub
Sub HideEndLife124b() '隐藏敌方血条1.24b
End Sub
'###########################################################################'
Sub wxqx124E() '1.24E无限取消
WriteProcessMemory pHandle, &H6F57BA7C, VarPtr(&HEB), 1, 0&
WriteProcessMemory pHandle, &H6F5B2D77, VarPtr(&H3), 1, 0&
WriteProcessMemory pHandle, &H6F5B2D8B, VarPtr(&H3), 1, 0&
End Sub
Sub ShowHomeLife124e() '显示己方血条1.24e
End Sub
Sub HideHomeLife124e() '隐藏己方血条1.24e
End Sub
Sub ShowEndLife124e() '显示敌方血条1.24e
End Sub
Sub HideEndLife124e() '隐藏敌方血条1.24e
End Sub
'##################################################################################################################################3
Sub ShowJiaoYi120() '启用交易助手1.20
Dim MoneyNum As Long
MoneyNum = FormMain.Money.Text
WriteProcessMemory pHandle, &H6F127B2D, VarPtr(&HB8), 1, 0&
WriteProcessMemory pHandle, &H6F127B2E, VarPtr(MoneyNum), 4, 0&
WriteProcessMemory pHandle, &H6F127B32, VarPtr(&H90), 1, 0&
End Sub
Sub HideJiaoYi120() '禁用交易助手1.20
WriteProcessMemory pHandle, &H6F127B2D, VarPtr(&H168878B), 4, 0&
WriteProcessMemory pHandle, &H6F127B31, VarPtr(&H0), 2, 0&
End Sub
Sub ShowShiYe120() '可选视野外单位1.20
WriteProcessMemory pHandle, &H6F1BD537, VarPtr(&H9090), 2, 0&
WriteProcessMemory pHandle, &H6F1BD54B, VarPtr(&HEB), 1, 0&
End Sub
Sub HideShiYe120() '不可选视野外单位1.20
WriteProcessMemory pHandle, &H6F1BD537, VarPtr(&H2E74), 2, 0&
WriteProcessMemory pHandle, &H6F1BD54B, VarPtr(&H75), 1, 0&
End Sub
'###########################################################################'
Sub ShowJiaoYi120E() '启用交易助手1.20E
Dim MoneyNum As Long
MoneyNum = FormMain.Money.Text
WriteProcessMemory pHandle, &H6F127B3D, VarPtr(&HB8), 1, 0&
WriteProcessMemory pHandle, &H6F127B3E, VarPtr(MoneyNum), 4, 0&
WriteProcessMemory pHandle, &H6F127B42, VarPtr(&H90), 1, 0&
End Sub
Sub HideJiaoYi120E() '禁用交易助手1.20E
WriteProcessMemory pHandle, &H6F127B3D, VarPtr(&H168878B), 4, 0&
WriteProcessMemory pHandle, &H6F127B41, VarPtr(&H0), 2, 0&
End Sub
Sub ShowShiYe120E() '可选视野外单位1.20E
WriteProcessMemory pHandle, &H6F1BD5A7, VarPtr(&H9090), 2, 0&
WriteProcessMemory pHandle, &H6F1BD5BB, VarPtr(&HEB), 1, 0&
End Sub
Sub HideShiYe120E() '不可选视野外单位1.20E
WriteProcessMemory pHandle, &H6F1BD5A7, VarPtr(&H2E74), 2, 0&
WriteProcessMemory pHandle, &H6F1BD5BB, VarPtr(&H75), 1, 0&
End Sub
'###########################################################################'
Sub ShowJiaoYi121() '启用交易助手1.21
Dim MoneyNum As Long
MoneyNum = FormMain.Money.Text
WriteProcessMemory pHandle, &H6F127B5D, VarPtr(&HB8), 1, 0&
WriteProcessMemory pHandle, &H6F127B5E, VarPtr(MoneyNum), 4, 0&
WriteProcessMemory pHandle, &H6F127B62, VarPtr(&H90), 1, 0&
End Sub
Sub HideJiaoYi121() '禁用交易助手1.21
WriteProcessMemory pHandle, &H6F127B5D, VarPtr(&H168878B), 4, 0&
WriteProcessMemory pHandle, &H6F127B61, VarPtr(&H0), 2, 0&
End Sub
Sub ShowShiYe121() '可选视野外单位1.21
WriteProcessMemory pHandle, &H6F1C0767, VarPtr(&H9090), 2, 0&
WriteProcessMemory pHandle, &H6F1C077B, VarPtr(&HEB), 1, 0&
End Sub
Sub HideShiYe121() '不可选视野外单位1.21
WriteProcessMemory pHandle, &H6F1C0767, VarPtr(&H2E74), 2, 0&
WriteProcessMemory pHandle, &H6F1C077B, VarPtr(&H75), 1, 0&
End Sub
'###########################################################################'
Sub ShowJiaoYi122() '启用交易助手1.22
Dim MoneyNum As Long
MoneyNum = FormMain.Money.Text
WriteProcessMemory pHandle, &H6F34D1EA, VarPtr(&HB8), 1, 0&
WriteProcessMemory pHandle, &H6F34D1EB, VarPtr(MoneyNum), 4, 0&
WriteProcessMemory pHandle, &H6F34D1EF, VarPtr(&H90), 1, 0&
End Sub
Sub HideJiaoYi122() '禁用交易助手1.22
WriteProcessMemory pHandle, &H6F34D1EA, VarPtr(&H168878B), 4, 0&
WriteProcessMemory pHandle, &H6F34D1EE, VarPtr(&H0), 2, 0&
End Sub
Sub ShowShiYe122() '可选视野外单位1.22
WriteProcessMemory pHandle, &H6F28464C, VarPtr(&H9090), 2, 0&
WriteProcessMemory pHandle, &H6F284662, VarPtr(&HEB), 1, 0&
End Sub
Sub HideShiYe122() '不可选视野外单位1.22
WriteProcessMemory pHandle, &H6F28464C, VarPtr(&H2A74), 2, 0&
WriteProcessMemory pHandle, &H6F284662, VarPtr(&H75), 1, 0&
End Sub
'###########################################################################'
Sub ShowJiaoYi123() '启用交易助手1.23
Dim MoneyNum As Long
MoneyNum = FormMain.Money.Text
WriteProcessMemory pHandle, &H6F34E76A, VarPtr(&HB8), 1, 0&
WriteProcessMemory pHandle, &H6F34E76B, VarPtr(MoneyNum), 4, 0&
WriteProcessMemory pHandle, &H6F34E76F, VarPtr(&H90), 1, 0&
End Sub
Sub HideJiaoYi123() '禁用交易助手1.23
WriteProcessMemory pHandle, &H6F34E76A, VarPtr(&H168878B), 4, 0&
WriteProcessMemory pHandle, &H6F34E76E, VarPtr(&H0), 2, 0&
End Sub
Sub ShowShiYe123() '可选视野外单位1.23
WriteProcessMemory pHandle, &H6F285B8C, VarPtr(&H9090), 2, 0&
WriteProcessMemory pHandle, &H6F285BA2, VarPtr(&HEB), 1, 0&
End Sub
Sub HideShiYe123() '不可选视野外单位1.23
WriteProcessMemory pHandle, &H6F285B8C, VarPtr(&H2A74), 2, 0&
WriteProcessMemory pHandle, &H6F285BA2, VarPtr(&H75), 1, 0&
End Sub
'###########################################################################'
Sub ShowJiaoYi124b() '启用交易助手1.24b
Dim MoneyNum As Long
MoneyNum = FormMain.Money.Text
WriteProcessMemory pHandle, &H6F34E82A, VarPtr(&HB8), 1, 0&
WriteProcessMemory pHandle, &H6F34E82B, VarPtr(MoneyNum), 4, 0&
WriteProcessMemory pHandle, &H6F34E82F, VarPtr(&H90), 1, 0&
End Sub
Sub HideJiaoYi124b() '禁用交易助手1.24b
End Sub
Sub ShowShiYe124b() '可选视野外单位1.24b
WriteProcessMemory pHandle, &H6F285C4C, VarPtr(&H9090), 2, 0&
WriteProcessMemory pHandle, &H6F285C62, VarPtr(&HEB), 1, 0&
End Sub
Sub HideShiYe124b() '不可选视野外单位1.24b
End Sub
'###########################################################################'
Sub ShowJiaoYi124e() '启用交易助手1.24e
Dim MoneyNum As Long
MoneyNum = FormMain.Money.Text
WriteProcessMemory pHandle, &H6F34E8EA, VarPtr(&HB8), 1, 0&
WriteProcessMemory pHandle, &H6F34E8EB, VarPtr(MoneyNum), 4, 0&
WriteProcessMemory pHandle, &H6F34E8EF, VarPtr(&H90), 1, 0&
End Sub
Sub HideJiaoYi124e() '禁用交易助手1.24e
End Sub
Sub ShowShiYe124e() '可选视野外单位1.24e
WriteProcessMemory pHandle, &H6F285CBC, VarPtr(&H9090), 2, 0&
WriteProcessMemory pHandle, &H6F285CD2, VarPtr(&HEB), 1, 0&
End Sub
Sub HideShiYe124e() '不可选视野外单位1.24e
End Sub
'##################################################################################################################################3
Sub ShowSmallMap120() '小地图单位显示1.20
WriteProcessMemory pHandle, &H6F149198, VarPtr(&H0), 1, 0&
End Sub
Sub HideSmallMap120() '小地图单位隐藏1.20
WriteProcessMemory pHandle, &H6F149198, VarPtr(&H1), 1, 0&
End Sub
Sub ShowSmallMiWu120() '小地图迷雾清除1.20
WriteProcessMemory pHandle, &H6F147C43, VarPtr(&HEC), 1, 0&
End Sub
Sub HideSmallMiWu120() '小地图迷雾显示1.20
WriteProcessMemory pHandle, &H6F147C43, VarPtr(&HE4), 1, 0&
End Sub
Sub ShowSmallHide120() '小地图显示隐形单位1.20
WriteProcessMemory pHandle, &H6F1494D0, VarPtr(&H39), 1, 0&
WriteProcessMemory pHandle, &H6F1494D3, VarPtr(&H85), 1, 0&
End Sub
Sub HideSmallHide120() '小地图隐藏隐形单位1.20
WriteProcessMemory pHandle, &H6F1494D0, VarPtr(&H85), 1, 0&
WriteProcessMemory pHandle, &H6F1494D3, VarPtr(&H84), 1, 0&
End Sub
Sub ShowEnemySign120() '小地图显示敌方信号1.20
WriteProcessMemory pHandle, &H6F321BA4, VarPtr(&H39), 1, 0&
WriteProcessMemory pHandle, &H6F321BA7, VarPtr(&H85), 1, 0&
WriteProcessMemory pHandle, &H6F321BB7, VarPtr(&H39), 1, 0&
WriteProcessMemory pHandle, &H6F321BB9, VarPtr(&H75), 1, 0&
End Sub
Sub HideEnemySign120() '小地图隐藏敌方信号1.20
WriteProcessMemory pHandle, &H6F321BA4, VarPtr(&H85), 1, 0&
WriteProcessMemory pHandle, &H6F321BA7, VarPtr(&H84), 1, 0&
WriteProcessMemory pHandle, &H6F321BB7, VarPtr(&H85), 1, 0&
WriteProcessMemory pHandle, &H6F321BB9, VarPtr(&H74), 1, 0&
End Sub
'###########################################################################'
Sub ShowSmallMap120E() '小地图单位显示1.20E
WriteProcessMemory pHandle, &H6F1491A8, VarPtr(&H0), 1, 0&
End Sub
Sub HideSmallMap120E() '小地图单位隐藏1.20E
WriteProcessMemory pHandle, &H6F1491A8, VarPtr(&H1), 1, 0&
End Sub
Sub ShowSmallMiWu120E() '小地图迷雾清除1.20E
WriteProcessMemory pHandle, &H6F147C53, VarPtr(&HEC), 1, 0&
End Sub
Sub HideSmallMiWu120E() '小地图迷雾显示1.20E
WriteProcessMemory pHandle, &H6F147C53, VarPtr(&HE4), 1, 0&
End Sub
Sub ShowSmallHide120E() '小地图显示隐形单位1.20E
WriteProcessMemory pHandle, &H6F1494E0, VarPtr(&H39), 1, 0&
WriteProcessMemory pHandle, &H6F1494E3, VarPtr(&H85), 1, 0&
End Sub
Sub HideSmallHide120E() '小地图隐藏隐形单位1.20E
WriteProcessMemory pHandle, &H6F1494E0, VarPtr(&H85), 1, 0&
WriteProcessMemory pHandle, &H6F1494E3, VarPtr(&H84), 1, 0&
End Sub
Sub ShowEnemySign120E() '小地图显示敌方信号1.20E
WriteProcessMemory pHandle, &H6F321CC4, VarPtr(&H39), 1, 0&
WriteProcessMemory pHandle, &H6F321CC7, VarPtr(&H85), 1, 0&
WriteProcessMemory pHandle, &H6F321CD7, VarPtr(&H39), 1, 0&
WriteProcessMemory pHandle, &H6F321CD9, VarPtr(&H75), 1, 0&
End Sub
Sub HideEnemySign120E() '小地图隐藏敌方信号1.20E
WriteProcessMemory pHandle, &H6F321CC4, VarPtr(&H85), 1, 0&
WriteProcessMemory pHandle, &H6F321CC7, VarPtr(&H84), 1, 0&
WriteProcessMemory pHandle, &H6F321CD7, VarPtr(&H85), 1, 0&
WriteProcessMemory pHandle, &H6F321CD9, VarPtr(&H74), 1, 0&
End Sub
'###########################################################################'
Sub ShowSmallMap121() '小地图单位显示1.21
WriteProcessMemory pHandle, &H6F149208, VarPtr(&H0), 1, 0&
End Sub
Sub HideSmallMap121() '小地图单位隐藏1.21
WriteProcessMemory pHandle, &H6F149208, VarPtr(&H1), 1, 0&
End Sub
Sub ShowSmallMiWu121() '小地图迷雾清除1.21
WriteProcessMemory pHandle, &H6F147CB3, VarPtr(&HEC), 1, 0&
End Sub
Sub HideSmallMiWu121() '小地图迷雾显示1.21
WriteProcessMemory pHandle, &H6F147CB3, VarPtr(&HE4), 1, 0&
End Sub
Sub ShowSmallHide121() '小地图显示隐形单位1.21
WriteProcessMemory pHandle, &H6F149540, VarPtr(&H39), 1, 0&
WriteProcessMemory pHandle, &H6F149543, VarPtr(&H85), 1, 0&
End Sub
Sub HideSmallHide121() '小地图隐藏隐形单位1.21
WriteProcessMemory pHandle, &H6F149540, VarPtr(&H85), 1, 0&
WriteProcessMemory pHandle, &H6F149543, VarPtr(&H84), 1, 0&
End Sub
Sub ShowEnemySign121() '小地图显示敌方信号1.21
WriteProcessMemory pHandle, &H6F325E34, VarPtr(&H39), 1, 0&
WriteProcessMemory pHandle, &H6F325E37, VarPtr(&H85), 1, 0&
WriteProcessMemory pHandle, &H6F325E47, VarPtr(&H39), 1, 0&
WriteProcessMemory pHandle, &H6F325E49, VarPtr(&H75), 1, 0&
End Sub
Sub HideEnemySign121() '小地图隐藏敌方信号1.21
WriteProcessMemory pHandle, &H6F325E34, VarPtr(&H85), 1, 0&
WriteProcessMemory pHandle, &H6F325E37, VarPtr(&H84), 1, 0&
WriteProcessMemory pHandle, &H6F325E47, VarPtr(&H85), 1, 0&
WriteProcessMemory pHandle, &H6F325E49, VarPtr(&H74), 1, 0&
End Sub
'###########################################################################'
Sub ShowSmallMap122() '小地图单位显示1.22
WriteProcessMemory pHandle, &H6F36087C, VarPtr(&H0), 1, 0&
End Sub
Sub HideSmallMap122() '小地图单位隐藏1.22
WriteProcessMemory pHandle, &H6F36087C, VarPtr(&H1), 1, 0&
End Sub
Sub ShowSmallMiWu122() '小地图迷雾清除1.22
WriteProcessMemory pHandle, &H6F3556DB, VarPtr(&HEC), 1, 0&
End Sub
Sub HideSmallMiWu122() '小地图迷雾显示1.22
WriteProcessMemory pHandle, &H6F3556DB, VarPtr(&HE4), 1, 0&
End Sub
Sub ShowSmallHide122() '小地图显示隐形单位1.22
WriteProcessMemory pHandle, &H6F360C91, VarPtr(&H39), 1, 0&
WriteProcessMemory pHandle, &H6F360C94, VarPtr(&H85), 1, 0&
End Sub
Sub HideSmallHide122() '小地图隐藏隐形单位1.22
WriteProcessMemory pHandle, &H6F360C91, VarPtr(&H85), 1, 0&
WriteProcessMemory pHandle, &H6F360C94, VarPtr(&H84), 1, 0&
End Sub
Sub ShowEnemySign122() '小地图显示敌方信号1.22
WriteProcessMemory pHandle, &H6F42F836, VarPtr(&H39), 1, 0&
WriteProcessMemory pHandle, &H6F42F839, VarPtr(&H85), 1, 0&
WriteProcessMemory pHandle, &H6F42F849, VarPtr(&H39), 1, 0&
WriteProcessMemory pHandle, &H6F42F84C, VarPtr(&H85), 1, 0&
End Sub
Sub HideEnemySign122() '小地图隐藏敌方信号1.22
WriteProcessMemory pHandle, &H6F42F836, VarPtr(&H85), 1, 0&
WriteProcessMemory pHandle, &H6F42F839, VarPtr(&H84), 1, 0&
WriteProcessMemory pHandle, &H6F42F849, VarPtr(&H85), 1, 0&
WriteProcessMemory pHandle, &H6F42F84C, VarPtr(&H84), 1, 0&
End Sub
'###########################################################################'
Sub ShowSmallMap123() '小地图单位显示1.23
WriteProcessMemory pHandle, &H6F361DFC, VarPtr(&H0), 1, 0&
End Sub
Sub HideSmallMap123() '小地图单位隐藏1.23
WriteProcessMemory pHandle, &H6F361DFC, VarPtr(&H1), 1, 0&
End Sub
Sub ShowSmallMiWu123() '小地图迷雾清除1.23
WriteProcessMemory pHandle, &H6F356C5B, VarPtr(&HEC), 1, 0&
End Sub
Sub HideSmallMiWu123() '小地图迷雾显示1.23
WriteProcessMemory pHandle, &H6F356C5B, VarPtr(&HE4), 1, 0&
End Sub
Sub ShowSmallHide123() '小地图显示隐形单位1.23
WriteProcessMemory pHandle, &H6F362211, VarPtr(&H39), 1, 0&
WriteProcessMemory pHandle, &H6F362214, VarPtr(&H85), 1, 0&
End Sub
Sub HideSmallHide123() '小地图隐藏隐形单位1.23
WriteProcessMemory pHandle, &H6F362211, VarPtr(&H85), 1, 0&
WriteProcessMemory pHandle, &H6F362214, VarPtr(&H84), 1, 0&
End Sub
Sub ShowEnemySign123() '小地图显示敌方信号1.23
WriteProcessMemory pHandle, &H6F431556, VarPtr(&H39), 1, 0&
WriteProcessMemory pHandle, &H6F431559, VarPtr(&H85), 1, 0&
WriteProcessMemory pHandle, &H6F431569, VarPtr(&H39), 1, 0&
WriteProcessMemory pHandle, &H6F43156C, VarPtr(&H85), 1, 0&
End Sub
Sub HideEnemySign123() '小地图隐藏敌方信号1.23
WriteProcessMemory pHandle, &H6F431556, VarPtr(&H85), 1, 0&
WriteProcessMemory pHandle, &H6F431559, VarPtr(&H84), 1, 0&
WriteProcessMemory pHandle, &H6F431569, VarPtr(&H85), 1, 0&
WriteProcessMemory pHandle, &H6F43156C, VarPtr(&H84), 1, 0&
End Sub
'###########################################################################'
Sub ShowSmallMap124b() '小地图单位显示1.24b
WriteProcessMemory pHandle, &H6F361EAB, VarPtr(&H9090), 2, 0&
End Sub
Sub HideSmallMap124b() '小地图单位隐藏1.24b
End Sub
Sub ShowSmallMiWu124b() '小地图迷雾清除1.24b
Dim ASM_542_DATA(13) As Byte
ASM_542_DATA(0) = &H90
ASM_542_DATA(1) = &H90
ASM_542_DATA(2) = &H39
ASM_542_DATA(3) = &H5E
ASM_542_DATA(4) = &H10
ASM_542_DATA(5) = &H90
ASM_542_DATA(6) = &H90
ASM_542_DATA(7) = &HB8
ASM_542_DATA(8) = &H0
ASM_542_DATA(9) = &H0
ASM_542_DATA(10) = &H0
ASM_542_DATA(11) = &H0
ASM_542_DATA(12) = &HEB
ASM_542_DATA(13) = &H7
WriteProcessMemory pHandle, &H6F361EAB, VarPtr(ASM_542_DATA(0)), 14, 0&
End Sub
Sub HideSmallMiWu124b() '小地图迷雾显示1.24b
End Sub
Sub ShowSmallHide124b() '小地图显示隐形单位1.24b
WriteProcessMemory pHandle, &H6F361EBC, VarPtr(&H0), 1, 0&
End Sub
Sub HideSmallHide124b() '小地图隐藏隐形单位1.24b
End Sub
Sub ShowEnemySign124b() '小地图显示敌方信号1.24b
WriteProcessMemory pHandle, &H6F43F956, VarPtr(&H3B), 1, 0&
WriteProcessMemory pHandle, &H6F43F959, VarPtr(&H85), 1, 0&
WriteProcessMemory pHandle, &H6F43F969, VarPtr(&H3B), 1, 0&
WriteProcessMemory pHandle, &H6F43F96C, VarPtr(&H85), 1, 0&
End Sub
Sub HideEnemySign124b() '小地图隐藏敌方信号1.24b
End Sub
'###########################################################################'
Sub ShowSmallMap124e() '小地图单位显示1.24e
WriteProcessMemory pHandle, &H6F361F7C, VarPtr(&H0), 1, 0&
End Sub
Sub HideSmallMap124e() '小地图单位隐藏1.24e
End Sub
Sub ShowSmallMiWu124e() '小地图迷雾清除1.24e
WriteProcessMemory pHandle, &H6F357065, VarPtr(&H9090), 2, 0&
End Sub
Sub HideSmallMiWu124e() '小地图迷雾显示1.24e
End Sub
Sub ShowSmallHide124e() '小地图显示隐形单位1.24e
End Sub
Sub HideSmallHide124e() '小地图隐藏隐形单位1.24e
End Sub
Sub ShowEnemySign124e() '小地图显示敌方信号1.24e
WriteProcessMemory pHandle, &H6F43F9A6, VarPtr(&H3B), 1, 0&
WriteProcessMemory pHandle, &H6F43F9A9, VarPtr(&H85), 1, 0&
WriteProcessMemory pHandle, &H6F43F9B9, VarPtr(&H3B), 1, 0&
WriteProcessMemory pHandle, &H6F43F9BC, VarPtr(&H85), 1, 0&
End Sub
Sub HideEnemySign124e() '小地图隐藏敌方信号1.24e
End Sub
'##################################################################################################################################3
魔兽争霸,war3,所有,版本,MaphackPath,代码
WriteProcessMemory pHandle, &H6F2A0803, VarPtr(&HC03340), 3, 0&
WriteProcessMemory pHandle, &H6F2A0806, VarPtr(&HD23342), 3, 0&
End Sub
Sub HideBigMap120() '大地图单位隐藏1.20
WriteProcessMemory pHandle, &H6F2A0803, VarPtr(&H14428B), 3, 0&
WriteProcessMemory pHandle, &H6F2A0806, VarPtr(&H10528B), 3, 0&
End Sub
Sub ShowBigMiWu120() '大地图迷雾清除1.20
WriteProcessMemory pHandle, &H6F406A0F, VarPtr(&H9009), 2, 0&
WriteProcessMemory pHandle, &H6F406A14, VarPtr(&H9009), 2, 0&
End Sub
Sub HideBigMiWu120() '大地图迷雾显示1.20
WriteProcessMemory pHandle, &H6F406A0F, VarPtr(&H449), 2, 0&
WriteProcessMemory pHandle, &H6F406A14, VarPtr(&H849), 2, 0&
End Sub
Sub ShowBigHide120() '大地图显示隐形单位1.20
WriteProcessMemory pHandle, &H6F17D4D8, VarPtr(&H90909090), 4, 0&
WriteProcessMemory pHandle, &H6F17D4DC, VarPtr(&H1B8), 4, 0&
End Sub
Sub HideBigHide120() '大地图隐藏隐形单位1.20
WriteProcessMemory pHandle, &H6F17D4D8, VarPtr(&H5650006A), 4, 0&
WriteProcessMemory pHandle, &H6F17D4DC, VarPtr(&H12344FE8), 4, 0&
End Sub
Sub ShowHuanX120() '大地图分辨幻象1.20
WriteProcessMemory pHandle, &H6F1ACFEC, VarPtr(&HC340), 2, 0&
End Sub
Sub HideHuanX120() '大地图不分辨幻象1.20
WriteProcessMemory pHandle, &H6F1ACFEC, VarPtr(&H90C3), 2, 0&
End Sub
Sub ShowJiNeng120() '显示技能1.20
WriteProcessMemory pHandle, &H6F12DC0A, VarPtr(&H9090), 2, 0&
WriteProcessMemory pHandle, &H6F12DC4A, VarPtr(&H9090), 2, 0&
WriteProcessMemory pHandle, &H6F1BFA4E, VarPtr(&HEB), 1, 0&
WriteProcessMemory pHandle, &H6F442CC3, VarPtr(&H9090), 2, 0&
WriteProcessMemory pHandle, &H6F4431F5, VarPtr(&H9090), 2, 0&
WriteProcessMemory pHandle, &H6F45A321, VarPtr(&H90909090), 4, 0&
WriteProcessMemory pHandle, &H6F45A325, VarPtr(&H9090), 2, 0&
WriteProcessMemory pHandle, &H6F45E3FE, VarPtr(&H90909090), 4, 0&
WriteProcessMemory pHandle, &H6F45E402, VarPtr(&H9090), 2, 0&
WriteProcessMemory pHandle, &H6F466047, VarPtr(&H9090), 2, 0&
WriteProcessMemory pHandle, &H6F46ACE8, VarPtr(&H90909090), 4, 0&
WriteProcessMemory pHandle, &H6F46ACEC, VarPtr(&H9090), 2, 0&
WriteProcessMemory pHandle, &H6F4A0C30, VarPtr(&H9090), 2, 0&
WriteProcessMemory pHandle, &H6F54B9FF, VarPtr(&H90909090), 4, 0&
WriteProcessMemory pHandle, &H6F54BA03, VarPtr(&H9090), 2, 0&
WriteProcessMemory pHandle, &H6F556CDE, VarPtr(&H9090), 2, 0&
WriteProcessMemory pHandle, &H6F556CE0, VarPtr(&H90909090), 4, 0&
WriteProcessMemory pHandle, &H6F55D84C, VarPtr(&H9090), 2, 0&
End Sub
Sub HideJiNeng120() '隐藏技能1.20
WriteProcessMemory pHandle, &H6F12DC0A, VarPtr(&H874), 2, 0&
WriteProcessMemory pHandle, &H6F12DC4A, VarPtr(&H874), 2, 0&
WriteProcessMemory pHandle, &H6F1BFA4E, VarPtr(&H75), 1, 0&
WriteProcessMemory pHandle, &H6F442CC3, VarPtr(&H3874), 2, 0&
WriteProcessMemory pHandle, &H6F4431F5, VarPtr(&H1E74), 2, 0&
WriteProcessMemory pHandle, &H6F45A321, VarPtr(&H160840F), 4, 0&
WriteProcessMemory pHandle, &H6F45A325, VarPtr(&H0), 2, 0&
WriteProcessMemory pHandle, &H6F45E3FE, VarPtr(&H126840F), 4, 0&
WriteProcessMemory pHandle, &H6F45E402, VarPtr(&H0), 2, 0&
WriteProcessMemory pHandle, &H6F466047, VarPtr(&HF74), 2, 0&
WriteProcessMemory pHandle, &H6F46ACE8, VarPtr(&H91840F), 4, 0&
WriteProcessMemory pHandle, &H6F46ACEC, VarPtr(&H0), 2, 0&
WriteProcessMemory pHandle, &H6F4A0C30, VarPtr(&HF74), 2, 0&
WriteProcessMemory pHandle, &H6F54B9FF, VarPtr(&HF7840F), 4, 0&
WriteProcessMemory pHandle, &H6F54BA03, VarPtr(&H0), 2, 0&
WriteProcessMemory pHandle, &H6F556CDE, VarPtr(&H840F), 2, 0&
WriteProcessMemory pHandle, &H6F556CE0, VarPtr(&H161), 4, 0&
WriteProcessMemory pHandle, &H6F55D84C, VarPtr(&H4A74), 2, 0&
End Sub
Sub ShowKongZhi120() '控制单位1.20
WriteProcessMemory pHandle, &H6F1573DC, VarPtr(&HEB), 1, 0&
WriteProcessMemory pHandle, &H6F16F4D6, VarPtr(&HEB), 1, 0&
End Sub
Sub HideKongZhi120() '不控制单位1.20
WriteProcessMemory pHandle, &H6F1573DC, VarPtr(&H74), 1, 0&
WriteProcessMemory pHandle, &H6F16F4D6, VarPtr(&H74), 1, 0&
End Sub
'###########################################################################'
Sub ziyuan120E() '资源1.20E
WriteProcessMemory pHandle, &H6F13EF03, VarPtr(&HEB), 1, 0&
WriteProcessMemory pHandle, &H6F150981, VarPtr(&HEB02), 2, 0&
WriteProcessMemory pHandle, &H6F1509FE, VarPtr(&HEB02), 2, 0&
WriteProcessMemory pHandle, &H6F151597, VarPtr(&HEB02), 2, 0&
WriteProcessMemory pHandle, &H6F151647, VarPtr(&HEB02), 2, 0&
WriteProcessMemory pHandle, &H6F151748, VarPtr(&HEB02), 2, 0&
WriteProcessMemory pHandle, &H6F1BED19, VarPtr(&HEB02), 2, 0&
WriteProcessMemory pHandle, &H6F314A9E, VarPtr(&HEB02), 2, 0&
WriteProcessMemory pHandle, &H6F21EAD4, VarPtr(&HEB), 1, 0&
WriteProcessMemory pHandle, &H6F21EAE8, VarPtr(&H3), 1, 0&
End Sub
Sub ShowBigMap120E() '大地图单位显示1.20E
WriteProcessMemory pHandle, &H6F2A0923, VarPtr(&HC03340), 3, 0&
WriteProcessMemory pHandle, &H6F2A0926, VarPtr(&HD23342), 3, 0&
End Sub
Sub HideBigMap120E() '大地图单位隐藏1.20E
WriteProcessMemory pHandle, &H6F2A0923, VarPtr(&H14428B), 3, 0&
WriteProcessMemory pHandle, &H6F2A0926, VarPtr(&H10528B), 3, 0&
End Sub
Sub ShowBigMiWu120E() '大地图迷雾清除1.20E
WriteProcessMemory pHandle, &H6F406B4F, VarPtr(&H9009), 2, 0&
WriteProcessMemory pHandle, &H6F406B54, VarPtr(&H9009), 2, 0&
End Sub
Sub HideBigMiWu120E() '大地图迷雾显示1.20E
WriteProcessMemory pHandle, &H6F406B4F, VarPtr(&H449), 2, 0&
WriteProcessMemory pHandle, &H6F406B54, VarPtr(&H849), 2, 0&
End Sub
Sub ShowBigHide120E() '大地图显示隐形单位1.20E
WriteProcessMemory pHandle, &H6F17D4E8, VarPtr(&H90909090), 4, 0&
WriteProcessMemory pHandle, &H6F17D4EC, VarPtr(&H1B8), 4, 0&
End Sub
Sub HideBigHide120E() '大地图隐藏隐形单位1.20E
WriteProcessMemory pHandle, &H6F17D4E8, VarPtr(&H5650006A), 4, 0&
WriteProcessMemory pHandle, &H6F17D4EC, VarPtr(&H12355FE8), 4, 0&
End Sub
Sub ShowHuanX120E() '大地图分辨幻象1.20E
WriteProcessMemory pHandle, &H6F1ACFFC, VarPtr(&HC340), 2, 0&
End Sub
Sub HideHuanX120E() '大地图不分辨幻象1.20E
WriteProcessMemory pHandle, &H6F1ACFFC, VarPtr(&HC3), 1, 0&
End Sub
Sub ShowJiNeng120E() '显示技能1.20E
WriteProcessMemory pHandle, &H6F12DC1A, VarPtr(&H9090), 2, 0&
WriteProcessMemory pHandle, &H6F12DC5A, VarPtr(&H9090), 2, 0&
WriteProcessMemory pHandle, &H6F1BFABE, VarPtr(&HEB), 1, 0&
WriteProcessMemory pHandle, &H6F442CC0, VarPtr(&H90909090), 4, 0&
WriteProcessMemory pHandle, &H6F442CC4, VarPtr(&H9090), 2, 0&
WriteProcessMemory pHandle, &H6F443375, VarPtr(&H9090), 2, 0&
WriteProcessMemory pHandle, &H6F45A641, VarPtr(&H90909090), 4, 0&
WriteProcessMemory pHandle, &H6F45A645, VarPtr(&H9090), 2, 0&
WriteProcessMemory pHandle, &H6F45E79E, VarPtr(&H9090), 2, 0&
WriteProcessMemory pHandle, &H6F45E7A0, VarPtr(&H90909090), 4, 0&
WriteProcessMemory pHandle, &H6F466527, VarPtr(&H9090), 2, 0&
WriteProcessMemory pHandle, &H6F46B258, VarPtr(&H90909090), 4, 0&
WriteProcessMemory pHandle, &H6F46B25C, VarPtr(&H9090), 2, 0&
WriteProcessMemory pHandle, &H6F4A11A0, VarPtr(&H9090), 2, 0&
WriteProcessMemory pHandle, &H6F54C0BF, VarPtr(&H90909090), 4, 0&
WriteProcessMemory pHandle, &H6F54C0C3, VarPtr(&H9090), 2, 0&
WriteProcessMemory pHandle, &H6F5573FE, VarPtr(&H90909090), 4, 0&
WriteProcessMemory pHandle, &H6F557402, VarPtr(&H9090), 2, 0&
WriteProcessMemory pHandle, &H6F55E15C, VarPtr(&H9090), 2, 0&
End Sub
Sub HideJiNeng120E() '隐藏技能1.20E
WriteProcessMemory pHandle, &H6F12DC1A, VarPtr(&H874), 2, 0&
WriteProcessMemory pHandle, &H6F12DC5A, VarPtr(&H874), 2, 0&
WriteProcessMemory pHandle, &H6F1BFABE, VarPtr(&H75), 1, 0&
WriteProcessMemory pHandle, &H6F442CC0, VarPtr(&HDC840F), 4, 0&
WriteProcessMemory pHandle, &H6F442CC4, VarPtr(&H0), 2, 0&
WriteProcessMemory pHandle, &H6F443375, VarPtr(&H1E74), 2, 0&
WriteProcessMemory pHandle, &H6F45A641, VarPtr(&H160840F), 4, 0&
WriteProcessMemory pHandle, &H6F45A645, VarPtr(&H0), 2, 0&
WriteProcessMemory pHandle, &H6F45E79E, VarPtr(&H840F), 2, 0&
WriteProcessMemory pHandle, &H6F45E7A0, VarPtr(&H126), 4, 0&
WriteProcessMemory pHandle, &H6F466527, VarPtr(&HF74), 2, 0&
WriteProcessMemory pHandle, &H6F46B258, VarPtr(&H91840F), 4, 0&
WriteProcessMemory pHandle, &H6F46B25C, VarPtr(&H0), 2, 0&
WriteProcessMemory pHandle, &H6F4A11A0, VarPtr(&HF74), 2, 0&
WriteProcessMemory pHandle, &H6F54C0BF, VarPtr(&HF7840F), 4, 0&
WriteProcessMemory pHandle, &H6F54C0C3, VarPtr(&H0), 2, 0&
WriteProcessMemory pHandle, &H6F5573FE, VarPtr(&H161840F), 4, 0&
WriteProcessMemory pHandle, &H6F557402, VarPtr(&H0), 2, 0&
WriteProcessMemory pHandle, &H6F55E15C, VarPtr(&H4A74), 2, 0&
End Sub
Sub ShowKongZhi120E() '控制单位1.20E
WriteProcessMemory pHandle, &H6F1573EC, VarPtr(&HEB), 1, 0&
WriteProcessMemory pHandle, &H6F16F4E6, VarPtr(&HEB), 1, 0&
End Sub
Sub HideKongZhi120E() '不控制单位1.20E
WriteProcessMemory pHandle, &H6F1573EC, VarPtr(&H74), 1, 0&
WriteProcessMemory pHandle, &H6F16F4E6, VarPtr(&H74), 1, 0&
End Sub
'###########################################################################'
Sub ShowBigMap121() '大地图单位显示1.21
WriteProcessMemory pHandle, &H6F2A3C03, VarPtr(&HC03340), 3, 0&
WriteProcessMemory pHandle, &H6F2A3C06, VarPtr(&HD23342), 3, 0&
End Sub
Sub HideBigMap121() '大地图单位隐藏1.21
WriteProcessMemory pHandle, &H6F2A3C03, VarPtr(&H14428B), 3, 0&
WriteProcessMemory pHandle, &H6F2A3C06, VarPtr(&H10528B), 3, 0&
End Sub
Sub ShowBigMiWu121() '大地图迷雾清除1.21
WriteProcessMemory pHandle, &H6F40AA7F, VarPtr(&H9009), 2, 0&
WriteProcessMemory pHandle, &H6F40AA84, VarPtr(&H9009), 2, 0&
End Sub
Sub HideBigMiWu121() '大地图迷雾显示1.21
WriteProcessMemory pHandle, &H6F40AA7F, VarPtr(&H449), 2, 0&
WriteProcessMemory pHandle, &H6F40AA84, VarPtr(&H849), 2, 0&
End Sub
Sub ShowBigHide121() '大地图显示隐形单位1.21
WriteProcessMemory pHandle, &H6F17D878, VarPtr(&H90909090), 4, 0&
WriteProcessMemory pHandle, &H6F17D87C, VarPtr(&H1B8), 4, 0&
End Sub
Sub HideBigHide121() '大地图隐藏隐形单位1.21
WriteProcessMemory pHandle, &H6F17D878, VarPtr(&H5650006A), 4, 0&
WriteProcessMemory pHandle, &H6F17D87C, VarPtr(&H12344FE8), 4, 0&
End Sub
Sub ShowHuanX121() '大地图分辨幻象1.21
WriteProcessMemory pHandle, &H6F1B01BC, VarPtr(&HC340), 2, 0&
End Sub
Sub HideHuanX121() '大地图不分辨幻象1.21
WriteProcessMemory pHandle, &H6F1B01BC, VarPtr(&H90C3), 2, 0&
End Sub
Sub ShowJiNeng121() '显示技能1.21
WriteProcessMemory pHandle, &H6F12DC3A, VarPtr(&H9090), 2, 0&
WriteProcessMemory pHandle, &H6F12DC7A, VarPtr(&H9090), 2, 0&
WriteProcessMemory pHandle, &H6F1C2C7E, VarPtr(&HEB), 1, 0&
WriteProcessMemory pHandle, &H6F446BF0, VarPtr(&H90909090), 4, 0&
WriteProcessMemory pHandle, &H6F446BF4, VarPtr(&H9090), 2, 0&
WriteProcessMemory pHandle, &H6F4472A5, VarPtr(&H9090), 2, 0&
WriteProcessMemory pHandle, &H6F45E571, VarPtr(&H90909090), 4, 0&
WriteProcessMemory pHandle, &H6F45E575, VarPtr(&H9090), 2, 0&
WriteProcessMemory pHandle, &H6F4626CE, VarPtr(&H90909090), 4, 0&
WriteProcessMemory pHandle, &H6F4626D2, VarPtr(&H9090), 2, 0&
WriteProcessMemory pHandle, &H6F46A457, VarPtr(&H9090), 2, 0&
WriteProcessMemory pHandle, &H6F46F188, VarPtr(&H90909090), 4, 0&
WriteProcessMemory pHandle, &H6F46F18C, VarPtr(&H9090), 2, 0&
WriteProcessMemory pHandle, &H6F4A50D0, VarPtr(&H9090), 2, 0&
WriteProcessMemory pHandle, &H6F55014F, VarPtr(&H90909090), 4, 0&
WriteProcessMemory pHandle, &H6F550153, VarPtr(&H9090), 2, 0&
WriteProcessMemory pHandle, &H6F55B48E, VarPtr(&H90909090), 4, 0&
WriteProcessMemory pHandle, &H6F55B492, VarPtr(&H9090), 2, 0&
WriteProcessMemory pHandle, &H6F5621EC, VarPtr(&H9090), 2, 0&
End Sub
Sub HideJiNeng121() '隐藏技能1.21
WriteProcessMemory pHandle, &H6F12DC3A, VarPtr(&H874), 2, 0&
WriteProcessMemory pHandle, &H6F12DC7A, VarPtr(&H874), 2, 0&
WriteProcessMemory pHandle, &H6F1C2C7E, VarPtr(&H75), 1, 0&
WriteProcessMemory pHandle, &H6F446BF0, VarPtr(&HDC840F), 4, 0&
WriteProcessMemory pHandle, &H6F446BF4, VarPtr(&H0), 2, 0&
WriteProcessMemory pHandle, &H6F4472A5, VarPtr(&H1E74), 2, 0&
WriteProcessMemory pHandle, &H6F45E571, VarPtr(&H160840F), 4, 0&
WriteProcessMemory pHandle, &H6F45E575, VarPtr(&H0), 2, 0&
WriteProcessMemory pHandle, &H6F4626CE, VarPtr(&H126840F), 4, 0&
WriteProcessMemory pHandle, &H6F4626D2, VarPtr(&H0), 2, 0&
WriteProcessMemory pHandle, &H6F46A457, VarPtr(&HF74), 2, 0&
WriteProcessMemory pHandle, &H6F46F188, VarPtr(&H91840F), 4, 0&
WriteProcessMemory pHandle, &H6F46F18C, VarPtr(&H0), 2, 0&
WriteProcessMemory pHandle, &H6F4A50D0, VarPtr(&HF74), 2, 0&
WriteProcessMemory pHandle, &H6F55014F, VarPtr(&HF7840F), 4, 0&
WriteProcessMemory pHandle, &H6F550153, VarPtr(&H0), 2, 0&
WriteProcessMemory pHandle, &H6F55B48E, VarPtr(&H161840F), 4, 0&
WriteProcessMemory pHandle, &H6F55B492, VarPtr(&H0), 2, 0&
WriteProcessMemory pHandle, &H6F5621EC, VarPtr(&H4A74), 2, 0&
End Sub
Sub ShowKongZhi121() '控制单位1.21
WriteProcessMemory pHandle, &H6F15777C, VarPtr(&HEB), 1, 0&
WriteProcessMemory pHandle, &H6F16F876, VarPtr(&HEB), 1, 0&
End Sub
Sub HideKongZhi121() '不控制单位1.21
WriteProcessMemory pHandle, &H6F15777C, VarPtr(&H74), 1, 0&
WriteProcessMemory pHandle, &H6F16F876, VarPtr(&H74), 1, 0&
End Sub
'###########################################################################'
Sub ShowBigMap122() '大地图单位显示1.22
WriteProcessMemory pHandle, &H6F3A04AB, VarPtr(&H9090), 2, 0&
End Sub
Sub HideBigMap122() '大地图单位隐藏1.22
WriteProcessMemory pHandle, &H6F3A04AB, VarPtr(&HCA23), 2, 0&
End Sub
Sub ShowBigMiWu122() '大地图迷雾清除1.22
'WriteProcessMemory pHandle, &H6FA8E80D, VarPtr(&H0), 1, 0&
WriteProcessMemory pHandle, &H6F73B949, VarPtr(&HB2), 2, 0&
WriteProcessMemory pHandle, &H6F73B94B, VarPtr(&H90909090), 4, 0&
End Sub
Sub HideBigMiWu122() '大地图迷雾显示1.22
'WriteProcessMemory pHandle, &H6FA8E80D, VarPtr(&HFF), 1, 0&
WriteProcessMemory pHandle, &H6F73B949, VarPtr(&HB2), 2, 0&
WriteProcessMemory pHandle, &H6F73B94B, VarPtr(&H6FA8E80C), 4, 0&
End Sub
Sub ShowBigHide122() '大地图显示隐形单位1.22
WriteProcessMemory pHandle, &H6F398E01, VarPtr(&H90909090), 3, 0&
WriteProcessMemory pHandle, &H6F398E04, VarPtr(&H1B8), 3, 0&
End Sub
Sub HideBigHide122() '大地图隐藏隐形单位1.22
WriteProcessMemory pHandle, &H6F398E01, VarPtr(&H565055), 3, 0&
WriteProcessMemory pHandle, &H6F398E04, VarPtr(&H76F7E8), 3, 0&
End Sub
Sub ShowHuanX122() '大地图分辨幻象1.22
WriteProcessMemory pHandle, &H6F281F1C, VarPtr(&HC340), 2, 0&
End Sub
Sub HideHuanX122() '大地图不分辨幻象1.22
WriteProcessMemory pHandle, &H6F281F1C, VarPtr(&HCCC3), 2, 0&
End Sub
Sub ShowJiNeng122() '显示技能1.22
WriteProcessMemory pHandle, &H6F0441D0, VarPtr(&H90909090), 4, 0&
WriteProcessMemory pHandle, &H6F0441D4, VarPtr(&H9090), 2, 0&
WriteProcessMemory pHandle, &H6F044496, VarPtr(&H9090), 2, 0&
WriteProcessMemory pHandle, &H6F049673, VarPtr(&H90909090), 4, 0&
WriteProcessMemory pHandle, &H6F049677, VarPtr(&H9090), 2, 0&
WriteProcessMemory pHandle, &H6F04AD3D, VarPtr(&H90909090), 4, 0&
WriteProcessMemory pHandle, &H6F04AD41, VarPtr(&H9090), 2, 0&
WriteProcessMemory pHandle, &H6F04D2D9, VarPtr(&H9090), 2, 0&
WriteProcessMemory pHandle, &H6F04E953, VarPtr(&H90909090), 4, 0&
WriteProcessMemory pHandle, &H6F04E957, VarPtr(&H9090), 2, 0&
WriteProcessMemory pHandle, &H6F0C79BC, VarPtr(&H90909090), 4, 0&
WriteProcessMemory pHandle, &H6F0C79C0, VarPtr(&H9090), 2, 0&
WriteProcessMemory pHandle, &H6F0ED15D, VarPtr(&H9090), 2, 0&
WriteProcessMemory pHandle, &H6F16FF5F, VarPtr(&H9090), 2, 0&
WriteProcessMemory pHandle, &H6F201B9C, VarPtr(&H90909090), 4, 0&
WriteProcessMemory pHandle, &H6F201BA0, VarPtr(&H9090), 2, 0&
WriteProcessMemory pHandle, &H6F28D68E, VarPtr(&HEB), 1, 0&
WriteProcessMemory pHandle, &H6F34E6E8, VarPtr(&H9090), 2, 0&
WriteProcessMemory pHandle, &H6F34E728, VarPtr(&H9090), 2, 0&
End Sub
Sub HideJiNeng122() '隐藏技能1.22
WriteProcessMemory pHandle, &H6F0441D0, VarPtr(&HC9840F), 4, 0&
WriteProcessMemory pHandle, &H6F0441D4, VarPtr(&H0), 2, 0&
WriteProcessMemory pHandle, &H6F044496, VarPtr(&H2074), 2, 0&
WriteProcessMemory pHandle, &H6F049673, VarPtr(&H170840F), 4, 0&
WriteProcessMemory pHandle, &H6F049677, VarPtr(&H0), 2, 0&
WriteProcessMemory pHandle, &H6F04AD3D, VarPtr(&H132840F), 4, 0&
WriteProcessMemory pHandle, &H6F04AD41, VarPtr(&H0), 2, 0&
WriteProcessMemory pHandle, &H6F04D2D9, VarPtr(&H1174), 2, 0&
WriteProcessMemory pHandle, &H6F04E953, VarPtr(&H96840F), 4, 0&
WriteProcessMemory pHandle, &H6F04E957, VarPtr(&H0), 2, 0&
WriteProcessMemory pHandle, &H6F0C79BC, VarPtr(&HFC840F), 4, 0&
WriteProcessMemory pHandle, &H6F0C79C0, VarPtr(&H0), 2, 0&
WriteProcessMemory pHandle, &H6F0ED15D, VarPtr(&H4C74), 2, 0&
WriteProcessMemory pHandle, &H6F16FF5F, VarPtr(&H1174), 2, 0&
WriteProcessMemory pHandle, &H6F201B9C, VarPtr(&H15F840F), 4, 0&
WriteProcessMemory pHandle, &H6F201BA0, VarPtr(&H0), 2, 0&
WriteProcessMemory pHandle, &H6F28D68E, VarPtr(&H75), 1, 0&
WriteProcessMemory pHandle, &H6F34E6E8, VarPtr(&H874), 2, 0&
WriteProcessMemory pHandle, &H6F34E728, VarPtr(&H874), 2, 0&
End Sub
Sub ShowKongZhi122() '控制单位1.22
WriteProcessMemory pHandle, &H6F39207C, VarPtr(&HEB), 1, 0&
WriteProcessMemory pHandle, &H6F379F77, VarPtr(&HEB), 1, 0&
End Sub
Sub HideKongZhi122() '不控制单位1.22
WriteProcessMemory pHandle, &H6F39207C, VarPtr(&H74), 1, 0&
WriteProcessMemory pHandle, &H6F379F77, VarPtr(&H74), 1, 0&
End Sub
'###########################################################################'
Sub ShowBigMap123() '大地图单位显示1.23
WriteProcessMemory pHandle, &H6F3A1E9B, VarPtr(&H9090), 2, 0&
End Sub
Sub HideBigMap123() '大地图单位隐藏1.23
WriteProcessMemory pHandle, &H6F3A1E9B, VarPtr(&HCA23), 2, 0&
End Sub
Sub ShowBigMiWu123() '大地图迷雾清除1.23
'WriteProcessMemory pHandle, &H6FAA686D, VarPtr(&H0), 1, 0&
WriteProcessMemory pHandle, &H6F73DEC9, VarPtr(&HB2), 2, 0&
WriteProcessMemory pHandle, &H6F73DECB, VarPtr(&H90909090), 4, 0&
End Sub
Sub HideBigMiWu123() '大地图迷雾显示1.23
'WriteProcessMemory pHandle, &H6FAA686D, VarPtr(&HFF), 1, 0&
WriteProcessMemory pHandle, &H6F73DEC9, VarPtr(&H908A), 2, 0&
WriteProcessMemory pHandle, &H6F73DECB, VarPtr(&H6FAA686C), 4, 0&
End Sub
Sub ShowBigHide123() '大地图显示隐形单位1.23
WriteProcessMemory pHandle, &H6F39A3B1, VarPtr(&H909090), 3, 0&
WriteProcessMemory pHandle, &H6F39A3B4, VarPtr(&H1B8), 3, 0&
End Sub
Sub HideBigHide123() '大地图隐藏隐形单位1.23
WriteProcessMemory pHandle, &H6F39A3B1, VarPtr(&H565055), 3, 0&
WriteProcessMemory pHandle, &H6F39A3B4, VarPtr(&H7B37E8), 3, 0&
End Sub
Sub ShowHuanX123() '大地图分辨幻象1.23
WriteProcessMemory pHandle, &H6F28345C, VarPtr(&HC340), 2, 0&
End Sub
Sub HideHuanX123() '大地图不分辨幻象1.23
WriteProcessMemory pHandle, &H6F28345C, VarPtr(&HCCC3), 2, 0&
End Sub
Sub ShowJiNeng123() '显示技能1.23
WriteProcessMemory pHandle, &H6F045710, VarPtr(&H90909090), 4, 0&
WriteProcessMemory pHandle, &H6F045714, VarPtr(&H9090), 2, 0&
WriteProcessMemory pHandle, &H6F0459D6, VarPtr(&H9090), 2, 0&
WriteProcessMemory pHandle, &H6F04ABB3, VarPtr(&H90909090), 4, 0&
WriteProcessMemory pHandle, &H6F04ABB7, VarPtr(&H9090), 2, 0&
WriteProcessMemory pHandle, &H6F04C27D, VarPtr(&H90909090), 4, 0&
WriteProcessMemory pHandle, &H6F04C281, VarPtr(&H9090), 2, 0&
WriteProcessMemory pHandle, &H6F04E819, VarPtr(&H9090), 2, 0&
WriteProcessMemory pHandle, &H6F04FE93, VarPtr(&H90909090), 4, 0&
WriteProcessMemory pHandle, &H6F04FE97, VarPtr(&H9090), 2, 0&
WriteProcessMemory pHandle, &H6F0C8EFC, VarPtr(&H90909090), 4, 0&
WriteProcessMemory pHandle, &H6F0C8F00, VarPtr(&H9090), 2, 0&
WriteProcessMemory pHandle, &H6F0EE69D, VarPtr(&H9090), 2, 0&
WriteProcessMemory pHandle, &H6F17149F, VarPtr(&H9090), 2, 0&
WriteProcessMemory pHandle, &H6F2030DC, VarPtr(&H90909090), 4, 0&
WriteProcessMemory pHandle, &H6F2030E0, VarPtr(&H9090), 2, 0&
WriteProcessMemory pHandle, &H6F28EBCE, VarPtr(&HEB), 1, 0&
WriteProcessMemory pHandle, &H6F34FC68, VarPtr(&H9090), 2, 0&
WriteProcessMemory pHandle, &H6F34FCA8, VarPtr(&H9090), 2, 0&
End Sub
Sub HideJiNeng123() '隐藏技能1.23
WriteProcessMemory pHandle, &H6F045710, VarPtr(&HC9840F), 4, 0&
WriteProcessMemory pHandle, &H6F045714, VarPtr(&H0), 2, 0&
WriteProcessMemory pHandle, &H6F0459D6, VarPtr(&H2074), 2, 0&
WriteProcessMemory pHandle, &H6F04ABB3, VarPtr(&H170840F), 4, 0&
WriteProcessMemory pHandle, &H6F04ABB7, VarPtr(&H0), 2, 0&
WriteProcessMemory pHandle, &H6F04C27D, VarPtr(&H132840F), 4, 0&
WriteProcessMemory pHandle, &H6F04C281, VarPtr(&H0), 2, 0&
WriteProcessMemory pHandle, &H6F04E819, VarPtr(&H1174), 2, 0&
WriteProcessMemory pHandle, &H6F04FE93, VarPtr(&H96840F), 4, 0&
WriteProcessMemory pHandle, &H6F04FE97, VarPtr(&H0), 2, 0&
WriteProcessMemory pHandle, &H6F0C8EFC, VarPtr(&HFC840F), 4, 0&
WriteProcessMemory pHandle, &H6F0C8F00, VarPtr(&H0), 2, 0&
WriteProcessMemory pHandle, &H6F0EE69D, VarPtr(&H4C74), 2, 0&
WriteProcessMemory pHandle, &H6F17149F, VarPtr(&H1174), 2, 0&
WriteProcessMemory pHandle, &H6F2030DC, VarPtr(&H15F840F), 4, 0&
WriteProcessMemory pHandle, &H6F2030E0, VarPtr(&H0), 2, 0&
WriteProcessMemory pHandle, &H6F28EBCE, VarPtr(&H75), 1, 0&
WriteProcessMemory pHandle, &H6F34FC68, VarPtr(&H874), 2, 0&
WriteProcessMemory pHandle, &H6F34FCA8, VarPtr(&H874), 2, 0&
End Sub
Sub ShowKongZhi123() '控制单位1.23
WriteProcessMemory pHandle, &H6F39362C, VarPtr(&HEB), 1, 0&
WriteProcessMemory pHandle, &H6F37B527, VarPtr(&HEB), 1, 0&
End Sub
Sub HideKongZhi123() '不控制单位1.23
WriteProcessMemory pHandle, &H6F39362C, VarPtr(&H74), 1, 0&
WriteProcessMemory pHandle, &H6F37B527, VarPtr(&H74), 1, 0&
End Sub
'###########################################################################'
Sub ziyuan124B() '资源1.24B
WriteProcessMemory pHandle, &H6F3604CA, VarPtr(&H9090), 2, 0&
'WriteProcessMemory pHandle, &H6F150981, VarPtr(&HEB02), 2, 0&
'WriteProcessMemory pHandle, &H6F1509FE, VarPtr(&HEB02), 2, 0&
'WriteProcessMemory pHandle, &H6F151597, VarPtr(&HEB02), 2, 0&
'WriteProcessMemory pHandle, &H6F151647, VarPtr(&HEB02), 2, 0&
'WriteProcessMemory pHandle, &H6F151748, VarPtr(&HEB02), 2, 0&
'WriteProcessMemory pHandle, &H6F1BED19, VarPtr(&HEB02), 2, 0&
'WriteProcessMemory pHandle, &H6F314A9E, VarPtr(&HEB02), 2, 0&
'WriteProcessMemory pHandle, &H6F21EAD4, VarPtr(&HEB), 1, 0&
'WriteProcessMemory pHandle, &H6F21EAE8, VarPtr(&H3), 1, 0&
End Sub
Sub ShowBigMap124b() '大地图单位显示1.24b
WriteProcessMemory pHandle, &H6F3A201D, VarPtr(&HEB), 1, 0&
End Sub
Sub HideBigMap124b() '大地图单位隐藏1.24b
End Sub
Sub ShowBigMiWu124b() '大地图迷雾清除1.24b
Dim Asm(5) As Byte
Asm(0) = &HC6
Asm(1) = &H4
Asm(2) = &H3E
Asm(3) = &H1
Asm(4) = &H90
Asm(5) = &H46
WriteProcessMemory pHandle, &H6F74D103, VarPtr(Asm(0)), 6, 0&
End Sub
Sub HideBigMiWu124b() '大地图迷雾显示1.24b
End Sub
Sub ShowBigHide124b() '大地图显示隐形单位1.24b
Dim ASMA(6) As Byte
ASMA(0) = &H90
ASMA(1) = &H90
ASMA(2) = &H90
ASMA(3) = &H90
ASMA(4) = &H90
ASMA(5) = &H90
Dim ASMB(11) As Byte
ASMB(0) = &H90
ASMB(1) = &H90
ASMB(2) = &H90
ASMB(3) = &H90
ASMB(4) = &H90
ASMB(5) = &H90
ASMB(6) = &H90
ASMB(7) = &H90
ASMB(8) = &H33
ASMB(9) = &HC0
ASMB(10) = &H40
WriteProcessMemory pHandle, &H6F3622D1, VarPtr(&H3B), 1, 0&
WriteProcessMemory pHandle, &H6F3622D4, VarPtr(&H85), 1, 0&
WriteProcessMemory pHandle, &H6F39A45B, VarPtr(ASMA(0)), 6, 0&
WriteProcessMemory pHandle, &H6F39A46E, VarPtr(ASMB(0)), 11, 0&
End Sub
Sub HideBigHide124b() '大地图隐藏隐形单位1.24b
End Sub
Sub ShowHuanX124b() '大地图分辨幻象1.24b
WriteProcessMemory pHandle, &H6F28351C, VarPtr(&H40C3), 2, 0&
End Sub
Sub HideHuanX124b() '大地图不分辨幻象1.24b
End Sub
Sub ShowJiNeng124b() '显示技能1.24b
Dim ASMC(5) As Byte
ASMC(0) = &H90
ASMC(1) = &H90
ASMC(2) = &H90
ASMC(3) = &H90
ASMC(4) = &H90
ASMC(5) = &H90
WriteProcessMemory pHandle, &H6F28EC8E, VarPtr(&HEB), 1, 0&
WriteProcessMemory pHandle, &H6F20318C, VarPtr(ASMC(0)), 6, 0&
WriteProcessMemory pHandle, &H6F34FD28, VarPtr(&H9090), 2, 0&
WriteProcessMemory pHandle, &H6F34FD66, VarPtr(&H90909090), 4, 0&
End Sub
Sub HideJiNeng124b() '隐藏技能1.24b
End Sub
Sub ShowKongZhi124b() '控制单位1.24b
End Sub
Sub HideKongZhi124b() '不控制单位1.24b
End Sub
'###########################################################################'
Sub ShowBigMap124e() '大地图单位显示1.24e
WriteProcessMemory pHandle, &H6F39EBBC, VarPtr(&H75), 1, 0&
WriteProcessMemory pHandle, &H6F3A2030, VarPtr(&H9090), 2, 0&
WriteProcessMemory pHandle, &H6F3A20DB, VarPtr(&H9090), 2, 0&
End Sub
Sub HideBigMap124e() '大地图单位隐藏1.24e
End Sub
Sub ShowBigMiWu124e() '大地图迷雾清除1.24e
Dim Asc(5) As Byte
Asc(0) = &HB2
Asc(1) = &H0
Asc(2) = &H90
Asc(3) = &H90
Asc(4) = &H90
Asc(5) = &H90
WriteProcessMemory pHandle, &H6F74D1B9, VarPtr(Asc(0)), 6, 0&
End Sub
Sub HideBigMiWu124e() '大地图迷雾显示1.24e
End Sub
Sub ShowBigHide124e() '大地图显示隐形单位1.24e
Dim ASMC(5) As Byte
ASMC(0) = &H90
ASMC(1) = &H90
ASMC(2) = &H90
ASMC(3) = &H90
ASMC(4) = &H90
ASMC(5) = &H90
Dim ASMCSL(10) As Byte
ASMCSL(0) = &H90
ASMCSL(1) = &H90
ASMCSL(2) = &H90
ASMCSL(3) = &H90
ASMCSL(4) = &H90
ASMCSL(5) = &H90
ASMCSL(6) = &H90
ASMCSL(7) = &H90
ASMCSL(8) = &H33
ASMCSL(9) = &HC0
ASMCSL(10) = &H40
WriteProcessMemory pHandle, &H6F362391, VarPtr(&H3B), 1, 0&
WriteProcessMemory pHandle, &H6F362394, VarPtr(&H85), 1, 0&
WriteProcessMemory pHandle, &H6F39A51B, VarPtr(ASMC(0)), 6, 0&
WriteProcessMemory pHandle, &H6F39A52E, VarPtr(ASMCSL(0)), 11, 0&
End Sub
Sub HideBigHide124e() '大地图隐藏隐形单位1.24e
End Sub
Sub ShowHuanX124e() '大地图分辨幻象1.24e
WriteProcessMemory pHandle, &H6F28357C, VarPtr(&H40C3), 2, 0&
End Sub
Sub HideHuanX124e() '大地图不分辨幻象1.24e
End Sub
Sub ShowJiNeng124e() '显示技能1.24e
Dim AscSl(5) As Byte
AscSl(0) = &H90
AscSl(1) = &H90
AscSl(2) = &H90
AscSl(3) = &H90
AscSl(4) = &H90
AscSl(5) = &H90
WriteProcessMemory pHandle, &H6F2031EC, VarPtr(AscSl(0)), 6, 0&
WriteProcessMemory pHandle, &H6F34FDE8, VarPtr(&H9090), 2, 0&
End Sub
Sub HideJiNeng124e() '隐藏技能1.24e
End Sub
Sub ShowKongZhi124e() '控制单位1.24E
End Sub
Sub HideKongZhi124e() '不控制单位1.24e
End Sub
'##################################################################################################################################3
Sub ShowHomeLife120() '显示己方血条1.20
WriteProcessMemory pHandle, &H6F17F123, VarPtr(&HEB), 1, 0&
End Sub
Sub HideHomeLife120() '隐藏己方血条1.20
WriteProcessMemory pHandle, &H6F17F123, VarPtr(&H75), 1, 0&
End Sub
Sub ShowEndLife120() '显示敌方血条1.20
WriteProcessMemory pHandle, &H6F17F140, VarPtr(&HEB), 1, 0&
End Sub
Sub HideEndLife120() '隐藏敌方血条1.20
WriteProcessMemory pHandle, &H6F17F140, VarPtr(&H75), 1, 0&
End Sub
'###########################################################################'
Sub wxqx120E() '1.20E无限取消
WriteProcessMemory pHandle, &H6F23D60F, VarPtr(&HEB), 1, 0&
WriteProcessMemory pHandle, &H6F21EAD4, VarPtr(&H3), 1, 0&
WriteProcessMemory pHandle, &H6F21EAE8, VarPtr(&H3), 1, 0&
End Sub
Sub ShowHomeLife120E() '显示己方血条1.20E
WriteProcessMemory pHandle, &H6F17F133, VarPtr(&HEB), 1, 0&
End Sub
Sub HideHomeLife120E() '隐藏己方血条1.20E
WriteProcessMemory pHandle, &H6F17F133, VarPtr(&H75), 1, 0&
End Sub
Sub ShowEndLife120E() '显示敌方血条1.20E
WriteProcessMemory pHandle, &H6F17F150, VarPtr(&HEB), 1, 0&
End Sub
Sub HideEndLife120E() '隐藏敌方血条1.20E
WriteProcessMemory pHandle, &H6F17F150, VarPtr(&H75), 1, 0&
End Sub
'###########################################################################'
Sub ShowHomeLife121() '显示己方血条1.21
WriteProcessMemory pHandle, &H6F17F4C3, VarPtr(&HEB), 1, 0&
End Sub
Sub HideHomeLife121() '隐藏己方血条1.21
WriteProcessMemory pHandle, &H6F17F4C3, VarPtr(&H75), 1, 0&
End Sub
Sub ShowEndLife121() '显示敌方血条1.21
WriteProcessMemory pHandle, &H6F17F4E0, VarPtr(&HEB), 1, 0&
End Sub
Sub HideEndLife121() '隐藏敌方血条1.21
WriteProcessMemory pHandle, &H6F17F4E0, VarPtr(&H75), 1, 0&
End Sub
'###########################################################################'
Sub ShowHomeLife122() '显示己方血条1.22
WriteProcessMemory pHandle, &H6F39A79F, VarPtr(&HEB), 1, 0&
End Sub
Sub HideHomeLife122() '隐藏己方血条1.22
WriteProcessMemory pHandle, &H6F39A79F, VarPtr(&H75), 1, 0&
End Sub
Sub ShowEndLife122() '显示敌方血条1.22
WriteProcessMemory pHandle, &H6F39A7BC, VarPtr(&HEB), 1, 0&
End Sub
Sub HideEndLife122() '隐藏敌方血条1.22
WriteProcessMemory pHandle, &H6F39A7BC, VarPtr(&H75), 1, 0&
End Sub
'###########################################################################'
Sub ShowHomeLife123() '显示己方血条1.23
WriteProcessMemory pHandle, &H6F39BD4F, VarPtr(&HEB), 1, 0&
End Sub
Sub HideHomeLife123() '隐藏己方血条1.23
WriteProcessMemory pHandle, &H6F39BD4F, VarPtr(&H75), 1, 0&
End Sub
Sub ShowEndLife123() '显示敌方血条1.23
WriteProcessMemory pHandle, &H6F39BD6C, VarPtr(&HEB), 1, 0&
End Sub
Sub HideEndLife123() '隐藏敌方血条1.23
WriteProcessMemory pHandle, &H6F39BD6C, VarPtr(&H75), 1, 0&
End Sub
'###########################################################################'
Sub wxqx124B() '1.24B无限取消
WriteProcessMemory pHandle, &H6F57B9FC, VarPtr(&HEB), 1, 0&
WriteProcessMemory pHandle, &H6F5B2CC7, VarPtr(&H3), 1, 0&
WriteProcessMemory pHandle, &H6F5B2CDB, VarPtr(&H3), 1, 0&
End Sub
Sub ShowHomeLife124b() '显示己方血条1.24b
End Sub
Sub HideHomeLife124b() '隐藏己方血条1.24b
End Sub
Sub ShowEndLife124b() '显示敌方血条1.24b
End Sub
Sub HideEndLife124b() '隐藏敌方血条1.24b
End Sub
'###########################################################################'
Sub wxqx124E() '1.24E无限取消
WriteProcessMemory pHandle, &H6F57BA7C, VarPtr(&HEB), 1, 0&
WriteProcessMemory pHandle, &H6F5B2D77, VarPtr(&H3), 1, 0&
WriteProcessMemory pHandle, &H6F5B2D8B, VarPtr(&H3), 1, 0&
End Sub
Sub ShowHomeLife124e() '显示己方血条1.24e
End Sub
Sub HideHomeLife124e() '隐藏己方血条1.24e
End Sub
Sub ShowEndLife124e() '显示敌方血条1.24e
End Sub
Sub HideEndLife124e() '隐藏敌方血条1.24e
End Sub
'##################################################################################################################################3
Sub ShowJiaoYi120() '启用交易助手1.20
Dim MoneyNum As Long
MoneyNum = FormMain.Money.Text
WriteProcessMemory pHandle, &H6F127B2D, VarPtr(&HB8), 1, 0&
WriteProcessMemory pHandle, &H6F127B2E, VarPtr(MoneyNum), 4, 0&
WriteProcessMemory pHandle, &H6F127B32, VarPtr(&H90), 1, 0&
End Sub
Sub HideJiaoYi120() '禁用交易助手1.20
WriteProcessMemory pHandle, &H6F127B2D, VarPtr(&H168878B), 4, 0&
WriteProcessMemory pHandle, &H6F127B31, VarPtr(&H0), 2, 0&
End Sub
Sub ShowShiYe120() '可选视野外单位1.20
WriteProcessMemory pHandle, &H6F1BD537, VarPtr(&H9090), 2, 0&
WriteProcessMemory pHandle, &H6F1BD54B, VarPtr(&HEB), 1, 0&
End Sub
Sub HideShiYe120() '不可选视野外单位1.20
WriteProcessMemory pHandle, &H6F1BD537, VarPtr(&H2E74), 2, 0&
WriteProcessMemory pHandle, &H6F1BD54B, VarPtr(&H75), 1, 0&
End Sub
'###########################################################################'
Sub ShowJiaoYi120E() '启用交易助手1.20E
Dim MoneyNum As Long
MoneyNum = FormMain.Money.Text
WriteProcessMemory pHandle, &H6F127B3D, VarPtr(&HB8), 1, 0&
WriteProcessMemory pHandle, &H6F127B3E, VarPtr(MoneyNum), 4, 0&
WriteProcessMemory pHandle, &H6F127B42, VarPtr(&H90), 1, 0&
End Sub
Sub HideJiaoYi120E() '禁用交易助手1.20E
WriteProcessMemory pHandle, &H6F127B3D, VarPtr(&H168878B), 4, 0&
WriteProcessMemory pHandle, &H6F127B41, VarPtr(&H0), 2, 0&
End Sub
Sub ShowShiYe120E() '可选视野外单位1.20E
WriteProcessMemory pHandle, &H6F1BD5A7, VarPtr(&H9090), 2, 0&
WriteProcessMemory pHandle, &H6F1BD5BB, VarPtr(&HEB), 1, 0&
End Sub
Sub HideShiYe120E() '不可选视野外单位1.20E
WriteProcessMemory pHandle, &H6F1BD5A7, VarPtr(&H2E74), 2, 0&
WriteProcessMemory pHandle, &H6F1BD5BB, VarPtr(&H75), 1, 0&
End Sub
'###########################################################################'
Sub ShowJiaoYi121() '启用交易助手1.21
Dim MoneyNum As Long
MoneyNum = FormMain.Money.Text
WriteProcessMemory pHandle, &H6F127B5D, VarPtr(&HB8), 1, 0&
WriteProcessMemory pHandle, &H6F127B5E, VarPtr(MoneyNum), 4, 0&
WriteProcessMemory pHandle, &H6F127B62, VarPtr(&H90), 1, 0&
End Sub
Sub HideJiaoYi121() '禁用交易助手1.21
WriteProcessMemory pHandle, &H6F127B5D, VarPtr(&H168878B), 4, 0&
WriteProcessMemory pHandle, &H6F127B61, VarPtr(&H0), 2, 0&
End Sub
Sub ShowShiYe121() '可选视野外单位1.21
WriteProcessMemory pHandle, &H6F1C0767, VarPtr(&H9090), 2, 0&
WriteProcessMemory pHandle, &H6F1C077B, VarPtr(&HEB), 1, 0&
End Sub
Sub HideShiYe121() '不可选视野外单位1.21
WriteProcessMemory pHandle, &H6F1C0767, VarPtr(&H2E74), 2, 0&
WriteProcessMemory pHandle, &H6F1C077B, VarPtr(&H75), 1, 0&
End Sub
'###########################################################################'
Sub ShowJiaoYi122() '启用交易助手1.22
Dim MoneyNum As Long
MoneyNum = FormMain.Money.Text
WriteProcessMemory pHandle, &H6F34D1EA, VarPtr(&HB8), 1, 0&
WriteProcessMemory pHandle, &H6F34D1EB, VarPtr(MoneyNum), 4, 0&
WriteProcessMemory pHandle, &H6F34D1EF, VarPtr(&H90), 1, 0&
End Sub
Sub HideJiaoYi122() '禁用交易助手1.22
WriteProcessMemory pHandle, &H6F34D1EA, VarPtr(&H168878B), 4, 0&
WriteProcessMemory pHandle, &H6F34D1EE, VarPtr(&H0), 2, 0&
End Sub
Sub ShowShiYe122() '可选视野外单位1.22
WriteProcessMemory pHandle, &H6F28464C, VarPtr(&H9090), 2, 0&
WriteProcessMemory pHandle, &H6F284662, VarPtr(&HEB), 1, 0&
End Sub
Sub HideShiYe122() '不可选视野外单位1.22
WriteProcessMemory pHandle, &H6F28464C, VarPtr(&H2A74), 2, 0&
WriteProcessMemory pHandle, &H6F284662, VarPtr(&H75), 1, 0&
End Sub
'###########################################################################'
Sub ShowJiaoYi123() '启用交易助手1.23
Dim MoneyNum As Long
MoneyNum = FormMain.Money.Text
WriteProcessMemory pHandle, &H6F34E76A, VarPtr(&HB8), 1, 0&
WriteProcessMemory pHandle, &H6F34E76B, VarPtr(MoneyNum), 4, 0&
WriteProcessMemory pHandle, &H6F34E76F, VarPtr(&H90), 1, 0&
End Sub
Sub HideJiaoYi123() '禁用交易助手1.23
WriteProcessMemory pHandle, &H6F34E76A, VarPtr(&H168878B), 4, 0&
WriteProcessMemory pHandle, &H6F34E76E, VarPtr(&H0), 2, 0&
End Sub
Sub ShowShiYe123() '可选视野外单位1.23
WriteProcessMemory pHandle, &H6F285B8C, VarPtr(&H9090), 2, 0&
WriteProcessMemory pHandle, &H6F285BA2, VarPtr(&HEB), 1, 0&
End Sub
Sub HideShiYe123() '不可选视野外单位1.23
WriteProcessMemory pHandle, &H6F285B8C, VarPtr(&H2A74), 2, 0&
WriteProcessMemory pHandle, &H6F285BA2, VarPtr(&H75), 1, 0&
End Sub
'###########################################################################'
Sub ShowJiaoYi124b() '启用交易助手1.24b
Dim MoneyNum As Long
MoneyNum = FormMain.Money.Text
WriteProcessMemory pHandle, &H6F34E82A, VarPtr(&HB8), 1, 0&
WriteProcessMemory pHandle, &H6F34E82B, VarPtr(MoneyNum), 4, 0&
WriteProcessMemory pHandle, &H6F34E82F, VarPtr(&H90), 1, 0&
End Sub
Sub HideJiaoYi124b() '禁用交易助手1.24b
End Sub
Sub ShowShiYe124b() '可选视野外单位1.24b
WriteProcessMemory pHandle, &H6F285C4C, VarPtr(&H9090), 2, 0&
WriteProcessMemory pHandle, &H6F285C62, VarPtr(&HEB), 1, 0&
End Sub
Sub HideShiYe124b() '不可选视野外单位1.24b
End Sub
'###########################################################################'
Sub ShowJiaoYi124e() '启用交易助手1.24e
Dim MoneyNum As Long
MoneyNum = FormMain.Money.Text
WriteProcessMemory pHandle, &H6F34E8EA, VarPtr(&HB8), 1, 0&
WriteProcessMemory pHandle, &H6F34E8EB, VarPtr(MoneyNum), 4, 0&
WriteProcessMemory pHandle, &H6F34E8EF, VarPtr(&H90), 1, 0&
End Sub
Sub HideJiaoYi124e() '禁用交易助手1.24e
End Sub
Sub ShowShiYe124e() '可选视野外单位1.24e
WriteProcessMemory pHandle, &H6F285CBC, VarPtr(&H9090), 2, 0&
WriteProcessMemory pHandle, &H6F285CD2, VarPtr(&HEB), 1, 0&
End Sub
Sub HideShiYe124e() '不可选视野外单位1.24e
End Sub
'##################################################################################################################################3
Sub ShowSmallMap120() '小地图单位显示1.20
WriteProcessMemory pHandle, &H6F149198, VarPtr(&H0), 1, 0&
End Sub
Sub HideSmallMap120() '小地图单位隐藏1.20
WriteProcessMemory pHandle, &H6F149198, VarPtr(&H1), 1, 0&
End Sub
Sub ShowSmallMiWu120() '小地图迷雾清除1.20
WriteProcessMemory pHandle, &H6F147C43, VarPtr(&HEC), 1, 0&
End Sub
Sub HideSmallMiWu120() '小地图迷雾显示1.20
WriteProcessMemory pHandle, &H6F147C43, VarPtr(&HE4), 1, 0&
End Sub
Sub ShowSmallHide120() '小地图显示隐形单位1.20
WriteProcessMemory pHandle, &H6F1494D0, VarPtr(&H39), 1, 0&
WriteProcessMemory pHandle, &H6F1494D3, VarPtr(&H85), 1, 0&
End Sub
Sub HideSmallHide120() '小地图隐藏隐形单位1.20
WriteProcessMemory pHandle, &H6F1494D0, VarPtr(&H85), 1, 0&
WriteProcessMemory pHandle, &H6F1494D3, VarPtr(&H84), 1, 0&
End Sub
Sub ShowEnemySign120() '小地图显示敌方信号1.20
WriteProcessMemory pHandle, &H6F321BA4, VarPtr(&H39), 1, 0&
WriteProcessMemory pHandle, &H6F321BA7, VarPtr(&H85), 1, 0&
WriteProcessMemory pHandle, &H6F321BB7, VarPtr(&H39), 1, 0&
WriteProcessMemory pHandle, &H6F321BB9, VarPtr(&H75), 1, 0&
End Sub
Sub HideEnemySign120() '小地图隐藏敌方信号1.20
WriteProcessMemory pHandle, &H6F321BA4, VarPtr(&H85), 1, 0&
WriteProcessMemory pHandle, &H6F321BA7, VarPtr(&H84), 1, 0&
WriteProcessMemory pHandle, &H6F321BB7, VarPtr(&H85), 1, 0&
WriteProcessMemory pHandle, &H6F321BB9, VarPtr(&H74), 1, 0&
End Sub
'###########################################################################'
Sub ShowSmallMap120E() '小地图单位显示1.20E
WriteProcessMemory pHandle, &H6F1491A8, VarPtr(&H0), 1, 0&
End Sub
Sub HideSmallMap120E() '小地图单位隐藏1.20E
WriteProcessMemory pHandle, &H6F1491A8, VarPtr(&H1), 1, 0&
End Sub
Sub ShowSmallMiWu120E() '小地图迷雾清除1.20E
WriteProcessMemory pHandle, &H6F147C53, VarPtr(&HEC), 1, 0&
End Sub
Sub HideSmallMiWu120E() '小地图迷雾显示1.20E
WriteProcessMemory pHandle, &H6F147C53, VarPtr(&HE4), 1, 0&
End Sub
Sub ShowSmallHide120E() '小地图显示隐形单位1.20E
WriteProcessMemory pHandle, &H6F1494E0, VarPtr(&H39), 1, 0&
WriteProcessMemory pHandle, &H6F1494E3, VarPtr(&H85), 1, 0&
End Sub
Sub HideSmallHide120E() '小地图隐藏隐形单位1.20E
WriteProcessMemory pHandle, &H6F1494E0, VarPtr(&H85), 1, 0&
WriteProcessMemory pHandle, &H6F1494E3, VarPtr(&H84), 1, 0&
End Sub
Sub ShowEnemySign120E() '小地图显示敌方信号1.20E
WriteProcessMemory pHandle, &H6F321CC4, VarPtr(&H39), 1, 0&
WriteProcessMemory pHandle, &H6F321CC7, VarPtr(&H85), 1, 0&
WriteProcessMemory pHandle, &H6F321CD7, VarPtr(&H39), 1, 0&
WriteProcessMemory pHandle, &H6F321CD9, VarPtr(&H75), 1, 0&
End Sub
Sub HideEnemySign120E() '小地图隐藏敌方信号1.20E
WriteProcessMemory pHandle, &H6F321CC4, VarPtr(&H85), 1, 0&
WriteProcessMemory pHandle, &H6F321CC7, VarPtr(&H84), 1, 0&
WriteProcessMemory pHandle, &H6F321CD7, VarPtr(&H85), 1, 0&
WriteProcessMemory pHandle, &H6F321CD9, VarPtr(&H74), 1, 0&
End Sub
'###########################################################################'
Sub ShowSmallMap121() '小地图单位显示1.21
WriteProcessMemory pHandle, &H6F149208, VarPtr(&H0), 1, 0&
End Sub
Sub HideSmallMap121() '小地图单位隐藏1.21
WriteProcessMemory pHandle, &H6F149208, VarPtr(&H1), 1, 0&
End Sub
Sub ShowSmallMiWu121() '小地图迷雾清除1.21
WriteProcessMemory pHandle, &H6F147CB3, VarPtr(&HEC), 1, 0&
End Sub
Sub HideSmallMiWu121() '小地图迷雾显示1.21
WriteProcessMemory pHandle, &H6F147CB3, VarPtr(&HE4), 1, 0&
End Sub
Sub ShowSmallHide121() '小地图显示隐形单位1.21
WriteProcessMemory pHandle, &H6F149540, VarPtr(&H39), 1, 0&
WriteProcessMemory pHandle, &H6F149543, VarPtr(&H85), 1, 0&
End Sub
Sub HideSmallHide121() '小地图隐藏隐形单位1.21
WriteProcessMemory pHandle, &H6F149540, VarPtr(&H85), 1, 0&
WriteProcessMemory pHandle, &H6F149543, VarPtr(&H84), 1, 0&
End Sub
Sub ShowEnemySign121() '小地图显示敌方信号1.21
WriteProcessMemory pHandle, &H6F325E34, VarPtr(&H39), 1, 0&
WriteProcessMemory pHandle, &H6F325E37, VarPtr(&H85), 1, 0&
WriteProcessMemory pHandle, &H6F325E47, VarPtr(&H39), 1, 0&
WriteProcessMemory pHandle, &H6F325E49, VarPtr(&H75), 1, 0&
End Sub
Sub HideEnemySign121() '小地图隐藏敌方信号1.21
WriteProcessMemory pHandle, &H6F325E34, VarPtr(&H85), 1, 0&
WriteProcessMemory pHandle, &H6F325E37, VarPtr(&H84), 1, 0&
WriteProcessMemory pHandle, &H6F325E47, VarPtr(&H85), 1, 0&
WriteProcessMemory pHandle, &H6F325E49, VarPtr(&H74), 1, 0&
End Sub
'###########################################################################'
Sub ShowSmallMap122() '小地图单位显示1.22
WriteProcessMemory pHandle, &H6F36087C, VarPtr(&H0), 1, 0&
End Sub
Sub HideSmallMap122() '小地图单位隐藏1.22
WriteProcessMemory pHandle, &H6F36087C, VarPtr(&H1), 1, 0&
End Sub
Sub ShowSmallMiWu122() '小地图迷雾清除1.22
WriteProcessMemory pHandle, &H6F3556DB, VarPtr(&HEC), 1, 0&
End Sub
Sub HideSmallMiWu122() '小地图迷雾显示1.22
WriteProcessMemory pHandle, &H6F3556DB, VarPtr(&HE4), 1, 0&
End Sub
Sub ShowSmallHide122() '小地图显示隐形单位1.22
WriteProcessMemory pHandle, &H6F360C91, VarPtr(&H39), 1, 0&
WriteProcessMemory pHandle, &H6F360C94, VarPtr(&H85), 1, 0&
End Sub
Sub HideSmallHide122() '小地图隐藏隐形单位1.22
WriteProcessMemory pHandle, &H6F360C91, VarPtr(&H85), 1, 0&
WriteProcessMemory pHandle, &H6F360C94, VarPtr(&H84), 1, 0&
End Sub
Sub ShowEnemySign122() '小地图显示敌方信号1.22
WriteProcessMemory pHandle, &H6F42F836, VarPtr(&H39), 1, 0&
WriteProcessMemory pHandle, &H6F42F839, VarPtr(&H85), 1, 0&
WriteProcessMemory pHandle, &H6F42F849, VarPtr(&H39), 1, 0&
WriteProcessMemory pHandle, &H6F42F84C, VarPtr(&H85), 1, 0&
End Sub
Sub HideEnemySign122() '小地图隐藏敌方信号1.22
WriteProcessMemory pHandle, &H6F42F836, VarPtr(&H85), 1, 0&
WriteProcessMemory pHandle, &H6F42F839, VarPtr(&H84), 1, 0&
WriteProcessMemory pHandle, &H6F42F849, VarPtr(&H85), 1, 0&
WriteProcessMemory pHandle, &H6F42F84C, VarPtr(&H84), 1, 0&
End Sub
'###########################################################################'
Sub ShowSmallMap123() '小地图单位显示1.23
WriteProcessMemory pHandle, &H6F361DFC, VarPtr(&H0), 1, 0&
End Sub
Sub HideSmallMap123() '小地图单位隐藏1.23
WriteProcessMemory pHandle, &H6F361DFC, VarPtr(&H1), 1, 0&
End Sub
Sub ShowSmallMiWu123() '小地图迷雾清除1.23
WriteProcessMemory pHandle, &H6F356C5B, VarPtr(&HEC), 1, 0&
End Sub
Sub HideSmallMiWu123() '小地图迷雾显示1.23
WriteProcessMemory pHandle, &H6F356C5B, VarPtr(&HE4), 1, 0&
End Sub
Sub ShowSmallHide123() '小地图显示隐形单位1.23
WriteProcessMemory pHandle, &H6F362211, VarPtr(&H39), 1, 0&
WriteProcessMemory pHandle, &H6F362214, VarPtr(&H85), 1, 0&
End Sub
Sub HideSmallHide123() '小地图隐藏隐形单位1.23
WriteProcessMemory pHandle, &H6F362211, VarPtr(&H85), 1, 0&
WriteProcessMemory pHandle, &H6F362214, VarPtr(&H84), 1, 0&
End Sub
Sub ShowEnemySign123() '小地图显示敌方信号1.23
WriteProcessMemory pHandle, &H6F431556, VarPtr(&H39), 1, 0&
WriteProcessMemory pHandle, &H6F431559, VarPtr(&H85), 1, 0&
WriteProcessMemory pHandle, &H6F431569, VarPtr(&H39), 1, 0&
WriteProcessMemory pHandle, &H6F43156C, VarPtr(&H85), 1, 0&
End Sub
Sub HideEnemySign123() '小地图隐藏敌方信号1.23
WriteProcessMemory pHandle, &H6F431556, VarPtr(&H85), 1, 0&
WriteProcessMemory pHandle, &H6F431559, VarPtr(&H84), 1, 0&
WriteProcessMemory pHandle, &H6F431569, VarPtr(&H85), 1, 0&
WriteProcessMemory pHandle, &H6F43156C, VarPtr(&H84), 1, 0&
End Sub
'###########################################################################'
Sub ShowSmallMap124b() '小地图单位显示1.24b
WriteProcessMemory pHandle, &H6F361EAB, VarPtr(&H9090), 2, 0&
End Sub
Sub HideSmallMap124b() '小地图单位隐藏1.24b
End Sub
Sub ShowSmallMiWu124b() '小地图迷雾清除1.24b
Dim ASM_542_DATA(13) As Byte
ASM_542_DATA(0) = &H90
ASM_542_DATA(1) = &H90
ASM_542_DATA(2) = &H39
ASM_542_DATA(3) = &H5E
ASM_542_DATA(4) = &H10
ASM_542_DATA(5) = &H90
ASM_542_DATA(6) = &H90
ASM_542_DATA(7) = &HB8
ASM_542_DATA(8) = &H0
ASM_542_DATA(9) = &H0
ASM_542_DATA(10) = &H0
ASM_542_DATA(11) = &H0
ASM_542_DATA(12) = &HEB
ASM_542_DATA(13) = &H7
WriteProcessMemory pHandle, &H6F361EAB, VarPtr(ASM_542_DATA(0)), 14, 0&
End Sub
Sub HideSmallMiWu124b() '小地图迷雾显示1.24b
End Sub
Sub ShowSmallHide124b() '小地图显示隐形单位1.24b
WriteProcessMemory pHandle, &H6F361EBC, VarPtr(&H0), 1, 0&
End Sub
Sub HideSmallHide124b() '小地图隐藏隐形单位1.24b
End Sub
Sub ShowEnemySign124b() '小地图显示敌方信号1.24b
WriteProcessMemory pHandle, &H6F43F956, VarPtr(&H3B), 1, 0&
WriteProcessMemory pHandle, &H6F43F959, VarPtr(&H85), 1, 0&
WriteProcessMemory pHandle, &H6F43F969, VarPtr(&H3B), 1, 0&
WriteProcessMemory pHandle, &H6F43F96C, VarPtr(&H85), 1, 0&
End Sub
Sub HideEnemySign124b() '小地图隐藏敌方信号1.24b
End Sub
'###########################################################################'
Sub ShowSmallMap124e() '小地图单位显示1.24e
WriteProcessMemory pHandle, &H6F361F7C, VarPtr(&H0), 1, 0&
End Sub
Sub HideSmallMap124e() '小地图单位隐藏1.24e
End Sub
Sub ShowSmallMiWu124e() '小地图迷雾清除1.24e
WriteProcessMemory pHandle, &H6F357065, VarPtr(&H9090), 2, 0&
End Sub
Sub HideSmallMiWu124e() '小地图迷雾显示1.24e
End Sub
Sub ShowSmallHide124e() '小地图显示隐形单位1.24e
End Sub
Sub HideSmallHide124e() '小地图隐藏隐形单位1.24e
End Sub
Sub ShowEnemySign124e() '小地图显示敌方信号1.24e
WriteProcessMemory pHandle, &H6F43F9A6, VarPtr(&H3B), 1, 0&
WriteProcessMemory pHandle, &H6F43F9A9, VarPtr(&H85), 1, 0&
WriteProcessMemory pHandle, &H6F43F9B9, VarPtr(&H3B), 1, 0&
WriteProcessMemory pHandle, &H6F43F9BC, VarPtr(&H85), 1, 0&
End Sub
Sub HideEnemySign124e() '小地图隐藏敌方信号1.24e
End Sub
'##################################################################################################################################3
