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