ras

how can i establish a ras or just a simple connection with an isdn ta (v120, v110) and an analog modem to a provider, in visual basic 5?
MASSheepAsked:
Who is Participating?
I wear a lot of hats...

"The solutions and answers provided on Experts Exchange have been extremely helpful to me over the last few years. I wear a lot of hats - Developer, Database Administrator, Help Desk, etc., so I know a lot of things but not a lot about one thing. Experts Exchange gives me answers from people who do know a lot about one thing, in a easy to use platform." -Todd S.

mcriderCommented:
Well, you can launch the Dialup connection by running the command "Rundll Rnaui.dll,RnaDial <Dialup name>" in a shell... for example:

id=shell("Rundll Rnaui.dll,RnaDial Erol's Internet")


Cheers!
0
MASSheepAuthor Commented:
it's correct what you told me but it's not i want to know.
maybe i was not exact enough.
imagin the following thing:

i want to establish a connection via a modem. to do so i have to open the comport and send at-commands (eg 'atdt 0041 0900 900 941'), handshake, usr, pwd and so on...
and the other side of course has to reply. and the same thing with isdn (icluding protocol).

i hope you can help me.

regars,

mas-sheep
0
mcriderCommented:
For that, you need to use the MSCOMM control.  To add it to your project, right-click the Toolbox and select "Components..." then select "Microsoft Comm Control" (MSCOMM32.OCX) from the list.

There is a pretty good help page for the control.

Here is an example of how to use the control:

' Buffer to hold input string
      Dim Instring As String
      ' Use COM1.
      MSComm1.CommPort = 1
      ' 9600 baud, no parity, 8 data, and 1 stop bit.
      MSComm1.Settings = "9600,N,8,1"
      ' Tell the control to read entire buffer when Input
      ' is used.
      MSComm1.InputLen = 0
      ' Open the port.
      MSComm1.PortOpen = True
      ' Send the attention command to the modem.
      MSComm1.Output = "AT" + Chr$(13)
      ' Wait for data to come back to the serial port.

Do
            DoEvents
      Loop Until MSComm1.InBufferCount >= 2
      ' Read the "OK" response data in the serial port.
      Instring = MSComm1.Input
      ' Close the serial port.
      MSComm1.PortOpen = False


To Dial a phone number, once the port is open, you can send something like this:

MSComm1.Output = "ATDT 5551212" & vbCrLf




Hope this helps!


Cheers!
0

Experts Exchange Solution brought to you by

Your issues matter to us.

Facing a tech roadblock? Get the help and guidance you need from experienced professionals who care. Ask your question anytime, anywhere, with no hassle.

Start your 7-day free trial
The Ultimate Tool Kit for Technolgy Solution Provi

Broken down into practical pointers and step-by-step instructions, the IT Service Excellence Tool Kit delivers expert advice for technology solution providers. Get your free copy for valuable how-to assets including sample agreements, checklists, flowcharts, and more!

mcriderCommented:
Thanks for the points! Glad I could help!


Cheers!
0
MASSheepAuthor Commented:
this was my first question... and i don't know how much points are ok for such a question...
0
mcriderCommented:
The EE guidelines for assigning points are:

50 - easy question
100 - medium question
200+ -hard question

This was a medium to hard question...


Cheers!
0
MASSheepAuthor Commented:
then i should have give you 5 points :-)
thank you for that.
i have got 600 experts points already!!
0
It's more than this solution.Get answers and train to solve all your tech problems - anytime, anywhere.Try it for free Edge Out The Competitionfor your dream job with proven skills and certifications.Get started today Stand Outas the employee with proven skills.Start learning today for free Move Your Career Forwardwith certification training in the latest technologies.Start your trial today
Visual Basic Classic

From novice to tech pro — start learning today.