Phone တလုံးရဲ႕ Infomation ကုိၾကည့္တာေလး

Phone တလုံးရဲ႕ Infomation ကုိၾကည့္တာေလး

Libraies မွာ Phone နဲ႕ mlfile ကုိအမွန္ျဖစ္ျပီး
Sub _Global ေအာက္မွာ ဒါေလးေရးပါမယ္

Dim ph As Phone
Dim P As PhoneId
Dim lv As ListView
Dim m As MLfiles

Sub Activity_Create(FirstTime As Boolean) ေအာက္မွာ ေတာ့
Listview ကုိအတည္ျပဳျပီး ေနရာခ်ဖုိ႕အတြက္က

lv.Initialize("")
Activity.AddView(lv,0,0,100%x,100%y)

မိမိၾကိဳက္သလုိေနရာခ်ပါ က်ေနာ္ကေတာ့ Listview ကုိေနရာအျပည့္ခ်လုိက္ပါတယ္

ျပီးရင္ Listview မွာ ေရးဖုိ႕အတြက္က

lv.AddTwoLines("Manufacture",ph.Manufacturer)

အဲ့လုိေရးလုိက္ပါမယ္

AddTwoLines ဆုိတာက Line ၂ခုေပၚေအာင္ေရးတာပါ အေပၚတခုေအာက္တခုေပါ့

"Manufacture" ဆုိတာက မိမိစိတ္ၾကိဳက္ေရးေပါ့
သူ႕ေနာက္က ph.Manufacturer ဆိုတာကေတာ့ က်ေနာ္တုိ႕က phone lib ကုိသုံးထားတဲ့အတြက္
သူနဲ႕သက္ဆုိင္တဲ့ Manufactureတုိ႕ SDK တုိ႕ Model တုိ႕ကုိ သူ႕ထဲကယူသုံးတာပါ

အဲ့တုိင္းပဲ ေအာက္ကဆက္ေရးသြားတာအတူတူပါပဲ ေနာက္က ph. ဆုိျပီးယူသုံးသြားတာပဲလြဲသြားတာပါ

Ph. ကုိယူသုံးျပီး ေနာက္တခုက Listview မွာပဲ Dim P As PhoneId ကုိယူသုံးပါတယ္

lv.AddTwoLines("Device ID",p.GetDeviceId)

p.GetDeviceId ဆုိျပီး Phone ID Lib ကေပးထားတဲ့ မိမိဖုန္းရဲ႕ Divice ID ကုိ စစ္တာပါ

အဲ့လုိမ်ိဳးေပါ့

ျပီးရင္ Root ရွိမရွိ စစ္တာေလးပါ ပါခ်င္တဲ့အတြက္ mlfile ကုိသုံးပါမယ္

m.GetRoot
If m.HaveRoot Then
lv.AddTwoLines("Root","Yes")
Else
lv.AddTwoLines("Root","No")
End If

m.GetRoot ဆုိျပီး Root ရွိမရွိ ေမးပါမယ္
If m.HaveRoot Then က Root ရွိခဲ့ရင္ သူ႕ေအာက္မွာ
lv.AddTwoLines("Root","Yes") ဆုိျပီးျပမယ္
Else မရွိခဲ့ရင္ေတာ့
lv.AddTwoLines("Root","No") Noျပပါမယ္

If နဲ႕စထားတဲ့အတြက္ ေအာက္က END IF နဲ႔ျပန္ပိတ္ပါမယ္

တခု ​ေရးတာ ​လြဲ​ေနမွာစုိးလုိ႔
P.GetDeviceID
Device ID ဆုိတာ ဖုန္​းရဲ႕
imei ကုိ​ေျပာတာပါ

Credit
https://www.facebook.com/permalink.php?story_fbid=1828114940815718&id=1815830958710783