module1.bas

为了对短消息信息应用开发商提供支持

Attribute VB_Name = "Module1"
Type SMSSEND
    lSmsID  As Long         '发送成功后返回的ID号
    lReserve As Long          '保留，暂未用到
    szMobile(1 To 24) As Byte       '目标手机号码
    szMsg(1 To 168) As Byte        '短信内容
End Type

Declare Function Sms_Connect Lib "SmsSdk" (ByVal pServer As String, ByVal lCorpID As Long, ByVal pLoginName As String, ByVal pPasswd As String, ByVal lTimeOut As Long, ByVal HWND As Long) As Long
Declare Sub Sms_DisConnect Lib "SmsSdk" ()
Declare Function Sms_Send Lib "SmsSdk" (ByVal pMobile As String, ByVal pMsg As String, ByVal lSmsID As Long) As Long

Declare Function Sms_SendEx Lib "SmsSdk" (pSmsSend As SMSSEND, ByVal lCount As Long, ByVal bWaitRet As Long) As Long

Declare Function Sms_Get Lib "SmsSdk" (ByVal pNo As String, ByVal pMsg As String, ByVal pTime As String) As Long
Declare Function Sms_KYSms Lib "SmsSdk" () As Long