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