proc

UID/usrctlProcedures.vb

@@ -4972,6 +4972,32 @@ OPTION (MAXRECURSION 1000);", "AVISO") '
 
     End Sub
 
+    Private Sub Button57_Click(sender As Object, e As EventArgs) Handles Button57.Click
+        Try
+
+            Dim adr = InputBox("Bitte geben Sie die Firma ein:", "Eingabe", "")
+
+            Dim OA = cOpenAI.askAI_HERBERT_Kontakdaten_WebResearch(adr)
+            MsgBox(OA)
+
+        Catch ex As Exception
+            MsgBox(ex.Message & vbNewLine & ex.StackTrace)
+        End Try
+    End Sub
+
+    Private Sub Button58_Click(sender As Object, e As EventArgs) Handles Button58.Click
+        Try
+
+            Dim ask = InputBox("Bitte gib deine Frage ein:", "Eingabe", "")
+
+            Dim OA = cOpenAI.askAI_HERBERT_Allg(ask)
+            MsgBox(OA)
+
+        Catch ex As Exception
+            MsgBox(ex.Message & vbNewLine & ex.StackTrace)
+        End Try
+    End Sub
+
     'Private Sub Button26_Click(sender As Object, e As EventArgs)
     '    For Each d In System.IO.Directory.GetDirectories("\\192.168.0.91\Datenarchiv\DAKOSY\ECHTSYSTEM\Nachrichtendaten_Ablage\2019")
     '        Dim fi As New FileInfo(d)