VBSCall a=InputBox("请输入对方的QQ")
VBSCall RunApp("http://wpa.qq.com/msgrd?V=1&Uin="&a&"&Site=&Menu=yes")