連投ツール


953 名前:以下、名無しにかわりましてVIPがお送りします 投稿日:2006/05/25(木) 22:04:11.35 ID:CkPDIuIH0 ?
連投ツール作るぞって言ってた者です。一応できました。あんりみてっどに投稿するスクリプトです。
動作確認は一応しました(POST→GETで結果出力で確認しました)が、何せコメントが承認待ちになるのではっきりとしたことはいえません。
.plファイルで保存してActivePerlで実行してください。.cgiにしてサーバーで動かすのもありです。
#!/usr/bin/perl
$post="static=1&entry_id=912&author=noname&email=&url=&text=test";
$len=length($post);

use Socket;
$host = 'unlimi.net';
$port = getservbyname('http', 'tcp');
$iaddr = inet_aton($host);
$sock_addr=pack_sockaddr_in($port,$iaddr);
socket(SOCKET, PF_INET, SOCK_STREAM, 0);
connect(SOCKET, $sock_addr);
select(SOCKET); $|=1; select(STDOUT);
print SOCKET "POST /cmt/mt-comments.cgi HTTP/1.0\r\n";
print SOCKET "Content-Length: $len\r\n";
print SOCKET "\r\n";
print SOCKET "$post\r\n";
print SOCKET "Connection: close\r\n";
print "Content-type: text/html\n\n";

644 以下、名無しにかわりましてVIPがお送りします New! 2006/05/25(木) 22:19:55.43 ID:CkPDIuIH0 BE:?-
あ、そうか。使い方。
windowsでこれを使うにはActivePerlが必要です。ダウンロードしてインストールしてください。
まず、コピーして適当なテキストファイルに貼り付けます。
次に、名前をつけて保存でunlimi_post.plなどの拡張子plで保存してください。
次にperl 保存パス\unlimi_post.plをコマンドラインで入力します。
すると、ちょっとした待ち時間のあと、何も表示されずに終了します。
これでPOSTが完了しました。
投稿内容をいじりたいときは1行目、$post="static=1&entry_id=912&author=noname&email=&url=&text=test";

author=好きな名前(URLエンコードして無いので半角英数字のみ)
text=投稿内容(URLエンコードして無いので(ry)
のように変更してください。

最終更新:2006年05月26日 01:43