franse
asked on
Talking to local modem from a web page.
Hello Experts,
Looking for a sollution that addresses the local modem. It should work by clicking a button in a web page (ASP) I found a sollution that should do the job at http://www.15seconds.com.
---Quote-----
In the following example, the pager object picks up the phone (modem), dials 212-555-5555, waits about
6 seconds (each comma is about 2 seconds), then dials 1234, and then hangs up.
A possible application would be automatically sending a message to a support technician's pager when
an emergency work-order enters the system.
dim oDialer
set oDialer = server.createobject("diale
oDialer.dial "212-555-5555,,,1234"
set oDialer = nothing
-----End of quote---------------
A downloadable code that should be compiled is privided as well:
-------------Beginning of code-----
dim oDialer
set oDialer = server.createobject("diale
oDialer.dial "212-555-5555,,,1234"
set oDialer = nothing
Public Sub Dial(num As String)
On Error Resume Next
Dim Communications 'As MSCommLib.MSComm
Set Communications = CreateObject("MSCommLib.MS
DialString$ = "ATDT" + num + ";" + Chr$(13)
Communications.CommPort = 3
Communications.Settings = "300,N,8,1"
On Error Resume Next
Communications.PortOpen = True
If Err Then
MsgBox Err.Description
' MsgBox "COM1: not available. Change the CommPort property to another port."
Exit Sub
End If
' Flush the input buffer.
Communications.InBufferCou
' Dial the number.
Communications.Output = DialString$
' Wait for "OK" to come back from the modem.
Do
dummy = DoEvents()
' If there is data in the buffer, then read it.
If Communications.InBufferCou
FromModem$ = FromModem$ + Communications.Input
' Check for "OK".
If InStr(FromModem$, "OK") Then
' Notify the user to pick up the phone.
Beep
' MsgBox "Please pick up the phone and either press Enter or click OK"
Exit Do
End If
End If
Loop
' Disconnect the modem.
Communications.Output = "ATH" + Chr$(13)
' Close the port.
Communications.PortOpen = False
End Sub
-------------End of code----------------------
I am not an expert in ASP or VB.
But I know that the provided answer is server-based one and I am looking for a client-based sollution.
The sollution should use the local modem in a intranet enviorment.
My question is:
Can someone please help me by providing me with a client-based sollution?
The code does not need protection an, if posible, can be used directly in the asp site. If this is not
possible a ActiveX object on the client is no problem either.
The person that profides me me with a working code will get the points
Thanks,
Franse
Looking for a sollution that addresses the local modem. It should work by clicking a button in a web page (ASP) I found a sollution that should do the job at http://www.15seconds.com.
---Quote-----
In the following example, the pager object picks up the phone (modem), dials 212-555-5555, waits about
6 seconds (each comma is about 2 seconds), then dials 1234, and then hangs up.
A possible application would be automatically sending a message to a support technician's pager when
an emergency work-order enters the system.
dim oDialer
set oDialer = server.createobject("diale
oDialer.dial "212-555-5555,,,1234"
set oDialer = nothing
-----End of quote---------------
A downloadable code that should be compiled is privided as well:
-------------Beginning of code-----
dim oDialer
set oDialer = server.createobject("diale
oDialer.dial "212-555-5555,,,1234"
set oDialer = nothing
Public Sub Dial(num As String)
On Error Resume Next
Dim Communications 'As MSCommLib.MSComm
Set Communications = CreateObject("MSCommLib.MS
DialString$ = "ATDT" + num + ";" + Chr$(13)
Communications.CommPort = 3
Communications.Settings = "300,N,8,1"
On Error Resume Next
Communications.PortOpen = True
If Err Then
MsgBox Err.Description
' MsgBox "COM1: not available. Change the CommPort property to another port."
Exit Sub
End If
' Flush the input buffer.
Communications.InBufferCou
' Dial the number.
Communications.Output = DialString$
' Wait for "OK" to come back from the modem.
Do
dummy = DoEvents()
' If there is data in the buffer, then read it.
If Communications.InBufferCou
FromModem$ = FromModem$ + Communications.Input
' Check for "OK".
If InStr(FromModem$, "OK") Then
' Notify the user to pick up the phone.
Beep
' MsgBox "Please pick up the phone and either press Enter or click OK"
Exit Do
End If
End If
Loop
' Disconnect the modem.
Communications.Output = "ATH" + Chr$(13)
' Close the port.
Communications.PortOpen = False
End Sub
-------------End of code----------------------
I am not an expert in ASP or VB.
But I know that the provided answer is server-based one and I am looking for a client-based sollution.
The sollution should use the local modem in a intranet enviorment.
My question is:
Can someone please help me by providing me with a client-based sollution?
The code does not need protection an, if posible, can be used directly in the asp site. If this is not
possible a ActiveX object on the client is no problem either.
The person that profides me me with a working code will get the points
Thanks,
Franse
inthedark
Why not locate the modem on the server, cos you will only need one of them. If you locate the modem on the client you will need one for each client.
ASKER
Inthedark,
While we do'nt want to use the sollution as a pager but as a replacement for the phone. And if more then one client use this funtionality I would need a modempool connected to the server. The clients have all a standard modem installed and now they use phones so the lines are at available to. The only things we need (if this would work) are headsets.
Thanks for your response,
Franse
While we do'nt want to use the sollution as a pager but as a replacement for the phone. And if more then one client use this funtionality I would need a modempool connected to the server. The clients have all a standard modem installed and now they use phones so the lines are at available to. The only things we need (if this would work) are headsets.
Thanks for your response,
Franse
Why not use one of the Talk Through the internet packages?
But I think that you need to get hold of the TELAPI SDK from Microsoft.
But I think that you need to get hold of the TELAPI SDK from Microsoft.
ASKER
Sorry cant follow you in this one. I 've been having a sezrch at the Microsoft site for TELAPI SDK but no results come up. In Google I find only Novell results. But I think you will need a big pipeline to support this on a network.
Thanks,
Franse
Thanks,
Franse
Voice can be squished into a very small packet size and only requires a band width of just 1K bytes per second.
The mobile phone system is driven arround a baud rate of just 9600.
Sorry the full name is The Microsoft Telephony Programming Model, somrtimes known as TAPI.
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/tapi/tapiovr3_55en.asp
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/tapi/tapiovr3_55en.asp
ASKER
Sorry guys an girls,
This not leading to what I am looking for. I acept that it is not posible.
I'll send a request to the Community Support to delete this qustion. I'll hope you have you people have no objections. And if you do I'll hope you can still help me out.
Thanks,
franse
This not leading to what I am looking for. I acept that it is not posible.
I'll send a request to the Community Support to delete this qustion. I'll hope you have you people have no objections. And if you do I'll hope you can still help me out.
Thanks,
franse
ASKER CERTIFIED SOLUTION
membership
This solution is only available to members.
To access this solution, you must be a member of Experts Exchange.