malihsen
![](modules/Forums/images/avatars/galeri07/574.gif)
Kayıt: Apr 17, 2004 Mesajlar: 328 Nereden: Balıkesir
|
Tarih: Sat Sep 17, 2005 11:59 am Mesaj konusu: Blitz3d Online |
|
|
Kod: |
Graphics3D 640,480,16,0
Print "Bağlanıyor..."
tcp=OpenTCPStream( "www.oyunyapimi.org",80 )
If Not tcp Print "Başarısız.":WaitKey:End
Print "Bağlandı! Bilgi Gönderildi..."
WriteLine tcp,"GET www.oyunyapimi.org HTTP/1.1"
WriteLine tcp,"HOST: www.oyunyapimi.org"
WriteLine tcp,""
If Eof(tcp) Print "Başarısız.":WaitKey:End
Print "Bilgi Gönderildi! Cevabı Bekleyiniz..."
While Not Eof(tcp)
Print ReadLine$( tcp )
Print "Gelen Byte :" + ReadAvail(tcp)
Wend
If Eof(tcp)=1 Then Print "Başarılı!" Else Print "Hatalı!"
CloseTCPStream tcp
WaitKey
|
gelen yazılar ne anlama geliyor
hemde başak bir adrese nasıl yazamacam ki bana yazılar bana böyle gelecek |
|