綾小路龍之介の素人思考

ブリコラージュ的メールマガジン一括登録解除方法

perlを使って自動的にメルマガの登録と解除を行う方法を模索したときの記録。

目次

ブリコラージュ的メールマガジン一括登録解除方法(melma!版)

始めに 〜melma!のサービス上の欠点〜

melma!には登録メールアドレス変更機能が装備されていません。FAQによれば、"お手数ですが、手作業で旧メールアドレスの登録を解除し、新メールアドレスで再度登録してください"とのことです。他のメールマガジンスタンドの多くがアドレス変更サービスを提供し始めているため、これだとmelma!から発行されているメールマガジンだけが古いメールアドレスに届くことになってしいます。あまりスマートなやり方とは思えませんが、後述する方法でmelma!におけるメールアドレス変更を成し遂げてみようと思います。

仕組みを知る 〜登録解除システム〜

最初にmelma!のメールマガジン登録解除のシステムについて説明します。melma!の場合、メールマガジンを登録するには以下のようなURLをブラウザのアドレスバーに直接書き込むことで、登録処理が完了します。http://welcome.melma.com/cgi-bin/host/mailmag.pl?magid=m00013135&email=MAILADDRESS@MAILADDRESS.COMP&mailmag=addまた、以下のようなURLを書き込むことで、解除処理が完了します。http://welcome.melma.com/cgi-bin/host/mailmag.pl?magid=m00013135&email=MAILADDRESS@MAILADDRESS.COMP&mailmag=del

それぞれ、マガジンID[m00013135](何でもパソコン110番)にあなたのメールアドレス[MAILADDRESS@MAILADDRESS.COMP]を登録したこと、マガジンID[m00013135](何でもパソコン110番)からあなたのメールアドレス[MAILADDRESS@MAILADDRESS.COMP]を解除したこと、を意味しています。つまり、これらのURLを連続的に呼び出すことで、ほぼ自動的にメールマガジンの登録解除を行うことができます。

以上のことを踏まえると、URLを連続的に呼び出すためにダウンローダー(Irvine等)を使用し、呼び出すURLをダウンローダーに教えるためにこれらを列記したテキストファイル(URLリストファイル)を用意すればよいということがわかります。以下の説明はIrvineを使って作業を行うものとします。

一括登録するには 〜URLリストファイルの書式〜

例えば、マガジンIDがm00002104、m00075246、m00036324、m00027529、m00070027、m00080492、m00013135、m00051107、m00014643、の9誌にメールアドレスMAILADDRESS@MAILADDRESS.COMPを一括登録したいとします。この場合、URLリストファイルの内容が以下の様になったものをIrvineのメニューを、ファイル->インポート->URLリスト、のように移動して、URLリストファイルを読み込めば、読み込まれた順番でメールマガジンの登録を行います。

http://welcome.melma.com/cgi-bin/host/mailmag.pl?magid=m00002104&email=MAILADDRESS@MAILADDRESS.COMP&mailmag=add
http://welcome.melma.com/cgi-bin/host/mailmag.pl?magid=m00075246&email=MAILADDRESS@MAILADDRESS.COMP&mailmag=add
http://welcome.melma.com/cgi-bin/host/mailmag.pl?magid=m00036324&email=MAILADDRESS@MAILADDRESS.COMP&mailmag=add
http://welcome.melma.com/cgi-bin/host/mailmag.pl?magid=m00027529&email=MAILADDRESS@MAILADDRESS.COMP&mailmag=add
http://welcome.melma.com/cgi-bin/host/mailmag.pl?magid=m00070027&email=MAILADDRESS@MAILADDRESS.COMP&mailmag=add
http://welcome.melma.com/cgi-bin/host/mailmag.pl?magid=m00080492&email=MAILADDRESS@MAILADDRESS.COMP&mailmag=add
http://welcome.melma.com/cgi-bin/host/mailmag.pl?magid=m00013135&email=MAILADDRESS@MAILADDRESS.COMP&mailmag=add
http://welcome.melma.com/cgi-bin/host/mailmag.pl?magid=m00051107&email=MAILADDRESS@MAILADDRESS.COMP&mailmag=add
http://welcome.melma.com/cgi-bin/host/mailmag.pl?magid=m00014643&email=MAILADDRESS@MAILADDRESS.COMP&mailmag=add

一括解除するには 〜URLリストファイルの書式〜

同様に、先程登録したマガジン9誌全ての登録を一括解除したいとします。この場合、URLリストファイルの内容が以下の様になったものをIrvineのメニューを、ファイル->インポート->URLリスト、のように移動して、URLリストファイルを読み込めば、読み込まれた順番でメールマガジンの解除を行います。先程の登録用URLリストとの違いは、各行の最後が、"add"から"del"に変わっている点のみです。

http://welcome.melma.com/cgi-bin/host/mailmag.pl?magid=m00002104&email=MAILADDRESS@MAILADDRESS.COMP&mailmag=del
http://welcome.melma.com/cgi-bin/host/mailmag.pl?magid=m00075246&email=MAILADDRESS@MAILADDRESS.COMP&mailmag=del
http://welcome.melma.com/cgi-bin/host/mailmag.pl?magid=m00036324&email=MAILADDRESS@MAILADDRESS.COMP&mailmag=del
http://welcome.melma.com/cgi-bin/host/mailmag.pl?magid=m00027529&email=MAILADDRESS@MAILADDRESS.COMP&mailmag=del
http://welcome.melma.com/cgi-bin/host/mailmag.pl?magid=m00070027&email=MAILADDRESS@MAILADDRESS.COMP&mailmag=del
http://welcome.melma.com/cgi-bin/host/mailmag.pl?magid=m00080492&email=MAILADDRESS@MAILADDRESS.COMP&mailmag=del
http://welcome.melma.com/cgi-bin/host/mailmag.pl?magid=m00013135&email=MAILADDRESS@MAILADDRESS.COMP&mailmag=del
http://welcome.melma.com/cgi-bin/host/mailmag.pl?magid=m00051107&email=MAILADDRESS@MAILADDRESS.COMP&mailmag=del
http://welcome.melma.com/cgi-bin/host/mailmag.pl?magid=m00014643&email=MAILADDRESS@MAILADDRESS.COMP&mailmag=del

URLリストを作る 〜エディタの置換機能〜

上記のような2つのURLリストファイルを作成できれば良いのですが、問題は登録したいマガジンや削除したいマガジンの数が非常に多い場合です。1000誌ほどの一括解除や登録はURLリストを作るだけで大変です。詰まることろ、マガジンIDだけを変えて何行も同じ事を書くのですから、同じ作業はエディタ置換機能にやらせましょう。置換機能を装備したエディタは数多くありますが、ここではTeraPadを例にあげて説明していきます。

まず、以下のような登録用URLリスト、削除用URLリストのマガジンID部分だけを抜き出したファイルを作製します。以降このファイルを加工していくのでここでバックアップを作製しておくことをお勧めします。

m00002104
m00075246
m00036324
m00027529
m00070027
m00080492
m00013135
m00051107
m00014643

このテキストファイルをTeraPadの置換機能を用いてURLリストファイルにします。最初にこのファイルをTeraPadで開き、メニューを、検索->置換、と移動します。検索する文字列に"\n"(改行の意味)、置換後の文字列に"&email=MAILADDRESS@MAILADDRESS.COMP&mailmag=add\n"と入力します。ここで置換後の文字列にはURLリストファイルの各行のマガジンID以降の文字の最後に改行を意味する"\n"を追加することを忘れないで下さい。先頭から検索ボタンを押すと、先頭から、改行にマッチする部分(各行の最後)を検索していき、ヒットすると置換をするかどうか尋ねられるので、"はい"ボタンをクリックします。何回か確認して大丈夫そうなら、"すべて"ボタンを押して一気に置換してしまいましょう。このままではURLリストの半分しかできていないので、再度メニューを、検索->置換、と移動します。検索する文字列に"\n"(改行の意味)、置換後の文字列に"\nhttp://welcome.melma.com/cgi-bin/host/mailmag.pl?magid="と入力します。ここで置換後の文字列にはURLリストファイルの各行のマガジンID以前の文字の最初に改行を意味する"\n"を追加することを忘れないで下さい。先頭から検索ボタンを押すと、先頭から、改行にマッチする部分(各行の最後)を検索していき、ヒットすると置換をするかどうか尋ねられるので、"はい"ボタンをクリックします。前回同様、何回か確認して大丈夫そうなら、"すべて"ボタンを押して一気に置換してしまいましょう。全ての置換が終われば登録用URLリストは完成です。

同様に削除用URLリストを作製してみます。先程作製した登録用URLリストをコピーして、複製したほうをTeraPadで開きます。ここでも、メニューを、検索->置換、と移動します。検索する文字列に"add\n"、置換後の文字列に"del\n"と入力します。ここで置換後の文字列には"del"の最後に改行を意味する"\n"を追加することを忘れないで下さい。先頭から検索ボタンを押すと、先頭から、改行の直前にある"add"にマッチする部分(各行の最後)を検索していき、ヒットすると置換をするかどうか尋ねられるので、"はい"ボタンをクリックします。何回か確認して大丈夫そうなら、"すべて"ボタンを押して一気に置換します。全ての置換が終われば削除用URLリストは完成です。

URLリストを読み込んで一括登録解除を行う 〜Irvine〜

Irvineを起動させます。ここで細かいことですが、カレントフォルダのダウンロード数をゼロにしておきます。メニューを、ファイル->インポート->URLリスト、と移動します。先程作製した登録用又は削除用URLリストを開くと、下のキューウィンドウにアドレスが表示されます。このあと、カレントフォルダのダウンロード数を1にしてダウンロード(メールマガジンの登録、解除)を開始します。カレントフォルダのダウンロード数ををやたらと多くするとサーバーに高い負荷がかかるうえ、登録解除に支障をきたす恐れもあるので、お勧めしません。1個づつにしたほうが良いと思われます。各マガジンIDに対するあなたのメールアドレスの登録や解除が始まります。

最後に 〜利点と使用例〜

melma!には登録メールアドレスの変更機能が無いので、この方法は旧アドレスが使えなくなる場合や、別のメールアドレスに乗り換える場合に有効です。新アドレスでの登録用URLリストと旧アドレスでのを解除用URLリストを作製しておき、最初に新アドレスの登録用URLリストを読み込んで登録を完了させ、次に旧アドレスの解除用URLリストを読み込んで解除を完了させれば、重複したメールマガジンが届くこともありません。(厳密に言えば違う。両方のURLリストを読み込んでキューリストのファイル名タブをクリックし昇順(登録用のURLが上に来る様に)にソート、この後ダウンロードを開始するのが最良。)

ブリコラージュ的メールマガジン一括登録解除方法(AMDS版)

始めに 〜AMDSのサービス上の欠点〜

AMDSには登録メールアドレス変更機能が装備されていません。FAQによれば、"申し訳有りませんができません。お手数ですが、ホームページから、古いアドレスを解除して、新しいアドレスを登録して下さい。"とのことです。他のメールマガジンスタンドの多くがアドレス変更サービスを提供し始めているため、これだとAMDSから発行されているメールマガジンだけが古いメールアドレスに届くことになってしいます。あまりスマートなやり方とは思えませんが、後述する方法でAMDSにおけるメールアドレス変更を成し遂げてみようと思います。

仕組みを知る 〜登録解除システム〜

最初にAMDSのメールマガジン登録解除のシステムについて説明します。AMDSの場合、メールマガジンを登録するには以下のようなURLをブラウザのアドレスバーに直接書き込むことで、仮登録処理が完了します。http://amds.jp/amds_sub.cgi?number=amds-3830&email=MAILADDRESS@MAILADDRESS.COMPこのあとメール受信を行い、AMDSから送信された確認メール内の以下のような登録URLをクリックすると、登録処理が完了します。http://www.amds.jp/reader_conf.cgi?id=*******&passwd=******また、以下のようなURLを書き込むことで、解除処理が完了します。http://amds.jp/amds_unsub.cgi?number=amds-3830&email=MAILADDRESS@MAILADDRESS.COMP

それぞれ、あなたのメールアドレス[MAILADDRESS@MAILADDRESS.COMP]をマガジンID[amds-3830](オンナのヒトのエッチなデータ)の購読者として登録したこと、あなたのメールアドレス[MAILADDRESS@MAILADDRESS.COMP]をマガジンID[amds-3830](オンナのヒトのエッチなデータ)の購読者から解除したこと、を意味しています。つまり、これらのURLを連続的に呼び出すことで、ほぼ自動的にメールマガジンの登録解除を行うことができます。

ただしここで注意があります。本登録を行う前に大量の仮登録を行うことができないのがAMDSのシステム上の特徴です。やってみるとわかりますが、melma!と違ってAMDSの場合、大量に登録を行うと5誌目以降の仮登録は認められません。そして、最初におこなった4誌しか登録確認メールが届きません。つまり、melma!と同じ方法を使うと、ADMSのメールアドレス変更は4通ずつしかできないことになります。

以上のことを踏まえると、URLを連続的に呼び出すためにダウンローダー(Irvine等)を使用し、呼び出すURLをダウンローダーに教えるためにこれらを列記したテキストファイル(URLリストファイル)を用意すればよいということがわかります。以下の説明はIrvineを使って作業を行うものとします。

一括登録するには 〜URLリストファイルの書式〜

例えば、マガジンIDがamds-0001、amds-0002、amds-0003、amds-0004、amds-0005、amds-0006、amds-0007、amds-0008、amds-0009、の9誌にメールアドレスMAILADDRESS@MAILADDRESS.COMPを一括登録したいとします。この場合、URLリストファイルの内容が以下の様になったものをIrvineのメニューを、ファイル->インポート->URLリスト、のように移動して、URLリストファイルを読み込めば、読み込まれた順番でメールマガジンの登録を行います。

http://amds.jp/amds_sub.cgi?number=amds-0001&email=MAILADDRESS@MAILADDRESS.COMP
http://amds.jp/amds_sub.cgi?number=amds-0002&email=MAILADDRESS@MAILADDRESS.COMP
http://amds.jp/amds_sub.cgi?number=amds-0003&email=MAILADDRESS@MAILADDRESS.COMP
http://amds.jp/amds_sub.cgi?number=amds-0004&email=MAILADDRESS@MAILADDRESS.COMP
http://amds.jp/amds_sub.cgi?number=amds-0005&email=MAILADDRESS@MAILADDRESS.COMP
http://amds.jp/amds_sub.cgi?number=amds-0006&email=MAILADDRESS@MAILADDRESS.COMP
http://amds.jp/amds_sub.cgi?number=amds-0007&email=MAILADDRESS@MAILADDRESS.COMP
http://amds.jp/amds_sub.cgi?number=amds-0008&email=MAILADDRESS@MAILADDRESS.COMP
http://amds.jp/amds_sub.cgi?number=amds-0009&email=MAILADDRESS@MAILADDRESS.COMP

一括解除するには 〜URLリストファイルの書式〜

同様に、先程登録したマガジン9誌全ての登録を一括解除したいとします。この場合、URLリストファイルの内容が以下の様になったものをIrvineのメニューを、ファイル->インポート->URLリスト、のように移動して、URLリストファイルを読み込めば、読み込まれた順番でメールマガジンの解除を行います。先程の登録用URLリストとの違いは、各行の最後が、"add"から"del"に変わっている点のみです。

http://amds.jp/amds_unsub.cgi?number=amds-0001&email=MAILADDRESS@MAILADDRESS.COMP
http://amds.jp/amds_unsub.cgi?number=amds-0002&email=MAILADDRESS@MAILADDRESS.COMP
http://amds.jp/amds_unsub.cgi?number=amds-0003&email=MAILADDRESS@MAILADDRESS.COMP
http://amds.jp/amds_unsub.cgi?number=amds-0004&email=MAILADDRESS@MAILADDRESS.COMP
http://amds.jp/amds_unsub.cgi?number=amds-0005&email=MAILADDRESS@MAILADDRESS.COMP
http://amds.jp/amds_unsub.cgi?number=amds-0006&email=MAILADDRESS@MAILADDRESS.COMP
http://amds.jp/amds_unsub.cgi?number=amds-0007&email=MAILADDRESS@MAILADDRESS.COMP
http://amds.jp/amds_unsub.cgi?number=amds-0008&email=MAILADDRESS@MAILADDRESS.COMP
http://amds.jp/amds_unsub.cgi?number=amds-0009&email=MAILADDRESS@MAILADDRESS.COMP

URLリストを作る 〜エディタの置換機能〜

上記のような2つのURLリストファイルを作成できれば良いのですが、問題は登録したいマガジンや削除したいマガジンの数が非常に多い場合です。1000誌ほどの一括解除や登録はURLリストを作るだけで大変です。詰まることろ、マガジンIDだけを変えて何行も同じ事を書くのですから、同じ作業はエディタ置換機能にやらせましょう。置換機能を装備したエディタは数多くありますが、ここではTeraPadを例にあげて説明していきます。

まず、以下のような登録用URLリスト、削除用URLリストのマガジンID部分だけを抜き出したファイルを作製します。以降このファイルを加工していくのでここでバックアップを作製しておくことをお勧めします。

amds-0001
amds-0002
amds-0003
amds-0004
amds-0005
amds-0006
amds-0007
amds-0008
amds-0009

このテキストファイルをTeraPadの置換機能を用いてURLリストファイルにします。最初にこのファイルをTeraPadで開き、メニューを、検索->置換、と移動します。検索する文字列に"\n"(改行の意味)、置換後の文字列に"&email=MAILADDRESS@MAILADDRESS.COMP\n"と入力します。ここで置換後の文字列にはURLリストファイルの各行のマガジンID以降の文字の最後に改行を意味する"\n"を追加することを忘れないで下さい。先頭から検索ボタンを押すと、先頭から、改行にマッチする部分(各行の最後)を検索していき、ヒットすると置換をするかどうか尋ねられるので、"はい"ボタンをクリックします。何回か確認して大丈夫そうなら、"すべて"ボタンを押して一気に置換してしまいましょう。このままではURLリストの半分しかできていないので、再度メニューを、検索->置換、と移動します。検索する文字列に"\n"(改行の意味)、置換後の文字列に"\nhttp://amds.jp/amds_sub.cgi?number="と入力します。ここで置換後の文字列にはURLリストファイルの各行のマガジンID以前の文字の最初に改行を意味する"\n"を追加することを忘れないで下さい。先頭から検索ボタンを押すと、先頭から、改行にマッチする部分(各行の最後)を検索していき、ヒットすると置換をするかどうか尋ねられるので、"はい"ボタンをクリックします。前回同様、何回か確認して大丈夫そうなら、"すべて"ボタンを押して一気に置換してしまいましょう。全ての置換が終われば登録用URLリストは完成です。

同様に削除用URLリストを作製してみます。先程作製した登録用URLリストをコピーして、複製したほうをTeraPadで開きます。ここでも、メニューを、検索->置換、と移動します。検索する文字列に"amds_sub.cgi"、置換後の文字列に"amds_unsub.cgi"と入力します。先頭から検索ボタンを押すと、先頭から、"amds_sub.cgi"にマッチする部分(各行1回)を検索していき、ヒットすると置換をするかどうか尋ねられるので、"はい"ボタンをクリックします。何回か確認して大丈夫そうなら、"すべて"ボタンを押して一気に置換します。全ての置換が終われば削除用URLリストは完成です。

URLリストを読み込んで一括登録解除を行う 〜Irvine〜

Irvineを起動させます。ここで細かいことですが、カレントフォルダのダウンロード数をゼロにしておきます。メニューを、ファイル->インポート->URLリスト、と移動します。先程作製した登録用又は削除用URLリストを開くと、下のキューウィンドウにアドレスが表示されます。このあと、カレントフォルダのダウンロード数を1にしてダウンロード(メールマガジンの登録、解除)を開始します。カレントフォルダのダウンロード数ををやたらと多くするとサーバーに高い負荷がかかるうえ、登録解除に支障をきたす恐れもあるので、お勧めしません。1個づつにしたほうが良いと思われます。各マガジンIDに対するあなたのメールアドレスの登録や解除が始まります。

最後に 〜利点と使用例〜

AMDSには登録メールアドレスの変更機能が無いので、この方法は旧アドレスが使えなくなる場合や、別のメールアドレスに乗り換える場合に有効です。新アドレスでの登録用URLリストと旧アドレスでのを解除用URLリストを作製しておき、最初に新アドレスの登録用URLリストを読み込んで登録を完了させ、次に旧アドレスの解除用URLリストを読み込んで解除を完了させれば、重複したメールマガジンが届くこともありません。(厳密に言えば違う。両方のURLリストを読み込んでキューリストのファイル名タブをクリックし昇順(登録用のURLが上に来る様に)にソート、この後ダウンロードを開始するのが最良。)

E-magazine http://www.emaga.com/

find "X-Kaijo: " < .\emagazine > kaijyo_find.txt

kaijyo_find.txtの内容

X-Kaijo: http://www.emaga.com/tool/automail.cgi?code=oshaberi&mail=MAILADDRESS@MAILADDRESS.COMP&e=1
X-Kaijo: http://www.emaga.com/tool/automail.cgi?code=sinri&mail=MAILADDRESS@MAILADDRESS.COMP&e=1
X-Kaijo: http://www.emaga.com/tool/automail.cgi?code=oshaberi&mail=MAILADDRESS@MAILADDRESS.COMP&e=1
sort kaijyo_find.txt > kaijyo_find_sort.txt

kaijyo_find_sort.txtの内容

X-Kaijo: http://www.emaga.com/tool/automail.cgi?code=oshaberi&mail=MAILADDRESS@MAILADDRESS.COMP&e=1
X-Kaijo: http://www.emaga.com/tool/automail.cgi?code=oshaberi&mail=MAILADDRESS@MAILADDRESS.COMP&e=1
X-Kaijo: http://www.emaga.com/tool/automail.cgi?code=sinri&mail=MAILADDRESS@MAILADDRESS.COMP&e=1
uniq kaijyo_find_sort.txt > kaijyo_find_sort_uniq.txt

kaijyo_find_sort_uniq.txtの内容

X-Kaijo: http://www.emaga.com/tool/automail.cgi?code=oshaberi&mail=MAILADDRESS@MAILADDRESS.COMP&e=1
X-Kaijo: http://www.emaga.com/tool/automail.cgi?code=sinri&mail=MAILADDRESS@MAILADDRESS.COMP&e=1
sed 's|X-Kaijo: http://www.emaga.com/tool/automail.cgi?|wget --post-data="|g' kaijyo_find_sort_uniq.txt > kaijyo_find_sort_uniq_sed1.txt

kaijyo_find_sort_uniq_sed1.txtの内容

wget --post-data="code=oshaberi&mail=MAILADDRESS@MAILADDRESS.COMP&e=1
wget --post-data="code=sinri&mail=MAILADDRESS@MAILADDRESS.COMP&e=1
sed 's|&e=1|&unregist=解除" http://www.emaga.com/tool/mail.cgi|g' kaijyo_find_sort_uniq_sed1.txt > kaijyo_find_sort_uniq_sed1_sed2.txt

kaijyo_find_sort_uniq_sed1_sed2.txtの内容

wget --post-data="code=oshaberi&mail=MAILADDRESS@MAILADDRESS.COMP&unregist=解除" http://www.emaga.com/tool/mail.cgi
wget --post-data="code=sinri&mail=MAILADDRESS@MAILADDRESS.COMP&unregist=解除" http://www.emaga.com/tool/mail.cgi

購読

wget --post-data="code=002543&mail=MAILADDRESS@MAILADDRESS.COMP&regist=購読" http://www.emaga.com/tool/mail.cgi

お試し購読

wget --post-data="code=002543&mail=MAILADDRESS@MAILADDRESS.COMP&test=お試し購読" http://www.emaga.com/tool/mail.cgi

解除

wget --post-data="code=002543&mail=MAILADDRESS@MAILADDRESS.COMP&unregist=解除" http://www.emaga.com/tool/mail.cgi

まったく初めてのアカウントに移す際には最初に1誌購読をする。こうすることでE-Magazine Newsに配信登録される。これがないとほかのどのマガジンも購読できない。

連続解除用テストバッチ

path "C:\Program Files\GnuWin32\bin"
wget --post-data="code=4574&mail=MAILADDRESS@MAILADDRESS.COMP&unregist=解除" http://www.emaga.com/tool/mail.cgi
wget --post-data="code=as001005&mail=MAILADDRESS@MAILADDRESS.COMP&unregist=解除" http://www.emaga.com/tool/mail.cgi
wget --post-data="code=cross&mail=MAILADDRESS@MAILADDRESS.COMP&unregist=解除" http://www.emaga.com/tool/mail.cgi
wget --post-data="code=cvqprtow&mail=MAILADDRESS@MAILADDRESS.COMP&unregist=解除" http://www.emaga.com/tool/mail.cgi
wget --post-data="code=dorakue2&mail=MAILADDRESS@MAILADDRESS.COMP&unregist=解除" http://www.emaga.com/tool/mail.cgi
wget --post-data="code=fgedre&mail=MAILADDRESS@MAILADDRESS.COMP&unregist=解除" http://www.emaga.com/tool/mail.cgi
wget --post-data="code=gcap&mail=MAILADDRESS@MAILADDRESS.COMP&unregist=解除" http://www.emaga.com/tool/mail.cgi
wget --post-data="code=lioghtd&mail=MAILADDRESS@MAILADDRESS.COMP&unregist=解除" http://www.emaga.com/tool/mail.cgi
wget --post-data="code=nihon5&mail=MAILADDRESS@MAILADDRESS.COMP&unregist=解除" http://www.emaga.com/tool/mail.cgi
wget --post-data="code=nipponn1&mail=MAILADDRESS@MAILADDRESS.COMP&unregist=解除" http://www.emaga.com/tool/mail.cgi
wget --post-data="code=nipponn2&mail=MAILADDRESS@MAILADDRESS.COMP&unregist=解除" http://www.emaga.com/tool/mail.cgi
wget --post-data="code=oukoku&mail=MAILADDRESS@MAILADDRESS.COMP&unregist=解除" http://www.emaga.com/tool/mail.cgi
wget --post-data="code=uramaga&mail=MAILADDRESS@MAILADDRESS.COMP&unregist=解除" http://www.emaga.com/tool/mail.cgi
wget --post-data="code=usurai&mail=MAILADDRESS@MAILADDRESS.COMP&unregist=解除" http://www.emaga.com/tool/mail.cgi
wget --post-data="code=oshaberi&mail=MAILADDRESS@MAILADDRESS.COMP&unregist=解除" http://www.emaga.com/tool/mail.cgi
wget --post-data="code=sinri&mail=MAILADDRESS@MAILADDRESS.COMP&unregist=解除" http://www.emaga.com/tool/mail.cgi

連続登録用テストバッチ

path "C:\Program Files\GnuWin32\bin"
wget --post-data="x=x&doui=ok&code=4574&mail=MAILADDRESS@MAILADDRESS.COMP&regist=購読" http://www.emaga.com/tool/mail.cgi
wget --post-data="x=x&doui=ok&code=as001005&mail=MAILADDRESS@MAILADDRESS.COMP&regist=購読" http://www.emaga.com/tool/mail.cgi
wget --post-data="x=x&doui=ok&code=cross&mail=MAILADDRESS@MAILADDRESS.COMP&regist=購読" http://www.emaga.com/tool/mail.cgi
wget --post-data="x=x&doui=ok&code=cvqprtow&mail=MAILADDRESS@MAILADDRESS.COMP&regist=購読" http://www.emaga.com/tool/mail.cgi
wget --post-data="x=x&doui=ok&code=dorakue2&mail=MAILADDRESS@MAILADDRESS.COMP&regist=購読" http://www.emaga.com/tool/mail.cgi
wget --post-data="x=x&doui=ok&code=fgedre&mail=MAILADDRESS@MAILADDRESS.COMP&regist=購読" http://www.emaga.com/tool/mail.cgi
wget --post-data="x=x&doui=ok&code=gcap&mail=MAILADDRESS@MAILADDRESS.COMP&regist=購読" http://www.emaga.com/tool/mail.cgi
wget --post-data="x=x&doui=ok&code=lioghtd&mail=MAILADDRESS@MAILADDRESS.COMP&regist=購読" http://www.emaga.com/tool/mail.cgi
wget --post-data="x=x&doui=ok&code=nihon5&mail=MAILADDRESS@MAILADDRESS.COMP&regist=購読" http://www.emaga.com/tool/mail.cgi
wget --post-data="x=x&doui=ok&code=nipponn1&mail=MAILADDRESS@MAILADDRESS.COMP&regist=購読" http://www.emaga.com/tool/mail.cgi
wget --post-data="x=x&doui=ok&code=nipponn2&mail=MAILADDRESS@MAILADDRESS.COMP&regist=購読" http://www.emaga.com/tool/mail.cgi
wget --post-data="x=x&doui=ok&code=oukoku&mail=MAILADDRESS@MAILADDRESS.COMP&regist=購読" http://www.emaga.com/tool/mail.cgi
wget --post-data="x=x&doui=ok&code=uramaga&mail=MAILADDRESS@MAILADDRESS.COMP&regist=購読" http://www.emaga.com/tool/mail.cgi
wget --post-data="x=x&doui=ok&code=usurai&mail=MAILADDRESS@MAILADDRESS.COMP&regist=購読" http://www.emaga.com/tool/mail.cgi
wget --post-data="x=x&doui=ok&code=oshaberi&mail=MAILADDRESS@MAILADDRESS.COMP&regist=購読" http://www.emaga.com/tool/mail.cgi
wget --post-data="x=x&doui=ok&code=sinri&mail=MAILADDRESS@MAILADDRESS.COMP&regist=購読" http://www.emaga.com/tool/mail.cgi

ミニまぐ http://mini.mag2.com/

"http://mini.mag2.com/pc/m/M0002216.html"のようなURLの場合、これの"http://mini.mag2.com/pc/m/"の部分を、"wget --post-data="e=MAILADDRESS@MAILADDRESS.COMP&id="のように置換し、この後に続くマガジンIDを残して、".html"の部分を"&PC=" http://regist.mini.mag2.com/r/servlet/Ma"のように置換します。つまり、Perlスクリプト的にはこんな感じです。

open IN,"mag.txt";
while(<IN>){
  s/http:\/\/mini.mag2.com\/pc\/m\/(.*)\.html/wget --post-data=\"e=MAILADDRESS\@MAILADDRESS.COMP&id=$1&PC=\" http:\/\/regist.mini.mag2.com\/r\/servlet\/Ma/;
  print;
}
close IN;
path "C:\Program Files\GnuWin32\bin"
path "D:\temp_prog\wget-1.10.1-bin\bin"
wget --post-data="e=MAILADDRESS@MAILADDRESS.COMP&id=M0048769&PC=" http://regist.mini.mag2.com/r/servlet/Ma
wget --post-data="e=MAILADDRESS@MAILADDRESS.COMP&id=M0048718&PC=" http://regist.mini.mag2.com/r/servlet/Ma
wget --post-data="e=MAILADDRESS@MAILADDRESS.COMP&id=M0048746&PC=" http://regist.mini.mag2.com/r/servlet/Ma
wget --post-data="e=MAILADDRESS@MAILADDRESS.COMP&id=M0048744&PC=" http://regist.mini.mag2.com/r/servlet/Ma
wget --post-data="e=MAILADDRESS@MAILADDRESS.COMP&id=M0048723&PC=" http://regist.mini.mag2.com/r/servlet/Ma
wget --post-data="e=MAILADDRESS@MAILADDRESS.COMP&id=M0048751&PC=" http://regist.mini.mag2.com/r/servlet/Ma
wget --post-data="e=MAILADDRESS@MAILADDRESS.COMP&id=M0048750&PC=" http://regist.mini.mag2.com/r/servlet/Ma
wget --post-data="e=MAILADDRESS@MAILADDRESS.COMP&id=M0048693&PC=" http://regist.mini.mag2.com/r/servlet/Ma
wget --post-data="e=MAILADDRESS@MAILADDRESS.COMP&id=M0048792&PC=" http://regist.mini.mag2.com/r/servlet/Ma
wget --post-data="e=MAILADDRESS@MAILADDRESS.COMP&id=M0048724&PC=" http://regist.mini.mag2.com/r/servlet/Ma
wget --post-data="e=MAILADDRESS@MAILADDRESS.COMP&id=M0048741&PC=" http://regist.mini.mag2.com/r/servlet/Ma
wget --post-data="e=MAILADDRESS@MAILADDRESS.COMP&id=M0048795&PC=" http://regist.mini.mag2.com/r/servlet/Ma
wget --post-data="e=MAILADDRESS@MAILADDRESS.COMP&id=M0048760&PC=" http://regist.mini.mag2.com/r/servlet/Ma
wget --post-data="e=MAILADDRESS@MAILADDRESS.COMP&id=M0048735&PC=" http://regist.mini.mag2.com/r/servlet/Ma
wget --post-data="e=MAILADDRESS@MAILADDRESS.COMP&id=M0048069&PC=" http://regist.mini.mag2.com/r/servlet/Ma
wget --post-data="e=MAILADDRESS@MAILADDRESS.COMP&id=M0048029&PC=" http://regist.mini.mag2.com/r/servlet/Ma
wget --post-data="e=MAILADDRESS@MAILADDRESS.COMP&id=M0047998&PC=" http://regist.mini.mag2.com/r/servlet/Ma
wget --post-data="e=MAILADDRESS@MAILADDRESS.COMP&id=M0047989&PC=" http://regist.mini.mag2.com/r/servlet/Ma
wget --post-data="e=MAILADDRESS@MAILADDRESS.COMP&id=M0048072&PC=" http://regist.mini.mag2.com/r/servlet/Ma

まぐまぐ http://www.mag2.com/

"http://www.mag2.com/m/0000174250.html"のようなURLの場合、これの"http://www.mag2.com/m/"の部分を、" wget --post-data="MfcISAPICommand=MagRdAdd&rdemail=MAILADDRESS@MAILADDRESS.COMP&reg=magazine&magid="のように置換し、この後に続くマガジンIDを残して、".html"の部分を"" http://regist.mag2.com/reader/Magrdadd"のように置換します。つまり、Perlスクリプト的にはこんな感じです。

open IN,"mag.txt";
while(<IN>){
  s/http:\/\/mini.mag2.com\/pc\/m\/(.*)\.html/wget --post-data=\"e=MAILADDRESS\@MAILADDRESS.COMP&id=$1&PC=\" http:\/\/regist.mini.mag2.com\/r\/servlet\/Ma/;
  s/http:\/\/www.mag2.com\/m\/(.*)\.html/wget --post-data=\"MfcISAPICommand=MagRdAdd&rdemail=MAILADDRESS\@MAILADDRESS.COMP&reg=magazine&magid=$1\" http:\/\/regist.mag2.com\/reader\/Magrdadd/;
  print;
}
close IN;

連続登録用

path "C:\Program Files\GnuWin32\bin"
path "D:\temp_prog\wget-1.10.1-bin\bin"
wget --post-data="MfcISAPICommand=MagRdAdd&rdemail=MAILADDRESS@MAILADDRESS.COMP&reg=magazine&magid=0000113221" http://regist.mag2.com/reader/Magrdadd
wget --post-data="MfcISAPICommand=MagRdAdd&rdemail=MAILADDRESS@MAILADDRESS.COMP&reg=magazine&magid=0000124732" http://regist.mag2.com/reader/Magrdadd
wget --post-data="MfcISAPICommand=MagRdAdd&rdemail=MAILADDRESS@MAILADDRESS.COMP&reg=magazine&magid=0000111878" http://regist.mag2.com/reader/Magrdadd
wget --post-data="MfcISAPICommand=MagRdAdd&rdemail=MAILADDRESS@MAILADDRESS.COMP&reg=magazine&magid=0000115639" http://regist.mag2.com/reader/Magrdadd
wget --post-data="MfcISAPICommand=MagRdAdd&rdemail=MAILADDRESS@MAILADDRESS.COMP&reg=magazine&magid=0000114046" http://regist.mag2.com/reader/Magrdadd
wget --post-data="MfcISAPICommand=MagRdAdd&rdemail=MAILADDRESS@MAILADDRESS.COMP&reg=magazine&magid=0000147381" http://regist.mag2.com/reader/Magrdadd
wget --post-data="MfcISAPICommand=MagRdAdd&rdemail=MAILADDRESS@MAILADDRESS.COMP&reg=magazine&magid=0000125212" http://regist.mag2.com/reader/Magrdadd
wget --post-data="MfcISAPICommand=MagRdAdd&rdemail=MAILADDRESS@MAILADDRESS.COMP&reg=magazine&magid=0000130666" http://regist.mag2.com/reader/Magrdadd
wget --post-data="MfcISAPICommand=MagRdAdd&rdemail=MAILADDRESS@MAILADDRESS.COMP&reg=magazine&magid=0000143515" http://regist.mag2.com/reader/Magrdadd
wget --post-data="MfcISAPICommand=MagRdAdd&rdemail=MAILADDRESS@MAILADDRESS.COMP&reg=magazine&magid=0000155211" http://regist.mag2.com/reader/Magrdadd
wget --post-data="MfcISAPICommand=MagRdAdd&rdemail=MAILADDRESS@MAILADDRESS.COMP&reg=magazine&magid=0000160227" http://regist.mag2.com/reader/Magrdadd
wget --post-data="MfcISAPICommand=MagRdAdd&rdemail=MAILADDRESS@MAILADDRESS.COMP&reg=magazine&magid=0000090799" http://regist.mag2.com/reader/Magrdadd
wget --post-data="MfcISAPICommand=MagRdAdd&rdemail=MAILADDRESS@MAILADDRESS.COMP&reg=magazine&magid=0000092425" http://regist.mag2.com/reader/Magrdadd
wget --post-data="MfcISAPICommand=MagRdAdd&rdemail=MAILADDRESS@MAILADDRESS.COMP&reg=magazine&magid=0000094358" http://regist.mag2.com/reader/Magrdadd
wget --post-data="MfcISAPICommand=MagRdAdd&rdemail=MAILADDRESS@MAILADDRESS.COMP&reg=magazine&magid=0000109411" http://regist.mag2.com/reader/Magrdadd
wget --post-data="MfcISAPICommand=MagRdAdd&rdemail=MAILADDRESS@MAILADDRESS.COMP&reg=magazine&magid=0000099963" http://regist.mag2.com/reader/Magrdadd
wget --post-data="MfcISAPICommand=MagRdAdd&rdemail=MAILADDRESS@MAILADDRESS.COMP&reg=magazine&magid=0000127100" http://regist.mag2.com/reader/Magrdadd
wget --post-data="MfcISAPICommand=MagRdAdd&rdemail=MAILADDRESS@MAILADDRESS.COMP&reg=magazine&magid=0000128608" http://regist.mag2.com/reader/Magrdadd
wget --post-data="MfcISAPICommand=MagRdAdd&rdemail=MAILADDRESS@MAILADDRESS.COMP&reg=magazine&magid=0000132309" http://regist.mag2.com/reader/Magrdadd
wget --post-data="MfcISAPICommand=MagRdAdd&rdemail=MAILADDRESS@MAILADDRESS.COMP&reg=magazine&magid=0000156343" http://regist.mag2.com/reader/Magrdadd
wget --post-data="MfcISAPICommand=MagRdAdd&rdemail=MAILADDRESS@MAILADDRESS.COMP&reg=magazine&magid=0000160955" http://regist.mag2.com/reader/Magrdadd
wget --post-data="MfcISAPICommand=MagRdAdd&rdemail=MAILADDRESS@MAILADDRESS.COMP&reg=magazine&magid=0000134379" http://regist.mag2.com/reader/Magrdadd
wget --post-data="MfcISAPICommand=MagRdAdd&rdemail=MAILADDRESS@MAILADDRESS.COMP&reg=magazine&magid=0000115691" http://regist.mag2.com/reader/Magrdadd
wget --post-data="MfcISAPICommand=MagRdAdd&rdemail=MAILADDRESS@MAILADDRESS.COMP&reg=magazine&magid=0000095467" http://regist.mag2.com/reader/Magrdadd
wget --post-data="MfcISAPICommand=MagRdAdd&rdemail=MAILADDRESS@MAILADDRESS.COMP&reg=magazine&magid=0000113221" http://regist.mag2.com/reader/Magrdadd
C:\WINDOWS\デスクトップ>find "廃刊" .\b.txt > b-b.txt
C:\WINDOWS\デスクトップ>find /V "廃刊" .\b.txt > b-b.txt
C:\WINDOWS\デスクトップ>find /V "休刊" .\b-b.txt > b-b-b.txt

カプライト

"http://cgi.kapu.biglobe.ne.jp/m/10625.html" のような URL の場合、これの "http://cgi.kapu.biglobe.ne.jp/m/" の部分を、" wget --post-data="mgid=" のように置換し、この後に続くマガジン ID を残して、".html" の部分を "&e_mail=MAILADDRESS@MAILADDRESS.COMP" http://cgi.kapu.biglobe.ne.jp/cgi-bin/mlmg_setma.cgi" のように置換します。つまり、Perl スクリプト的にはこんな感じです。

open IN,"mag.txt";
while(<IN>){
  s/http:\/\/mini.mag2.com\/pc\/m\/(.*)\.html/wget --post-data=\"e=MAILADDRESS\@MAILADDRESS.COMP&id=$1&PC=\" http:\/\/regist.mini.mag2.com\/r\/servlet\/Ma/;
  s/http:\/\/www.mag2.com\/m\/(.*)\.html/wget --post-data=\"MfcISAPICommand=MagRdAdd&rdemail=MAILADDRESS\@MAILADDRESS.COMP&reg=magazine&magid=$1\" http:\/\/regist.mag2.com\/reader\/Magrdadd/;
  s/http:\/\/cgi.kapu.biglobe.ne.jp\/m\/(.*)\.html/wget --post-data=\"mgid=$1&e_mail=MAILADDRESS\@MAILADDRESS.COMP\" http:\/\/cgi.kapu.biglobe.ne.jp\/cgi-bin\/mlmg_setma.cgi/;
  print;
}
close IN;
wget --post-data="mgid=11165&e_mail=MAILADDRESS@MAILADDRESS.COMP" http://cgi.kapu.biglobe.ne.jp/cgi-bin/mlmg_setma.cgi
wget --post-data="mgid=11196&e_mail=MAILADDRESS@MAILADDRESS.COMP" http://cgi.kapu.biglobe.ne.jp/cgi-bin/mlmg_setma.cgi
wget --post-data="mgid=11197&e_mail=MAILADDRESS@MAILADDRESS.COMP" http://cgi.kapu.biglobe.ne.jp/cgi-bin/mlmg_setma.cgi
wget --post-data="mgid=11199&e_mail=MAILADDRESS@MAILADDRESS.COMP" http://cgi.kapu.biglobe.ne.jp/cgi-bin/mlmg_setma.cgi
wget --post-data="mgid=10625&e_mail=MAILADDRESS@MAILADDRESS.COMP" http://cgi.kapu.biglobe.ne.jp/cgi-bin/mlmg_setma.cgi

RanSta

"http://www.ransta.jp/backnumber_3756/"のようなURLの場合、これの頭に" wget --post-data="procregister=dgregist&mailmag=add&email=MAILADDRESS@MAILADDRESS.COMP" "を付け足します。つまり、Perlスクリプト的にはこんな感じです。

open IN,"mag.txt";
while(<IN>){
        s/http:\/\/mini.mag2.com\/pc\/m\/(.*)\.html/wget --post-data=\"e=MAILADDRESS\@MAILADDRESS.COMP&id=$1&PC=\" http:\/\/regist.mini.mag2.com\/r\/servlet\/Ma/;
        s/http:\/\/www.mag2.com\/m\/(.*)\.html/wget --post-data=\"MfcISAPICommand=MagRdAdd&rdemail=MAILADDRESS\@MAILADDRESS.COMP&reg=magazine&magid=$1\" http:\/\/regist.mag2.com\/reader\/Magrdadd/;
        s/http:\/\/cgi.kapu.biglobe.ne.jp\/m\/(.*)\.html/wget --post-data=\"mgid=$1&e_mail=MAILADDRESS\@MAILADDRESS.COMP\" http:\/\/cgi.kapu.biglobe.ne.jp\/cgi-bin\/mlmg_setma.cgi/;
        s/(http:\/\/www.ransta.jp\/backnumber_.*)/wget --post-data=\"procregister=dgregist&mailmag=add&email=MAILADDRESS\@MAILADDRESS.COMP\" $1/;
        print;
}
close IN;
wget --post-data="procregister=dgregist&mailmag=add&email=MAILADDRESS@MAILADDRESS.COMP" http://www.ransta.jp/backnumber_3482/
wget --post-data="procregister=dgregist&mailmag=add&email=MAILADDRESS@MAILADDRESS.COMP" http://www.ransta.jp/backnumber_809/
wget --post-data="procregister=dgregist&mailmag=add&email=MAILADDRESS@MAILADDRESS.COMP" http://www.ransta.jp/backnumber_2028/
wget --post-data="procregister=dgregist&mailmag=add&email=MAILADDRESS@MAILADDRESS.COMP" http://www.ransta.jp/backnumber_3747/
wget --post-data="procregister=dgregist&mailmag=add&email=MAILADDRESS@MAILADDRESS.COMP" http://www.ransta.jp/backnumber_3748/
wget --post-data="procregister=dgregist&mailmag=add&email=MAILADDRESS@MAILADDRESS.COMP" http://www.ransta.jp/backnumber_3750/
wget --post-data="procregister=dgregist&mailmag=add&email=MAILADDRESS@MAILADDRESS.COMP" http://www.ransta.jp/backnumber_3751/
wget --post-data="procregister=dgregist&mailmag=add&email=MAILADDRESS@MAILADDRESS.COMP" http://www.ransta.jp/backnumber_3754/
wget --post-data="procregister=dgregist&mailmag=add&email=MAILADDRESS@MAILADDRESS.COMP" http://www.ransta.jp/backnumber_3755/
wget --post-data="procregister=dgregist&mailmag=add&email=MAILADDRESS@MAILADDRESS.COMP" http://www.ransta.jp/backnumber_3756/

AMDS http://amds.jp/

"http://amds.jp/magazine/4360.html"のようなURLの場合、"http://amds.jp/magazine/"の部分を" wget --post-data="number=amds-"に置換し、これに続くマガジンIDを残して".html"の部分を"&email=MAILADDRESS@MAILADDRESS.COMP" http://amds.jp/amds_sub.cgi"と置換します。つまり、Perlスクリプト的にはこんな感じです。

open IN,"mag.txt";
while(<IN>){
        s/http:\/\/mini.mag2.com\/pc\/m\/(.*)\.html/wget --post-data=\"e=MAILADDRESS\@MAILADDRESS.COMP&id=$1&PC=\" http:\/\/regist.mini.mag2.com\/r\/servlet\/Ma/;
        s/http:\/\/www.mag2.com\/m\/(.*)\.html/wget --post-data=\"MfcISAPICommand=MagRdAdd&rdemail=MAILADDRESS\@MAILADDRESS.COMP&reg=magazine&magid=$1\" http:\/\/regist.mag2.com\/reader\/Magrdadd/;
        s/http:\/\/cgi.kapu.biglobe.ne.jp\/m\/(.*)\.html/wget --post-data=\"mgid=$1&e_mail=MAILADDRESS\@MAILADDRESS.COMP\" http:\/\/cgi.kapu.biglobe.ne.jp\/cgi-bin\/mlmg_setma.cgi/;
        s/(http:\/\/www.ransta.jp\/backnumber_.*)/wget --post-data=\"procregister=dgregist&mailmag=add&email=MAILADDRESS\@MAILADDRESS.COMP\" $1/;
        print;
}
close IN;
wget --post-data="number=amds-4360&email=MAILADDRESS@MAILADDRESS.COMP" http://amds.jp/amds_sub.cgi

melma!(システムが変わりました)

"http://www.melma.com/backnumber_126795/"のようなURLの場合、これの頭に" wget --post-data="procregister=dgregist&mailmag=add&email=MAILADDRESS@MAILADDRESS.COMP" "を付け足します。つまり、Perlスクリプト的にはこんな感じです。

        open IN,"mag.txt";
        while(<IN>){
          s/http:\/\/mini.mag2.com\/pc\/m\/(.*)\.html/wget --post-data=\"e=MAILADDRESS\@MAILADDRESS.COMP&id=$1&PC=\" http:\/\/regist.mini.mag2.com\/r\/servlet\/Ma/;
          s/http:\/\/www.mag2.com\/m\/(.*)\.html/wget --post-data=\"MfcISAPICommand=MagRdAdd&rdemail=MAILADDRESS\@MAILADDRESS.COMP&reg=magazine&magid=$1\" http:\/\/regist.mag2.com\/reader\/Magrdadd/;
          s/http:\/\/cgi.kapu.biglobe.ne.jp\/m\/(.*)\.html/wget --post-data=\"mgid=$1&e_mail=MAILADDRESS\@MAILADDRESS.COMP\" http:\/\/cgi.kapu.biglobe.ne.jp\/cgi-bin\/mlmg_setma.cgi/;
          s/(http:\/\/www.ransta.jp\/backnumber_.*)/wget --post-data=\"procregister=dgregist&mailmag=add&email=MAILADDRESS\@MAILADDRESS.COMP\" $1/;
          s/http:\/\/amds.jp\/magazine\/(.*)\.html/wget --post-data=\"number=amds-$1&email=MAILADDRESS\@MAILADDRESS.COMP\" http:\/\/amds.jp\/amds_sub.cgi/;
          s/(http:\/\/www.melma.com\/backnumber_.*)/wget --post-data=\"procregister=dgregist&mailmag=add&email=MAILADDRESS\@MAILADDRESS.COMP\" $1/;
          print;
        }
        close IN;
wget --post-data="procregister=dgregist&mailmag=add&email=MAILADDRESS@MAILADDRESS.COMP" http://www.melma.com/backnumber_82257/
wget --post-data="procregister=dgregist&mailmag=add&email=MAILADDRESS@MAILADDRESS.COMP" http://www.melma.com/backnumber_147049/
wget --post-data="procregister=dgregist&mailmag=add&email=MAILADDRESS@MAILADDRESS.COMP" http://www.melma.com/backnumber_147098/
wget --post-data="procregister=dgregist&mailmag=add&email=MAILADDRESS@MAILADDRESS.COMP" http://www.melma.com/backnumber_147026/
wget --post-data="procregister=dgregist&mailmag=add&email=MAILADDRESS@MAILADDRESS.COMP" http://www.melma.com/backnumber_147046/
wget --post-data="procregister=dgregist&mailmag=add&email=MAILADDRESS@MAILADDRESS.COMP" http://www.melma.com/backnumber_147112/
wget --post-data="procregister=dgregist&mailmag=add&email=MAILADDRESS@MAILADDRESS.COMP" http://www.melma.com/backnumber_33195/
wget --post-data="procregister=dgregist&mailmag=add&email=MAILADDRESS@MAILADDRESS.COMP" http://www.melma.com/backnumber_195/
wget --post-data="procregister=dgregist&mailmag=add&email=MAILADDRESS@MAILADDRESS.COMP" http://www.melma.com/backnumber_126795/

E-magazine

"http://www.emaga.com/info/ikkou.html"のようなURLの場合、"http://www.emaga.com/info/"を"wget --post-data="x=x&doui=ok&code="に、この後に続くマガジンIDを残して".html"を"&mail=MAILADDRESS@MAILADDRESS.COMP&regist=購読" http://www.emaga.com/tool/mail.cgi"に置換する。つまり、Perlスクリプト的にはこんな感じです。

print<< 'OUT';
path "C:\Program Files\GnuWin32\bin"
path "D:\temp_prog\wget-1.10.1-bin\bin"
OUT
open IN,"mag.txt";
while(<IN>){
        s/http:\/\/mini.mag2.com\/pc\/m\/(.*)\.html/wget --post-data=\"e=MAILADDRESS\@MAILADDRESS.COMP&id=$1&PC=\" http:\/\/regist.mini.mag2.com\/r\/servlet\/Ma/;
        s/http:\/\/www.mag2.com\/m\/(.*)\.html/wget --post-data=\"MfcISAPICommand=MagRdAdd&rdemail=MAILADDRESS\@MAILADDRESS.COMP&reg=magazine&magid=$1\" http:\/\/regist.mag2.com\/reader\/Magrdadd/;
        s/http:\/\/cgi.kapu.biglobe.ne.jp\/m\/(.*)\.html/wget --post-data=\"mgid=$1&e_mail=MAILADDRESS\@MAILADDRESS.COMP\" http:\/\/cgi.kapu.biglobe.ne.jp\/cgi-bin\/mlmg_setma.cgi/;
        s/(http:\/\/www.ransta.jp\/backnumber_.*)/wget --post-data=\"procregister=dgregist&mailmag=add&email=MAILADDRESS\@MAILADDRESS.COMP\" $1/;
        s/http:\/\/amds.jp\/magazine\/(.*)\.html/wget --post-data=\"number=amds-$1&email=MAILADDRESS\@MAILADDRESS.COMP\" http:\/\/amds.jp\/amds_sub.cgi/;
        s/(http:\/\/www.melma.com\/backnumber_.*)/wget --post-data=\"procregister=dgregist&mailmag=add&email=MAILADDRESS\@MAILADDRESS.COMP\" $1/;
        s/http:\/\/www.emaga.com\/info\/(.*)\.html/wget --post-data=\"x=x&doui=ok&code=$1&mail=MAILADDRESS\@MAILADDRESS.COMP&regist=購読\" http:\/\/www.emaga.com\/tool\/mail.cgi/;
        print;
}
close IN;
wget --post-data="x=x&doui=ok&code=4574&mail=MAILADDRESS@MAILADDRESS.COMP&regist=購読" http://www.emaga.com/tool/mail.cgi

すきやねん!

"http://www.sukiya-nen.com/sys/m.cgi?id=goku"のようなURLの場合、"http://www.sukiya-nen.com/sys/m.cgi?id="を"wget --post-data="namae=a&id="に、この後に続くマガジンIDを残して"&email=MAILADDRESS@MAILADDRESS.COMP&mode=regist" http://www.sukiya-nen.com/sys/maga_reg.cgi"と続けます。つまり、Perlスクリプト的にはこんな感じです。

print<< 'OUT';
path "C:\Program Files\GnuWin32\bin"
path "D:\temp_prog\wget-1.10.1-bin\bin"
OUT
open IN,"mag.txt";
while(<IN>){
        s/http:\/\/mini.mag2.com\/pc\/m\/(.*)\.html/wget --post-data=\"e=MAILADDRESS\@MAILADDRESS.COMP&id=$1&PC=\" http:\/\/regist.mini.mag2.com\/r\/servlet\/Ma/;
        s/http:\/\/www.mag2.com\/m\/(.*)\.html/wget --post-data=\"MfcISAPICommand=MagRdAdd&rdemail=MAILADDRESS\@MAILADDRESS.COMP&reg=magazine&magid=$1\" http:\/\/regist.mag2.com\/reader\/Magrdadd/;
        s/http:\/\/cgi.kapu.biglobe.ne.jp\/m\/(.*)\.html/wget --post-data=\"mgid=$1&e_mail=MAILADDRESS\@MAILADDRESS.COMP\" http:\/\/cgi.kapu.biglobe.ne.jp\/cgi-bin\/mlmg_setma.cgi/;
        s/(http:\/\/www.ransta.jp\/backnumber_.*)/wget --post-data=\"procregister=dgregist&mailmag=add&email=MAILADDRESS\@MAILADDRESS.COMP\" $1/;
        s/http:\/\/amds.jp\/magazine\/(.*)\.html/wget --post-data=\"number=amds-$1&email=MAILADDRESS\@MAILADDRESS.COMP\" http:\/\/amds.jp\/amds_sub.cgi/;
        s/(http:\/\/www.melma.com\/backnumber_.*)/wget --post-data=\"procregister=dgregist&mailmag=add&email=MAILADDRESS\@MAILADDRESS.COMP\" $1/;
        s/http:\/\/www.emaga.com\/info\/(.*)\.html/wget --post-data=\"x=x&doui=ok&code=$1&mail=MAILADDRESS\@MAILADDRESS.COMP&regist=購読\" http:\/\/www.emaga.com\/tool\/mail.cgi/;
        s/http:\/\/www.sukiya\-nen.com\/sys\/m.cgi\?id=(.*)/wget --post-data=\"namae=a&id=$1&email=MAILADDRESS\@MAILADDRESS.COMP&mode=registvalue\" http:\/\/www.sukiya-nen.com\/sys\/maga_reg.cgi/;
        s/http:\/\/www.sukiya\-nen.com\/sys\/m.cgi\?id=(.*)/wget --post-data=\"namae=a&id=$1&email=MAILADDRESS\@MAILADDRESS.COMP&mode=regist\" http:\/\/www.sukiya-nen.com\/sys\/maga_reg.cgi/;
        print;
}
close IN;
path "C:\Program Files\GnuWin32\bin"
path "D:\temp_prog\wget-1.10.1-bin\bin"
wget --post-data="namae=a&id=OUEN&email=MAILADDRESS@MAILADDRESS.COMP&mode=registvalue" http://www.sukiya-nen.com/sys/maga_reg.cgi
wget --post-data="namae=a&id=ohgon&email=MAILADDRESS@MAILADDRESS.COMP&mode=registvalue" http://www.sukiya-nen.com/sys/maga_reg.cgi
wget --post-data="namae=a&id=id01&email=MAILADDRESS@MAILADDRESS.COMP&mode=registvalue" http://www.sukiya-nen.com/sys/maga_reg.cgi
wget --post-data="namae=a&id=goku&email=MAILADDRESS@MAILADDRESS.COMP&mode=registvalue" http://www.sukiya-nen.com/sys/maga_reg.cgi
path "C:\Program Files\GnuWin32\bin"
path "D:\temp_prog\wget-1.10.1-bin\bin"
wget --post-data="namae=a&id=OUEN&email=MAILADDRESS@MAILADDRESS.COMP&mode=regist" http://www.sukiya-nen.com/sys/maga_reg.cgi
wget --post-data="namae=a&id=ohgon&email=MAILADDRESS@MAILADDRESS.COMP&mode=regist" http://www.sukiya-nen.com/sys/maga_reg.cgi
wget --post-data="namae=a&id=id01&email=MAILADDRESS@MAILADDRESS.COMP&mode=regist" http://www.sukiya-nen.com/sys/maga_reg.cgi
wget --post-data="namae=a&id=goku&email=MAILADDRESS@MAILADDRESS.COMP&mode=regist" http://www.sukiya-nen.com/sys/maga_reg.cgi

メルカップ

"http://www.melcup.com/cgi-bin/magazine/magazine.cgi?mag_id=M000004401"のようなURLの場合、"http://www.melcup.com/cgi-bin/magazine/magazine.cgi?mag_id="を"wget --post-data="mag_id="に、この後に続くマガジンIDを残して"&mail_addr=MAILADDRESS@MAILADDRESS.COMP" http://www.melcup.com/cgi-bin/reader/register.cgi"と続けます。つまり、Perlスクリプト的にはこんな感じです。

print<< 'OUT';
path "C:\Program Files\GnuWin32\bin"
path "D:\temp_prog\wget-1.10.1-bin\bin"
OUT
open IN,"mag.txt";
while(<IN>){
        s/http:\/\/mini.mag2.com\/pc\/m\/(.*)\.html/wget --post-data=\"e=MAILADDRESS\@MAILADDRESS.COMP&id=$1&PC=\" http:\/\/regist.mini.mag2.com\/r\/servlet\/Ma/;
        s/http:\/\/(www|woman).mag2.com\/m\/(.*)\.html/wget --post-data=\"MfcISAPICommand=MagRdAdd&rdemail=MAILADDRESS\@MAILADDRESS.COMP&reg=magazine&magid=$2\" http:\/\/regist.mag2.com\/reader\/Magrdadd/;
        s/http:\/\/cgi.kapu.biglobe.ne.jp\/m\/(.*)\.html/wget --post-data=\"mgid=$1&e_mail=MAILADDRESS\@MAILADDRESS.COMP\" http:\/\/cgi.kapu.biglobe.ne.jp\/cgi-bin\/mlmg_setma.cgi/;
        s/(http:\/\/www.ransta.jp\/backnumber_.*)/wget --post-data=\"procregister=dgregist&mailmag=add&email=MAILADDRESS\@MAILADDRESS.COMP\" $1/;
        s/http:\/\/amds.jp\/magazine\/(.*)\.html/wget --post-data=\"number=amds-$1&email=MAILADDRESS\@MAILADDRESS.COMP\" http:\/\/amds.jp\/amds_sub.cgi/;
        s/(http:\/\/www.melma.com\/backnumber_.*)/wget --post-data=\"procregister=dgregist&mailmag=add&email=MAILADDRESS\@MAILADDRESS.COMP\" $1/;
        s/http:\/\/www.emaga.com\/info\/(.*)\.html/wget --post-data=\"x=x&doui=ok&code=$1&mail=MAILADDRESS\@MAILADDRESS.COMP&regist=購読\" http:\/\/www.emaga.com\/tool\/mail.cgi/;
        s/http:\/\/www.sukiya\-nen.com\/sys\/m.cgi\?id=(.*)/wget --post-data=\"namae=a&id=$1&email=MAILADDRESS\@MAILADDRESS.COMP&mode=registvalue\" http:\/\/www.sukiya-nen.com\/sys\/maga_reg.cgi/;
        s/http:\/\/www.sukiya\-nen.com\/sys\/m.cgi\?id=(.*)/wget --post-data=\"namae=a&id=$1&email=MAILADDRESS\@MAILADDRESS.COMP&mode=regist\" http:\/\/www.sukiya-nen.com\/sys\/maga_reg.cgi/;
        s/http:\/\/www.melcup.com\/cgi-bin\/magazine\/magazine.cgi\?mag_id=(.*)/wget --post-data=\"mag_id=$1&mail_addr=MAILADDRESS\@MAILADDRESS.COMP\" http:\/\/www.melcup.com\/cgi-bin\/reader\/register.cgi/;
        print;
}close IN;

Spam Mail Killer

Spam Mail Killer http://homepage1.nifty.com/eimei/uniq http://www.google.com/search?q=%28uniq+OR+ununiq%29+win重複行削除ソフト

etch http://www.vector.co.jp/soft/dl/win95/net/se261820.html

wget1.9 http://www.google.co.jp/search?q=post+wget有名な非対話型ネットワーク転送ソフト

IEナビトレ http://www.vector.co.jp/download/file/win95/net/ff321053.htmlIEの吐くget/post/cookieを動的に観察できるツール

ソーシャルブックマーク

  1. はてなブックマーク
  2. Google Bookmarks
  3. del.icio.us

ChangeLog

  1. Posted: 2003-11-08T01:31:52+09:00
  2. Modified: 2003-11-08T13:53:23+09:00
  3. Generated: 2017-07-04T23:09:28+09:00