现贴出代码,希望对大家有用 Function WindowProc(ByVal hw As Long, _ ByVal uMsg As Long, _ ByVal wParam As Long, _ ByVal lParam As Long) As Long Select Case uMsg Case WM_RINGN_OTIRY MsgBox "WM_RINGN_OTIRY"
Case WM_PHONENBR_NOTIRY Dim myByte(1 To 30) As Byte Call CopyMemory(myByte(1), lParam, 8) MsgBox "WM_PHONENBR_NOTIRY" MsgBox StrConv(myByte, vbUnicode) Case WM_HOOKOFF_NOTIRY
MsgBox "WM_HOOKOFF_NOTIRY" Case Else WindowProc = CallWindowProc(lpPrevWndProc, hw, uMsg, wParam, lParam) End Select End Function
请你详细点说明,好吗>
Function WindowProc(ByVal hw As Long, _
ByVal uMsg As Long, _
ByVal wParam As Long, _
ByVal lParam As Long) As Long Select Case uMsg
Case WM_RINGN_OTIRY
MsgBox "WM_RINGN_OTIRY"
Case WM_PHONENBR_NOTIRY
Dim myByte(1 To 30) As Byte
Call CopyMemory(myByte(1), lParam, 8)
MsgBox "WM_PHONENBR_NOTIRY"
MsgBox StrConv(myByte, vbUnicode)
Case WM_HOOKOFF_NOTIRY
MsgBox "WM_HOOKOFF_NOTIRY"
Case Else
WindowProc = CallWindowProc(lpPrevWndProc, hw, uMsg, wParam, lParam)
End Select
End Function