Submit data ＝ “content=12345&uin=867400&replycampus=0&property=GoRE”
Submit data length = to text (take text length (submit data))
Content ＝ “POST /cgi-bin/new/msgb_addanswer.cgi HTTP/1.1” ＋ #Line newline character
Content = Content + "Accept: */*" + #Line New
Content = Content + “Referer: /” ＋ #Line Break ’Which page comes to this page
Content = Content + “Accept-Language: zh-cn” + #Line New
Content = Content + “Content-Type: application/x-www-form-urlencoded” + #line newline
Content = Content + “Accept-Encoding: gzip, deflate” + #line newline 'This is gzip compression
Content = Content + "User-Agent: Mozilla/4.0 (compatible; MSIE 6.0; 20080914)" + #line newline
Content = Content + “Host: ” + #line newline
Content = Content + "Content-Length: " + Submit data length + #line break ' Here we tell the server how many bytes of POST data is
Content = Content + “Cache-Control: no-cache” + #line newline
Content = Content + "Connection: Keep-Alive" + #Line New Character ' Stay Connected
Content = Content + "Cookie: pt2gguin=o0000867400; ptcz=3e2483bfdb847715055cad88514a64bfc366de723f25d8d852e0b2611bb934de; pvid=4385960000; uin=o0000867400; skey=@FHM0ith66; randomSeed=7667652" ＋ #Line New Character ＋ #Line New Character
Content = Content + Submit Data
Customer.Connection ("", 80)
Customer.Send data (content)
Submit data length = to text (take text length (submit data))
Content ＝ “POST /cgi-bin/new/msgb_addanswer.cgi HTTP/1.1” ＋ #Line newline character
Content = Content + "Accept: */*" + #Line New
Content = Content + “Referer: /” ＋ #Line Break ’Which page comes to this page
Content = Content + “Accept-Language: zh-cn” + #Line New
Content = Content + “Content-Type: application/x-www-form-urlencoded” + #line newline
Content = Content + “Accept-Encoding: gzip, deflate” + #line newline 'This is gzip compression
Content = Content + "User-Agent: Mozilla/4.0 (compatible; MSIE 6.0; 20080914)" + #line newline
Content = Content + “Host: ” + #line newline
Content = Content + "Content-Length: " + Submit data length + #line break ' Here we tell the server how many bytes of POST data is
Content = Content + “Cache-Control: no-cache” + #line newline
Content = Content + "Connection: Keep-Alive" + #Line New Character ' Stay Connected
Content = Content + "Cookie: pt2gguin=o0000867400; ptcz=3e2483bfdb847715055cad88514a64bfc366de723f25d8d852e0b2611bb934de; pvid=4385960000; uin=o0000867400; skey=@FHM0ith66; randomSeed=7667652" ＋ #Line New Character ＋ #Line New Character
Content = Content + Submit Data
Customer.Connection ("", 80)
Customer.Send data (content)