盒子 收藏帖子 转移-实现向网页自动填写用户名密码并自动点击登录按钮 完成全自动凳录

//实现向网页自动填写用户名密码并自动点击登录按钮  完成全自动凳录

Function FillForm(WebBrowser: TWebBrowser2; FieldName: String; Value: String):
  Boolean;
Var
  i, j: Integer;
  FormItem: Variant;
Begin
  Result := False;
  //no form on document
  If WebBrowser.OleObject.Document.all.tags(‘FORM‘).Length = 0 Then
    Begin
      Exit;
    End;
  For I := 0 To WebBrowser.OleObject.Document.forms.Length - 1 Do
    Begin
      FormItem := WebBrowser.OleObject.Document.forms.Item(I);
      For j := 0 To FormItem.Length - 1 Do
        Begin
          Try
          //when the fieldname is found, try to fill out
          If FormItem.Item(j).Name = FieldName Then
          Begin
          FormItem.Item(j).Value := Value;
          Result := True;
          End;
          Except
          Exit;
          End;
        End;
    End;
End;

FillForm(浏览器控件名称, 编辑框名称, 内容)