Warning: file_get_contents(/data/phpspider/zhask/data//catemap/3/android/199.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
Android 通过双Sim卡发送短信_Android_Sms_Basic_Vb4android - Fatal编程技术网

Android 通过双Sim卡发送短信

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

我在这个主题上使用了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 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