Newsgroup: it.comp.lang.visual-basic
Titolo: Problema IP

Ragazzi ho un problema (ovvio: altrimenti perchè vi scriverei??!!)  --
Penso di aver strutturato logicamente bene questo mio programma che dovrebbe
mostrare nella label1 l' IP del mio computer solo quando questo è collegato
ad Internet, mentre quando si scollega dovrebbe non far vedere niente nella
label1 e poi se mi ricollego dovrebbe ri-mostrare l' IP nella label1, e per
come l'ho strutturato dovrebbe essere l' IP della nuova connessione, quindi
un IP diverso da quello del precedente collegamento ad Internet...e invece
no! Il programma mostra sempre lo stesso IP del primo collegamento: perchè?!
Qui di seguito c'è il codice del mio programma, tanto è breve e
semplicissimo!
Dim IdProt
Dim StatoConnessione
Private Sub mnuEsci_Click()
End
End Sub
Private Sub Timer1_Timer()
StatoConnessione = InternetGetConnectedState(&H2, 0)
If StatoConnessione = 1 Then IdProt = Winsock1.LocalIP
If StatoConnessione = 0 Then IdProt = ""
End Sub
Private Sub Timer2_Timer()
Label1.Caption = IdProt
End Sub
Con     timer1.interval=1    e    timer2.interval=2
Non capisco: quando il programma vede che il computer si è ri-connesso ad
Internet e quindi esegue la riga di comando  If StatoConnessione = 1 Then
IdProt = Winsock1.LocalIP  perchè poi risulta che la variabile IdProt ha
sempre lo stesso valore del precedente collegamento ad Internet (e quindi lo
stesso IP) ????
Ringrazio tutti, probabilmente la soluzione è semplice ma io ho il cervello
fritto!!
Enjoy yourself, but don't fuck too much!!!

 ha scritto nel messaggio
news:RZt26.191696$hk4.7...@news.infostrada.it...

Non sono un'esperto di Internet e quindi forse dico una fregnaccia, ma non
tutti i provider danno un IP variabile.
Ciao VB

 ha scritto nel messaggio
news:92drbc$sgd$1...@serv1.albacom.net...


 ha scritto nel messaggio
news:MEu26.192009$hk4.7...@news.infostrada.it...

Io intendevo dire che se il tuo provider non assegna l'IP in maniera
dinamica, a ogni collegamento hai sempre lo stesso IP, altrimenti cambia a
ogni collegamento.

 ha scritto nel messaggio
news:RZt26.191696$hk4.7...@news.infostrada.it...


 ha scritto nel messaggio
news:dKv26.192487$hk4.7...@news.infostrada.it...


Non vorrei sparare una cazzata (ogni tanto... :::)))) ma quel .LocalIP mi fa
insospettire... ::::))))))
Le mie nozioni di sistemi le sto perdendo per strada... non ricordo bene...
ma sicuro che sia LocalIP?
CiaoZ
SebaMix

 ha scritto


 > > > Ragazzi ho un problema (ovvio: altrimenti perchè vi


 Cioč? Che significa "annullare il winsock e poi riaprirlo"?? Avrete capito


 > non e' che devi annullare e riaprire il winsock, per caso ?
Infatti...
Ciao Pal..

 ha scritto nel messaggio
news:elD26.193404$hk4.7...@news.infostrada.it...


 ha scritto nel
messaggio news:92evoq$4mks$1...@stargate1.inet.it...


 sia cambiato.
durante una connessione l'ip non cambia!
--
Ciuaz©,
H0m3r S1mps0n
home...@libero.it
hom...@tiscalinet.it
http://homersimp.tsx.org
 (In costruzione)

 Ri-ringrazio nuovamente tutti!!
prova a mettere una sub in un modulo
e quando il computer è connesso la fai eseguire,
questa sub:
unload frmMain
frmMain.Show
StatoConnessione = InternetGetConnectedState(&H2, 0)
If StatoConnessione = 1 Then IdProt = Winsock1.LocalIP
If StatoConnessione = 0 Then IdProt = ""
gli fai rieseguire il controllo per sicurezza
mentre in timer1
StatoConnessione = InternetGetConnectedState(&H2, 0)
If StatoConnessione = 1 Then IdProt = module1.nomesub
If StatoConnessione = 0 Then IdProt = ""
--
