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

 思路是不让 游戏扣金币 ，并不是直接修改游戏的金币内存数值。因为这个金币内存并不是静态地址而是一个动态地址，这里为了方便，直接修改反汇编会方便。如上图成功的截图，我都不用建造矿车，随便建造都不扣钱了。

只要找到关键代码位置，要实现目标功能，其实有很多种方法，比如把sub指令修改为ADD指令，这样每次建造花费不减反增。造的越多，你钱越多。 

还有可以直接把 金币的赋值语句删除掉，写入NOP指令即可。

本帖源码下载地址，对应的游戏版本请加qq1016055890 获取

http://www.zai996.com/forum.php?mod=viewthread&tid=2714&extra=page%3D1