Sub SendPostRequest()
    Dim http As Object
    Dim binaryData As String

    ' Create a WinHttpRequest object
    Set http = CreateObject("WinHttp.WinHttpRequest.5.1")

    ' Define the binary data (00 00 00 00 04 82 F7 02 00)
    binaryData = ChrW(&H0) & ChrW(&H0) & ChrW(&H0) & ChrW(&H0) & _
                 ChrW(&H4) & ChrW(&H82) & ChrW(&HF7) & ChrW(&H2) & ChrW(&H0)

    ' Open the connection
    http.Open "POST", "http://192.168.100.1:9201/SpaceX.API.Device.Device/Handle", False

    ' Set the headers
    http.SetRequestHeader "Content-Length", Len(binaryData)
    http.SetRequestHeader "X-User-Agent", "grpc-web-javascript/0.1"
    http.SetRequestHeader "X-Grpc-Web", "1"
    http.SetRequestHeader "User-Agent", "Mozilla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/120.0.6099.199 Safari/537.36"
    http.SetRequestHeader "Content-Type", "application/grpc-web-proto"
    http.SetRequestHeader "Accept", "*/*"
    http.SetRequestHeader "Origin", "http://localhost"
    http.SetRequestHeader "Accept-Encoding", "gzip, deflate, br"
    http.SetRequestHeader "Accept-Language", "en-US,en;q=0.9"
    http.SetRequestHeader "Connection", "close"

    ' Send the binary data
    http.Send binaryData

    ' Check the response (for debugging purposes)
    Debug.Print "Status: " & http.Status
    Debug.Print "Response: " & http.ResponseText

    ' Clean up
    Set http = Nothing
End Sub