Private Sub Command3_Click()
Dim a
Dim b As String
Dim c As String
Dim i As Integer
a = Split(Text1.Text, vbCrLf)
For i = LBound(a) To UBound(a)
If Trim(a(i)) <> "" Then '排除空行
If InStr(Trim(a(i)), ": ") > 0 Then '判断是否符合处理条件
If Left(Trim(a(i)), 26) <> "WinHttp.SetRequestHeader " & Chr(34) Then '排除已被处理行
If Left(Trim(a(i)), 16) = "Content-Length: " Then '判断是否为post
b = b & "WinHttp.SetRequestHeader " & Chr(34) & "Content-Length" & Chr(34) & ", Len(ShuJu)" & vbCrLf
Else
c = Replace(Trim(a(i)), ": ", Chr(34) & "," & Chr(34))
b = b & "WinHttp.SetRequestHeader " & Chr(34) & c & Chr(34) & vbCrLf
End If
Else
b = b & Trim(a(i)) & vbCrLf
End If
Else
b = b & Trim(a(i)) & vbCrLf
End If
End If
Next
