دستوری برای شناسایی مدل گوشی

[sajadakbari 163]

سلام

من دنبال یه دستورم که بیاد مدل گوشی رو بفهمه بعد برای اون مدل خاص کاری انجام بده.

کمک کنید لطفا.

[sajadakbari 163]

سلام

نه عزیزان

منظورم اینه که مثلا من یه برنامه مینویسم که nfc میخواد . میخوام بهش بگم گوشی فلان که خواست اجراش کنه بگه گوشی شما این امکان رو نداره.

مثلا بگم گلکسی اس 1 بود بیا این پیغام رو بده.

[Alireza.Ghafari 2,104]

از تریق فون نامبر فکر کنم این امکان باشه ولی باید یه دیتابیس درست کنی نزدیک 1000 تا فون نامبر رو قرار بدی و بگی مثلا اگر سریال گوشی 12216345 بود گوشی طرف galaxy s6 هست ... به این روش امکان پذیر میشه این کار ولی یکم سخته. یه نرم افزار هم بود از این روش استفاده می کرد

[رضا جابرپور 179]

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

 

Dim p As ICOSPhone

Label1.Text=p.DeviceModel

 

یا 

 

 

 Dim manu As String

   Dim modl As String

   Dim prod As String

   Dim phone1 As Phone 

   manu = phone1.Manufacturer

   modl = phone1.Model

   prod = phone1.Product

   

   Log(manu & " - " & modl & " - " & prod)