سلام با دستور زیر هم میتونید بفهمید کد کشور سیم کارت تون چیه !
sub GetSimCardCountry as String
Dim r As Reflector
r.Target = r.GetContext
r.Target = r.RunMethod2(“getSystemService”, “phone”, “java.lang.String”)
return r.RunMethod(“getSimCountryIso”)
End Sub
مثلا برا ایران رو ir میزنه