5,392
社区成员
发帖
与我相关
我的任务
分享
for K := 0 to Form1.WebBrowser4.OleObject.Document.all.tags('span').Length - 1 do
begin
str1 := Form1.WebBrowser4.oleobject.document.all.tags('span').item(K).innertext;
if ansicontainsstr(str1,'write a comment') then begin
Form1.WebBrowser4.oleobject.document.all.tags('span').item(K).click;
break;
end;
end;
function TForm1.GetData(url:string): string;
var
responseText: WideString;
xmlHttp: oleVariant;
begin
Result:='';
try
xmlHttp:=CreateOleObject('Msxml2.XMLHTTP');
xmlHttp.open('GET',url,false);
xmlHttp.send();
responseText:=xmlHttp.responseText;
if xmlHttp.status='200' then
begin
Result:=responseText;
end;
xmlHttp := Unassigned;
except
Result:='';
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
Memo1.lines.text:=GetData('xxxxx?参数1=...')
end;
<%@ Page Language="C#" %>
<%
Page.Response.Write(Page.Request["QS"]);
%>
procedure TForm1.Button1Click(Sender: TObject);
var
SS: TStringList;
Stream: TStringStream;
begin
Stream := TStringStream.Create('');
SS := TStringList.Create;
SS.Add('QS=eefffsssss');
Self.IdHTTP1.Post('http://xxxxxxxxx/Default2.aspx', SS, Stream);
Showmessage(Stream.DataString);
SS.Free;
Stream.Free;
end;