Zitat von
Spider:
Jau:
Delphi-Quellcode:
procedure TForm1.IdIRC1Message(Sender: TObject; AUser: TIdIRCUser;
AChannel: TIdIRCChannel; Content: String);
var
Temp: String;
begin
if Content[1] <> '!' then
exit;
if Pos('!join', Content) <> 0 then
begin
Temp := Copy(Content, Pos('!join', Content), Length(Content));
IdIRC.Join(Temp);
end;
end;
Hallöchen ,
genau so habe ich es gemacht - habe den bot joinen lassen und !join #test eingegeben , aber er macht es nicht , es kommt weder ne fehlermeldung noch sonst was :-/ ..
jmd eine Ahnung was ich vllt falsch gemacht haben könnte?
Grüsse
CC :elk: