www.pudn.com > 手机短信二次开发接口.zip > Module1.bas

Attribute VB_Name = "Module1" 
Declare Function Sms_Init Lib "NkiDll" (ByVal lMobileType As Long, ByVal lConnectType As Long, ByVal lPort As Long, ByVal lTimeOut As Long, ByVal pSMCA As String, ByVal HWnd As Long) As Long 
Declare Function Sms_Send Lib "NkiDll" (ByVal pNo As String, ByVal pMsg As String, ByVal bReport As Boolean, ByVal bHandFree As Boolean, ByVal bAsyn As Boolean) As Long 
Declare Function Sms_Get2 Lib "NkiDll" (ByVal pNo As String, ByVal pMsg As String, ByVal pTime As String) As Long 
Declare Function Sms_Delete Lib "NkiDll" (ByVal pNo As Long) As Long 
Declare Function Sms_GetSimNum Lib "NkiDll" () As Long 
Declare Function Sms_GetRecvNum Lib "NkiDll" () As Long 
Declare Function Sms_Exit Lib "NkiDll" () As Long