.NET Framework 精简版访问电话API

Private Shared SERVICE_PROVIDER As Long = &H6F46

＜StructLayout（LayoutKind.Sequential）＞ _
Public Structure SimRecord
Public cbSize As IntPtr
Public dwParams As IntPtr
Public dwRecordType As IntPtr
Public dwItemCount As IntPtr
Public dwSize As IntPtr
End Structure

＜System.Runtime.InteropServices.DllImport（"sms.dll"）＞ _
Private Shared Function SmsGetPhoneNumber（ByVal psmsaAddress As IntPtr） As
IntPtr
End Function

＜System.Runtime.InteropServices.DllImport（"cellcore.dll"）＞ _
Private Shared Function SimInitialize（ByVal dwFlags As IntPtr, ByVal
lpfnCallBack As IntPtr, ByVal dwParam As IntPtr, ByRef lphSim As IntPtr）
As IntPtr
End Function

＜System.Runtime.InteropServices.DllImport（"cellcore.dll"）＞ _
Private Shared Function SimGetRecordInfo（ByVal hSim As IntPtr, ByVal
dwAddress As IntPtr, ByRef lpSimRecordInfo As SimRecord） As IntPtr
End Function

＜System.Runtime.InteropServices.DllImport（"cellcore.dll"）＞ _
Private Shared Function SimReadRecord（ByVal hSim As IntPtr, ByVal
dwAddress As IntPtr, ByVal dwRecordType As IntPtr, _
ByVal dwIndex As IntPtr, ByVal lpData（） As Byte, ByVal dwBufferSize As
IntPtr, ByRef lpdwBytesRead As IntPtr） As IntPtr
End Function

＜System.Runtime.InteropServices.DllImport（"cellcore.dll"）＞ _
Private Shared Function SimDeinitialize（ByVal hSim As IntPtr） As IntPtr
End Function

GetPhoneNumber 函数相当于 C# 实现。首先创建缓冲区空间，并使用 P/Invoke 调用 SmsGetPhoneNumber 函数。

Dim phoneaddr As PhoneAddress = New PhoneAddress
Dim buffer（512） As Byte
Dim pAddr（） As Byte = buffer
Dim ipAddr As IntPtr = Marshal.AllocHLocal（pAddr.Length）
Dim res As IntPtr = IntPtr.Zero

Try
res = SmsGetPhoneNumber（ipAddr）
Catch ex As Exception
MessageBox.Show（ex.Message）
End Try

If （res.ToInt32 ＜＞ 0） Then
Throw New Exception（"无法从 SIM 中获取电话号码"）
End If

Dim hSim, res As IntPtr
hSim = IntPtr.Zero
Dim temp As Long

res = SimInitialize（IntPtr.Zero, Nothing, IntPtr.Zero, hSim）
If （res.ToInt32 ＜＞ 0） Then
Throw New Exception（"无法初始化 SIM。"）
End If

Dim bData（（rec.dwSize）.ToInt32 + 1） As Byte
Dim dwBytesRead As IntPtr = IntPtr.Zero

res = SimReadRecord（hSim, IntPtr.op_Explicit（SERVICE_PROVIDER）,
rec.dwRecordType, IntPtr.Zero, bData,
IntPtr.op_Explicit（bData.Length）, dwBytesRead）
If （res.ToInt32 ＜＞ 0） Then
Throw New Exception（"无法从 SMS 中读取服务提供程序。"）
End If

Dim bScrubbed（dwBytesRead.ToInt32） As Byte
Dim nPos As Int32 = 0
Dim i As Int32

'删除非 ASCII 字符
For i = 0 To dwBytesRead.ToInt32
If bData（i） ＞ 19 And bData（i） ＜ 125 Then
bScrubbed（nPos） = bData（i）
nPos = nPos + 1
End If
Next i

SimDeinitialize（hSim）

Return System.Text.ASCIIEncoding.ASCII.GetString（bScrubbed, 0,
bScrubbed.Length）