自动填写（300分奉上!有些难度，不行再加300！)(300分)

Crane · 2000-03-09

用什么方法可以用程序来自动填写浏览器中的表格，问卷等等。表格格式
已知。用户只需点击“发送”或“填写完毕”即可。可以自己编浏览器，
方法不限，只要能自动填写就行。我现在所能想到的就是脱机，修改在
cache中的叶面值，然后再联机，不知如何实现，还有什么更好的办法没有
欢迎大家讨论.
谢谢！

RedBeret · 2000-03-09

我记得好象有个软件可以做到，可是不记得名字了。
或者直接在URL中写上表格的内容也可以。

歪就歪 · 2000-03-09

学识浅薄，不敢说能解决，只是提供两个思路供你参考：
一、完全用API，找到浏览器的HANDLE，然后再找CHILDWINDOW的HANDLE
比如本竹叶的MEMO的HANDLE，然后往这个子窗口写字串。再找POST BUTTON
的HANDLE，看看能不能用程序CLICK它。

这方法只适合你已经知道的竹叶，且该竹叶已经在当前浏览器中。

二、研究一下POST BUTTON的机制，模拟它做一个。

wjiachun · 2000-03-09

http://asp.gbsource.net/home/happydelphi/down/nokeybrd.zip
这个小工具的主要功能是，让我们在浏览网页时，方便的填写各种表格，你只需
轻轻点击一下鼠标，事先设定好的内容就会复制到剪贴板上，剩下你所要做的工
作就是“粘贴”了！本软件可以通过鼠标右键增加或减少填表项的个数，并且可
以方便的修改填表内容。此外，本软件还可以用于任何文本输入区，当然你也可
以事先设置一些日常用语，在聊天时使用，以免你反复输入同样的语句，到可以
省去不少的时间。

愚夫的作品

o*o · 2000-03-09

歪就歪 · 2000-03-09

那竹叶怎么进不去？

wjiachun · 2000-03-09

Y9Y,我给的是下载地址，主页为
http://asp.gbsource.net/home/happydelphi/

Crane · 2000-03-09

哇！大虾们出手如电啊！
我可能没说明白，我想编程实现，How?

wjiachun · 2000-03-09

>>我想编程实现，How?

那你问问愚夫大虾不是最好吗？

Hexi · 2000-03-09

到这里看一下：www.nacs.net/~classics/default.htm

Crane · 2000-03-09

其实，此问题我已经解决，但自认为很土，即自己做了个Browser;
修改当前page下的关键数据，但这样可能会有危险，所以拿来大家
讨论，我正在用XML作电子报文提交，在这方面有心得的大虾也可
来此“灌水”

g622 · 2000-03-09

listen

Crane · 2000-03-10

有其他方法吗？

hubdog · 2000-03-10

一种是javascript,一种是自己用Twebbrowser编一个浏览器，
通过ihtmlinputelement来控制input

Crane · 2000-03-10

hubdog:
ihtmlinputelement是什么的方法，Twebbrowser里好像没有
能说详细些吗，分数不够我再另给

Crane · 2000-03-10

希望大家能给出具体办法?

hubdog · 2000-03-10

<script TYPE="text/javascript" LANGUAGE="JavaScript">

</script>

<script
TYPE="text/javascript" LANGUAGE="JavaScript">

</script>

<html>

<head>
<title></title>
</head>

<body>

下面是javascript的方法，等会我再贴twebbrowser的例子

&lt;!-- [BODY_OnLoad]

[BODY_OnUnLoad]

[BODY_Colors]

&quot;#FFFF1F&quot;,&quot;#FFFF1F&quot;,&quot;#FFFF1F&quot;,&quot;#FFFF1F&quot;,&quot;#FFFF1F&quot;,

--&gt;

&lt;!-- To HEAD --&gt;

&lt;script TYPE=&quot;text/javascript&quot; LANGUAGE=&quot;JavaScript&quot;&gt;

&lt;!-- 

// --&gt;

&lt;/script&gt;

&lt;!-- To BODY --&gt;

&lt;script

TYPE=&quot;text/javascript&quot;
LANGUAGE=&quot;JavaScript&quot;&gt;

&lt;!-- 

function modifyvalue(form){

alert(&quot;demo&quot

;

form.elements[0].value=&quot;hubdog&quot;;

}

// --&gt;

&lt;/script&gt;

&lt;html&gt;

&lt;head&gt;

&lt;title&gt;&lt;/title&gt;

&lt;/head&gt;

&lt;body&gt;

&lt;form&gt;

&lt;p&gt;&lt;input TYPE=&quot;TEXT&quot; NAME=&quot;demo&quot; VALUE=&quot;demo&quot; SIZE=&quot;20&quot; ALIGN=&quot;LEFT&quot;&gt; &lt;input

TYPE=&quot;BUTTON&quot;
NAME=&quot;modify&quot;
VALUE=&quot;modify&quot;
ALIGN=&quot;LEFT&quot;
onclick=&quot;modifyvalue(this.form)&quot;&gt; &lt;/p&gt;

&lt;/form&gt;

&lt;/body&gt;

&lt;/html&gt;
</body>
</html>

hubdog · 2000-03-10

<html>

<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>新网页 2</title>
<meta name="GENERATOR" content="Microsoft FrontPage 3.0">
</head>

<body>

要你300分不算多吧

unit Unit1; 
 
interface 
 
uses 
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, 
OleCtrls, SHDocVw, StdCtrls, ExtCtrls,mshtml, EmbeddedWB; 
 
type 
TForm1 = class(TForm) 
Panel1: TPanel; 
Button1: TButton; 
Button2: TButton; 
WebBrowser1: TWebBrowser; 
procedure Button1Click(Sender: TObject); 
procedure Button2Click(Sender: TObject); 
private 
{ Private declarations } 
public 
{ Public declarations } 
end; 
 
var 
Form1: TForm1; 
 
implementation 
 
{$R *.DFM} 
 
procedure TForm1.Button1Click(Sender: TObject); 
begin 
WebBrowser1.Navigate('d:/demo.htm'); 
end; 
 
procedure TForm1.Button2Click(Sender: TObject); 
var 
doc:IHTMLDocument2; 
all:IHTMLElementCollection; 
item

levariant; 
I:Integer; 
begin 
doc:=WebBrowser1.Document as IHTMLDocument2; 
all:=doc.all; 
item:=all.tags('INPUT'); 
item:=item.item(0); 
item.innerText:='hubdog'; 
end; 
 
end.

下面是d:/demo.htm的内容,例子中把Edit中的delphi变成了hubdog

&lt;html&gt;

&lt;head&gt;

&lt;meta http-equiv=&quot;Content-Type&quot; content=&quot;text/html; charset=gb2312&quot;&gt;

&lt;title&gt;新网页 2&lt;/title&gt;

&lt;meta name=&quot;GENERATOR&quot; content=&quot;Microsoft FrontPage 3.0&quot;&gt;

&lt;/head&gt;

&lt;body&gt;

&lt;form method=&quot;POST&quot; action=&quot;--WEBBOT-SELF--&quot;&gt;

&lt;!--webbot
bot=&quot;SaveResults&quot; U-File=&quot;_private/form_results.txt&quot;
S-Format=&quot;TEXT/CSV&quot;

S-Label-Fields=&quot;TRUE&quot; --&gt;&lt;p&gt;&lt;input type=&quot;text&quot;
name=&quot;T1&quot; size=&quot;20&quot; value=&quot;delphi&quot;&gt;&lt;/p&gt;

&lt;/form&gt;

&lt;/body&gt;

&lt;/html&gt;
</body>
</html>

Crane · 2000-03-13

EmbeddedWB 是什么？D5中好像没有这个文件？

Crane · 2000-03-14

hubdog:
大家都很辛苦，我在这里先给你200一会再给你剩下的。

自动填写（300分奉上!有些难度，不行再加300！)(300分)

Crane

Unregistered / Unconfirmed

RedBeret

Unregistered / Unconfirmed

歪就歪

Unregistered / Unconfirmed

wjiachun

Unregistered / Unconfirmed

o*o

Unregistered / Unconfirmed

歪就歪

Unregistered / Unconfirmed

wjiachun

Unregistered / Unconfirmed

Crane

Unregistered / Unconfirmed

wjiachun

Unregistered / Unconfirmed

Hexi

Unregistered / Unconfirmed

Crane

Unregistered / Unconfirmed

g622

Unregistered / Unconfirmed

Crane

Unregistered / Unconfirmed

hubdog

Unregistered / Unconfirmed

Crane

Unregistered / Unconfirmed

Crane

Unregistered / Unconfirmed

hubdog

Unregistered / Unconfirmed

hubdog

Unregistered / Unconfirmed

Crane

Unregistered / Unconfirmed

Crane

Unregistered / Unconfirmed

Similar threads