Mondaltrans

VERAG_PROG_ALLGEMEIN/Schnittstellen/Modaltrans/cModalTransBase.vb

@@ -0,0 +1,49 @@
+Imports Newtonsoft.Json
+Imports Newtonsoft.Json.Linq
+
+Public Class cModalTransBase
+    Public Shared baseUrl As String = "https://app.modaltrans.com"
+    Shared http As New Chilkat.Http()
+
+
+    Private Shared API_Mail = "mdlapi@verag.ag"
+    Private Shared API_PWD = "Verag2023"
+
+
+    Public Sub New()
+        VERAG_PROG_ALLGEMEIN.cChilkat_Helper.UnlockCilkat()
+
+        http.SetRequestHeader("Content-Type", "application/json")
+    End Sub
+
+    ' Methode zur Authentifizierung und Abruf des Tokens
+    Public Shared Function Authenticate(ByRef authToken As String) As Boolean
+        Dim http As New Chilkat.Http()
+        Dim req As New Chilkat.HttpRequest()
+        req.AddParam("email", API_Mail)
+        req.AddParam("password", API_PWD)
+
+        ' Wichtig: Kein JSON, sondern x-www-form-urlencoded!
+        req.ContentType = "application/x-www-form-urlencoded"
+
+
+        Dim resp As Chilkat.HttpResponse = http.PostUrlEncoded(baseUrl & "/api/v1/login", req)
+
+        If resp IsNot Nothing Then
+            Try
+                Dim json = JsonConvert.DeserializeObject(Of JObject)(resp.BodyStr)
+                authToken = json.SelectToken("auth_token")?.ToString()
+                Console.WriteLine("Token: " & authToken)
+                If Not String.IsNullOrEmpty(authToken) Then
+                    Return True
+                End If
+            Catch ex As Exception
+                Console.WriteLine("Fehler beim Parsen des Tokens: " & ex.Message)
+            End Try
+        Else
+            Console.WriteLine("Authentifizierungsfehler: " & http.LastErrorText)
+        End If
+
+        Return False
+    End Function
+End Class