Hvordan lukker jeg en RAS forbindelse

I et modul :

Const Internet_Autodial_Force_Unattended As Long = 2

Public Declare Function InternetAutodial Lib \"wininet.dll\" (ByVal dwFlags As Long, ByVal dwReserved As Long) As Long
Public Declare Function InternetAutodialHangup Lib \"wininet.dll\" (ByVal dwReserved As Long) As Long

i din form :

Dim lResult As Long
lResult = InternetAutodialHangup(0&)

Kunne det så også tænkes at du vidstre hvordan man opretter en RAS forbindelse???

/JPS

ja da - øjeblik

\'k...Venter soændt... :-)

i din command_click :

Dim X
X = Shell(\"rundll32.exe rnaui.dll,RnaDial \" & \"NavnPåInternetForbindelsen\", 1)
DoEvents

her kunne du ogå tilføje :

SendKeys \"{enter}\", True

for automatisk tryk

Ser lige om D funger... :-)

D til at ringe op funger, men D til at lukke den virker ikke...

hmm.. øjeblik jeg finder lige en anden så

Private Sub Command1_Click()
    Dim strDUNName As String
    strDUNName = NavnetPå DinForbindelse
    If DisconnectDUN(strDUNName) = True Then
        MsgBox \"Forbindelsen er afbrudt\"
    Else
        MsgBox \"Kan ikke afbryde forbindelsen\"
    End If
    End
End Sub

Function DisconnectDUN(DUNName As String) As Boolean
    On Error GoTo errhandler
    AppActivate \"Tilsluttet til \" & DUNName
    SendKeys \"c\"
    DisconnectDUN = True
errhandler:
End Function

den sidste virker kun i win95/98 DK

Her er den helt rigtige kode :

MODUL

Option Explicit

Public Const RAS_MAXENTRYNAME As Integer = 256
Public Const RAS_MAXDEVICETYPE As Integer = 16
Public Const RAS_MAXDEVICENAME As Integer = 128
Public Const RAS_RASCONNSIZE As Integer = 412

Public Type RasEntryName
    dwSize As Long
    szEntryName(RAS_MAXENTRYNAME) As Byte
End Type

Public Type RasConn
    dwSize As Long
    hRasConn As Long
    szEntryName(RAS_MAXENTRYNAME) As Byte
    szDeviceType(RAS_MAXDEVICETYPE) As Byte
    szDeviceName(RAS_MAXDEVICENAME) As Byte
End Type

Public Declare Function RasEnumConnections Lib _
\"rasapi32.dll\" Alias \"RasEnumConnectionsA\" (lpRasConn As _
Any, lpcb As Long, lpcConnections As Long) As Long

Public Declare Function RasHangUp Lib \"rasapi32.dll\" Alias _
\"RasHangUpA\" (ByVal hRasConn As Long) As Long
Public gstrISPName As String
Public ReturnCode2 As Long

COMMAND1_CLICK

Dim ERROR_SUCCESS As Integer
    Dim i As Long
    Dim lpRasConn(255) As RasConn
    Dim lpcb As Long
    Dim lpcConnections As Long
    Dim hRasConn As Long
    lpRasConn(0).dwSize = RAS_RASCONNSIZE
    lpcb = RAS_MAXENTRYNAME * lpRasConn(0).dwSize
    lpcConnections = 0
    ReturnCode1 = RasEnumConnections(lpRasConn(0), lpcb, _
    lpcConnections)

    If ReturnCode1 = ERROR_SUCCESS Then
        For i = 0 To lpcConnections - 1
            If Trim(ByteToString(lpRasConn(i).szEntryName)) = Trim(gstrISPName) Then
                hRasConn = lpRasConn(i).hRasConn
                ReturnCode2 = RasHangUp(ByVal hRasConn)
            End If
        Next i
    End If

Den virker også under win2000

Kigger på D imorgen...Vil i seng nu...

ok

Den siger at denne funktion ikke er defineret:

ByteToString(

Hvordan gør man det??

/JPS

Der ligger et færdigt eksempel på http://www.cb-consult.dk under Visual basic. prøv lige det først.

Så fik jeg D til at virke...Jeg manglede bare den funktion med ByteToString...*SS*

Mange takker...*SS*

Send lige et svar, hvis du vil ha\' nogle points...*SS*

jamen det vil jeg da meget gerne :-)