嘻嘻,问对人了。我原来在大富翁提问题,每人理,我就写段小程序,自动登录,自动刷新[
]
procedure TForm1.LogIn;
var
doc: IHtmlDocument2;
form, input, item: OleVariant;
begin
if FLogin then Exit;
doc := WebBrowser1.Document as IHtmlDocument2;
if doc = nil then Exit;
form := doc.all.tags('form');
// form.item(0)就是登录窗体
input := form.item(0).tags('INPUT');
// 用户名输入框
item := input.item(2);
item.value := edtUserName.Text;
// 口令输入框
item := input.item(3);
item.value := edtPassword.Text;
// 提交这个form就登录了
form.item(0).submit;
end;
procedure TForm1.RefreshQuestion;
var
doc,all,collection,form,Input:OleVariant;
begin
doc:=WebBrowser1.Document;
all:=doc.all;
collection:=all.tags('FORM');
form:=collection.item(3);
collection := form.tags('INPUT');
// 找到“将此问题提前”按钮,click
Input := collection.item(0);
Input.click;
end;