uses MSHTML_TLB; // first navigate to tipspage procedure TForm1.Button1Click(Sender: TObject); begin Webbrowser1.Navigate('http://www.swissdelphicenter.ch/en/tipsuchen.php'); end; // Try to access IE instance and fill out the search field with // a text and click the search button procedure TForm1.Button3Click(Sender: TObject); var hIE: HWND; ShellWindow: IShellWindows; WB: IWebbrowser2; spDisp: IDispatch; IDoc1: IHTMLDocument2; Document: Variant; k, m: Integer; ovElements: OleVariant; i: Integer; begin ShellWindow := CoShellWindows.Create; // get the running instance of Internet Explorer for k := 0 to ShellWindow.Count do begin spDisp := ShellWindow.Item(k); if spDisp = nil then Continue; // QueryInterface determines if an interface can be used with an object spDisp.QueryInterface(iWebBrowser2, WB); if WB <> nil then begin WB.Document.QueryInterface(IHTMLDocument2, iDoc1); if iDoc1 <> nil then begin WB := ShellWindow.Item(k) as IWebbrowser2; begin Document := WB.Document; // count forms on document and iterate through its forms for m := 0 to Document.forms.Length - 1 do begin ovElements := Document.forms.Item(m).elements; // iterate through elements for i := 0 to ovElements.Length - 1 do begin // when input fieldname is found, try to fill out try if (CompareText(ovElements.item(i).tagName, 'INPUT') = 0) and (CompareText(ovElements.item(i).type, 'text') = 0) then begin ovElements.item(i).Value := 'FindWindow'; end; except end; // when Submit button is found, try to click try if (CompareText(ovElements.item(i).tagName, 'INPUT') = 0) and (CompareText(ovElements.item(i).type, 'SUBMIT') = 0) and (ovElements.item(i).Value = 'Search') then // Suchen für German begin ovElements.item(i).Click; end; except end; end; end; end; end; end; end; end;
这是一个向留言板灌水的,wb为一个WebBrower控件: {先右击网页看其代码,找出各元素名字} procedure TForm1.Timer1Timer(Sender: TObject); var ov: OleVariant; begin wb.Navigate('http://liujw/wlxmo/gbxp/add.asp'); Randomize; ov := wb.OleObject.document.all.item('username',0); {找到用户名框} ov.Value := IntToStr(Random(100) + 1); {灌入值} ov := wb.OleObject.document.all.item('title',0); {找到留言主题框} ov.Value := IntToStr(Random(100) + 1); ov := wb.OleObject.document.all.item('msg',0); {找到内容信息框} ov.Value := IntToStr(Random(10000) + 1); ov := wb.OleObject.document.all.item('submsg',0); {找到发送按钮} ov.Click; {执行发送操作,OK} end;
MSHTML_TLB; // first navigate to tipspage procedure TForm1.Button1Click(Sender: TObject);
begin
Webbrowser1.Navigate('http://www.swissdelphicenter.ch/en/tipsuchen.php');
end; // Try to access IE instance and fill out the search field with
// a text and click the search button procedure TForm1.Button3Click(Sender: TObject);
var
hIE: HWND;
ShellWindow: IShellWindows;
WB: IWebbrowser2;
spDisp: IDispatch;
IDoc1: IHTMLDocument2;
Document: Variant;
k, m: Integer;
ovElements: OleVariant;
i: Integer;
begin
ShellWindow := CoShellWindows.Create;
// get the running instance of Internet Explorer
for k := 0 to ShellWindow.Count do
begin
spDisp := ShellWindow.Item(k);
if spDisp = nil then Continue;
// QueryInterface determines if an interface can be used with an object
spDisp.QueryInterface(iWebBrowser2, WB); if WB <> nil then
begin
WB.Document.QueryInterface(IHTMLDocument2, iDoc1);
if iDoc1 <> nil then
begin
WB := ShellWindow.Item(k) as IWebbrowser2;
begin
Document := WB.Document; // count forms on document and iterate through its forms
for m := 0 to Document.forms.Length - 1 do
begin
ovElements := Document.forms.Item(m).elements;
// iterate through elements
for i := 0 to ovElements.Length - 1 do
begin
// when input fieldname is found, try to fill out
try
if (CompareText(ovElements.item(i).tagName, 'INPUT') = 0) and
(CompareText(ovElements.item(i).type, 'text') = 0) then
begin
ovElements.item(i).Value := 'FindWindow';
end;
except
end;
// when Submit button is found, try to click
try
if (CompareText(ovElements.item(i).tagName, 'INPUT') = 0) and
(CompareText(ovElements.item(i).type, 'SUBMIT') = 0) and
(ovElements.item(i).Value = 'Search') then // Suchen für German
begin
ovElements.item(i).Click;
end;
except
end;
end;
end;
end;
end;
end;
end;
end;
{先右击网页看其代码,找出各元素名字}
procedure TForm1.Timer1Timer(Sender: TObject);
var
ov: OleVariant;
begin
wb.Navigate('http://liujw/wlxmo/gbxp/add.asp');
Randomize;
ov := wb.OleObject.document.all.item('username',0); {找到用户名框}
ov.Value := IntToStr(Random(100) + 1); {灌入值}
ov := wb.OleObject.document.all.item('title',0); {找到留言主题框}
ov.Value := IntToStr(Random(100) + 1);
ov := wb.OleObject.document.all.item('msg',0); {找到内容信息框}
ov.Value := IntToStr(Random(10000) + 1);
ov := wb.OleObject.document.all.item('submsg',0); {找到发送按钮}
ov.Click; {执行发送操作,OK}
end;
WebBrowser.OleObject.Document.ff.submit; 其中:ff为表单名,aa为文本框名。
-------------------以下为无表单的使用方法--------------------
//--用户名
webbrowser1.OleObject.document.all.User_select_endX.value:='123';
//--密码
webbrowser1.OleObject.document.all.edPwdX.value:='123'; //----------------------执行单击按钮事件----------------------
webbrowser1.OleObject.document.all.Submitgo.click;