测试声卡的VB代码,获取声卡信息,测试有无声卡