hang up the phone

[gwidijanto]

Hi,
I use AutoDialer on_click button command, it works OK, but has some minor flaw.Sometimes it didn't hang up or disconnect automatically after I hang up the phone.
The modem still running.
I want the modem hang up after I pick up the phone.
Is it possible using VB code to hang up or reset the modem?
here is part of code I use:

Application.Run "utility.wlib_AutoDial", phonenumber

PauseTime = 8 ' Set duration.
Start = Timer ' Set start time.
Do While Timer < Start + PauseTime
DoEvents ' Yield to other processes.
Loop
Finish = Timer ' Set end time.

---> here is the place of code to hang up the modem.

Any better idea?
Somebody can help me?
Thankyou.

Gunawan.

 

[Fizzio]

I think to do this programmatically, you will need to use the mscomm control, and send the correct AT command.

See here for details on AT commands

http://support.microsoft.com/defaul...port/kb/articles/q164/6/59.asp&NoWebContent=1

 

[gwidijanto]

Hi Fizzio,
thank's for quick response. I tried using the mscomm but didn't work.
the code is something like this:
mscomm.commport = 1
mscomm.commopen = false
It's always display error message:
run-time error '424':
object required

Do you know the correct code for this, so I can put it in the module?

thankyou.

 

[gwidijanto]

I found this article:
http://support.microsoft.com/defaul...pport/kb/articles/Q93/6/96.ASP&NoWebContent=1

but it didn't work on windows XP with Access 2002.
It stop at line:

OpenPort = OpenComm(CommPort, 1024, 128)

and the error message is:

run-time error '53':
File not found:User

If the file is User.exe, it is already in my C:\windows\system32 folder.

Somebody can fix this problem? because I think it's what I want, I don't need to open Autodialer program and most important is: it will hang up the modem after a couple of second.

Please help me.

Gunawan.

 

[Fizzio]

I have yet to use this ActiveX control myself. Here is a site that may help. I shall look for more help also.

http://www.yes-tele.com/mscomm.html

 

[gwidijanto]

Hi Fizzio,
yes I already download the mscomm32.ocx and placed it in c:\windows\system32 folder.
From Access VB editor window, Tools, Reference, I ticked it.
The problem is, I have no idea how to create correct code for this.

Gunawan.