Newsgroup: it.comp.lang.visual-basic
Titolo: winsock

Ciauz a tutti, ho un piccolo problema. Ho fatto un programmino per testare
la raggiungibilità di un server. Il programma in questione disponde di un
timeout di 10 secondi che cmq trovo troppo lungo. E' possibile in qualche
modo velocizzare il programma. Nel mio programma, cerca di connettersi ad
ogni server e se dopo 10 secondi non è riuscito, passa al prossimo. Non è
possibile fare in modo che capisca subito quando l'host è irraggiungibile
???
Ecco il codice:
Dim Conness As Boolean
Dim Errore As Boolean
Dim theTime As Date
Dim Timeout As Long
Dim lista As String
Private Sub Command1_Click()
    For i = 0 To List1.ListCount - 1
        If i >= List1.ListCount Then Exit For
        lista = Trim(List1.List(i))
        Label1.Caption = lista
        Winsock1.Connect lista, Text2
        DoEvents
        Conness = False
        Do While Conness = False And Winsock1.State < 7
                DoEvents
        Loop
        If (False = Conness) Or Winsock1.State = 9 Then
            i = i - 1
            Errore = False
            List1.RemoveItem i + 1
            Timer1.Enabled = False
            Timer1.Enabled = True
        Else
            Text1.Text = lista & " Connesso!"
            Conness = False
            Timer1.Enabled = False
            Timer1.Enabled = True
        End If
        Winsock1.Close
    Next
    MsgBox "Controllo Effettuato"
End Sub
Private Sub Command2_Click()
    Open App.Path & "\server.txt" For Input As #1
    Do While Not EOF(1)
        Line Input #1, sLine
        List1.AddItem sLine
        DoEvents
    Loop
    Close #1
End Sub
Private Sub Command3_Click()
Open App.Path & "\server.txt" For Output As #1
For a = 0 To List1.ListCount - 1
Print #1, List1.List(a)
Next
Close #1
End Sub
Private Sub Command4_Click()
Winsock1.Close
End Sub
Private Sub Timer1_Timer()
Conness = False
End Sub
Private Sub Winsock1_Connect()
Conness = True
End Sub
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Conness = True
End Sub
Private Sub Winsock1_Error(ByVal Number As Integer, Description As String,
ByVal Scode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal
HelpContext As Long, CancelDisplay As Boolean)
Conness = True
Errore = True
End Sub
Grazie e ciao a tutti
Lord Goliath

dove posso trovare una guida per il comando WINSOCK?
GRAZIE

 ha scritto nel messaggio
news:j7E77.1075$0Z1....@news.infostrada.it...


 
F1
-- 
Samuele Battarra
mail server: 
libero.it
, indirizzo: battarsa@(mail server)
prova il mio newsreader:
http://digilander.iol.it/battarsa/programmi/leggiminews.html

 F1
Ehi! Voglio il (C) !!! ;-PPP

Scusa la mia ignoranza, ma forse è xchè mi sn perso parecchi post in questo
periodo... mi puoi spiegare cosa signifca F1?
Grazie Moreno
byez
by Ale(xand[18])


 periodo... mi puoi spiegare cosa signifca F1?
è uno di quei tastini che si trovano in cima alla tastiera...
piu' precisamente il primo da sinistra (non contando il tasto ESC)
Ciao
Enrico

 ha scritto nel messaggio
news:9jp9t7$14cr9$1...@news02.it.net...


Moreno Sirri ha scritto:

Non penso che ci siano gli estremi per poterlo ottenere.
Qualcuno esperto in materia legale conferma? :-))))


 ha scritto nel messaggio
news:9e_77.7357$0Z1.2...@news.infostrada.it...


 Perpiacere fatemi sapere qualcosa...
Te lo spiego ben bene.
F1 e' il bottone della tastiera in alto a sinistra.
Se lo premi ti si apre la guida in cui ci trovi una marea di
documentazione sulle winsocket.
In particolare le API per gestire il winsock sono descritte nell'MSDN
SDK delle piattaforme\Networking and Distributed services\Windows Sockets Version 2
per l'oggetto winsock invece, lo inserisci su un form, quindi premendo F1
vieni portato direttamente sulla pagina giusta.


 ha scritto nel messaggio
news:%yk87.13643$0Z1.4...@news.infostrada.it...


Impara a scrivere il codice bene.
E fai meno il gradasso, quando spieghi le cose
gli errori possono essere compresi in modo diverso
quindi non approfittarti della gente che
comunque vuole dare una mano.

 ha scritto nel messaggio
news:Adlt7.7730$C15.1...@news.infostrada.it...
