InetConnected Example for Visual Basic

This is also the example for the InetGetHostName method.

Private Sub LEADNet1_InetConnected (ByVal iComputer As Integer)
   Dim hostname As String

   ' add remote computer to our send list
   LEADNet1.SendList(LEADNet1.SendListNum) = iComputer
   ' get remote computer name
   LEADNet1.InetGetHostName iComputer, HOST_NAME_DESCRP
   hostname = LEADNet1.InetHostName
   ' display host descriptive name
   MsgBox hostname
End Sub