Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.

Delphi i IRC botovi

[es] :: Pascal / Delphi / Kylix :: Delphi i IRC botovi

[ Pregleda: 4203 | Odgovora: 5 ] > FB > Twit

Postavi temu Odgovori

Autor

Pretraga teme: Traži
Markiranje Štampanje RSS

SFilip

Član broj: 42290
Poruke: 102
195.178.55.*



+3 Profil

icon Delphi i IRC botovi28.02.2005. u 22:36 - pre 233 meseci
da li je moguce iz delphija napraviti bot-a za IRC (skinuo sam neku komponentu TVortex, ali ne znam kako se koristi ) i kako to mogu da uradim?
Open Source. Millions of open minds can't be wrong.
Otvoreni kod. Milioni slobodnih misli ne mogu da pogrese.
 
Odgovor na temu

Nemanja Avramović
Engineering Manager
MENU Technologies
Beograd, Srbija

Član broj: 32202
Poruke: 4391
*.verat.net.

Sajt: https://avramovic.info


+46 Profil

icon Re: Delphi i IRC botovi01.03.2005. u 00:10 - pre 233 meseci
Koristi xIRC komponentu, ja sa vortex-om nisam uspeo. Znaci podesis mu host, port (6667), pod userinfo bla bla (sve sto treba) i najbitnije je da u ONRAW event stavis ovo:
Code:

if Pos('PING',Text)=1 then begin
  XiRC1.Raw(StringReplace(Text,'I','O',[]));
end;


..ovo ce ti trebati da bi te server pustio da radis dalje....

e sad, kod Krstarice ima ono s***** sa /msg $me XXXXXXXXX
sto smara :(

i jos nesto... ako neko provali kako poslati vise reci kao: privmsg DESTINATION (dakle, raw), nek mi postuje ovde... ja sam do sad ovako radio :(

Code:

const
  cc = ''; //cc is color char for mIRC
  spejs = cc+'0_'+cc+'1';

...

//this will code spaces ;)
function CodeSpaces(str:string):string;
var znj:string;
begin
znj:=StringReplace(str,' ',spejs,[rfReplaceAll]);
Result:=znj;
end;

...

xIRC1.raw('privmsg Avram '+CodeSpaces('Neki tekst sa razmakom'));



...i tako sam slao vise reci (tacnije jedna rec, ali `ono`...)

naravno, moze i xIRC1.say, ili tako nesto ;)

SFilip, srecno ;)

edit: cc (colorchar) se ne vidi ovde u forumu pa sam ga uplodaovao uz poruQ
edit2: ako hoces, potrazi mIRCControl komponentu, sa njom mozes kontrolisati mIRC!
Laravel Srbija.

[NE PRUŽAM PODRŠKU ZA PHP PREKO PRIVATNIH PORUKA!]
Prikačeni fajlovi
 
Odgovor na temu

SFilip

Član broj: 42290
Poruke: 102
195.178.55.*



+3 Profil

icon Re: Delphi i IRC botovi01.03.2005. u 11:16 - pre 232 meseci
hvala na uputstvu, ali nesto mi ne ide
ne mogu cak ni da nateram da bot udje na kanal
probao sam da prvo uradi Xirc1.Connect, a OnConnect Xirc1.Join('#kanal')
podesio sam host, port, user.nick i user.realname i dodao sam onaj kod na OnRawData, ali nikako nece da udje na kanal.
mogu li nekako da ga nateram da vrati onaj kod koji u IRC clientu izlazi pri konektovanju u jedan memo da bi bar znao sta nije u redu?
Open Source. Millions of open minds can't be wrong.
Otvoreni kod. Milioni slobodnih misli ne mogu da pogrese.
 
Odgovor na temu

Nemanja Avramović
Engineering Manager
MENU Technologies
Beograd, Srbija

Član broj: 32202
Poruke: 4391
*.verat.net.

Sajt: https://avramovic.info


+46 Profil

icon Re: Delphi i IRC botovi02.03.2005. u 11:38 - pre 232 meseci
mozda si probao na krstarici, tamo moras da radis ono /msg tvojnick nekibroj

anyway, evo ti demo program (komentovan), sad sam ga na brzinu napisao... probao sam ga na efnetu (koji pri konektovanju ne salje ping!?) ali dobro... radi ;)

samo da ti napomenem da je meni nesto bagovalo kad sam pokretao prog. iz delphija (sa f9), tacnije pri zavrsetku programa... zato bolje iskompajliraj pa pokreci direktno...

evo nekih raw komandi:
privmsg nick/chan tekst - slanje poruke
nick novi_nick - menjanje nicka
join kanal - ulazak na kanal
part kanal - izlazak sa kanala

eto, ja znam te raw komande, a za ostalo koristim procedure/funkcije i evente same komponente

p.s. raw komande ne pocinju sa /
Laravel Srbija.

[NE PRUŽAM PODRŠKU ZA PHP PREKO PRIVATNIH PORUKA!]
Prikačeni fajlovi
 
Odgovor na temu

SFilip

Član broj: 42290
Poruke: 102
195.178.55.*



+3 Profil

icon Re: Delphi i IRC botovi02.03.2005. u 19:19 - pre 232 meseci
sada sam uspeo, problem je bio u tome sto sam morao da popunim sva user polja (nick, altnick...) sem password. sto se krstarice tice-nije neophodno da se uradi /msg [nick] [kod] ako se koristi reg. nadimak.

puno ti hvala na pomoci i demo programu, JaHvram!
Open Source. Millions of open minds can't be wrong.
Otvoreni kod. Milioni slobodnih misli ne mogu da pogrese.
 
Odgovor na temu

Nemanja Avramović
Engineering Manager
MENU Technologies
Beograd, Srbija

Član broj: 32202
Poruke: 4391
*.telekom.yu.

Sajt: https://avramovic.info


+46 Profil

icon Re: Delphi i IRC botovi03.03.2005. u 02:27 - pre 232 meseci
Znam za krstaricu da ne zeza kod regovanih nickova, ali ne pada mi napamet da za svakog bota regujem i nick.. to sux

no, to je nebitno - bitno je da si ti uspeo u onome sto si naumio, i da sam ja uspeo da ti pomognem

p0zdrav
Laravel Srbija.

[NE PRUŽAM PODRŠKU ZA PHP PREKO PRIVATNIH PORUKA!]
 
Odgovor na temu

[es] :: Pascal / Delphi / Kylix :: Delphi i IRC botovi

[ Pregleda: 4203 | Odgovora: 5 ] > FB > Twit

Postavi temu Odgovori

Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.