这是我的代码:Public Declare Function bSendMsg Lib "SMSCom.dll" (ByVal hComm As Long, ByVal szMsg As String, ByVal szPhNbr As String, ByVal szSCA As String, ByVal iSMSFormat As Integer, ByVal szNextMsg As String, ByVal szErrInfo As String) As Boolean '发送信息 Private Sub cmdopen_Click() nationality_cord = 0 Dim errmsg_send As String Dim PhNbr As String
If bSendMsg(ophandle, Msg_tmp1, PhNbr, Trim(com_inf.szSCA), nationality_cord, nMsg_tmp2, errmsg_send) Then MsgBox "发送成功" Else MsgBox "发送失败" End IfEnd Sub
Private Sub cmdopen_Click()
nationality_cord = 0
Dim errmsg_send As String
Dim PhNbr As String
Dim Msg_tmp1 As String
Dim nMsg_tmp2 As String
errmsg_send = "123"
Msg_tmp1 = txtNR.Text
nMsg_tmp2 = "fdfffff"
PhNbr = txtSJHM.Text
If bSendMsg(ophandle, Msg_tmp1, PhNbr, Trim(com_inf.szSCA), nationality_cord, nMsg_tmp2, errmsg_send) Then
MsgBox "发送成功"
Else
MsgBox "发送失败"
End IfEnd Sub