Jump to content

OmarOrn

Members
  • Posts

    4
  • Joined

  • Last visited

Profile Information

  • Location
    Iceland

OmarOrn's Achievements

Seeker

Seeker (1/7)

0

Reputation

  1. Hi i have been trying all kinds of ways to get this in a array but with out luck. i dont know if the xml file i have is in the right standard or if my code is valid so im just going to ask i have a xml code like this CODE<person> <comments>An useful comment, hopefully.</comments> <sourcedid> <source>IMS-LMS</source> <id>student_123456</id> </sourcedid> <userid>ColinS</userid> <name> <fn>Colin Smythe</fn> <prefix>Dr</prefix> </name> <demographics> <gender>2</gender> <bday>1958-03-31T00:00</bday> <disability>Blind</disability> </demographics> <email>colin@imsglobal.org</email> <url>http://www.imsglobal.org</url> <tel telnum="1">+44-114-2335007</tel> <adr> <pobox>345</pobox> <extadd>Region Court</extadd> <street>56 Grange Road</street> <locality>Guildford</locality> <pcode>GU12 5XH</pcode> <country>United Kingdom</country> </adr> <photo imgtype="image/jpg"> <extref>http://www.imsglobal.org/staff/photo.jpg</extref> </photo> <systemrole systemroletype="SysAdmin"/> <institutionrole primaryrole="Yes" institutionroletype="Administrator"/> <datasource>CSU-LMS</datasource></person> and need to sort and work from i have been trying to use al of the ways that are used hera but with out luck. can anybody help me ? best regards
  2. 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. ; ---------------------------------------------------------------------------- ; ; 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
  3. Hi i found a tool that that is an exe and you can import and export an custimize to all your needs ENGL Zwlancfg 2.0 so then it wuld be alot easier to customize a simple example wuld be something like this #include <Process.au3> Run(@ComSpec & " /c " & @ScriptDir & "\setup\zwlancfg.exe /ssid:""ssid-name"" /ct:""ESS"" /mode:""auto"" /auth:""WPA2"" /encrypt:""TKIP"" /ieee8021x:""true"" /authmode:""user"" _ /eap:""PEAP","",@SW_HIDE)
  4. i just use shift + ctrl + alt + del does like you are pressing ctrl-alt-del on the host computer
×
×
  • Create New...