J'ai remarqué un petit bug sur le script Allociné dans la fonction AnalyzePage, il manque un exit après ce bout de code :
Code: Select all
if pos(UTF8Encode('0 résultat trouvé'),Line) <> 0 then
begin
if (GetOption('Type de Lancement') = 1) or (GetOption('Type de Lancement') = 2) then
begin
if Input(NomScript+' by ScorEpioN', retourneElement(0)+' pour '''+MovieName+''' :', MovieName) then
begin
if Pos(urlDomain, MovieName) > 0 then
AnalyzeMoviePage(convertURL(MovieName))
else
AnalyzePage(urlAllocineSearch+retourneElement(2)+UrlEncode(TitrePlus(UTF8Encode(MovieName))));
Aussi, concernant ceci :
Code: Select all
SetField(fieldChecked, 'True');
Donc je l'aurais mis tout à la fin des fonctions AnalyzeMoviePage et AnalyzeSeriePage.
Soulsnake.