Program som kobler deg av nettet

[Runar]

Er det mulig å lage et enkelt program som kobler deg av internett hvis du har adsl og win xp? Og er det vanskelig?

[aadnk]

Følgende kode kobler deg av internett:

 

Private Declare Function RasEnumConnections Lib "rasapi32.dll" Alias "RasEnumConnectionsA" (lpRasConn As Any, lpcb As Long, lpcConnections As Long) As Long
Private Declare Function RasHangUp Lib "rasapi32.dll" Alias "RasHangUpA" (ByVal hRasConn As Long) As Long

Const RAS_MAXENTRYNAME = 256
Const RAS_MAXDEVICETYPE = 16
Const RAS_MAXDEVICENAME = 128
Const RAS_RASCONNSIZE = 412

Private 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

Private Sub Form_Load()

Dim i As Long, lpRasConn(255) As RasConn, lpcb As Long
Dim lpcConnections As Long, hRasConn As Long

lpRasConn(0).dwSize = RAS_RASCONNSIZE
lpcb = RAS_MAXENTRYNAME * lpRasConn(0).dwSize
lpcConnections = 0
returncode = RasEnumConnections(lpRasConn(0), lpcb, lpcConnections)

If returncode = 0 Then

For i = 0 To lpcConnections - 1
hRasConn = lpRasConn(i).hRasConn
returncode = RasHangUp(ByVal hRasConn)
Next
End If

End Sub

 

Husk at dette må være en internett tilkobling som du må koble deg til. Det trenger ikke være ADSL. Den kan også brukes med ISDN eller analogt modem.

[Runar]

Jeg kan ikke så mye om programering, så sånn ca hvordan vil kildekoden til programet se ut? Er det kun koden over eller er det mer.

[Jonas]

legg inn den koden der og den skrur av internett hver gang programmet blir startet. Tror jeg

 

Kan du programere eller bare spurte du på vb forumet?

[Runar]

Jeg kan litt om programering, men jeg bare lurte på det. Men er det der hele koden?

[Jonas]

Jeg kan litt om programering, men jeg bare lurte på det. Men er det der hele koden?

Ser sånn ut ja.

[paroa]

den virker ikke jo

skal man lage standar EXE eller?

[singel_fitte]

jeg har også noe sånt internet blir slåt av det er ikke nei

 

##Denne brukeren har blitt bannet 4 uker for trolling, spamming, dårlig språk, overdreven bruk av smilies, spørsmål etter CDKeys, nick og enda litt til - Blib##

Endret 21. mars 2004 av Blib

[Alexen]

Hva er trolling? trylling?

[ratata]

godt spørsmål

[ratata]

edit: dobbelpost

Endret 1. april 2004 av ratata