124 lines
3.7 KiB
VB.net
124 lines
3.7 KiB
VB.net
Imports System.Reflection
|
|
Imports Chilkat
|
|
Public Class cPascom
|
|
|
|
Dim API_USER_AUTHORIZATION = "bW9ieTpnWlhTSVprTnhmaUQxOEU="
|
|
Property Arbeitsplatz As String = ""
|
|
Property Username As String = ""
|
|
|
|
Public Function Anmelden() As Boolean
|
|
If Arbeitsplatz.Length > 0 And Username.Length > 0 Then
|
|
Try
|
|
|
|
'Benutzername: moby
|
|
|
|
'Passwort: XgDsFmMSutaMLA1
|
|
|
|
'BASIC Auth String: bW9ieTpYZ0RzRm1NU3V0YU1MQTE =
|
|
|
|
cChilkat_Helper.UnlockCilkat()
|
|
Dim API_STRING = "pbx3.flashnet.at"
|
|
|
|
Dim rest As New Chilkat.Rest
|
|
Dim success As Boolean
|
|
|
|
Dim bTls As Boolean = True
|
|
Dim port As Integer = 443
|
|
Dim bAutoReconnect As Boolean = True
|
|
|
|
|
|
success = rest.Connect(API_STRING, port, bTls, bAutoReconnect)
|
|
If (success <> True) Then
|
|
Debug.WriteLine("ConnectFailReason: " & rest.ConnectFailReason)
|
|
Debug.WriteLine(rest.LastErrorText)
|
|
|
|
Return False
|
|
End If
|
|
|
|
rest.AddHeader("Content-Type", "application/json")
|
|
rest.SetAuthBasic("moby", "XgDsFmMSutaMLA1")
|
|
|
|
|
|
Dim json As New Chilkat.JsonObject
|
|
|
|
Dim successJsonLoad As Boolean = json.Load("
|
|
{""action"":""relocate"",""username"":""" & Username & """}}")
|
|
|
|
If (successJsonLoad <> True) Then
|
|
MsgBox(json.LastErrorText)
|
|
Return False
|
|
End If
|
|
|
|
|
|
Dim sbRequestBody As New Chilkat.StringBuilder
|
|
json.EmitSb(sbRequestBody)
|
|
|
|
' MsgBox(sbRequestBody.ToString)
|
|
Dim sbResponseBody As New Chilkat.StringBuilder
|
|
success = rest.FullRequestSb("POST", "/verag/services/location/" & Arbeitsplatz, sbRequestBody, sbResponseBody)
|
|
If (success <> True) Then
|
|
Debug.WriteLine(rest.LastErrorText)
|
|
Return False
|
|
End If
|
|
Dim respStatusCode As Integer = rest.ResponseStatusCode
|
|
|
|
If (respStatusCode <> 202) Then
|
|
|
|
' MsgBox(sbResponseBody.GetAsString())
|
|
|
|
Return False
|
|
End If
|
|
|
|
|
|
Dim jsonResp = New Chilkat.JsonObject()
|
|
jsonResp.LoadSb(sbResponseBody)
|
|
|
|
Dim gatewayId = jsonResp.StringOf("gatewayId")
|
|
Dim Resp_error = jsonResp.StringOf("error")
|
|
Dim Resp_errorCode = jsonResp.StringOf("errorCode")
|
|
|
|
|
|
Return True
|
|
|
|
|
|
|
|
|
|
Catch ex As Exception
|
|
|
|
Return False
|
|
End Try
|
|
Return True
|
|
Else
|
|
Return False
|
|
End If
|
|
|
|
|
|
End Function
|
|
|
|
'Public Function GetTelArbeitsplatz4Host() As Boolean
|
|
' Try
|
|
' Dim lines = IO.File.ReadAllLines("\\dc01.verag.ost.dmn\NETLOGON\Telefonarbeitsplaetze.ini")
|
|
' Dim colCount = lines.First.Split(";"c).Length
|
|
|
|
' For Each line In lines
|
|
' Dim objFields = From field In line.Split(";"c)
|
|
|
|
|
|
' If String.Compare(cRes.LocalUser.Hostname, objFields(0).ToString, True) = 0 Then
|
|
' Arbeitsplatz = objFields(1).ToString
|
|
' '_ConString = objFields(2).ToString
|
|
' Return True
|
|
' Exit Function
|
|
' End If
|
|
|
|
' ' End Select
|
|
' Next
|
|
' Return False
|
|
' Catch ex As Exception
|
|
' ' MsgBox("Fehler beim Lesen TSAnmeldung.ini: " & vbCrLf & ex.Message)
|
|
' End Try
|
|
'End Function
|
|
|
|
|
|
End Class
|