httprequest_header()

Httprequest Header 정보를 만들기 위해 작성한 코드이다.

불필요한 헤더 정보도 있지만 그건 작성하면서 수정하면 된다.

Sub httprequest_header()
    Dim rngC As Range
    Dim rngAll As Range
    Dim tmp As Integer
   
    Application.ScreenUpdating = False
    Set rngAll = Range([C3], [C3].End(4))
   
    For Each rngC In rngAll
        tmp = InStr(rngC, ":")
        If tmp > 0 Then
            If Left(rngC, tmp - 1) = "User-Agent" Then
                rngC.Offset(0, -2) = "request.UserAgent" & "=""" & Trim(Mid(rngC, tmp + 1)) & """" & ";"
            ElseIf Left(rngC, tmp - 1) = "Accept-Language" Then
                rngC.Offset(0, -2) = "request.AcceptLanguage" & "=""" & Trim(Mid(rngC, tmp + 1)) & """" & ";"
            ElseIf Left(rngC, tmp - 1) = "Accept-Encoding" Then
                rngC.Offset(0, -2) = "request.AcceptEncoding" & "=""" & Trim(Mid(rngC, tmp + 1)) & """" & ";"
            ElseIf Left(rngC, tmp - 1) = "Content-Type" Then
                rngC.Offset(0, -2) = "request.ContentType" & "=""" & Trim(Mid(rngC, tmp + 1)) & """" & ";"
            ElseIf Left(rngC, tmp - 1) = "Content-Length" Then
                rngC.Offset(0, -2) = "request.ContentLength=sendData.Length;"
            ElseIf InStr(rngC, "keep-alive") > 0 Then
                rngC.Offset(0, -2) = "request.KeepAlive=true;"
            Else
                rngC.Offset(0, -2) = "request." & Left(rngC, tmp - 1) & "=""" & Trim(Mid(rngC, tmp + 1)) & """" & ";"
            End If
        Else
            rngC.Offset(0, -2) = rngC
        End If
    Next rngC
End Sub