Eli tämä hakee nopeemmin lähiverkon koneet kuin soodan esimerkki
tarvitsette winsockin w1 ja laittakaa indexiksi 0
Private Sub Form_Load() ip = "192.168.0." ' tähän laitetaan lähiverkon maski For i = 1 To 254 ' Otetaan kaikki osoitteet Load w1(i) ' Ladataan soketit w1(i).Connect ip & i, 445 ' yhdistetään porttina on sellanen että se on jokaisessa wintoosassa kuuntelevana Next i 'lopetetaan for lause End Sub Private Sub w1_Connect(Index As Integer) MsgBox w1(Index).RemoteHost End Sub
Aihe on jo aika vanha, joten et voi enää vastata siihen.