?? 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
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -