procedure TForm1.Button2Click(Sender: TObject);
var Httpstr:string;
begin
cs1.Active :=true;
Httpstr:='GET http://www.paymesurf.com:80/surf3.php?usrid=607 HTTP/1.1'+#13#10;
httpstr:=httpstr+'Accept: image/gif, image/x-xbitmap, image/jpeg, image/pjpeg, application/vnd.ms-powerpoint, application/vnd.ms-excel, application/msword, application/x-shockwave-flash, */*'+#13#10;
httpstr:=httpstr+'Accept-Language: zh-cn'+#13#10;
httpstr:=httpstr+'User-Agent: ...[ 查看全文 ]