怎样在程序里实现web方式直接进入邮箱

[yimibaer]

功能：实现在程序中控制 进入 www.126.com ,程序中写入用户名和密码 ，可通过程序直接进入邮箱。

请大侠们帮忙。

[mathsfan]

用TWebBrowse即可。
然后模拟键盘把你的用户名、密码等信息输进去...

[mathsfan]

TWebBrowser

[yimibaer]

请具体写入程序代码 多谢

[mathsfan]

100分恐怕没多少人会给你写代码的啦，给你一个网页你好好学习下吧：
http://www.wesoho.com/article.asp?id=2494
比如里面的：
Webbrowser自动登录路由器网页（http://www.wesoho.com/article.asp?id=2457）
相信你这里面的文章都能搞明白，也就能做出你要的东西来了。
Good Luck.
睡觉了。

[yimibaer]

太感谢了，study. 分不是问题啊。

[sxy_9761]

//username=[e-mail]
//password=123456

ShellExecute(Handle,'Open','http://reg.163.com/login.jsp?type=1&product=mail126&&username=[e-mail]&&user=temp&password=123456&style=-1&url=http://entry.mail.126.com/cgi/ntesdoor?',NIL,NIL,SW_SHOWNORMAL);

[无条件为你]

[Quote=引用 5 楼 yimibaer 的回复:]
太感谢了，study. 分不是问题啊。
[/Quote]

既然你不在乎分，希望你再给贴子加点分！

代码：
[code=Delphi]

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, OleCtrls, SHDocVw;

type
TForm1 = class(TForm)
WebBrowser1: TWebBrowser;
Button1: TButton;
procedure Button1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

uses mshtml;

procedure TForm1.Button1Click(Sender: TObject);
begin
WebBrowser1.OleObject.document.all.item('user',0).value :='sss123456sss';
WebBrowser1.OleObject.document.all.item('password',0).value :='f75732210';
WebBrowser1.OleObject.document.all.item('enter.x',0).click;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
WebBrowser1.Navigate('http://www.126.com');
end;

end.

[code]



窗体：

object Form1: TForm1
Left = 192
Top = 107
Width = 696
Height = 480
Caption = 'Form1'
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = False
OnCreate = FormCreate
PixelsPerInch = 96
TextHeight = 13
object WebBrowser1: TWebBrowser
Left = 0
Top = 40
Width = 688
Height = 413
Align = alBottom
TabOrder = 0
ControlData = {
4C0000001B470000AF2A00000000000000000000000000000000000000000000
000000004C000000000000000000000001000000E0D057007335CF11AE690800
2B2E126208000000000000004C0000000114020000000000C000000000000046
8000000000000000000000000000000000000000000000000000000000000000
00000000000000000100000000000000000000000000000000000000}
end
object Button1: TButton
Left = 296
Top = 8
Width = 75
Height = 25
Caption = 'Button1'
TabOrder = 1
OnClick = Button1Click
end
end




使用方法：

打开DELPHI，立即点全部保存，按默认文件保存后，打开一个记事本，将保存的Unit1.pas用鼠标拖到记事本中，然后清空里面的数据，把我的代码粘到记事本里面，关闭记事本保存。

同理，把Unit1.dfm文件拖到记事本中，清空，然后把我的“窗体”代码复制进去，保存，关闭。


然后用delphi打开Project1.dpr文件，用delphi编译生成EXE，就是你要的功能。

不知道我解释的是否详尽？

[Radar2006]

厉害

[FigoZhu]

用webborswer控件可以访问网页里的元素的。

我有一个帖子，是想问怎么控制flash里的元素的，各位大大，能不能指点一下啊。

[kye_jufei]

[Quote=引用 6 楼 mwy654321 的回复:]
引用 5 楼 yimibaer 的回复:
太感谢了，study. 分不是问题啊。


既然你不在乎分，希望你再给贴子加点分！

代码：
[code=Delphi]

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, OleCtrls, SHDocVw;

type
TForm1 = class(TForm)
WebBrowser1: TWebBrowser;
Button1: TButton;
procedu…
[/Quote]
强烈支持

[lipeiqiang]

学习

[dinoalex]

[Quote=引用 9 楼 FigoZhu 的回复:]
用webborswer控件可以访问网页里的元素的。

我有一个帖子，是想问怎么控制flash里的元素的，各位大大，能不能指点一下啊。
[/Quote]

呵呵~~ 除你之外,还有一个也是想抓FLASH里的输入框,关注!

[无条件为你]

楼主怎么到现在还不结贴？