Option Explicit
`Create object for log file
Dim fsysLog As New Scripting.FileSystemObject

`Command line specifies the name or IP address of
`the machine to send data to
Private Sub Form_Load()
    `Start this application in send mode
    `if a command line is specified

    If Command <> "" Then
        `Set a remote port to send to
        sckUDP.RemotePort = 1002
        `Identify the host to send to
        sckUDP.RemoteHost = Command
        `Bind to a local port to send from
        sckUDP.Bind 1001
        `Send information
        sckUDP.SendData ShowStats
        `End this application
        Unload Me
    `Start in receive mode if no
    `command line
    Else
        `Specify remort port to listen for
        sckUDP.RemotePort = 1001
        `Specify local port to receive from
        sckUDP.Bind 1002
        `Display information along with this
        `machine's "friendly" name
        Me.Caption = Me.Caption & ": " & sckUDP.LocalHostName
    End If
End Sub

`Handle transmission errors
Private Sub sckUDP_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 _
)
    `Display error messages
    MsgBox Number & " " & Description, vbCritical, App.Title
End Sub

`Handle data as it comes in
Private Sub sckUDP_DataArrival(ByVal bytesTotal As Long)
    Dim strData As String
    `Retrieve the data
    sckUDP.GetData strData
    `Display it
    ShowText strData
    `Save data in log file if check box selected
    If chkLog.Value Then
        fsysLog.CreateTextFile(CurDir & "\stats.log", _
        True).Write txtReceive.Text
    End If
End Sub

Option Explicit
`Start out listening for connection
`requests
Private Sub Form_Load()
    `Set the port to listen on
    sckTCP.LocalPort = 1002
    `Begin listening
    sckTCP.Listen
    `Update status bar
    ShowText "Listening"
End Sub

Private Sub mnuConnect_Click()
    Dim strRemoteHost As String
    `Get the name of a computer to connect to
    strRemoteHost = InputBox("Enter name or IP address of computer " & _
                  "to connect to.", vbOKCancel)
    `Exit if cancelled
    If strRemoteHost = "" Then Exit Sub
    `Close any open connections
    sckTCP.Close
    `Set the name of the computer to connect to
    sckTCP.RemoteHost = strRemoteHost
    `Specify a port number on remote host
    sckTCP.RemotePort = 1002
    `This seems to prevent some TCP errors
    DoEvents
    `Request the connection
    sckTCP.Connect
End Sub

Private Sub sckTCP_ConnectionRequest(ByVal requestID As Long)
    sckTCP.Close
    sckTCP.Accept requestID
    ShowText "Accepting request from " & sckTCP.RemoteHostIP
End Sub

Private Sub txtChat_KeyPress(KeyAscii As Integer)
    Static strSend As String
    `Make sure there is a connection
    If sckTCP.State <> sckConnected Then Exit Sub
    `Send data when user presses Enter
    If KeyAscii = Asc(vbCr) Then
        `Send the string
        sckTCP.SendData strSend
        `Clear the variable
        strSend = ""
    Else
        `Keep track of what is being typed
        strSend = strSend & Chr(KeyAscii)
    End If
End Sub

Private Sub sckTCP_DataArrival(ByVal bytesTotal As Long)
    Dim strText As String
    `Get data
    sckTCP.GetData strText
    `Display data received
    txtChat = txtChat & ">>" & strText & vbCrLf
    `Move cursor to end
    txtChat.SelStart = Len(txtChat)
    ShowText "Bytes received: " & bytesTotal
End Sub

Private Sub mnuDisconnect_Click()
    sckTCP.Close
    DoEvents
    sckTCP.Listen
    ShowText "Listen"
End Sub

Private Sub sckTCP_Close()
    ShowText "Close"
    `When connection by remote machine, go back to listening
    sckTCP.Close
    sckTCP.Listen
    ShowText "Listen"
End Sub

`Display error information
Private Sub sckTCP_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 _
)
    ShowText "Error " & Number & " " & Description
End Sub

Option Explicit

'deletes cached page, replaces the Navigate method's
'navNoReadFromCache flag
Private Declare Function DeleteUrlCacheEntry Lib _
    "WinInet.DLL" (strURL As String) As Boolean

'Specify the path where VB.EXE is installed
Const VBPath = "file://C:\Program Files\DevStudio\VB\"

`Create an Internet Explorer object variable. Note that
`you must use the "_V1" object to be able to bind to
`the ieView_Quit event
Private WithEvents ieView As SHDocVw.WebBrowser_V1
`In IE3, the following declaration was used:
`Private WithEvents ieView As InternetExplorer

Private Sub Form_Load()
    `Establish a reference to application object
    Set ieView = GetObject("", "InternetExplorer.Application")
    `Be sure Internet Explorer is visible
    ieView.Visible = True
    `Start with VB.EXE path because that's where VBD
    `files are stored during debugging
    txtAddress = VBPath
End Sub

Private Sub txtAddress_KeyPress(KeyAscii As Integer)
Dim blnResult As Boolean
    If KeyAscii = Asc(vbCr) Then
        `Eat keystroke
        KeyAscii = 0

        `Select text
        txtAddress.SelLength = Len(txtAddress)
        `Delete this URL if it is cached
        blnResult = DeleteUrlCacheEntry(ByVal txtAddress)
        'Navigate to address
        ieView.Navigate txtAddress
    End If
End Sub

Private Sub ieView_CommandStateChange( _
    ByVal Command As Long, _
    ByVal Enable As Boolean _
)
    `Enable or disable Back and Forward command buttons
    `based on whether there is an address to go to
    Select Case Command
        Case CSC_NAVIGATEBACK
            cmdBack.Enabled = Enable
        Case CSC_NAVIGATEFORWARD
            cmdForward.Enabled = Enable
        Case CSC_UPDATECOMMANDS
    End Select
End Sub

Private Sub cmdBack_Click()
    ieView.GoBack
End Sub

Private Sub cmdForward_Click()
    ieView.GoForward
End Sub

Private Sub ieView_NavigateComplete(ByVal URL As String)
    `Update text box with the final address
    txtAddress.Text = URL
    txtAddress.SelLength = Len(txtAddress)
    `Display the Web page title in the form's caption
    Caption = ieView.LocationName
End Sub

Private Sub ieView_Quit(Cancel As Boolean)
    `Close this application if user closes Internet Explorer
    End
End Sub