1. 调用外部VBScript子程序 a=InputBox("请输入对方的QQ")
2. 调用外部VBScript子程序 a=InputBox("请输入对方的QQ")