[B4A] การอ่านค่า Serial Number และ IMEI ของโทรศัพท์ระบบปฏิบัติการ Android

thongkorn

นี่เป็นการแจกโค้ด B4A (Basic 4 Android) แรกสำหรับเว็บบอร์ดตัวใหม่ ซึ่งช่วงนี้เห็นมีการโหวตโน่นนั่นนี่ผ่านทาง Mobile App. แอดมินก็เลยเดาเอาว่าเวลาโหวตผ่านมือถือ คงต้องเช็ค Serial Number จากตัวเครื่อง ไปผสมกับรหัสบัตรประชาชน 13 หลัก เพื่อไม่ให้เกิดการซ้ำ ก็เลยถือเอาจังหวะนี้แหละมาแจกโค้ดในการอ่าน ID บางส่วนคือ Serial Number และ IMEI ตัวแรกของเครื่องโทรศัพท์ ในระบบปฏิบัติการ Android ...

ดาวน์โหลด Java Library ... โดยแตกไฟล์ออกมาไปวางไว้ที่ C:\Program Files (x86)\Anywhere Software\Basic4android\Libraries ซึ่งจะมีนามสกุล jar และ xml
Phone V2.50
Reflection V2.40

ฟังค์ชั่นที่ต้องนำมาใช้งาน ...


มาดูโค้ด Basic for Android (B4A) ... (แอดมินไม่ได้ใช้ Designer เป็นการสร้าง Label Control แบบ @Run Time)

1. #Region  Project Attributes
   
2.         #ApplicationLabel: Serial-IMEI Phone
   
3.         #VersionCode: 1
   
4.         #VersionName:
   
5.         'SupportedOrientations possible values: unspecified, landscape or portrait.
   
6.         #SupportedOrientations: unspecified
   
7.         #CanInstallToExternalStorage: False
   
8. #End Region
   
9. 
   
10. #Region  Activity Attributes
    
11.         #FullScreen: False
    
12.         #IncludeTitle: True
    
13. #End Region
    
14. 
    
15. Sub Process_Globals
    
16.         'These global variables will be declared once when the application starts.
    
17.         'These variables can be accessed from all modules.
    
18. 
    
19. End Sub
    
20. 
    
21. Sub Globals
    
22.         'These global variables will be redeclared each time the activity is created.
    
23.         'These variables can only be accessed from this module.
    
24.         Dim lblSerial As Label
    
25.         Dim lblIMEI As Label
    
26. End Sub
    
27. 
    
28. Sub Activity_Create(FirstTime As Boolean)
    
29.         'Do not forget to load the layout file created with the visual designer. For example:
    
30.         'Activity.LoadLayout("Layout1")
    
31.         If FirstTime Then
    
32.                 lblSerial.Initialize("lblSerial")
    
33.                 lblIMEI.Initialize("lblIMEI")
    
34.         End If
    
35.         lblSerial.TextSize=28
    
36.         lblIMEI.Textsize=28
    
37.         '/ Setting Label
    
38.         Activity.AddView(lblSerial, 0, 30dip, 100%x, 100%y)
    
39.         Activity.AddView(lblIMEI, 0, 100dip, 100%x, 100%y)
    
40.         Dim pid As PhoneId
    
41.         Dim r1 As Reflector
    
42.         lblSerial.Text="Build.SERIAL: " & r1.GetStaticField("android.os.Build", "SERIAL" )
    
43.         lblIMEI.Text="IMEI: " & pid.GetDeviceId
    
44. End Sub

คัดลอกไปที่คลิปบอร์ด

ดาวน์โหลดโค้ดต้นฉบับ Basic For Android (B4A) ได้ที่นี่ ...  

somchu

ผมลองกับ andriod version 9 (API 28) แล้วไม่ได้เลยลอง search ดูพบว่าต้องมีการให้สิทธิในการเข้าถึงค่าของโทรศัพท์ก่อน
ใครไม่ได้ลองวิธีนี้ครับ
เปิด Android SDK Manager แล้วให้ติดตั้งเพิ่มดังนี้

- Android Support Repository
- Google Play Services
- Google Repository

ลองดูครับ ....