Lukke for internettet (Netværk via Modem)

Via SendKeys burde det være muligt. Du skal finde windows-handle for det pågældende program (netværk via modem) og så sende de taster du ellers ville trykke på for at lukke forbindelsen. Handlen kan du finde med Windows API-kaldet EnumWindows (eller FindWindow)

En anden mulighed er via API-kald at ændre parametrene for den pågældende comport, d.v.s. lukke for den. Det skulle også få lukket forbindelsen.

sjensen

Svaret er her:

http://www.eksperten.dk/spm.asp?id=9593

Det virker perfekt i mit program!

brug objektet mscom.output"ata"

det skulle virker ellers check at commandoen og insæt mellem " "

>>farout:

Jeg er ikke ret sikker på du vil det til at virke. Eftersom at DUN/Netværk via modem "låser"/optager COM-porten, vil MSComm-komponenten ikke være istand til at åbne porten, og du vil ikke kunne kommunikere med modemet.

Der er afaik 2 muligheder for at lukke en DUN:

1) SendKeys (som tidligere foreslået af sjensen)
2) Brug af 3. parts komponenter - f.eks. SocketTools

Men hvis det kun er til at lukke en forbindelse med, vil jeg foreslå pkt. 1.

\\Spinner

Mig sprogspasser:

..sikker på du vil FÅ det til at...

\\Spinner

Hej Aleks...

Prøv at downloade den her.
http://support.microsoft.com/download/support/mslfiles/VB32RAS.EXE

Dette er et dialup program lavet i Visual Basic af Microsoft. Her får du det hele foræret. Både hvordan man opretter forbindelser, rediger, sletter, ringer op, lægger på og meget mere...

Med venlig hilsen

Janus Kamp Hansen
Systemudvikler
A/S Nordisk Solar Compagni

Her er en større stump kode, fundet på VB-WORLD.NET:

'Indsæt dette i et modul:
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 Const ERROR_SUCCESS = 0&

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 LongPublic gstrISPName As String
Public ReturnCode As Long

'Indsæt dette i formens kode:
Public Sub HangUp()
Dim i As Long
Dim lpRasConn(255) As RasConn
Dim lpcb As Long
Dim lpcConnections As LongDim hRasConn As Long
lpRasConn(0).dwSize = RAS_RASCONNSIZE
lpcb = RAS_MAXENTRYNAME * lpRasConn(0).dwSize
lpcConnections = 0
ReturnCode = RasEnumConnections(lpRasConn(0), lpcb, _
lpcConnections)

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

End Sub

Public Function ByteToString(bytString() As Byte) As String
Dim i As Integer
ByteToString = ""
i = 0

While bytString(i) = 0&
ByteToString = ByteToString & Chr(bytString(i))
i = i + 1
Wend
End Function


/The Portal
http://www.theportal.dk