📄 rmstapiroutines.bas
字号:
frmMain.lbStatusBrief.AddItem "FUNCTION : lineHold"
frmMain.lbStatusBrief.ListIndex = frmMain.lbStatusBrief.ListCount - 1
DoEvents
' Run lineHold..
l_lineHold_Result = RMSTAPIDeclarations.lineHold(l_Call)
' Check if lineHold ran ok..
If l_lineHold_Result = RESULT_SUCCESS Or l_lineHold_Result > 0 Then
' Screen....
frmStatus.lbStatus.AddItem "lineHold ran. SUCCESS"
frmStatus.lbStatus.AddItem "l_Call = " & l_Call & "."
If l_lineHold_Result = RESULT_SUCCESS Then
frmStatus.lbStatus.AddItem "lineHold Request Identifier = NONE (0)."
Else
frmStatus.lbStatus.AddItem "lineHold Request Identifier = " & l_lineHold_Result & "."
End If
glHeldCall = RMSTAPIRoutines.glhCall
frmMain.lblHeldCall.Caption = "Held Call Handle: " & glHeldCall
Else
' Screen....
frmStatus.lbStatus.AddItem "lineHold ran. ERRORS"
frmStatus.lbStatus.AddItem "** >> Error returned : " & l_lineHold_Result & " (" & Hex(l_lineHold_Result) & " hex)."
frmStatus.lbStatus.AddItem "** >> Error text : " & RMSTAPIErrorHandler.Tapi_Error_Text(l_lineHold_Result) & "."
End If
' Screen....
frmStatus.lbStatus.ListIndex = frmStatus.lbStatus.ListCount - 1
End Sub
Public Sub Run_lineGetAddressStatus()
'Declare Function lineGetAddressStatus Lib "TAPI32.DLL" _
' (ByVal l_hLine As Long, ByVal l_dwAddressID As Long, ByRef struct_lpAddressStatus As lineAddressStatus) As Long
'Declare Function lineGetAddressStatus Lib "TAPI32.DLL" _
' (ByVal l_hLine As Long, ByVal l_dwAddressID As Long, ptr_lpAddressStatus As Any) As Long
Dim sDevSpecificInfo As String
Dim l_Line As Long ' lineGetAddressStatus .. Parameter 1 .. Value
Dim l_AddrID As Long ' lineGetAddressStatus .. Parameter 2 .. Value
Dim struct_MyAddrStatus As lineAddressStatus ' lineGetAddressStatus .. Parameter 3 .. Reference
Dim l_lineGetAddressStatus_Result As Long ' lineGetAddressStatus .. Function Passed?
gsLastTAPIFunctionRan = "lineGetAddressStatus"
' Init Parameters..
l_Line = RMSTAPIRoutines.glhLine
' Screen....
frmStatus.lbStatus.AddItem " "
frmStatus.lbStatus.AddItem "================================================================================================"
frmStatus.lbStatus.AddItem "*** FUNCTION : lineGetAddressStatus ***"
frmStatus.lbStatus.AddItem "------------------------------------------------------------------------------------------------"
frmMain.lbStatusBrief.AddItem "FUNCTION : lineGetAddressStatus"
frmMain.lbStatusBrief.ListIndex = frmMain.lbStatusBrief.ListCount - 1
DoEvents
' Set Memory needed...
struct_MyAddrStatus.l_dwTotalSize = LINEADDRESSSTATUS_FIXEDSIZE + LINEADDRESSSTATUS_MEMSIZE
' Run lineGetAddressStatus..
l_lineGetAddressStatus_Result = RMSTAPIDeclarations.lineGetAddressStatus( _
l_Line, l_AddrID, struct_MyAddrStatus)
' Check if lineGetAddressStatus ran ok..
If l_lineGetAddressStatus_Result = RESULT_SUCCESS Then
' Screen....
sDevSpecificInfo = ""
If struct_MyAddrStatus.l_dwDevSpecificSize > 0 Then
sDevSpecificInfo = _
RMSTAPIEvents.GetVarInfo _
(RMSTAPIEvents.Clean(struct_MyAddrStatus.mem), _
(struct_MyAddrStatus.l_dwDevSpecificOffset - LINEADDRESSSTATUS_FIXEDSIZE) + 1, _
struct_MyAddrStatus.l_dwDevSpecificSize - 1)
End If
frmStatus.lbStatus.AddItem "lineGetAddressStatus ran. SUCCESS"
frmStatus.lbStatus.AddItem "l_Line = " & l_Line & "."
frmStatus.lbStatus.AddItem "l_AddrID = " & l_AddrID & "."
frmStatus.lbStatus.AddItem "sDevSpecificInfo = " & RMSGeneralRoutines.ReplaceNonPrintable(sDevSpecificInfo) & "."
frmStatus.lbStatus.AddItem "sDevSpecificInfo = " & RMSGeneralRoutines.ShowASCIIValues(sDevSpecificInfo) & ". (ASCII Values)"
frmStatus.lbStatus.AddItem "sDevSpecificInfo = " & RMSTAPIEvents.Strip_Down_DevSpecifc_Buffer(sDevSpecificInfo) & ". (Decoded)"
frmStatus.lbStatus.AddItem "struct_MyAddrStatus.l_dwAddressFeatures = " & _
struct_MyAddrStatus.l_dwAddressFeatures & "."
frmStatus.lbStatus.AddItem "struct_MyAddrStatus.l_dwAddressFeatures = " & _
RMSTAPIEvents.lineAddrFeat(struct_MyAddrStatus.l_dwAddressFeatures) & ". (Decoded)"
frmStatus.lbStatus.AddItem "struct_MyAddrStatus.l_dwDevSpecificOffset = " & _
struct_MyAddrStatus.l_dwDevSpecificOffset & "."
frmStatus.lbStatus.AddItem "struct_MyAddrStatus.l_dwDevSpecificSize = " & _
struct_MyAddrStatus.l_dwDevSpecificSize & "."
frmStatus.lbStatus.AddItem "struct_MyAddrStatus.l_dwForwardNumEntries = " & _
struct_MyAddrStatus.l_dwForwardNumEntries & "."
frmStatus.lbStatus.AddItem "struct_MyAddrStatus.l_dwForwardOffset = " & _
struct_MyAddrStatus.l_dwForwardOffset & "."
frmStatus.lbStatus.AddItem "struct_MyAddrStatus.l_dwForwardSize = " & _
struct_MyAddrStatus.l_dwForwardSize & "."
frmStatus.lbStatus.AddItem "struct_MyAddrStatus.l_dwNeededSize = " & _
struct_MyAddrStatus.l_dwNeededSize & "."
frmStatus.lbStatus.AddItem "struct_MyAddrStatus.l_dwNumActiveCalls = " & _
struct_MyAddrStatus.l_dwNumActiveCalls & "."
frmStatus.lbStatus.AddItem "struct_MyAddrStatus.l_dwNumInUse = " & _
struct_MyAddrStatus.l_dwNumInUse & "."
frmStatus.lbStatus.AddItem "struct_MyAddrStatus.l_dwNumOnHoldCalls = " & _
struct_MyAddrStatus.l_dwNumOnHoldCalls & "."
frmStatus.lbStatus.AddItem "struct_MyAddrStatus.l_dwNumOnHoldPendCalls = " & _
struct_MyAddrStatus.l_dwNumOnHoldPendCalls & "."
frmStatus.lbStatus.AddItem "struct_MyAddrStatus.l_dwNumRingsNoAnswer = " & _
struct_MyAddrStatus.l_dwNumRingsNoAnswer & "."
frmStatus.lbStatus.AddItem "struct_MyAddrStatus.l_dwTerminalModesOffset = " & _
struct_MyAddrStatus.l_dwTerminalModesOffset & "."
frmStatus.lbStatus.AddItem "struct_MyAddrStatus.l_dwTerminalModesSize = " & _
struct_MyAddrStatus.l_dwTerminalModesSize & "."
frmStatus.lbStatus.AddItem "struct_MyAddrStatus.l_dwTotalSize = " & _
struct_MyAddrStatus.l_dwTotalSize & "."
frmStatus.lbStatus.AddItem "struct_MyAddrStatus.l_dwUsedSize = " & _
struct_MyAddrStatus.l_dwUsedSize & "."
frmStatus.lbStatus.AddItem "struct_MyAddrStatus.mem = " & _
struct_MyAddrStatus.mem & "."
Else
' Screen....
frmStatus.lbStatus.AddItem "lineGetAddressStatus ran. ERRORS"
frmStatus.lbStatus.AddItem "** >> Error returned : " & l_lineGetAddressStatus_Result & " (" & Hex(l_lineGetAddressStatus_Result) & " hex)."
frmStatus.lbStatus.AddItem "** >> Error text : " & RMSTAPIErrorHandler.Tapi_Error_Text(l_lineGetAddressStatus_Result) & "."
End If
' Screen....
frmStatus.lbStatus.ListIndex = frmStatus.lbStatus.ListCount - 1
End Sub
Public Sub Run_lineGetLineDevStatus()
'Declare Function lineGetLineDevStatus Lib "TAPI32.DLL" _
' (ByVal l_hLine As Long, ByRef struct_lpLineDevStatus As lineDevStatus) As Long
'Declare Function lineGetLineDevStatus Lib "TAPI32.DLL" _
' (ByVal l_hLine As Long, ptr_lpLineDevStatus As Any) As Long
Dim sDevSpecificInfo As String
Dim l_Line As Long ' lineGetLineDevStatus .. Parameter 1 .. Value
Dim struct_MyDevStatus As lineDevStatus ' lineGetLineDevStatus .. Parameter 2 .. Reference
Dim l_lineGetLineDevStatus_Result As Long ' lineGetLineDevStatus .. Function Passed?
gsLastTAPIFunctionRan = "lineGetLineDevStatus"
' Init Parameters..
l_Line = RMSTAPIRoutines.glhLine
' Screen....
frmStatus.lbStatus.AddItem " "
frmStatus.lbStatus.AddItem "================================================================================================"
frmStatus.lbStatus.AddItem "*** FUNCTION : lineGetLineDevStatus ***"
frmStatus.lbStatus.AddItem "------------------------------------------------------------------------------------------------"
frmMain.lbStatusBrief.AddItem "FUNCTION : lineGetLineDevStatus"
frmMain.lbStatusBrief.ListIndex = frmMain.lbStatusBrief.ListCount - 1
DoEvents
' Set Memory needed...
struct_MyDevStatus.l_dwTotalSize = LINEDEVSTATUS_FIXEDSIZE + LINEDEVSTATUS_MEMSIZE
' Run lineGetLineDevStatus..
l_lineGetLineDevStatus_Result = RMSTAPIDeclarations.lineGetLineDevStatus(l_Line, struct_MyDevStatus)
' Check if lineGetLineDevStatus ran ok..
If l_lineGetLineDevStatus_Result = RESULT_SUCCESS Then
' Screen....
sDevSpecificInfo = ""
If struct_MyDevStatus.l_dwDevSpecificSize > 0 Then
sDevSpecificInfo = _
RMSTAPIEvents.GetVarInfo _
(RMSTAPIEvents.Clean(struct_MyDevStatus.mem), _
(struct_MyDevStatus.l_dwDevSpecificOffset - LINEDEVSTATUS_FIXEDSIZE) + 1, _
struct_MyDevStatus.l_dwDevSpecificSize - 1)
End If
frmStatus.lbStatus.AddItem "lineGetLineDevStatus ran. SUCCESS"
frmStatus.lbStatus.AddItem "l_Line = " & l_Line & "."
frmStatus.lbStatus.AddItem "sDevSpecificInfo = " & RMSGeneralRoutines.ReplaceNonPrintable(sDevSpecificInfo) & "."
frmStatus.lbStatus.AddItem "sDevSpecificInfo = " & RMSGeneralRoutines.ShowASCIIValues(sDevSpecificInfo) & ". (ASCII Values)"
frmStatus.lbStatus.AddItem "sDevSpecificInfo = " & RMSTAPIEvents.Strip_Down_DevSpecifc_Buffer(sDevSpecificInfo) & ". (Decoded)"
frmStatus.lbStatus.AddItem "struct_MyDevStatus.l_dwAppInfoOffset = " _
& struct_MyDevStatus.l_dwAppInfoOffset & "."
frmStatus.lbStatus.AddItem "struct_MyDevStatus.l_dwAppInfoSize = " _
& struct_MyDevStatus.l_dwAppInfoSize & "."
frmStatus.lbStatus.AddItem "struct_MyDevStatus.l_dwAvailableMediaModes = " _
& struct_MyDevStatus.l_dwAvailableMediaModes & "."
frmStatus.lbStatus.AddItem "struct_MyDevStatus.l_dwAvailableMediaModes = " _
& RMSTAPIEvents.LineMediaModeMsg(struct_MyDevStatus.l_dwAvailableMediaModes) & ". (Decoded)"
frmStatus.lbStatus.AddItem "struct_MyDevStatus.l_dwBatteryLevel = " _
& struct_MyDevStatus.l_dwBatteryLevel & "."
frmStatus.lbStatus.AddItem "struct_MyDevStatus.l_dwDevSpecificOffset = " _
& struct_MyDevStatus.l_dwDevSpecificOffset & "."
frmStatus.lbStatus.AddItem "struct_MyDevStatus.l_dwDevSpecificSize = " _
& struct_MyDevStatus.l_dwDevSpecificSize & "."
frmStatus.lbStatus.AddItem "struct_MyDevStatus.l_dwDevStatusFlags = " _
& struct_MyDevStatus.l_dwDevStatusFlags & "."
frmStatus.lbStatus.AddItem "struct_MyDevStatus.l_dwDevStatusFlags = " _
& RMSTAPIEvents.lineDevStatusFlags(struct_MyDevStatus.l_dwDevStatusFlags) & ". (Decoded)"
frmStatus.lbStatus.AddItem "struct_MyDevStatus.l_dwLineFeatures = " _
& struct_MyDevStatus.l_dwLineFeatures & "."
frmStatus.lbStatus.AddItem "struct_MyDevStatus.l_dwLineFeatures = " _
& RMSTAPIEvents.lineFeatures(struct_MyDevStatus.l_dwLineFeatures) & ". (Decoded)"
frmStatus.lbStatus.AddItem "struct_MyDevStatus.l_dwNeededSize = " _
& struct_MyDevStatus.l_dwNeededSize & "."
frmStatus.lbStatus.AddItem "struct_MyDevStatus.l_dwNumActiveCalls = " _
& struct_MyDevStatus.l_dwNumActiveCalls & "."
frmStatus.lbStatus.AddItem "struct_MyDevStatus.l_dwNumCallCompletions = " _
& struct_MyDevStatus.l_dwNumCallCompletions & "."
frmStatus.lbStatus.AddItem "struct_MyDevStatus.l_dwNumOnHoldCalls = " _
& struct_MyDevStatus.l_dwNumOnHoldCalls & "."
frmStatus.lbStatus.AddItem "struct_MyDevStatus.l_dwNumOnHoldPendCalls = " _
& struct_MyDevStatus.l_dwNumOnHoldPendCalls & "."
frmStatus.lbStatus.AddItem "struct_MyDevStatus.l_dwNumOpens = " _
& struct_MyDevStatus.l_dwNumOpens & "."
frmStatus.lbStatus.AddItem "struct_MyDevStatus.l_dwOpenMediaModes = " _
& struct_MyDevStatus.l_dwOpenMediaModes & "."
frmStatus.lbStatus.AddItem "struct_MyDevStatus.l_dwOpenMediaModes = " _
& RMSTAPIEvents.LineMediaModeMsg(struct_MyDevStatus.l_dwOpenMediaModes) & ". (Decoded)"
frmStatus.lbStatus.AddItem "struct_MyDevStatus.l_dwRingMode = " _
& struct_MyDevStatus.l_dwRingMode & "."
frmStatus.lbStatus.AddItem "struct_MyDevStatus.l_dwRoamMode = " _
& struct_MyDevStatus.l_dwRoamMode & "."
frmStatus.lbStatus.AddItem "struct_MyDevStatus.l_dwSignalLevel = " _
& struct_MyDevStatus.l_dwSignalLevel & "."
frmStatus.lbStatus.AddItem "struct_MyDevStatus.l_d⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -