向WebBrowser组件发送按键盘事件。(50分)

  • 主题发起人 主题发起人 hksoobe
  • 开始时间 开始时间
H

hksoobe

Unregistered / Unconfirmed
GUEST, unregistred user!
想做一个自动登录器!如自动登录126,请问题怎么实现,谢谢!
 
SendKeys('KeyString', Wait);
或对窗口控件赋值
sndkey32.pas
 
是向他WebBrowser网站里的文件本框发送按键盘事件不是向在窗口上的Tedit,Tmemo,那样的组件发送,我如果那样我可以用API啊也用不着去再装个sndKey32.Pas。
 
别发送按键了既然你用WebBrowser 就给网页里的Edit直接赋值文本 然后点提交按钮就可以了。
 
三种方法、
1、SENDKEYS.PAS模拟按键
2、用WEBBROSWER控件包含页面处理
// 找到登录用户名的输入框
o := WebBrowser1.oleobject.document.documentelement.document.frames.item(Index).document.all.item('username',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;
WebBrowser1.oleobject.document.Forms.Item('login', 0).submit;
3、查看处理登录的那个FORM的处理ACTION是什么
然后看都有哪些参数,然后直接构建url
webbroswer1.Navigate('http://www.126.com/login.asp?参数1=xxx&参数2=xxx');
就可直接登录
 
接受答案了.
 
后退
顶部