Agilent Technologies 4294A Programming Manual page 179

wHighVersion As Integer
szDescription As String * WSA_DescriptionSize
szSystemStatus As String * WSA_SysStatusSize
iMaxSockets As Integer
iMaxUdpDg As Integer
lpVendorInfo As String * 200
End Type
'Define socket return codes
Public Const INVALID_SOCKET = &HFFFF
Public Const SOCKET_ERROR = -1
'Define socket types
Public Const SOCK_STREAM = 1
Public Const SOCK_DGRAM = 2
Public Const SOCK_RAW = 3
Public Const SOCK_RDM = 4
Public Const SOCK_SEQPACKET = 5
'Define address families
Public Const AF_UNSPEC = 0
Public Const AF_UNIX = 1
Public Const AF_INET = 2
Public Const AF_IMPLINK = 3
Public Const AF_PUP = 4
Public Const AF_CHAOS = 5
Public Const AF_NS = 6
Public Const AF_ISO = 7
Public Const AF_OSI = AF_ISO
Public Const AF_ECMA = 8
Public Const AF_DATAKIT = 9
Public Const AF_CCITT = 10
Public Const AF_SNA = 11
Public Const AF_DECnet = 12
Public Const AF_DLI = 13
Public Const AF_LAT = 14
Public Const AF_HYLINK = 15
Public Const AF_APPLETALK = 16
Public Const AF_NETBIOS = 17
Public Const AF_MAX = 18
'Setup sockaddr data type to store Internet addresses
Type sockaddr
sa_family As Integer
sa_data As String * 14
End Type
Public Const SADDRLEN = 16
'Declare Socket functions
Public Declare Function closesocket Lib "wsock32.dll" (ByVal s As Long)
As Long
Public Declare Function connect Lib "wsock32.dll" (ByVal s As Long, addr
As sockaddr_in, ByVal namelen As Long) As Long
Public Declare Function htons Lib "wsock32.dll" (ByVal hostshort As Long)
As Integer
Public Declare Function inet_addr Lib "wsock32.dll" (ByVal cp As String)
As Long
Chapter 12
Controlling the Agilent 4294A
'Stream socket
'Datagram socket
'Raw data socket
'Reliable Delivery socket
'Sequenced Packet socket
'unspecified
'local to host (pipes, portals)
'internetwork: UDP, TCP, etc.
'arpanet imp addresses
'pup protocols: e.g. BSP
'mit CHAOS protocols
'XEROX NS protocols
'ISO protocols
'OSI is ISO
'european computer manufacturers
'datakit protocols
'CCITT protocols, X.25 etc
'IBM SNA
'DECnet
'Direct data link interface
'LAT
'NSC Hyperchannel
'AppleTalk
'NetBios-style addresses
'Maximum # of address families
Using LAN
179