彩票走势图

• 发起呼叫
• 往SIM卡上添加联系人
• 更新SIM卡上的联系人
• 删除SIN卡上的联系人
• 开启/关闭固定号码拨号
• 输入PIN和PIN2码

• 该操作是如此简单的，您只需在您的程序中声明相应的DLL函数即可，就像在用户的应用程序之内的功能；呼叫它就像用户自己写入一样。如下是一个演示实例，它展示了如何发起呼叫、如何列出SIM卡的电话号码表以及如何存储电话号码。
  
  Public Sub MakeCall(ByVal sPhoneNumber As String)
  SIMMakeCall(sPhoneNumber, SapphireSIMLicence)
  End Sub
  Public Sub ListPhoneNumbers(ByRef iEntries As Integer, _ByVal iLocation As Integer, _ByRef sPhoneNames As String, _ByRef sPhoneNumbers As String)
  
  Dim sListPhoneNames As String
  Dim sListPhoneNumbers As String sListPhoneNames = Space(1024)
  sListPhoneNumbers = Space(1024)
  sSIMListPhoneNumbers(iEntries, _iLocation, _sListPhoneNames, _sListPhoneNumbers, _SapphireSIMLicence)
  sPhoneNames = StripString(sListPhoneNames)
  sPhoneNumbers = StripString(sListPhoneNumbers)
  End
  
  Sub Public Sub WritePhoneNumber(ByVal iIndex As Integer, _ByVal iLocation As Integer, _ByVal sPhoneName As String, _ByVal sPhoneNumber As String)
  
  UnlockPIN("123456", "")
  sSIMWritePhoneNumber(iIndex, _iLocation, _sPhoneName, _sPhoneNumber, _SapphireSIMLicence)
  End Sub

Product Features
The Sapphire Sim Utility makes SIM card management easy with the following features:

• Make a phone call
• Add a contact to the SIM card
• Update a contact on the SIM card
• Delete a contract form the SIM card
• Enable or disable fixed dialling
• Enter PIN and PIN2 numbers

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 show how to make a call, list the SIM card phone numbers and to store a phone number.
  
  Public Sub MakeCall(ByVal sPhoneNumber As String)
  SIMMakeCall(sPhoneNumber, SapphireSIMLicence)
  End Sub
  Public Sub ListPhoneNumbers(ByRef iEntries As Integer, _ByVal iLocation As Integer, _ByRef sPhoneNames As String, _ByRef sPhoneNumbers As String)
  
  Dim sListPhoneNames As String
  Dim sListPhoneNumbers As String sListPhoneNames = Space(1024)
  sListPhoneNumbers = Space(1024)
  sSIMListPhoneNumbers(iEntries, _iLocation, _sListPhoneNames, _sListPhoneNumbers, _SapphireSIMLicence)
  sPhoneNames = StripString(sListPhoneNames)
  sPhoneNumbers = StripString(sListPhoneNumbers)
  End
  
  Sub Public Sub WritePhoneNumber(ByVal iIndex As Integer, _ByVal iLocation As Integer, _ByVal sPhoneName As String, _ByVal sPhoneNumber As String)
  
  UnlockPIN("123456", "")
  sSIMWritePhoneNumber(iIndex, _iLocation, _sPhoneName, _sPhoneNumber, _SapphireSIMLicence)
  End Sub