try
FoxSms.SyncWorkMode = True '设置为同步工作模式
FoxSMS.CommPort = 3 '注意端口号千万不能搞错
If FoxSMS.OpenCom() = 0 Then
MessageBox.Show("短信猫连接成功!","提示", MessageBoxButtons.OK, MessageBoxIcon.Information)
Else
MessageBox.Show("短信猫连接失败!","提示", MessageBoxButtons.OK, MessageBoxIcon.Warning)
End If
catch ex As exception
msgbox("失败")
End try
http://www.foxtable.com/webhelp/scr/2070.htm