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