I use the A13 runtime to run my software on a client's pcs and it is not easy to debug.
I am calling a URL from my software and this call would communicate with the telephony system and do a dial.
When I run my code I get,
"The expression On Click you entered as the property setting produced the following error: Return without GoSub
*The expression may not result in the name of a macro, the name of a user-defined function, or [Event Procedure].
*There may have been an error evaluating the function, event, or macro."
The URL is as follows "http://admin:jTZ27imOh2@192.168.90.24/command.htm?number=12345678&outgoing_uri=URI"
where 12345678 is the telephone number which I want to call
The above URL works if I ran it from a browser and the dial goes ahead
I called the URL in two ways:
1)
Application.FollowHyperlink ("http://admin:jTZ27imOh2@192.168.90.24/command.htm?number=99358535&outgoing_uri=URI"), "", False
2)
Any ideas would be most welcome. Thanks.
I am calling a URL from my software and this call would communicate with the telephony system and do a dial.
When I run my code I get,
"The expression On Click you entered as the property setting produced the following error: Return without GoSub
*The expression may not result in the name of a macro, the name of a user-defined function, or [Event Procedure].
*There may have been an error evaluating the function, event, or macro."
The URL is as follows "http://admin:jTZ27imOh2@192.168.90.24/command.htm?number=12345678&outgoing_uri=URI"
where 12345678 is the telephone number which I want to call
The above URL works if I ran it from a browser and the dial goes ahead
I called the URL in two ways:
1)
Application.FollowHyperlink ("http://admin:jTZ27imOh2@192.168.90.24/command.htm?number=99358535&outgoing_uri=URI"), "", False
2)
Code:
Dim xhr As Object
Dim webServiceURL As String
Dim thisRequest As String
webServiceURL = "http://admin:jTZ27imOh2@192.168.90.24/command.htm?number=12345678&outgoing_uri=URI"
thisRequest = webServiceURL
'use late binding
Set xhr = CreateObject("Microsoft.XMLHTTP")
xhr.Open "GET", thisRequest, False
xhr.Send
If xhr.Status = 200 Then
Debug.Print xhr.responseText
MsgBox xhr.getAllResponseHeaders
Else
MsgBox xhr.Status & ": " & xhr.statusText
End If
Set xhr = Nothing
Any ideas would be most welcome. Thanks.