Function GetSS7Linktypedef (classA::*B)(int) ‘获取ss7接口
const—defines B as a member function of A and B has the type :
this operator used to dereference a class member : this operator overloading used to let the class simulate a function.(”function object” or “functor”)
End function
Function GetSS7Calingid(classA::*B) ‘获取主叫或者被叫号码
Dim calling_part1 As Byte
Dim calling_part2 As Byte
Dim calling_part3 As Byte
Dim calling_part4 As Byte
calling_part1 = BillChunk(4)
calling_part2 = BillChunk(5)
calling_part3 = BillChunk(6)
calling_part4 = BillChunk(7)
GetCalling = CByte(calling_part1) & CByte(calling_part2) & CByte(calling_part3) & CByte(calling_part4) & "/"
End function
Function SetSifBit() as bite
For j = 1 To 8
tmp = Mid(endTimestr, j, 1)
If tmp >= "0" And tmp <= "9" Then
result = Val(tmp) * 16 ^ (8 - j)
ElseIf tmp >= "A" And tmp <= "F" Then
Select Case tmp
Case "A"
result = 10 * 16 ^ (8 - j)
Case "B"
result = 11 * 16 ^ (8 - j)
Case "C"
result = 12 * 16 ^ (8 - j)
Case "D"
result = 13 * 16 ^ (8 - j)
Case "E"
result = 14 * 16 ^ (8 - j)
Case "F"
result = 15 * 16 ^ (8 - j)
End Select
End If
myreturn = myreturn + result
Next j
附件: 2006111317403739960.gif (2008-8-23 22:20, 21.64 KB) / 下载次数 6
