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

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.

XXX habe ich hier nur ersetzt.

- Das Script logt sich ein
- Das Script sucht nun anhand der ID nur den ordner "ird5u7o6soto"
- Dann soll ja der BBCode generiert werden:

Code:

http://share-links.biz/manage?search=ird5u7o6soto&chkFolder[]=6979733&op=stimg_png

Das Problem ist aber, dass der Submit via

Code:

onclick="javascript:return submitForm();"

stattfindet.

Sonst würde der Aufruf im Browser mit:

Code:

http://share-links.biz/manage?search=ird5u7o6soto&chkFolder[]=6979733&op=stimg_png

genügen. Das funktioniert ja ebenfalls nicht.

PHP-Code:

$username = 'XXX';
$password = 'XXX';
$loginUrl = 'http://share-links.biz/login';
$sl_unique_link = str_replace("http://share-links.biz/_", "", "http://share-links.biz/_ird5u7o6soto");
 
//init curl
$ch = curl_init();
 
//Set the URL to work with
curl_setopt($ch, CURLOPT_URL, $loginUrl);
 
// ENABLE HTTP POST
curl_setopt($ch, CURLOPT_POST, 1);

curl_setopt($ch, CURLOPT_USERAGENT, $_SERVER['HTTP_USER_AGENT']);
 
//Set the post parameters
curl_setopt($ch, CURLOPT_POSTFIELDS, 'remember_me=1&user='.$username.'&pass='.$password.'&submit=Login');
 
//Handle cookies for the login
curl_setopt($ch, CURLOPT_COOKIEJAR, 'cookie.txt');

 
//Setting CURLOPT_RETURNTRANSFER variable to 1 will force cURL
//not to print out the results of its query.
//Instead, it will return the results as a string return value
//from curl_exec() instead of the usual true/false.
curl_setopt($ch, CURLOPT_RETURNTRANSFER, 1);
 
//execute the request (the login)
$store = curl_exec($ch);
 
//the login is now done and you can continue to get the
//protected content.
 
//set the URL to the protected file
curl_setopt($ch, CURLOPT_URL, 'http://share-links.biz/manage?search='.$sl_unique_link.'&chkFolder[]=6979733&op=stimg_png&submit=los');
 
//execute the request
$content = curl_exec($ch);
 
//save the data to disk
//file_put_contents('~/download.zip', $content);


echo $content ; 


Das ist ein POST Request der da abgeschickt wird, kein GET Request. Deshalb klappts auch nicht wenn dus nur über die URL machen willst. Also Formualr abschicken mit neuen Fields und dann die Ergebnisseite nach dem PNG durchsuchen und Online oder Offline zurückgeben, je nachdem welches PNG gefunden wird.
Du kannst das Bild nicht einfach so über ne URL oder ID einbinden. Das geht nicht.

Jetzt müsste man noch hinbekommen das so umzubauen das mit einem Funktionsabruf die Statusimages für mehrere Ordner abgreifbar sind. Kann man überhaupt auf Fremd Ids zugreifen?

Kann man überhaupt auf Fremd Ids zugreifen?

:meh, leider nicht sonst hätte ich nen kleinen Service gebaut

Da wie mehrfach erwähnt ein login erforderlich ist, beantwortet sich die Frage hoffentlich
bau eine Schleife.

Da man nur bedingt an die checkboxen id kommt.
Die man entweder über die Hauptseite kommt, oder über die Suche.
Wenn nun aber besagte id auf Seite 2 ist ... Pustekuchen
Abgesehen davon das du die unterschiedlichen .png dann den Id richtig zuordnen müsstest. Was schwierig werden kann.
Daher ist eine Schleife die bessere Wahl.

Da das hier so inspirierend war, zeige ich auch noch einen Weg in Python mit Requests, schön schlank, allerdings roh und ohne Exception Handling:

Code:

import re, requests
# import sys

# _username = sys.argv[1]
# _password = sys.argv[2]
# _imgType = sys.argv[3]
# _folderID = sys.argv[4]
_username = 'justatest'
_password = 'justatest'
_imgtype = 'gif'
_folderID = 'mg1gu7oztmz9'

s = requests.Session()
s.headers.update({'User-Agent': 'Mozilla/5.0 (Windows NT 6.1; WOW64; rv:38.0) Gecko/20100101 Firefox/38.0'})
s.post('http://share-links.biz/login', data = {'user': _username, 'pass': _password, 'submit': 'Login', 'remember_me': 1})
_body = s.get('http://share-links.biz/manage', params = {'search': _folderID}).text
_folder_number = re.search(r'<input type="checkbox" name="chkFolder\[\]" value="(\d+)" class="chkFolder vtext-middle" \/>', _body).group(1)
_body = s.post('http://share-links.biz/manage', data = {'op': 'stimg', 'chkFolder[]': _folder_number}).text
_imglink = re.search(r'http:\/\/stats\.share-links\.biz\/[0-9a-z]+\.', _body).group(0)
print(_imglink + _imgtype)
s.close()

Vielleicht hilft's ja jemandem und sei es, indem es das Interesse für Python weckt ;-)

Cannonau