检测MODEM的状态 VB代码