WebBrowser编程-自动登录操作

最新推荐文章于 2023-01-11 22:35:50 发布

原创最新推荐文章于 2023-01-11 22:35:50 发布 · 1.4k 阅读

1 ·

CC 4.0 BY-SA版权

文章标签：

#webbrowser #编程 #delphi #login #integer #bbs

DELPHI技术专栏收录该内容

9 篇文章

订阅专栏

本文介绍使用Delphi实现自动登录Telnet BBS及Web浏览器操作的方法。通过调用系统API和OLE自动化接口，可以模拟用户输入并提交表单，支持单个页面和多帧网页的自动登录流程。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

var h:thandle;
s:string;
i:integer;
begin
winexec('telnet bbs.fzu.edu.cn',sw_shownormal);

h := FindWindow(nil,'telnet - bbs.fzu.edu.cn');
s:='bbs'+#13+#10;
for i:=1 to length(s) do
sendmessage(h,wm_char, ord(s[i]),0);

-----------------------------------------------------------
WebBrowser编程-自动登录操作
利用Delphi的Olevariant类型
[Post=88]
单个frames的输入
var
o : Olevariant;
begin
o := WebBrowser.OleObject.document.all.item('LoginUserID',0);   //找到登录用户名的输入框
o.value := 'TEST';
o := WebBrowser.oleobject.document.all.item('LoginPassword',0); //找到登录密码的输入框
o.value := 'TEST'
WebBrowser.oleobject.document.Forms.Item(0, 0).submit;       //第一个表单提交
{
o :=WebBrowser.oleobject.document.all.item('Login',0);       //或者用指定表单名称提交
o.Click; //点击操作，对其它对象也可同样操作
}
end;
多个frames的输入，FrameIndex为Frame的序号
var
o : Olevariant;
begin
//找到登录用户名的输入框
o := WebBrowser.oleobject.document.documentelement.document.frames.item(FrameIndex).document.all.item('LoginUserID',0);
o.value := 'TEST';
//找到登录密码的输入框
o := WebBrowser.oleobject.document.documentelement.document.frames.item(FramIndex).document.all.item('LoginPassword',0);
o.value := 'TEST'
//第一个表单提交
WebBrowser.oleobject.document.documentelement.document.frames.item(FramIndex).document.Forms.Item(0, 0).submit;
{
//或者用指定表单名称提交
o :=WebBrowser.oleobject.document.documentelement.document.frames.item(FramIndex)..document.all.item('Login',0);
o.Click;   //点击操作，对其它对象也可同样操作
}
end;

[/Post]