利用 PostMessage 实现冒险岛按键自动化（VB 代码）