Visual Basic

Option Explicit


Private Declare Function SystemParametersInfo Lib "user32" _
			 Alias "SystemParametersInfoA" _
			(ByVal uAction _
			 As Long, ByVal uParam As Long, _
			 ByVal lpvParam As Any, _
			 ByVal fuWinIni As Long) As Long


Private Const SPI_SETSCREENSAVERRUNNING = 97


Private Sub Test
	Dim retval as Long
	retval = SystemParametersInfo(SPI_SETSCREENSAVERRUNNING, _
	      	 Disabled, 0&, 0&)
End Sub  

Public Function buildIPheader(ByVal Length As Integer) As String

    'set the length of the TCP/IP header
    'add 8 bytes for the IP header

    Length += 8

    'IP Header = 8 bytes, first two bytes are length of record, last 6 bytes are unused

    'compute the length into binary format
    Dim comp1, comp2 As Byte
    comp1 = Length \ 256
    comp2 = Length Mod 256

    '2 bytes binary for the length and 6 bytes spaces for future use
    Return System.Text.Encoding.ASCII.GetString(New Byte() {comp1, comp2}) & "      "

End Function

Public Function buildIPheader(ByVal Length As Integer) As Byte()

    'set the length of the TCP/IP header
    'add 8 bytes for the IP header

    Length += 8

    'IP Header = 8 bytes, first two bytes are length of record, last 6 bytes are unused

    'compute the length into binary format
    '2 bytes binary for the length and 6 bytes spaces for future use
    Dim header(7) As Byte
    header(0) = Length \ 256
    header(1) = Length Mod 256
    System.Text.Encoding.ASCII.GetBytes("      ", 0, 6, header, 2)

    Return header

End Function