POP3スパムフィルター

作品プログラム
動作環境
プロデル 2.0.1322 Windows 10
投稿者
ohisama
投稿日
2026-01-08 07:13:15
ダウンロード数
35

作品のプログラム

//POP3スパムフィルター

マイアカウントというアカウントを作る
マイアカウントのプロトコルは、「POP3」
マイアカウントの受信サーバのサーバ名は、「mail.biglobe.ne.jp」
マイアカウントの受信サーバのポート番号は、995
マイアカウントの受信サーバのユーザ名は、「***」
マイアカウントの受信サーバのパスワードは、「***」
マイアカウントの受信サーバの暗号化方式は、SSL

メイン画面を表示する
待機する

メイン画面とは
  + メイン受信トレイ
  + スパム
  ウィンドウを継承する
  はじめの手順
    初期化する
  終わり
  初期化する手順
    この実質大きさを{601,394}に変える
    この内容を「POP3スパムフィルター」に変える
    初期化開始する
    受信リストビューというリストビューを作る
      その位置と大きさを{0,32,601,362}に変える
      その表示方法を「詳細」に変える
      その全列選択を○に変える
      その見出し一覧を{「件名」,「差出人」,「送信日時」}に変える
      その見出し幅を{318,132,123}に変える
      その移動順を2に変える
      そのドッキング方向を「全体」に変える
    ツールバー1というツールバーを作る
      その位置と大きさを{0,0,601,32}に変える
      その内容を「ツールバー1」に変える
      その移動順を1に変える
      受信ボタン部品というボタン部品をツールバー1へ作る
        その内容を「受信」に変える
        その表示を○に変える
        その大きさを{52,29}に変える
        その表示位置を「Text」に変える
        その説明を「受信中」に変える
      削除ボタン部品というボタン部品をツールバー1へ作る
        その内容を「削除」に変える
        その表示を○に変える
        その大きさを{52,29}に変える
        その表示位置を「Text」に変える
        その説明を「削除」に変える
    初期化終了する
    この設計スケール比率を{84,84}に変える
  終わり
  受信する手順
    マイアカウントの受信サーバへ接続する
    メイン受信トレイは、マイアカウントから受信したもの
    メール件数は、メイン受信トレイの件数
    スパムという真偽値の配列(メール件数)を作る
    数を1からメール件数まで増やしながら繰り返す
          スパム(数)は、偽
    そして
    受信件数は、メール件数
    受信リストビューをクリアする
    受信リストビューを更新開始する
    メイン受信トレイの一覧を、要素へそれぞれ繰り返す
      受信リストビューに要素の件名を追加する
        その詳細を{要素の差出人, 要素の送信日}に変える
        そのタグを要素に変える
    そして
    受信リストビューを更新終了する
    受信件数を表示する
  終わり
  削除する手順
    マイメールは、メイン受信トレイの一覧
    数を1からスパムの個数まで増やしながら繰り返す
      スパム(数)が偽なら
        //マイメール(数)の件名を表示する
        マイメール(数)を削除する
      そして
    そして  
    マイアカウントの受信サーバから切断する
  終わり
  受信リストビューがダブルクリックされた時の手順
    スパム(受信リストビューの選択項目の番号)は、真
    メールは、受信リストビューの選択項目のタグ
    メール画面というメールウィンドウを作る
    メール画面にメールを読み込む
    メール画面を表示する
  終わり
  受信ボタン部品がクリックされた時の手順
    受信する
  終わり
  削除ボタン部品がクリックされた時の手順
    削除する
    「削除しました。」を表示する
  終わり
終わり

メールウィンドウとは
  ウィンドウを継承する
  はじめの手順
    初期化する
  終わり
  初期化する手順
    この実質大きさを{693,394}に変える
    この内容を「メールウィンドウ」に変える
    初期化開始する
    本文テキスト領域というテキスト領域を作る
      その位置と大きさを{0,94,693,300}に変える
      そのドッキング方向を「全体」に変える
    パネル1というパネルを作る
      その位置と大きさを{0,0,693,94}に変える
      その移動順を1に変える
      そのドッキング方向を「上」に変える
      ヘッダテキスト領域というテキスト領域をパネル1へ作る
        その位置と大きさを{0,0,693,94}に変える
        そのドッキング方向を「全体」に変える
    初期化終了する
    この設計スケール比率を{144,144}に変える
  終わり
  自分に【メール】を読み込む手順
    自分の内容は、メールの件名
    宛先は、メールの宛先
    ヘッダテキスト領域の内容は、「宛先:[宛先(1)]
差出人:[メールの差出人]」
    本文テキスト領域の内容は、メールの本文
  終わり
終わり
	

▲ページの先頭へ