[UPDATE] @Karl-Heinz - Include_ChangeAnyHeaderRandom

05/12/2008 - 20:25 von Hermann Hippen | Report spam
Moin Moin :-),

http://kh-rademacher.de/4d/Include_...dom-1.html

Das hatte ich heute schon für Reinhard aufgefrischt und erst jetzt gesehen
das du es auf deiner Seite hast.


Da alle Scripte so nach und nach auf relative Pfadangaben umgestellt
werden, arbeitet auch dieses Script damit.

Das bedeutet das in den Scripten kein Pfad mehr für das Dialog Programm
Verzeichnis angegeben werden muss.

Voraussetzung dafür ist lediglich, das in den Eigenschaften der
Verknüpfung, über die Dialog aufgerufen wird, bei 'Ausführen in:' der Pfad
zum Dialog Verzeichnis, mit abschliessendem Backslash, eingegeben werden
muss. Ist im Pfadnamen ein Leerzeichen, muss der Pfadname in
Anführungszeichen angegeben werden. Beispiel:
http://pic.leech.it/i/f5500/acb7c77eigen.jpg

Ausser der Umstellung wurde natürlich der Code mal wieder um einiges
gekürzt, optimiert und im Ablauf beschleunigt.


8<-[ Include_ChangeAnyHeaderRandom ]->8
Procedure Init_ChangeAnyHeaderRandom ( var MaxRandomKey : Integer;
var ChangeHeader : String;
var AddOnChangeHeader : String;
var ChangeInEmails : Boolean;
var ChangeInNews : Boolean;
var AddOnChangeRandom : Boolean);
Begin
// Configuration settings
// -
// set the header you want to change here, e.g. 'User-Agent'
ChangeHeader := 'User-Agent:';
AddOnChangeHeader := ' (really thrilly)';
// 'true' erzeugt einen Zufaelligen AddOnChangeHeader aus der ChangeAgentAdd.ini
AddOnChangeRandom := true;
// Anzahl der Eintraege in ChangeAgentAdd.ini
MaxRandomKey := 10;
// change header in emails and/or postings
// set 'true' or 'false'
ChangeInEmails := True;
ChangeInNews := True;
// -
// End of configuration settings
End;
// - No user maintainable parts below this line -- //

Function ChangeAnyHeaderRandom_MessageBox(hWnd: Cardinal;lpText,lpCaption: PChar; uType: Longword ): Integer;
external 'MessageBoxA@user32.dll stdcall';
Function RandomNumber( Max: Integer ): Integer;
external 'randomNumber@dExt.dll';

Function ChangeAnyHeaderRandom(var Message:TStringlist;IsEmail:Boolean): Boolean;
Var i,MaxRandomKey : Integer;
ChangeHeader,
AddOnChangeHeader : String;
J, ChangeInEmails,
ChangeInNews,
AddOnChangeRandom : Boolean;
FileStringList : TStringList;
Begin
Init_ChangeAnyHeaderRandom (MaxRandomKey, ChangeHeader, AddOnChangeHeader,
ChangeInEmails, ChangeInNews, AddOnChangeRandom);
If ((IsEmail=true) and (ChangeInEmails=False)) Or
((IsEmail=false) and (ChangeInNews=False)) Then Exit;
FileStringList := TStringList.Create;
With FileStringList Do
Begin
If Not FileExists('ChangeAgentAdd.ini') Then
Begin
Add('(Guided Consideration)');
Add('(IMHO the best User-Agent)');
Add('(the best usenet experience!)');
Add('(Free Windows-Newsreader)');
Add('(Newsreader with Unicode-Support)');
Add('( www.40tude.com/dialog/ )');
Add('( news:de.comm.software.40tude-dialog )');
Add('(Crying with the cats.)');
Add('(Dressed to kill)');
Add('(My Newsreader No.1)');
SaveToFile('ChangeAgentAdd.ini');
ChangeAnyHeaderRandom_MessageBox(0,'Eine neue Datei ' +
' mit 10 User-Agend-Addons wurde erstellt! ' +
'Sie konnen den Inhalt jederzeit nach eigenen ' +
'Beduerfnissen anpassen. ' +
'Beim hinzufuegen von Eintraegen ist der Wert von MaxRandomKey im ' +
'ChangeAnyHeaderRandom-Script entsprechend anzupassen. ' +
'Die Nachricht wird jetzt verschickt.',
'ChangeAnyHeaderRandom: Datei wurde erstellt', 64+4096+0);
End Else LoadFromFile('ChangeAgentAdd.ini');
If AddOnChangeRandom Then AddOnChangeHeader := ' ' + Strings[RandomNumber(MaxRandomKey)];
End;
i := 0; J := False;
Repeat
I := i + 1;
J := (Pos(ChangeHeader,Message[i]) = 1);
If J Then Message[i] := Message[i] + AddOnChangeHeader;
Until(Message[i]='') Or J;
Result := True;
FileStringList.Free;
End;
8<-->8

Cu,
Hermann Hippen.
ž' š°º€ø?žžžžž?ø€º°š 'ž
ø€º° '<http://4ds.siteboard.eu>' °º€ø
'ž '40tude-Dialog Scriptwerkstatt' ž'
ø€º°' ž ž ø€º°ššššššš°º€øšž ž '°º€ø
 

Lesen sie die antworten

#1 Karl-Heinz Rademacher
06/12/2008 - 02:22 | Warnen spam
Hallo Hermann,

Hermann Hippen schrieb:
Moin Moin :-),

http://kh-rademacher.de/4d/Include_...dom-1.html

Das hatte ich heute schon für Reinhard aufgefrischt und erst jetzt gesehen
das du es auf deiner Seite hast.



Hermann so langsam verliere ich den Überblick! Denn diese Skript hatte
ich gestern gerade neu geàndert eingestellt. Wenn Du es hier aber noch
einmal einstellst, dann bitte mit einen /aktuellen/ Hinweis für mich.

Ich denke Du wirst Verstàndnis dafür haben, zumal wir diese Problem mit
der zeitliche Abfolge der Aktualisierung schon mal besprochen hatten,
daß ich ungerne das Gleiche Skript innerhalb von kurzer Zeit immer
wieder bearbeiten und neu Einstellen muß.

Gruß
Karl-Heinz
,--[ Die 40tude Dialog - Seiten! ]
Š http://kh-rademacher.de/4d
Š http://kh-rademacher.de/face
`-

Ähnliche fragen