vba to html post

 Sub test3()

    Set ws = Worksheets("ÃÒ¡ÒÃÊÑ觫×éÍ")

    R = 5

    ws.Cells(1, 3) = ""

    vtext = ""

    i = 1

    While ws.Cells(R, 1) <> ""

        vtext = vtext & i & "" & ws.Cells(R, 3) & "  " & Int(ws.Cells(R, 13) * 100)

        R = R + 1

        i = i + 1

    Wend

    ' สร้าง HTTP Request Object

    Set objHTTP = CreateObject("MSXML2.ServerXMLHTTP")

    ' สร้าง URL

    sURL = "http://192.168.0.105/xampp/line/inj.php?text=" & vtext

    ' ส่งคำขอ HTTP GET

    objHTTP.Open "GET", sURL, False

    objHTTP.setRequestHeader "Content-Type", "text/xml"

    objHTTP.send ""

    ' รอให้การเรียก URL เสร็จสิ้นก่อนที่จะดำเนินการถัดไป

    Do While objHTTP.readyState <> 4

        DoEvents

    Loop

    ' ตรวจสอบการเรียก URL ว่าเสร็จสิ้นหรือไม่ (สถานะ 200 หมายถึง OK)

    If objHTTP.Status = 200 Then

        ' การเรียก URL เสร็จสิ้น และส่งข้อมูลเพียงครั้งเดียว

        MsgBox "ส่งข้อมูลสำเร็จ"

    Else

        ' การเรียก URL มีปัญหา

        MsgBox "มีปัญหาในการส่งข้อมูล"

    End If

    ' ลบอ็อบเจ็กต์ HTTP Request

    Set objHTTP = Nothing

End Sub

VBA image to base64

 Public Function EncodeFile(strPicPath As String) As String

    Const adTypeBinary = 1          ' Binary file is encoded

    ' Variables for encoding
    Dim objXML
    Dim objDocElem

    ' Variable for reading binary picture
    Dim objStream

    ' Open data stream from picture
    Set objStream = CreateObject("ADODB.Stream")
    objStream.Type = adTypeBinary
    objStream.Open
    objStream.LoadFromFile (strPicPath)

    ' Create XML Document object and root node
    ' that will contain the data
    Set objXML = CreateObject("MSXml2.DOMDocument")
    Set objDocElem = objXML.createElement("Base64Data")
    objDocElem.dataType = "bin.base64"

    ' Set binary value
    objDocElem.nodeTypedValue = objStream.Read()

    ' Get base64 value
    EncodeFile = objDocElem.Text

    ' Clean all
    Set objXML = Nothing
    Set objDocElem = Nothing
    Set objStream = Nothing

End Function

REF-->https://stackoverflow.com/questions/2043393/convert-image-jpg-to-base64-in-excel-vba