ชุมชนคนรักภาษาเบสิค - Visual Basic Community

 ลืมรหัสผ่าน
 ลงทะเบียน
ค้นหา
ดู: 76|ตอบกลับ: 0

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

[คัดลอกลิงก์]

144

กระทู้

178

โพสต์

1306

เครดิต

ผู้ดูแลระบบ

Rank: 9Rank: 9Rank: 9

เครดิต
1306



นี่เป็นการแจกโค้ด 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. #Region  Activity Attributes
  10.         #FullScreen: False
  11.         #IncludeTitle: True
  12. #End Region

  13. Sub Process_Globals
  14.         'These global variables will be declared once when the application starts.
  15.         'These variables can be accessed from all modules.

  16. End Sub

  17. Sub Globals
  18.         'These global variables will be redeclared each time the activity is created.
  19.         'These variables can only be accessed from this module.
  20.         Dim lblSerial As Label
  21.         Dim lblIMEI As Label
  22. End Sub

  23. Sub Activity_Create(FirstTime As Boolean)
  24.         'Do not forget to load the layout file created with the visual designer. For example:
  25.         'Activity.LoadLayout("Layout1")
  26.         If FirstTime Then
  27.                 lblSerial.Initialize("lblSerial")
  28.                 lblIMEI.Initialize("lblIMEI")
  29.         End If
  30.         lblSerial.TextSize=28
  31.         lblIMEI.Textsize=28
  32.         '/ Setting Label
  33.         Activity.AddView(lblSerial, 0, 30dip, 100%x, 100%y)
  34.         Activity.AddView(lblIMEI, 0, 100dip, 100%x, 100%y)
  35.         Dim pid As PhoneId
  36.         Dim r1 As Reflector
  37.         lblSerial.Text="Build.SERIAL: " & r1.GetStaticField("android.os.Build", "SERIAL" )
  38.         lblIMEI.Text="IMEI: " & pid.GetDeviceId
  39. End Sub
คัดลอกไปที่คลิปบอร์ด

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

ขออภัย! โพสต์นี้มีไฟล์แนบหรือรูปภาพที่ไม่ได้รับอนุญาตให้คุณเข้าถึง

คุณจำเป็นต้อง ลงชื่อเข้าใช้ เพื่อดาวน์โหลดหรือดูไฟล์แนบนี้ คุณยังไม่มีบัญชีใช่ไหม? ลงทะเบียน

x
สิ่งที่ดีกว่าการให้ คือการให้แบบไม่มีที่สิ้นสุด
ขออภัย! คุณไม่ได้รับสิทธิ์ในการดำเนินการในส่วนนี้ กรุณาเลือกอย่างใดอย่างหนึ่ง ลงชื่อเข้าใช้ | ลงทะเบียน

รายละเอียดเครดิต

ข้อความล้วน|อุปกรณ์พกพา|ประวัติการแบน|G2GNet.com  

GMT+7, 2018-12-12 16:46 , Processed in 0.299232 second(s), 5 queries , File On.

Powered by Discuz! X3.3 R20170401, Rev.54

© 2001-2017 Comsenz Inc.

ตอบกระทู้ ขึ้นไปด้านบน ไปที่หน้ารายการกระทู้