War3 基址

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

 

 

  • 1
    点赞
  • 2
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值