如果您在SmartPhone或者Pocket PC手机版本设备上开发应用程序，您也许希望能够记录下设备的国际移动设备标识（IEMI）或者国际移动用户标识（IMSI）数字。这些数字可以被用来追踪哪些设备和SIM卡正在被哪个用户使用。
　　Sapphire IMEI Utility可以从SmartPhone或者是PPC2002/2003手机版本设备中读取IMEI和IMSI数字.
实例代码：
　　该操作是如此简单的，您只需在您的程序中声明相应的DLL函数，然后在您需要的地方调用即可。下面的示例说明了在VB.NET里读取设备的IMEI数字。

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