Arkadaşlar yardım ederseniz sevinirim cevabı aramaktan canım çıktı!
İnternet kafede oturduğum bilgisayardan internet kafecinin bilgisayar ekranına nasıl mesaj atarım . En azından nasıl connect olurum bunun cevabını arıyorum. Yardımlarınız için şimdiden teşekkür!
İntern.Kafede oturduğum pc den Ana Pc ye nasıl mesaj atarım?
Forum kuralları
Forum kurallarını okuyup, uyunuz!
Forum kurallarını okuyup, uyunuz!
- misterapocalypse
- Üye
- Mesajlar: 36
- Kayıt: 03 Tem 2007 06:27
- Konum: Muğla-Dalaman
- İletişim:
- greenegitim
- Üye
- Mesajlar: 713
- Kayıt: 28 Nis 2011 10:33
- Konum: İstanbul
Re: İntern.Kafede oturduğum pc den Ana Pc ye nasıl mesaj ata
client server yapısı kullanmalısın gönderdiğin mesajı serverda da okuyacak bir program yapman lazım.
Mücadele güzelleştirir!
Re: İntern.Kafede oturduğum pc den Ana Pc ye nasıl mesaj ata
O internet kafenin kullandığı kafe programının haberleşme protokolünü esential net tools veya tc-ip \ udp port dinleyicileri ile de öğrenip kendi yazacağın programa clientsocket yada udp sockete bir butona send text olarak entegre ederek o kafe ana bilgisayarının ilgili ip ve portuna gönderdiğinde amacına ulaşmış olursun.
bir ara ülkemizde çok kullanilan bir int kafe programının iletişim protokolünü çözmüştüm, bu protokol basit ve sabit uzunlukta txt mesajından başka birşey değildi.
delphide 2 satır kodla ana makineyede, clientlerede işlem yaptırabiliyordum.
bunu yazdım ya, yakında protokol mesajını md5 ile şifrelerler : )))
bir ara ülkemizde çok kullanilan bir int kafe programının iletişim protokolünü çözmüştüm, bu protokol basit ve sabit uzunlukta txt mesajından başka birşey değildi.
delphide 2 satır kodla ana makineyede, clientlerede işlem yaptırabiliyordum.
bunu yazdım ya, yakında protokol mesajını md5 ile şifrelerler : )))
http://www.delphibasics.co.uk/RTL.asp?Name=DaysBetween
http://www.neonhaber.com/Static/mega-co ... index.html
www.delphican.con
Function PARSE( text, ilk, son:String ): String; //
begin
Delete(Text, 1, pos(ilk, Text) + Length(ilk)-1);
Result := Copy(Text, 1, Pos(Son, Text)-1);
end;
http://www.neonhaber.com/Static/mega-co ... index.html
www.delphican.con
Function PARSE( text, ilk, son:String ): String; //
begin
Delete(Text, 1, pos(ilk, Text) + Length(ilk)-1);
Result := Copy(Text, 1, Pos(Son, Text)-1);
end;