20CN网络安全小组论坛 - 编程破解

论坛: 编程破解标题: 发送匿名邮件

作者: sainthero [sainthero]

论坛用户

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ExtCtrls, StdCtrls, Psock, NMsmtp;

type
  TForm1 = class(TForm)
    NMSMTP1: TNMSMTP;
    Memo1: TMemo;
    Button1: TButton;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    StaticText1: TStaticText;
    StaticText2: TStaticText;
    StaticText3: TStaticText;
    Bevel1: TBevel;
    Bevel2: TBevel;
    StaticText4: TStaticText;
    Edit4: TEdit;
    Edit5: TEdit;
    StaticText5: TStaticText;
    Edit6: TEdit;
    StaticText6: TStaticText;
    Bevel3: TBevel;
    StaticText7: TStaticText;
    Edit7: TEdit;
    StaticText8: TStaticText;
    procedure Button1Click(Sender: TObject);
    procedure NMSMTP1Success(Sender: TObject);
    procedure NMSMTP1SendStart(Sender: TObject);

  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
begin
With NMSMTP1 do
  begin
   if connected then disconnect;
      Host := edit1.text;//smtp 的服务器地址
      Port := strtoint(edit2.text);
      UserID := edit5.text;
   try
      Connect;
    except
      begin
      showmessage('不能连接服务器!');
      exit;
      end;
     end;

      PostMessage.FromAddress:=edit6.text;
      PostMessage.FromName:=edit7.text;
      PostMessage.Subject :=edit4.text;
      PostMessage.ToAddress.Add(edit3.text);
      PostMessage.Body.Assign(Memo1.Lines);
try
   try
      SendMail;
   except
       begin
       showmessage('发送邮件失败！');
       exit;
       end;
    end;
finally
      DisConnect;
end;
end;
end;

procedure TForm1.NMSMTP1Success(Sender: TObject);
begin
showmessage('发送成功！');
end;

procedure TForm1.NMSMTP1SendStart(Sender: TObject);
begin
NMSMTP1.FinalHeader.Clear;
end;

end.

地主发表时间: 05/24 19:13

回复: lyhzyh [lyhzyh]

论坛用户

这是用什么写的怎么样可以运行呢？》？？

B1层发表时间: 05/25 06:56

回复: group [group]

论坛用户

是不是Dephi？这年头用Dephi的越来越多了

B2层发表时间: 05/26 02:33

回复: sainthero [sainthero]

论坛用户

呵呵，就是d5

B3层发表时间: 05/26 15:07

回复: group [group]

论坛用户

我觉得Dephi代码没有亲和力，最有亲和力的是VB，然后是C，然后是Java，但是最好学的是VB和JAVA

B4层发表时间: 05/27 17:05

回复: davy [davy]

论坛用户

我也很喜欢VB

B5层发表时间: 05/27 19:56

回复: sainthero [sainthero]

论坛用户

to 晓澜
其实如果你用过delphi,大概你的看法会有些改变的,我看过vb,delphi和vb在控件设计上没有多大区别,如果懂得vb中的控件的应用,delphi中的自然就通了
,delphi和vb可以说是姊妹语言.

B6层发表时间: 05/29 00:21

论坛: 编程破解