JSON VB6中使用模块，带有有一个例子程序，请大家参考。