PDA

Visualizza la versione completa : [VB] Intercettare eventi


s|n3
11-08-2002, 02:15
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
11-08-2002, 14:56
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
11-08-2002, 19:09
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???

Loading