InetSendCloseWinRsp Example for Visual Basic

Private Sub LEADNet1_InetReceiveCmd(ByVal iComputer As Integer, ByVal InetCommand As Integer, ByVal nCommandID As Long, ByVal nError As Integer, ByVal Params As LEADRasterInetLib.ILEADRasterInetPacket, ByVal nExtraDataSize As Long, ByVal ExtraData As LEADRasterVariant)
   Dim nRet As Integer
   Dim nStatus As Integer

   If (nError <> 0) Then
      nStatus = ERROR_TRANSFER_ABORTED
   Else
      Select Case InetCommand
         Case INETCMD_CLOSE_WIN
            ' check the validity of the parameters
            If ((Params.ParamCount = 1) And (Params.ParamType(0) = PARAM_TYPE_UINT32)) Then
               'Note this is a function you must create
               nStatus = ProcessCloseWinCommand(Params.ParamValue(0).DoubleValue)
               nRet = LEADNet1.InetSendCloseWinRsp(nCommandID, 0, Null, nStatus)
               Exit Sub
            End If
         End Select
   End If
   'return an error response
   LEADNet1.InetSendRsp InetCommand, nCommandID, Nothing, 0, Null, nStatus
End Sub