Irc Idle script

riddlehx · Hält's aus hier Beiträge: 11

also ich habe ein irc Idle script geschrieben nur für mich.

Hier mal der code:

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

procedure TForm1.FormCreate(Sender: TObject);
begin
IdIRC1.Host := 'irc.quakenet.org';
IdIRC1.Port := 6667;
IdIRC1.Username := 'riDDla';
IdIRC1.Realname := 'riDDla';
IdIRC1.Nick := 'da.soll.der.nick.hin';
IdIRC1.Connect(3000);
Delay(20000);
IdIRC1.Join('#chan');
end;

SO.
Und bei nick soll irgendeine zahl, bzw. irgendwelche buchstaben hin.
Ich hab mir da schon was angeguckt. so mit random(9000)+1000
aber irgendwie funzt das net wenn ich das so eingebe:
IdIRC1.Nick := 'random(9000)+1000';

Könnt ihr mir bitte helfen THX schon mal im vorraus

Moderiert von raziel: Code- durch Delphi-Tags ersetzt.
Moderiert von raziel: Topic aus VCL (Visual Component Library) verschoben am Mo 01.08.2005 um 17:49

patrick · Beiträge: 1481 WIN2k, WIN XP D6 Personal, D2005 PE

der hund liegt dort begraben:

markieren

Delphi-Quelltext

1:	IdIRC1.Nick := 'random(9000)+1000';

lösch die >'< weg und dann geht es.

bevor du random das erste mal einsetzt, solltest du randomize ausführen

_________________
Patrick
im zweifelsfall immer das richtige tun!!!

Benutzername · Beiträge: 210 Win XP Pro Delphi 7 PE, D2005 Prof. SSL

Ich vermute, die Property "Nick" ist ein String, deshalb fehlt da ein IntToStr

riddlehx · Hält's aus hier Beiträge: 11

Ich habe jez beides probiert und es hat leider nicht geklappt.
Mein code sieht jetzt so aus:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:

procedure TForm1.FormCreate(Sender: TObject);
begin
randomize;
IdIRC1.Host := 'irc.quakenet.org';
IdIRC1.Port := 6667;
IdIRC1.Username := 'riDDla';
IdIRC1.Realname := 'riDDla';
IdIRC1.Nick := IntToStr(random(9000)+1000);
IdIRC1.Connect(3000);
Delay(20000);
IdIRC1.Join('#chan');
end;

es geht aber immer noch nicht. Ich habe es mit den 2 varianten versucht. aber beides nicht geklappt.

Danke für die bisherigen antworten, aber ich hoffe jemand hat noch tipss für mich

Moderiert von raziel: Code- durch Delphi-Tags ersetzt.

raziel · Verfasst: Mo 01.08.05 12:46

Wofür ist denn die 3000 beim IdIRC1.Connect(3000);? Daran wirds wohl liegen, aber auch hier gilt: Ich bin kein Hellseher, ohne die Fehler- bzw. Compilermeldung können wir nur raten, was schief geht.

_________________
JSXGraph

riddlehx · Hält's aus hier Beiträge: 11

nein ich denke daran liegst net, dies ist nur wegen timeout.

Jailbird · Beiträge: 127 Windows XP Pro SP2 Delphi 7 Professional

Ihr DAUs! Nicknames bestehend aus Zahlen sind nicht erlaubt! (zumindest im QuakeNet nicht)

retnyg · Verfasst: Mo 01.08.05 13:51

falls du zufällig vorhast ein botnet zu eröffnen user defined image

bietet sich auch der lokale hostname als prefix an:

markieren

Delphi-Quelltext

1:	IdIRC1.Nick := GetEnvironmentVariable('USERDOMAIN') + IntToStr(random(9000)+1000);

_________________
es gibt leute, die sind genetisch nicht zum programmieren geschaffen.
in der regel haben diese leute die regel...

noidic · Verfasst: Mo 01.08.05 14:27

Vielleicht sind Nicks nur aus Zahlen im QuakeNet nicht erlaubt, aber zu meiner aktiven IRC-Zeit waren sies im IRCNet z.B. ohne weiteres ( oder auch Nicks nur aus Unterstrichen o.ä. ).

Gruß

Noidic

_________________
Bravery calls my name in the sound of the wind in the night...

sango · Beiträge: 236 WinXP Home Delphi 2005 Pro

ja aber er will ins quakenet, und das mit nem nick aus zahlen, das geht nicht, zahlen gehen natürlich aber das erste zeichen muss nen nicht_zahl zeichen sein.
daher muss ich da auch [23er] sein und kann nicht 23er sein.

_________________
Never read the Off-Topic

riddlehx · Hält's aus hier Beiträge: 11

stimmt nicks nur mit zahlen sind leider nicht erlaubt. wisst ihr wie ich es mit buchstaben mache???

raziel · Verfasst: Mo 01.08.05 16:59

riddlehx hat folgendes geschrieben:

nein ich denke daran liegst net, dies ist nur wegen timeout.

Nein, ich meinte die 3000, die beim Connect übergeben werden sollten. Afair ist die Connect-Methode bei IdIRC nur dreimal überladen:

markieren

Delphi-Quelltext

1:
2:
3:

procedure Connect;
procedure Connect(const AHost: String);
procedure Connect(const AHost: String; const APort: Integer);

Die 3000 ist also in der Form völlig fehl am Platze. Um einen gültigen Benutzernamen zu bekommen, kannst du ja ein paar Buchstaben vorneransetzen, z.B. wie user profile icon

retnyg schon vorschlug den lokalen Hostnamen oder auch einfach nur 'bot':

markieren

Delphi-Quelltext

1:	IdIRC1.Nick := 'bot_' + IntToStr(random(9000)+1000);

Jailbird hat folgendes geschrieben:

Ihr DAUs! Nicknames bestehend aus Zahlen sind nicht erlaubt! (zumindest im QuakeNet nicht)

Überleg dir vorher, was du schreibst, ich (und andere sicher auch) lass mich nicht gerne völlig grundlos als DAU bezeichnen :mahn:

_________________
JSXGraph

riddlehx · Hält's aus hier Beiträge: 11

Ok danke an raziel, retnyg und allen anderen

.
Aber jetzt habe ich noch ein problem...
Ich möchte das der Bot wenn ich schreibe .page das er dann eine Homepage sagt.
Also in msl kann ich es ja.

if ($nick == "meinnick") on: text usw.

Aber ich möchte das in dem programm miteinbinden
Naja hoffentlich kann mir wer helfen

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme