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