home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 1_2002.ISO / Data / Zips / CODE_UPLOAD14743292001.psc / frmTapiMon.frm (.txt) next >
Encoding:
Visual Basic Form  |  2001-02-10  |  3.5 KB  |  104 lines
  1. VERSION 5.00
  2. Begin VB.Form frmTapiMon 
  3.    BorderStyle     =   3  'Fixed Dialog
  4.    Caption         =   "TAPI Monitor                                                                             "
  5.    ClientHeight    =   2835
  6.    ClientLeft      =   45
  7.    ClientTop       =   330
  8.    ClientWidth     =   6390
  9.    LinkTopic       =   "Form1"
  10.    MaxButton       =   0   'False
  11.    MinButton       =   0   'False
  12.    ScaleHeight     =   2835
  13.    ScaleWidth      =   6390
  14.    ShowInTaskbar   =   0   'False
  15.    StartUpPosition =   2  'CenterScreen
  16.    Begin VB.ListBox lstStatus 
  17.       BackColor       =   &H80000001&
  18.       BeginProperty Font 
  19.          Name            =   "MS Sans Serif"
  20.          Size            =   9.75
  21.          Charset         =   0
  22.          Weight          =   400
  23.          Underline       =   0   'False
  24.          Italic          =   0   'False
  25.          Strikethrough   =   0   'False
  26.       EndProperty
  27.       ForeColor       =   &H00FFFFFF&
  28.       Height          =   1980
  29.       ItemData        =   "frmTapiMon.frx":0000
  30.       Left            =   120
  31.       List            =   "frmTapiMon.frx":0002
  32.       TabIndex        =   0
  33.       Top             =   720
  34.       Width           =   6015
  35.    End
  36.    Begin VB.Label Label1 
  37.       Caption         =   "Tapi Monitor will monitor outgoing calls from your modem"
  38.       Height          =   375
  39.       Left            =   1148
  40.       TabIndex        =   1
  41.       Top             =   120
  42.       Width           =   4095
  43.    End
  44. Attribute VB_Name = "frmTapiMon"
  45. Attribute VB_GlobalNameSpace = False
  46. Attribute VB_Creatable = False
  47. Attribute VB_PredeclaredId = True
  48. Attribute VB_Exposed = False
  49. Option Explicit
  50. 'This app may cause VB to give a exeption error, when running it
  51. 'in compiled mode. To be save first save all your work before
  52. 'running it
  53. 'By Tertius at tertiusklopper@hotmail.com for more information
  54. 'Was designed as part of an app I wrote to calculate the cost of
  55. 'a call
  56. 'Parts of program was translated from Delphi 4 as my first app
  57. 'was written in that.
  58. 'A Lot of the Declared functions and types in vbTapi.bas is not
  59. 'used in this app but it will help you to use the without
  60. 'declaring it yourself
  61. 'vbTapi.bas was found on Planet-Source-code.com but do not
  62. 'remember who made it (To the persone who did it THANK YOU)
  63. Dim udtLineCall As LINECALLPARAMS
  64. Dim lines As Long
  65. Dim hInst As Long
  66. Dim lineApp As Long
  67. Dim lphLine As Long
  68. Dim lphCall As Long
  69. Dim adrCallBack As Long
  70. Private Sub Form_Load()
  71. Dim nDevs As Long
  72. Dim tapiVer As Long
  73. Dim extid As LINEEXTENSIONID
  74. If lineInitialize(lineApp, hInst, AddressOf LINECALLBACK, 0, nDevs) < 0 Then
  75.     lineApp = 0
  76. ElseIf nDevs = 0 Then  'No Tapi Device
  77.     lineShutdown (lineApp)
  78.     lineApp = 0
  79. ElseIf lineNegotiateAPIVersion(lineApp, 0, 65536, 65540, tapiVer, extid) < 0 Then 'Check for version
  80.     lineShutdown (lineApp)
  81.     lineApp = 0
  82.     lphLine = 0
  83.     'Open a line for monitor (here I use the first device, normally the modem
  84. ElseIf lineOpen(lineApp, 0, lphLine, tapiVer, 0, 0, LINECALLPRIVILEGE_MONITOR, LINEMEDIAMODE_DATAMODEM, 0) < 0 Then
  85.     lineShutdown (lineApp)
  86.     lineApp = 0
  87.     lphLine = 0
  88. End If
  89. If lineApp <> 0 Then
  90.     lstStatus.AddItem ("Monitoring Calls...")
  91.     lstStatus.TopIndex = lstStatus.ListCount - 1
  92.     lstStatus.AddItem ("Error!")
  93.     lstStatus.TopIndex = lstStatus.ListCount - 1
  94. End If
  95. End Sub
  96. Private Sub Form_Unload(Cancel As Integer)
  97. If lphLine <> 0 Then
  98.    lineClose (lphLine)
  99. End If
  100. If lineApp <> 0 Then
  101.    lineShutdown (lineApp)
  102. End If
  103. End Sub
  104.