Thema: share-links.biz: Link zum Statusimage bekommen

Wenn du via cURL das Cloudflare Problem hast, einfach folgendes verwenden:

PHP-Code:

curl_setopt($ch2, CURLOPT_USERAGENT, $_SERVER['HTTP_USER_AGENT']); 


Klappt jedenfalls bei mir.

Ich habe auch schon einiges versucht, aber ich komme auch nicht an dem Status-Image...

Hier der Thread von 1stAid: [Erledigt] Statusanzeige bei share-links.biz - IntelligeN Support - The Lounge

Ich suche halt eine Lösung für PHP.

Ich habe es auch versucht aus dem Quelltext zu bekommen... aber bisher war alles ohne Erfolg.

in Delphi.. ihr könnt es euch ja übersetzen

Spoiler ausklappen

Code:

var
  Daten : TIdMultiPartFormDataStream;
  s1,s2,UrlString : string;
  Http : TIdHttp ;
  match: TMatch;
  sList: TStringList;
begin
UrlString:= AurlString;
UrlString:= StringReplace(UrlString,'http://share-links.biz/_','',[rfIgnoreCase]);

Result:= False;
  Http := TIdHttp.Create(nil);
  try
    Http.HandleRedirects := True;
    Http.RedirectMaximum := 5;
    Http.CookieManager := idckmngr1;
    Http.AllowCookies:=True;
    HTTP.Request.UserAgent := 'Opera/9.80 (Windows NT 6.1; U; de) Presto/2.5.22 Version/10.51' ;
    HTTP.Request.Accept := 'text/html, */*';
    sList:= TStringList.Create;
    try
    sList.Add('user' + aEinstellungen[22]);
    sList.Add('pass' + aEinstellungen[23]);
      try
        s1:=Http.Post('http://share-links.biz/login',sList);
       except
       mmo1.Lines.Add('fehler in 1');
       Exit;
      end;
      finally
    sList.Free;
    end;

    try
      s2:=Http.Get('http://share-links.biz/manage?search=' + UrlString);
      if TRegEx.IsMatch(s2,'name\=.chkFolder\[\]. value\=.[\d]*\"') then
         begin
          match := TRegEx.Match(s2, 'name\=.chkFolder\[\]. value\=.[\d]*\"');
          match := TRegEx.Match(match.Value, '[\d]*');
         end;

    except
      mmo1.Lines.Add('fehler in 2');
      Exit;
    end;
    sList:= TStringList.Create;
    try
      sList.Add('op=stimg_png');
      sList.Add('chkFolder[]=' + match.Value)  ;


      try
        s2:=Http.Post('http://share-links.biz/manage?search=' + UrlString,Daten);
        match := TRegEx.Match(s2, 'http\:\/\/stats\.share\-links\.biz\/[\w]*\.png');
        Result:= True;
      except
       on e: Exception do
        begin
          mmo1.Lines.Add(e.message);
          mmo1.Lines.Add('fehler in 3');
          Exit;
        end;
      end;
    if TRegEx.IsMatch(s2,'Es wurden keine geschützen Ordner gefunden') then
      begin
       mmo1.Lines.Add('Fehler durch ShareLinks kein Ordner gefunden') ;
       if TRegEx.IsMatch(s2,'Sie sind eingeloggt als') then mmo1.Lines.Add('Loggin scheint OK')
       else mmo1.Lines.Add('Loggin ist eventuell falsch') ;
      end;
     finally
     sList.Free;
    end;
  finally
    Http.Free;
  end;
  aResultPic:= match.Value;

Ui is der Code alt ... aber er tut seit Jahren treu seinen Dienst, auch wenn ich doch heute (etwas) anders schreiben würde ......

Jetzt muss das nur in PHP übersetzt werden (Das kann ich leider nicht)
Aber danke für die Freigabe !

Wenn das jemand in PHP übersetzen kann, würde ich das im SSBG verbauen.

Der Code von 1stAid macht eigentlich nix anderes, wie die ID des Links zu extrahieren, dann bei Share-Online einloggen und im Login Bereich eine Statusprüfung mit der ID abzusenden. Dann vom Ergebnis den Bildnamen auslesen und entsprechend on oder off zurückgeben.