VB启用本地连接VB源码