VBA还可以哄老婆，做了个植物大战僵尸关卡备份恢复小程序
老婆最近迷上了植物大战僵尸，那个无尽的试炼敲罐子，居然被她敲到了57关！！！我也是服了，这玩意我都打不过20关， 不过她说每次死了从头来太费时间了，问我能不能备份打好的关卡，对于一个天天敲代码的来说，这当然是小菜一碟，特别是现在有了AI，我觉得几分钟就可以做一个关卡备份恢复小程序，首先搜一下植物大战僵尸的用户数据目录，找到了剩下了就主要是AI的活了！从开始到结束我大概花了10分钟左右，完成了所有代码，并运行测试无误！
首先打开Excel , 进入VBA，写下提示词
我要用VBA窗体做一个植物大战僵尸的备份恢复小程序我的游戏用户目录是C:ProgramDataPopCap GamesPlantsVsZombiesuserdata窗体上设计了备份和恢复按钮 还有一个恢复列表框

然后选中提示词，点击提问，20秒，洋洋洒洒给我写了70行代码！不过窗体还是要自己画一下，插入窗体 画上2个命令按钮和一个列表框，代码复制过去

测试了一下，稍微有点问题，备份目录不要放在本文件下 放在游戏用户目录下 改一下参数即可

运行效果如下
点击备份就会备份一个 选中要恢复的点击恢复就恢复了
可以自己到目录里 对已经备份的文件夹改名 来标记完成了什么
当然也可以在备份的时候 弹出对话框输入
直接问AI
简直不要太轻松 直接写回 再运行就是提示输入名称了！
不过最后遇到一点问题 就是恢复的时候 提示写入失败 因为这个目录需要管理员权限 只需要把Excel设置管理员权限启动即可!
比如我现在恢复到32关的备份
OK 大功告成!