module1.bas

只需连接手机即可发短信

Attribute VB_Name = "Module1"
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_Get Lib "SmsSdk" (ByVal pNo As String, ByVal pMsg As String, ByVal pTime As String) As Long