■スレッドリストへ戻る■ 全部 1- 101- 201- 301- 401- 501- 601- 701- 801- 901- 1001- 最新50

monazilla Part 3

311 :デフォルトの名無しさん :02/05/03 12:18
ダメです。まだ謎ページです。
一応テスト用のソース晒しておきます。
なお、/tech/index.htmlなどは404です。根本的に違うサイトに繋がっている模様。
IPアドレス64.71.177.66でも同様でした。

implementation

{$R *.dfm}

procedure TForm1.ClientSocket1Connect(Sender: TObject;
Socket: TCustomWinSocket);
begin
Socket.SendText('GET /index.html HTTP/1.0'#10#13'User-Agent: Monazilla/1.00 (toolname/ver)'#10#13'Host: pc.2ch.net'#10#13#10#13);
end;

procedure TForm1.ClientSocket1Read(Sender: TObject;
Socket: TCustomWinSocket);
begin
Memo1.Lines.Text := Memo1.Lines.Text + Socket.ReceiveText();
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
ClientSocket1.open();
end;

end.


226KB
新着レスの表示

スレッドリストへ戻る 全部 前100 次100 最新50

0ch BBS 2004-10-30