Android 通过双Sim卡发送短信
我在这个主题上使用了B4A和转换Java代码 至B4a代码,但此代码仅在SimCard 1上发送SMS,并且在使用SimCard 2 ID时,仍由SimCard 1发送 有人知道这个问题吗 问候Android 通过双Sim卡发送短信,android,sms,basic,vb4android,Android,Sms,Basic,Vb4android,我在这个主题上使用了B4A和转换Java代码 至B4a代码,但此代码仅在SimCard 1上发送SMS,并且在使用SimCard 2 ID时,仍由SimCard 1发送 有人知道这个问题吗 问候 Sub Globals Private txtpm As EditText Private txtname As EditText Dim sim_card As SimCard Private Content_Resolver As ContentReso
Sub Globals
Private txtpm As EditText
Private txtname As EditText
Dim sim_card As SimCard
Private Content_Resolver As ContentResolver
End Sub
Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("send_sms_layout")
sim_card.Initialize()
StartService(modSMS)
End Sub
Sub Btn_Sim2_Click
Dim msg As Map
Dim Content_Values As ContentValues
Dim Uri_ As Uri
Try
If sim_card.IsDualSIM = True Then
Content_Values.Initialize
Dim sim_id1 As String
Dim sim_id2 As String
Dim r As Int
sim_id1 = sim_card.GetSimSerialNumber1
sim_id2 = sim_card.GetSimSerialNumber2
Content_Values.PutString("value",sim_id2 )
Uri_.Parse("content://settings/system")
r = Content_Resolver.Update(Uri_,Content_Values,"name='sms_sim_setting'",Null)
End If
Catch
ToastMessageShow(LastException,True)
End Try
Try
msg.Initialize
msg.Put("message",txtpm.Text)
msg.Put("to",txtname.Text)
SendSMS(msg)
Catch
ToastMessageShow(LastException.Message,True)
End Try
End Sub