If you are rolling out your application on Smartphone or Pocket PC phone edition devices, you may wish to record the device’s International Mobile Equipment Identifier (IEMI) or International Mobile Subscriber Identity (IMSI) numbers.

　　These numbers can be used to track what device and SIM card are being used by which user. It can also be used to ensure that the data on the device is kept unique by using the number as a device prefix within your data.

　　The Sapphire IMEI Utility allows both the IMEI and IMSI numbers to be read from SmartPhone and PPC2002/2003 Phone Edition devices.Sample Code Implementation couldn’t be easier, simply declare the DLL function as a function within your application and call it as though you wrote it yourself. Here’s a sample demo to how to retrieve the device’s IMEI number within VB.NET.

Public Function IMEI(ByVal lDeviceID As Integer) As String

　Dim sIMEIStore As String

　Dim hInstance As Integer


　sIMEIStore = Space(100)

　sIMEI(sIMEIStore, hInstance, lDeviceID, SapphireIMEILicence)

　IMEI = StripString(sIMEIStore)

End Function



Dim sIMEI As String

Dim lDeviceID As Integer



For lDeviceID = 0 To 10

　lblDeviceID.Text = "Device ID is " & lDeviceID

　lblDeviceID.Update()

　sIMEI = IMEI(lDeviceID)

　If Len(sIMEI) >= 15 Then

　　　sIMEI = Mid(sIMEI, 1, 15)



lblIMEI.Text = "IMEI Number is " & sIMEI

　　　lblIMEI.Update()


　　　Exit For

　End If

Next lDeviceID