Type RASENTRY dwCountryId As Long dwCountryCode As Long szAreaCode As String * 3 szLocalPhoneNumber As String * 8 dwAlternateOffset As Long ipAddr As Long ipAddrDns As Long ipAddrDnsAlt As Long ipAddrWins As Long ipAddrWinsAlt As Long dwFrameSize As Long dwfNetProtocols As Long dwFramingProtocol As Long szScript As String * 120 szAutodialDll As String * 120 szAutodialFunc As String * 120 szDeviceType As String * 120 szDeviceName As String * 120 szX25PadType As String * 120 szX25Address As String * 120 szX25Facilities As String * 120 szX25UserData As String * 120 dwChannels As Long dwReserved1 As Long dwReserved2 As Long End Type
Function PbMain() As Long Local lResult As Long lResult = CreateRasEntry(ByVal "Sinclair",ByVal "360",ByVal "698-1234") MsgBox Str$(lResult) End Function
Tweet
I played a bit with both of these:
RasEnumDevices ByVal %NULL, cb, count
' RasEnumConnections ByVal %NULL, cb, count
If IsFalse count Then
Exit Function
End If
This returns an 87 but still fails [img]http://www.powerbasic.com/support/forums/smile.gif[/img]
Function CreateRasEntry(ByVal entry As String, _
ByVal areacode As String, _
ByVal phone As String) As Long
Local cb As Long
Local count As Long
Local x As Long
Local modem As String
Local r As RASENTRY
Local lResult As Long
lResult = RasEnumDevices(ByVal %NULL, cb, count)
' RasEnumConnections ByVal %NULL, cb, count
If IsFalse count Then
Exit Function
End If
cb = Len(RASDEVINFO) * count
Dim rdi(1 To count) As RASDEVINFO
rdi(1).dwSize = Len(RASDEVINFO)
RasEnumDevices rdi(1), cb, count
MsgBox "Device Type and name are: " & $CRLF & rdi(1).szDeviceType & $CRLF & rdi(1).szDeviceName
' FAILURE POINT RIGHT HERE
Comment