| 请先登录 | 注册 |
| IPSC1978.GICP.NET |
| ■标题:B4A 发送短信代码示例 测试可用。增加发送超长短信的库 |
■作者:IPSC [2026/1/31 15:53:25] smssend.txt以上方法引用phone库，以及在Manifest里增加发短信权限，只能发送76字以下短信，最好限制75字。 [vb] AddPermission(android.permission.SEND_SMS) [/vb] --------------------------------------- 下面是发送超长短信的，超过76字短信自动拆分发送，接收手机会自动合并为一条超长信息。实测有用 首先申请权限，和上例一样在manifest加权限申请 先在Sub Process_Globals模块加上这行，这行作者示例写错了，这样才正确 [vb] Dim x As SMS_EXtra2 [/vb] 然后在发送的程序模块里加上，注意手机号改成自己的 [vb] x.Initialize(Me,"x") x.SendingProcessType=True x.SendNewSMS(("这是超长短信内容--shtjyhdsdfhjfgydfyudtrytyjfgyutyutffyujyfujfyujfygujfuyjuyjftgjtfyjfty"),"13800138000") [/vb] 这几个模块是获取信息的，最好加上，只有LOG [vb] Sub x_SMSdeliverystatus(PhoneNumber As String, SMS_list As SMSList )' Type SMSList(GSM_Encoding As Boolean,SMS_Total_length As Int,SMS_count As Int,GSM_NO As String,Message As String, SMS_Delivered_Part As Int, SMS_Sent_Status_Part As Int, SMS_Sent_Status As String ) ' PROCESS GLOABAL Log("delivery :" & PhoneNumber&"- - -"& SMS_list.SMS_Delivered_Part&"/"&SMS_list.SMS_count ) End Sub Sub x_SMSsendstatus(PhoneNumber As String, SMS_list As SMSList )' Type SMSList(GSM_Encoding As Boolean,SMS_Total_length As Int,SMS_count As Int,GSM_NO As String,Message As String, SMS_Delivered_Part As Int, SMS_Sent_Status_Part As Int, SMS_Sent_Status As String ) ' PROCESS GLOABAL Log("senınding :" & PhoneNumber&"-"& SMS_list.Message &"--" &SMS_list.SMS_Sent_Status_Part & "/"& SMS_list.SMS_count ) End Sub Sub x_SMSsent(PhoneNumber As String, status As Boolean) Log("sent - status :" & PhoneNumber&"-"& status) '******************************** '******************************** ' NOW YOU CAN SEND A NEW SMS MESASSGE, PHONE IS READY FOR NEW SMS SENDING PROCESS ' you can add some code for next messages... '******************************** '******************************** If status=False Then If x.Message_List_Delete(PhoneNumber) Then Log(PhoneNumber&" was deleted in list") End If End Sub Sub x_SMSdelivered(PhoneNumber As String) Log("delivered compalete:" & PhoneNumber) End Sub Sub x_SMSProblem(PhoneNumber As String, ProblemStatus As String) Log ("problem:"&PhoneNumber&"-->>"&ProblemStatus) End Sub [/vb] 库文件在这里下载：https://www.b4x.com/android/forum/threads/sms-extra-for-multi-part-sms.59081/#content 【回复/版区/上篇/下篇/发贴/仅文字/HTML】 |
| 【倒序/最近21条回复】(暂无) |
| (查看完整版网页) |