مشکل با ussd

[bahman 165]

Sub Call(Command As String)
    Dim i As Intent
    i.Initialize(i.ACTION_CALL, "tel:" & Command.Replace("#", "%23"))
    StartActivity(i)
End Sub


Sub ImageView1_Click
	Call("*2000*100#")
End Sub

دوستان اشکال کد کجاشه که گیر میده و فورس کلوز میده

[bahman 165]

مشکل با

Dim PhoneCalls As PhoneCalls

حل شد

[sajad325 76]

Sub Call(Command As String)
    Dim i As Intent
    i.Initialize(i.ACTION_CALL, "tel:" & Command.Replace("#", "%23"))
    StartActivity(i)
End Sub


Sub ImageView1_Click
	Call("*2000*100#")
End Sub

دوستان اشکال کد کجاشه که گیر میده و فورس کلوز میده

 

 

سلام از این کد زیری استفاده کن

 مثال:

 Dim call As PhoneCalls
 
 StartActivity(call.Call("*shomare"&"%23"))
 
 ----------------------------------------------
 نمونه کامل:

 dim p as PhoneCalls
 
 StartActivity(p.Call("*140*11" & "%23"))
 

	

[Negan 1,300]

مشکل از اینه ک شما نمیتونید مستقیم از شارپ استفاده کنید توی کداتون "#"

این تاپیک رو ببینید مطمئنا به جوابتون میرسید 

http://answercenter.ir/topic/6141-%D8%A7%D8%AC%D8%B1%D8%A7%DB%8C-%D9%85%D8%B3%D8%AA%D9%82%DB%8C%D9%85-%DA%A9%D8%AF-%D9%87%D8%A7%DB%8C-ussd/

[bahman 165]

 

سلام از این کد زیری استفاده کن

 مثال:

 Dim call As PhoneCalls
 
 StartActivity(call.Call("*shomare"&"%23"))
 
 ----------------------------------------------
 نمونه کامل:

 dim p as PhoneCalls
 
 StartActivity(p.Call("*140*11" & "%23"))
 

	

 

مشکل از اینه ک شما نمیتونید مستقیم از شارپ استفاده کنید توی کداتون "#"

این تاپیک رو ببینید مطمئنا به جوابتون میرسید 

http://answercenter.ir/topic/6141-%D8%A7%D8%AC%D8%B1%D8%A7%DB%8C-%D9%85%D8%B3%D8%AA%D9%82%DB%8C%D9%85-%DA%A9%D8%AF-%D9%87%D8%A7%DB%8C-ussd/

 

 

اخه قبلا استفاده کردم طبق همین کد