关于发送短信的问题，请天同大哥回答！

Question

里面应该使用WINSOCK API，这样写出来的代码比较清晰，关于通讯这一部分要尽量与其它代码分离开来，要把通讯的这一块都封装在一起。

Answer 1

'以下代码是接口模型，具体与通讯方面的东西都应该放在这里
'文件命名为：CSmsSock.cls
Private m_hSocket As New CTcpIp     '用于通讯的包Private Const nPort = 3456           '服务器的端口
Public Function Connect(ByVal strRemoteIp As String) As Boolean
Connect = m_hSocket.OpenConnection(strRemoteIp, nPort)
End Function
'登入
Public Function Login(ByVal strMobileNum As String, ByVal strPasswd As String) As BooleanEnd Function
'注册
Public Function Register(ByVal strMobileNum As String, ByVal strEmail As String) As BooleanEnd Function'短消息
Public Function ShortMsg(ByVal stMobileNum As String, ByVal strShortMsg As String) As BooleanEnd Function'图片
Public Function Picture(ByVal strFileName As String) As BooleanEnd Function'铃声
Public Function Ring(ByVal strFileName As String) As BooleanEnd Function
'批量短消息
Public Function BatchShortMsg(ByVal strMobileNumList As String, ByVal strShortMsg As String) As BooleanEnd Function
Private Sub Class_Initialize()End SubPrivate Sub Class_Terminate()End Sub