Zeitlich begrenzt gültige SessionID auslesen
21.11.2015 13:29:43
mpb
ich möchte von der Website
https://www.insolvenzbekanntmachungen.de/cgi-bin/bl_suche.pl
die eröffneten Insolvenzen der letzen Woche (aktuell 9.-15.11.) mit VBA auslesen und in Excel weiterverarbeiten. Das funktioniert mit diesem Code:
Sub Insolveneroeffnungen_Auslesen()
Dim INSOtxt As Variant
Dim URL_INSO As String
Dim Seiten As Integer
Dim i As Integer
Dim DBeginn As String
Dim DEnde As String
Seiten = 1
DBeginn = "09.11.2015"
DBeginn = "15.11.2015"
URL_INSO = "https://www.insolvenzbekanntmachungen.de//cgi-bin/bl_suche.pl?PHPSESSID= _
af65d119cc9720d9377a4732ce901e9a&Suchfunktion=uneingeschr&Absenden=Suche+starten&Bundesland=--+Alle+Bundesl%E4nder+--&Gericht=--+Alle+Insolvenzgerichte+--&Datum1=" & DBeginn & "&Datum2=" & DEnde & "&Name=&Sitz=&Abteilungsnr=&Registerzeichen=--&Lfdnr=&Jahreszahl=--&Registerart=--+keine+Angabe+--&select_registergericht=&Registergericht=--+keine+Angabe+--&Registernummer=&Gegenstand=Er%F6ffnungen&matchesperpage=100&sortedby=Datum&page=" & i & " #Ergebnis%22" 'Laden der URL
With CreateObject("MSXML2.XMLHTTP")
.Open "GET", URL_INSO, False
.send
INSOtxt = .responseText
End With
MsgBox Len(INSOtxt)
'Weiterer Code zur Verarbeitung der Suchergebnisse
End Sub
Allerdings benötige ich eine gültige SessionID. In obigem Code ist das alles rechts vom Gleichheitszeichen in
PHPSESSID=af65d119cc9720d9377a4732ce901e9a
Diese SessionID ist allerdings nur eine begrenzte Zeit gültig (wie lange weiß ich nicht). Ändere ich die SessionID im Code ab, erhalte ich die Nachricht von der Website, die Session sei abgelaufen.
Bisher führe ich behelfsweise die Suchabfrage händisch durch. Die dabei vom "System" vergebene SessionID suche ich im Quelltext der HTML-Seite, die das Suchergebnis enthält, und übertrage sie per copy und paste in meinen VBA-Code. Das funktioniert auch, ist aber unpraktikabel, wenn von wenig IT-affinen Kollegen die Abfrage und Weiterverabeitung in Excel durchgeführt werden soll.
Was ich benötige ist eine gültige SessionID, entweder mit VBA von der Website ausgelesen oder simuliert. Gibt es da irgendeine Möglichkeit?
Gruß
Martin