[VB] Intercettare eventi

[s|n3]

Come faccio ad intercettare il tentativo di connettersi a internet??
In pratica mi serve un programma che blocchi la connessione ad internet...
come posso fare???

[xegallo]

INTERNET_CONNECTION_CONFIGURED
INTERNET_CONNECTION_OFFLINE
INTERNET_CONNECTION_PROXY
INTERNET_RAS_INSTALLED
Private Sub Form_Load()
    Dim flags As Long
    Dim length As Long
    Dim connection_name As String
    Dim connected As Boolean
    Dim ctl As Control
    length = 256
    connection_name = Space$(length)
    connected = InternetGetConnectedStateEx(flags, connection_name,length, 0&)
    For Each ctl In Controls
        If TypeOf ctl Is CheckBox Then ctl.Value = vbUnchecked
    Next ctl
    If connected Then
        lblConnection.Caption = Left$(connection_name,
        InStr(connection_name, Chr$(0)) - 1)
        ' If flags And INTERNET_CONNECTION_CONFIGURED Then
        chkConfigured.Value = vbChecked
        If flags And INTERNET_CONNECTION_LAN Then chkLan.Value =vbChecked
        If flags And INTERNET_CONNECTION_MODEM Then chkModem.Value = vbChecked
        ' If flags And INTERNET_CONNECTION_OFFLINE Then
        chkOffline.Value = vbChecked
        ' If flags And INTERNET_CONNECTION_PROXY Then chkProxy.Value = vbChecked
        ' If flags And INTERNET_RAS_INSTALLED Then
        chkRASInstalled.Value = vbChecked
    End If
End Sub

con questo code scopri quale connessione è attiva poi basta che la disconnetti

[s|n3]

mmm...secondo me nel codice ke mi hai dato ci manca qualkosa.....
tipo...non so....InternetGetConnectedStateEx... :metallica
altro problema...a me non serve rilevare se c'è una connessione attiva, ma fare in modo che se uno tenta di aprire la connessione rempta il programma se ne accorge.
Io avevo pensato di farlo con un timer che fa un controllo ogni minuto per vedere se ci sono connessioni attive....ma mi sembra uno spreco di risorse...
nessuno puo aiutarmi???