ギコタクの「だから逝ってないでしょ」出張所 (427レス)
ギコタクの「だから逝ってないでしょ」出張所 http://medaka.5ch.net/test/read.cgi/php/991966646/
上
下
前次
1-
新
通常表示
512バイト分割
レス栞
抽出解除
必死チェッカー(本家)
(べ)
自ID
レス栞
あぼーん
79: 16 [] 2001/07/02(月) 01:52 ID:jXUn5Xms / ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ | まだ書き込みできないのかね? \  ̄ ̄ ̄|/ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ∧_∧ / ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ (∀・ ;) |\|\ < なんでこれでおかしいのか教えてくださいよー。 ( ) (; ) \____________  ̄ ̄ ̄ ̄ ̄⊂_ \丿_  ̄ ̄ ̄日∇ ̄\| Let’s |\  ̄ ======= \ うう・・・なんで書き込みできないのかほんとにわからん。 #!/usr/local/bin/perl use LWP::UserAgent; use strict; my $server = "corn.2ch.net"; my $dir = "php"; my $key = "982688337"; my $name = "test"; my $mail = "sage"; my $text = "test kakiko"; my $ret = write_res($server, $dir, $name, $mail, $text); print $ret; sub write_res{ my ($server, $dir, $key, $name, $mail, $text) = @_; $mail =~ s/(\W)/'%'. unpack('H2', $1)/eg; $name =~ s/(\W)/'%'. unpack('H2', $1)/eg; $text =~ s/(\W)/'%'. unpack('H2', $1)/eg; my $url = "http://$server/test/bbs.cgi"; my $contents = "bbs=$dir&FROM=$name&mail=$mail&MESSAGE=$text&key=$key&time=".time; return post($url, $contents); } sub post{ my $targeturl = shift; my $content = shift; my @header = @_; my $hdrs = new HTTP::Headers(Accept => '*/*', @header); my $url = new URI::URL($targeturl); my $ua = new LWP::UserAgent; $ua->agent("Monazilla/1.0 (compatible; writetest.pl; $^O)"); my $req = new HTTP::Request('POST', $url, $hdrs, $content); my $resp = $ua->request($req); if ($resp->is_success){ return $resp->content; } } http://medaka.5ch.net/test/read.cgi/php/991966646/79
83: 16 [] 2001/07/02(月) 11:35 ID:jXUn5Xms / ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ | 不可視・浮上不可実験(10000) http://corn.2ch.net/test/read.cgi?bbs=php&key=982688337 | なんてところに書き込んでるんですか? \  ̄ ̄ ̄|/ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ∧_∧ / ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ( ・∀) ∧ ∧ < sageとけばなにしても問題ないだろそのスレは。ケサレテモイイシ・・・ ( ) (゚Д゚;) \____________  ̄ ̄ ̄ ̄ ̄ (つ_つ__  ̄ ̄ ̄日∇ ̄\| Let’s |\  ̄ ======= \ write_res()への引数はお恥ずかしい。 post($url, $contents, Cookie => "$name; $mail", Referer => "http://$server/$dir/index2.html"); で問題なさそう。 http://medaka.5ch.net/test/read.cgi/php/991966646/83
84: 16 [] 2001/07/02(月) 12:16 ID:jXUn5Xms ∧_∧ カタカタ / ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ( ) ∧ ∧ < とりあえずテスト書き込み、っと・・・・ ( ) (,,゚Д゚) \____________  ̄ ̄ ̄ ̄ ̄ (つ_つ__  ̄ ̄ ̄日∇ ̄\| Let’s |\  ̄ ======= \ / ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ | ほう、ついに書き込みができるようになったんですか? \  ̄ ̄ ̄|/ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ∧_∧ / ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ( ・∀・) ∧ ∧ < これがちゃんと書けたらアップロードするぞ ( ⊃ ) (゚Д゚;) \____________  ̄ ̄ ̄ ̄ ̄ (つ_つ__  ̄ ̄ ̄日∇ ̄\| Let’s |\  ̄ ======= \ http://medaka.5ch.net/test/read.cgi/php/991966646/84
85: 16 [] 2001/07/02(月) 12:37 ID:jXUn5Xms / ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ | ついにかけるようになったんですか? \  ̄ ̄ ̄|/ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ∧_∧ / ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ( ・∀) ∧ ∧ < http://xbbs21.virtualave.net/xbbs/up/src/up052.lzh だぞ ( ) (゚Д゚;) \____________  ̄ ̄ ̄ ̄ ̄ (つ_つ__  ̄ ̄ ̄日∇ ̄\| Let’s |\  ̄ ======= \ えーと、アップした後気づいた。 340行目くらいからのprint連打うざいから削って使ってください。 http://medaka.5ch.net/test/read.cgi/php/991966646/85
195: 16 [] 2001/08/02(木) 19:33 ID:jXUn5Xms / ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ | なんかすごい勢いでカウンタ回ってますね? \  ̄ ̄ ̄|/ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ∧_∧ / ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ( ・∀・) ∧ ∧ < 自分で作ったページにこんなにアクセスあるのはじめてだ・・・ ( ⊃ ) (゚Д゚;) \____________  ̄ ̄ ̄ ̄ ̄ (つ_つ__  ̄ ̄ ̄日∇ ̄\| Let’s |\  ̄ ======= \ / ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ | 今回はブックマークと? \  ̄ ̄ ̄|/ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ∧_∧ / ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ( ・∀) ∧ ∧ < っつーか自分が使わない機能はどうすればいいかがいまいち・・・ ( ) (;゚Д゚) \____________  ̄ ̄ ̄ ̄ ̄ (つ_つ__  ̄ ̄ ̄日∇ ̄\| Let’s |\  ̄ ======= \ http://www.gooside.com/perltk/ >>192 「何か機能を」って言われても・・・・・何をすれば?? >>193 ありがとーございますー。 >>194 なんかつくってくださいーーー。 http://medaka.5ch.net/test/read.cgi/php/991966646/195
メモ帳
(0/65535文字)
上
下
前次
1-
新
書
関
写
板
覧
索
設
栞
歴
スレ情報
赤レス抽出
画像レス抽出
歴の未読スレ
AAサムネイル
Google検索
Wikipedia
ぬこの手
ぬこTOP
1.175s*