making a dialer

i want to make a program where it dial a dial up server and it give it the password to like earthlink 2.7 or aol or msg or something .

Look in your Dial-Up Networking Folder for Connections and try this:

Code:

---

Private Sub Command1_Click()
Dim X
'Replace ConnectionName with the dial-up connection name you want to connect to
X = Shell("rundll32.exe rnaui.dll,RnaDial " & "ConnectionName", vbNormalFocus)
DoEvents
'You can type in your password before the { below.
SendKeys "{enter}", True
DoEvents
End Sub

---

i want it to dial the number to and send the username and password . i want the progrm to dil it too.