如何自动登录博客与自动发博？（急，没分了，全给了）

Question

如何自动登录博客与自动发博？
用程序写好的用户名密码和文章
如：blog.sina.com.cn

Answer 1

Delphi用WebBrowser编程-自动登录操作
WebBrowser编程-自动登录操作
利用Delphi的Olevariant类型--------------------------------------------------------------------------------
单个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;

Answer 2

写好的文章发表也是findwindow，然后模拟点击发布的

Answer 3

写好的文章发表也是findwindow，然后模拟点击发布的？
如果想循环发表blog，如我有一个列表
blog.sina.com.cn
blog.163.com
blog.soho.com
如何做？
模拟点击可能会因为网速不一样，界面模拟出来就不一样了