malihsen
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 |
|
SSS
Arama
Kullanıcı Grupları
Profil
Login
