■スレッドリストへ戻る■ 全部 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