Mit PHP eine (https) dropbox-Freigabe auslesen

function fread_url($url,$ref="")  
  {
	if(function_exists("curl_init")){  
		$ch = curl_init($url);
		$user_agent = "Mozilla/4.0 (compatible; MSIE 7.0; Windows NT 6.0)";  
		curl_setopt($ch, CURLOPT_USERAGENT, $user_agent);
		curl_setopt( $ch, CURLOPT_HTTPGET, 1 );
		curl_setopt( $ch, CURLOPT_RETURNTRANSFER, 1 );
		curl_setopt( $ch, CURLOPT_FOLLOWLOCATION , 1 );
		curl_setopt( $ch, CURLOPT_REFERER, $ref );
		$html = curl_exec($ch);
		curl_close($ch);
	}
	else{
		$hfile = fopen($url,"r");  
		if($hfile){
			while(!feof($hfile)){
				$html.=fgets($hfile,1024);
			}
		}
	}
	return $html;
}
  
  $urlDropBox = "https://www.dropbox.com/sh/xxxxxxxxxxxxxxxxxxxxx";  
  $sHTML = fread_url($urlDropBox);
  preg_match_all('/<a href=\"([^"]*)\"[^>]*><img data-src=\"([^"]*)\" data-fail-src=\"[^"]*\"/',$sHTML,$matches);  
  for ($i=0;$i<count($matches[1]); $i++){
	echo '<p><a href="'.$matches[1][$i].'"><img src="'.$matches[2][$i].'" ></a></p>>';  
  }

   Public allImages As String
    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Dim urls As Collection = getDropBoxImages("[URL ZUR DROPBOXSEITE MIT DEN BILDERN]")  
        For Each url In urls
            allImages &= "<div style=""float:left; margin:5px""><a href=""" & url(1) & """><img src=""" & url(0) & """></a></div>"  
        Next

    End Sub

    'Returns Urls of DropBox-Images as a Collection  
    Public Function getDropBoxImages(ByVal strURL As String) As Collection
        Dim shtml As String = New System.Net.WebClient().DownloadString(strURL)
        Dim matches As RegularExpressions.MatchCollection = New RegularExpressions.Regex("<a href=\""([^""]*)\""[^>]*><img data-src=\""([^""]*)\"" data-fail-src=\""[^""]*\""").Matches(shtml)  
        If matches.Count > 0 Then
            Dim urls As New Collection
            Dim counter As Int32 = 0
            For Each m As RegularExpressions.Match In matches
                counter += 1
                urls.Add({m.Groups(2).Value, m.Groups(1).Value}, counter)
            Next
            Return urls
        else
            Return Nothing
        End If
        
    End Function

<%= allImages%>