24/10/2025 - fcaliandro ha scritto:
Amorosik,
hai spiegato molto bene quello che mi piacerebbe fare..
io ho gia il Fritzbox a casa. Ne ho intuito le maggiori potenzialità rispetto a tutti i precedenti posseduti.
Ma non no molta dimestichezza con esso. (ho un 7590 del 2022).
Il Fritzbox può dialogare con Access?
Il Fritz puo' dialogare con tutti/tutte/tutt*
Per chiamare lo 0234567890 e far squillare interno 601 (che ovviamente deve essere connesso ad un telefono), devi attivare il TR-064 su Fritz, assicurarti di avere un utente che possa chiamare, e da codice:
Sub AvviaChiamataDaInterno601()
Dim http As Object
Set http = CreateObject("WinHttp.WinHttpRequest.5.1")
Dim url As String
url = "http://fritz.box:49000/upnp/control/x_voip"
Dim soapEnvelope As String
soapEnvelope = "<?xml version=""1.0"" encoding=""utf-8""?>" & _
"<s:Envelope xmlns:s=""http://schemas.xmlsoap.org/soap/envelope/"" " & _
"s:encodingStyle=""http://schemas.xmlsoap.org/soap/encoding/"">" & _
"<s:Body>" & _
"<u:X_AVM-DE_DialNumber xmlns:u=""urn:dslforum-org:service:X_VoIP:1"">" & _
"<NewX_AVM-DE_PhoneNumber>0234567890</NewX_AVM-DE_PhoneNumber>" & _
"<NewX_AVM-DE_ConnectionID>**601</NewX_AVM-DE_ConnectionID>" & _
"</u:X_AVM-DE_DialNumber>" & _
"</s:Body>" & _
"</s:Envelope>"
http.Open "POST", url, False
http.SetRequestHeader "Content-Type", "text/xml; charset=""utf-8"""
http.SetRequestHeader "SOAPACTION", "urn:dslforum-org:service:X_VoIP:1#X_AVM-DE_DialNumber"
http.Send soapEnvelope
MsgBox "Chiamata verso 0234567890 da interno 601 inviata!"
End Sub
Per 'vedere' invece e' piu' facile, basta abilitare il Call Monitor del Fritz, e con telnet ti colleghi all'ip del Fritz, porta 1012
Vedrai che quando chiama qualcuno ti parte una riga coi dati del chiamante ed altra roba
Per i dettagli dacci un po' dentro di gugol
E facci sapere come e' finita