Hi Nachtfalke75,
entschuldige die späte Antwort, aber ich habe hier eine Lösung für dein Problem mit der bestehenden Internetverbindung
Dim server As ServerSocket 'Network-Lib nicht vergessen ;)
server.Initialize(0, "")
If server.GetMyIP = "127.0.0.1" Then 'Localhost
'Hier den Code einfügen, wenn keine Verbindung besteht
End If
Die Lösung für den Market poste ich dir in deinem anderen Thread