Sapphire IMEI Utility

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 lDeviceIDAs Integer)As String
  DimsIMEIStoreAs String
  DimhInstanceAs Integer

   sIMEIStore = Space(100)
  sIMEI(sIMEIStore, hInstance, lDeviceID, SapphireIMEILicence)
  IMEI = StripString(sIMEIStore)
End Function

DimsIMEIAs String

DimlDeviceIDAs Integer

ForlDeviceID = 0 To10
  lblDeviceID.Text = "Device ID is " & lDeviceID
  lblDeviceID.Update()
  sIMEI = IMEI(lDeviceID)
  IfLen(sIMEI) >= 15 Then
    sIMEI = Mid(sIMEI, 1, 15)
    lblIMEI.Text = "IMEI Number is " & sIMEI
    lblIMEI.Update()
    Exit For
  End If
NextlDeviceID

Please, note that this product is also included in the Sapphire Suite, the complete set of Sapphire Solutions eVB, VB.NET and C# Development Utilities. Sapphire Suite package contains the latest version of Sapphire Solutions released utilities: Sapphire RAS Utility, Sapphire FTP Utility, Sapphire GZip, Sapphire Encrypt, Sapphire IrDA, Sapphire Buttons, Sapphire IMEI, Sapphire Battery, etc.