彩票走势图

如果您在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

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