Private Sub M_Search(mx As Int, st As String)
Dim packet As UDPPacket
Dim data() As Byte
Dim msg As String
' Compile HTTP broadcast message
msg = "M-SEARCH * HTTP/1.1" & CRLF & _
"HOST: 239.255.255.250:1900" & CRLF & _
"MAN: " & Chr(34) & "ssdp:discover" & Chr(34) & CRLF & _
"MX: " & mx & CRLF & _
"ST: " & st & CRLF & CRLF
Log(msg & CRLF) 'DEBUG
' Convert string to UTF8
data=msg.GetBytes("UTF8")
' Initialise packet and send
packet.Initialize(data, "239.255.255.250", 1900)
udpSocket1.Send(packet)
End Sub