Solved

Talking to local modem from a web page.

Posted on 2002-05-19
9
269 Views
Last Modified: 2010-05-02
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("dialer.pager")
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("dialer.pager")
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.MSComm")
   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.InBufferCount = 0
   
   ' 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.InBufferCount Then
         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
0
Comment
Question by:franse
[X]
Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people just like you are talking about what matters.

  • Help others & share knowledge
  • Earn cash & points
  • Learn & ask questions
  • 5
  • 3
9 Comments
 
LVL 17

Expert Comment

by:inthedark
ID: 7020536
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.
0
 

Author Comment

by:franse
ID: 7023756
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
0
 
LVL 17

Expert Comment

by:inthedark
ID: 7023958
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.

0
[Live Webinar] The Cloud Skills Gap

As Cloud technologies come of age, business leaders grapple with the impact it has on their team's skills and the gap associated with the use of a cloud platform.

Join experts from 451 Research and Concerto Cloud Services on July 27th where we will examine fact and fiction.

 

Author Comment

by:franse
ID: 7025292
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


0
 
LVL 17

Expert Comment

by:inthedark
ID: 7025835
Voice can be squished into a very small packet size and only requires a band width of just 1K bytes per second.
0
 
LVL 17

Expert Comment

by:inthedark
ID: 7025842
The mobile phone system is driven arround a baud rate of just 9600.
0
 
LVL 17

Expert Comment

by:inthedark
ID: 7025852
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
0
 

Author Comment

by:franse
ID: 7343954
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
0
 
LVL 6

Accepted Solution

by:
Mindphaser earned 0 total points
ID: 7380545
Points refunded and moved to PAQ

** Mindphaser - Community Support Moderator **
0

Featured Post

Free Tool: SSL Checker

Scans your site and returns information about your SSL implementation and certificate. Helpful for debugging and validating your SSL configuration.

One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

The debugging module of the VB 6 IDE can be accessed by way of the Debug menu item. That menu item can normally be found in the IDE's main menu line as shown in this picture.   There is also a companion Debug Toolbar that looks like the followin…
Enums (shorthand for ‘enumerations’) are not often used by programmers but they can be quite valuable when they are.  What are they? An Enum is just a type of variable like a string or an Integer, but in this case one that you create that contains…
Get people started with the process of using Access VBA to control Excel using automation, Microsoft Access can control other applications. An example is the ability to programmatically talk to Excel. Using automation, an Access application can laun…
Show developers how to use a criteria form to limit the data that appears on an Access report. It is a common requirement that users can specify the criteria for a report at runtime. The easiest way to accomplish this is using a criteria form that a…
Suggested Courses
Course of the Month7 days, 2 hours left to enroll

623 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question