如何做一个可以帮我向网页自动填写用户名密码的软件啊？？

2004-03-25 07:00:38 98 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

C#自动填写用户名、密码，自动提交登录网页（你懂的！）在学校上网是通多Dr.com网页的形式登录，由于账号流量限制，一个账号很快就用完了，幸运的是我们手上有一个EXCEl表，里面的账号足够多。但是每次用的时候都要打开表查找一个可用的账号，不仅耗时，而且还容易出错，于是就想能不能自己写个程序能够自动读取这些账号并且自动提交？具体步骤一、开发工具这里我们采用VS2010，通过C#编写了一个Form程序，在Form程序中打开需要用到webBrowser这阅读详情

...全文

python+selenium+excel自动登录，自动填写网页经常有些网页要登录，然后频繁填写一些重复的内容，本文暂只考虑不需要验证码的情况，可以通过selenium模拟用户行为在页面操作，用excel拖出相似内容，用xlrd读取并填写到网页中。导入相关包 from selenium import webdriver import os import xlrd import xlwt import json import requests, json... 阅读详情

errcode

网络通信/分布式开发 1,594 成员 32,944 内容

+ 关注 + 加入社区

切换为时间正序

aiirii 2004-03-25

打赏
举报

{
This example shows how to automatically fill in a search string
in the "Search Tip" page and click the search button.
}

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;

如何做一个可以帮我向网页自动填写用户名密码的软件啊？？

相关推荐