tapi control via dll or activex pbx

[OmarOrn]

Hi i am trying to program a tool to control my pbx with tapi, i found an dll\ocx but am not sure how to implement it.

 

i wil include the code and my progress so far i now i have taken this example from a html sample and am trying to convert it.

and here is where i am at with the script im not sure how to imblement the ocx file.

 

expandcollapse popup

; ----------------------------------------------------------------------------
;
; VBScript to AutoIt Converter v0.4
;
; ----------------------------------------------------------------------------

#include <date.au3>
$topTapi1 = ObjCreate("c:\windows\toptapi2.ocx")
dim $ThisForm 
dim $Document

#include <ButtonConstants.au3>
#include <ComboConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>

#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("phonetest", 379, 445, 193, 125)
$comb_taeki = GUICtrlCreateCombo("comb_taeki", 32, 32, 145, 25)
$btn_dial = GUICtrlCreateButton("Dial", 32, 80, 75, 25, 0)
$inp_dial = GUICtrlCreateInput("inp_dial", 120, 80, 121, 21)
$Btn_drop = GUICtrlCreateButton("Drop", 24, 120, 75, 25, 0)
$btn_answer = GUICtrlCreateButton("Answer", 104, 120, 75, 25, 0)
$btn_hold = GUICtrlCreateButton("Hold", 184, 120, 75, 25, 0)
$Button4 = GUICtrlCreateButton("unhold", 264, 120, 75, 25, 0)
$Trace = GUICtrlCreateLabel("Trace", 24, 168, 32, 17)
$btn_del = GUICtrlCreateButton("del", 8, 192, 27, 25, 0)
$tra_box = GUICtrlCreateEdit("", 8, 224, 297, 201)
GUICtrlSetData(-1, "tra_box")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

;-- Flags for TapiLineOpen --;
 Const $FL_ACCBEFOREALERT = 1     
 Const $FL_DROPONDISCONNECT = 2   
 Const $FL_DROPONBUSY = 4
 Const $FL_AUTODEALLOC = 8
 Const $FL_AUTOOWNER = 10
 Const $FL_PHONEOPEN = 20
;-- MediaModes --;
 Const $LINEMEDIAMODE_UNKNOWN = 2
 Const $LINEMEDIAMODE_INTERACTIVEVOICE = 4
 Const $LINEMEDIAMODE_AUTOMATEDVOICE = 8
 Const $LINEMEDIAMODE_DATAMODEM = 10
 Const $LINEMEDIAMODE_G3FAX = 20
 Const $LINEMEDIAMODE_TDD = 40
 Const $LINEMEDIAMODE_G4FAX = 80
 Const $LINEMEDIAMODE_DIGITALDATA = 100
 Const $LINEMEDIAMODE_TELETEX = 200
 Const $LINEMEDIAMODE_VIDEOTEX = 400
 Const $LINEMEDIAMODE_TELEX = 800
 Const $LINEMEDIAMODE_MIXED = 1000
 Const $LINEMEDIAMODE_ADSI = 2000
 Const $LINEMEDIAMODE_VOICEVIEW = 4000
 Const $LINEMEDIAMODE_VIDEO = 8000
;-- Call privilegs --;
 Const $LINECALLPRIVILEGE_NONE = 1
 Const $LINECALLPRIVILEGE_MONITOR = 2
 Const $LINECALLPRIVILEGE_OWNER = 4

DIM $nDeviceID
$nDeviceID=0


;-------------------------------------------------------------------------
Func window_onunload()
   $topTapi1.TapiLineClose(int($nDeviceID))
   $topTapi1.TapiLineShutdown()
EndFunc
;-------------------------------------------------------------------------


;-------------------------------------------------------------------------
Func window_onload()
     $topTapi1.TapiLineInitEx(0,0)
    $ThisForm.textfield.Value = $ThisForm.textfield.Value  &  "TapiLineInitEx found: " &  $topTapi1.DeviceCount & " lines" & @CRLF
    FillDeviceList()
EndFunc
;-------------------------------------------------------------------------


;-------------------------------------------------------------------------
Func cmdDial_onclick()
     $topTapi1.TapiLineDial(int($nDeviceID),$ThisForm.ctlNumber.value,0)
EndFunc
;-------------------------------------------------------------------------


;-------------------------------------------------------------------------
Func cmdDrop_onclick()
     $topTapi1.TapiLineDrop(int($nDeviceID))
EndFunc
;-------------------------------------------------------------------------


;-------------------------------------------------------------------------
Func cmdAnswer_onclick()
     $topTapi1.TapiLineAnswer(int($nDeviceID),0)
EndFunc
;-------------------------------------------------------------------------


;-------------------------------------------------------------------------
Func cmdHold_onclick()
     $topTapi1.TapiLineHold(int($nDeviceID),0)
EndFunc
;-------------------------------------------------------------------------


;-------------------------------------------------------------------------
Func cmdUnHold_onclick()
     $topTapi1.TapiLineUnHold(int($nDeviceID),0)
EndFunc
;-------------------------------------------------------------------------


;-------------------------------------------------------------------------
Func selDevices_onchange()
     $topTapi1.TapiLineClose(int($nDeviceID))
    $nDeviceID=$ThisForm.selDevices.Value
     $topTapi1.TapiLineOpen(int($nDeviceID), $LINEMEDIAMODE_INTERACTIVEVOICE, $LINECALLPRIVILEGE_OWNER or $LINECALLPRIVILEGE_MONITOR, $FL_AUTODEALLOC or  $FL_ACCBEFOREALERT)
EndFunc
;-------------------------------------------------------------------------


;-------------------------------------------------------------------------
Func FillDeviceList()
  Dim $x  

  For $x = 0 To $topTapi1.DeviceCount -1
     $ListItem = $document.createElement("OPTION")
    $ListItem.Text = $topTapi1.getDeviceName(int($x))
    $ListItem.Value = $x
    $ThisForm.selDevices.add ($ListItem)
  Next

EndFunc
;-------------------------------------------------------------------------


;-------------------------------------------------------------------------
Func cmdDelTrace_onclick()
    $ThisForm.textfield.Value = ""
EndFunc
;-------------------------------------------------------------------------


;##  begin topTapi events  ###############

;-------------------------------------------------------------------------
Func topTapi1_OnTapiMessage($CDeviceId, $CCallHandle, $CMessage, $CfromProc, $CErrNumber)
  $ThisForm.textfield.Value = $ThisForm.textfield.Value  & $CfromProc & " -> " & $CMessage & @CRLF 
EndFunc
;-------------------------------------------------------------------------


;-------------------------------------------------------------------------
Func topTapi1_OnCallState($CDeviceId, $CCallHandle, $CCallId, $CCallState)
Dim $strCallState
  $strCallState= $topTapi1.getStrFromValue(1, int($CCallState))
  $ThisForm.textfield.Value = $ThisForm.textfield.Value & "OnCallState DeviceId: " & $CDeviceId & " CallHandle: " & $CCallHandle & " -> " & $strCallState & @CRLF 
EndFunc
;-------------------------------------------------------------------------


;-------------------------------------------------------------------------
Func topTapi1_OnCallerID($CDeviceId, $CCallHandle, $CCallId, $CNumber, $CName, $CPartyId)
  $ThisForm.textfield.Value = $ThisForm.textfield.Value & "OnCallerId DeviceId: " & $CDeviceId & " CallHandle: " & $CCallHandle & " -> " & $CNumber & @CRLF 
EndFunc
;-------------------------------------------------------------------------


;-------------------------------------------------------------------------
Func topTapi1_OnConnectedID($CDeviceId, $CCallHandle, $CCallId, $CNumber, $CName, $CPartyId)
 $ThisForm.textfield.Value = $ThisForm.textfield.Value & "OnConnectedId DeviceId: " & $CDeviceId & " CallHandle: " & $CCallHandle & " -> " & $CNumber & @CRLF 
EndFunc
;-------------------------------------------------------------------------




;##  end topTapi Events  #################

 

i am useing the activex feture from Toptapi

 

with thanks in advance

 

Omar

Edited November 18, 2015 by Jos

[PsaltyDS]

Do you have any links to usage in VBS (not VB)?

 

Edited November 18, 2015 by Jos