[visual Basic]desconectar Da Internet Via Código

para quem se interessa em aprender visual basic ai vai um bom código:

Desconectar da Internet Via Código no VB

'Num módulo:
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 As Long = 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 Long

Public gstrISPName As String
Public ReturnCode As Long

Public Sub HangUp()
 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
 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

'P/ usar:
Call HangUp

Creditos: Silício

muitttooo bom!!

mas tu nao tah pegando pesado com a galera iniciante não!???

copiar e colar o codigo é facil, o problema o o proogrammer entender o que esta fazendo, de que adianta o kra faze um sistemaum, e se der pau nao ter a menor ideia do que tah acontecendo!??

axo muito fera seus codigos, porem axo que devia ser um pouuco mais iniciante pra galera... ou explicar passo a passo o que faz o que! no código?

tudo bem.... na próxima eu explico linha por linha.....

e posto um código mais facial e simples de entender.

kra me add no msn,

a gente pode troka umas figurinhas!! ^^

derrepente!! =)

Bom, o codigo acima é praticamente declaração e uso de API oque não é nem um pouco dificio para aqueles que não aprendendo copiando/colando, eu que estudei achei bem simples, porem quem não estudou API concerteza sentira muitas dificuldades correto?

Belo codigo

isso não é tão intereçante, bom para forçar a desconecção caso haja algum problema...