' Simple RAS test by Mark Gamber addobject "MGCEWin32.RAS", "ras" addobject "Label", "lbl1", 2, 2, 80, 20 addobject "Combobox", "connlist", 84, 2, 160, 80 addobject "Label", "lbl2", 2, 29, 80, 20 addobject "Textbox", "username", 84, 28, 160, 18 addobject "Label", "lbl3", 2, 51, 80, 20 addobject "Textbox", "password", 84, 50, 160, 18 addobject "Label", "lbl4", 2, 73, 80, 20 addobject "Textbox", "domain", 84, 72, 160, 18 addobject "CommandButton", "action", 90, 94, 80, 20 lbl1.BackColor = output.BackColor lbl2.BackColor = output.BackColor lbl3.BackColor = output.BackColor lbl4.BackColor = output.BackColor action.BackColor = output.BackColor lbl1.Caption = "Entry:" lbl2.Caption = "Username:" lbl3.Caption = "Password:" lbl4.Caption = "Domain:" action.Caption = "Connect" connlist.style = 2 dim connID ' Use this to hold the connection ID connID = 0 ' Initialize to "not connected" a = ras.AllEntries ' Get an array of all possible connections if TypeName( a ) <> "Empty" then ' If the array isn't empty for i = 1 to UBound( a ) ' Loop through each item in the array connlist.AddItem( a( i ) ) ' And add each name to the combobox next set a = Nothing end if sub form_Close ' Hang up if connected when the form is closed if connID <> 0 then ras.Disconnect connID end sub sub action_Click if action.Caption = "Disconnect" then ' If already connected... ras.Disconnect connID ' Disconnect connID = 0 ' Initialize connect ID to "not connected" action.Caption = "Connect" exit sub end if i = connlist.ListIndex ' If not connected, get index of selected combobox item if i < 0 then ' Whine if no selection was made MsgBox "You must specify a connect before continuing" exit sub end if ras.Clear ' Wipe out any existing property values ras.EntryName = connlist.Text ' Set connection name ' Set username, password and domain if they are used if len( username.text ) > 0 then ras.UserName = username.text if len( password.text ) > 0 then ras.Password = password.text if len( domain.text ) > 0 then ras.Domain = domain.text on error resume next connID = ras.Connect ' Attempt connection, saving ID if it works if Err then ' If it doesn't work, tell the user MsgBox "An error occurred attempting to connect to " & ras.EntryName else action.Caption = "Disconnect" ' Otherwise, allow user to disconnect end if on error goto 0 end sub