[Taha Okla]

على فرض أنه لديك في قاعدة البيانات :
- جدول اسمه (TokenInfo)   
- وفي هذا الجدول  خمس أعمدة وهي : token_pin ;  DllLibPath ; token_type ; BaseUrl ;tokenurl
 - وفيه سطر وحيد فقط مخزنة فيها المعلومات الافتراضية (والتي تستيطع تعديلها فيما بعد وكما تريد).

يصبح الكلاس الذي تريده هو : 
(لا تنسى إضافة كود الاتصال بقاعدة البيانات في المكان المشار إليه في الكود)

PHP كود :

Imports System.Data.SqlClient

Public Class Config_class

    Public Property token_pin As String
    Public Property DllLibPath As String
    Public Property token_type As String
    Public Property BaseUrl As String
    Public Property tokenurl As String

    Public Sub New()
        token_pin = GetValue("token_pin")         '' "57892522"
        DllLibPath = GetValue("DllLibPath")       '' "eps2003"
        token_type = GetValue("token_type")       '' "Egypt Trust Sealing CA"
        BaseUrl = GetValue("BaseUrl")             '' "https://api.preprod"
        tokenurl = GetValue("tokenurl")           '' "https://id.preprod.eta"
    End Sub

    Protected Function GetValue(pFieldName As String) As String
        Dim dt As New DataTable
        dt = ExReader("Select * From [TokenInfo]")  ''   جدول معلومات التوكن
        Return dt.Rows(0)(pFieldName).ToString()
    End Function

    Protected Function ExReader(cmdText As String, ParamArray pParam As SqlParameter()) As DataTable
        '' جملة الاتصال بقاعدة البيانات (ضع مكانها جملة الاتصال الموجودة في مشروعك)ا  
        Dim strConn = "جملة الاتصال بقاعدة البيانات"

        Using pConn As New SqlConnection(strConn)
            pConn.Open()

            Dim cmd As SqlCommand = New SqlCommand(cmdText, pConn)
            For Each p In pParam
                cmd.Parameters.Add(p)
            Next

            Dim dt As New DataTable
            dt.Load(cmd.ExecuteReader())

            Return dt
        End Using
    End Function

End Class 


وتكون جملة استرداد البيانات هي :

PHP كود :

Dim cCfg1 As New Config_class
session.Login(CKU.CKU_USER, Encoding.UTF8.GetBytes(cCfg1.token_pin))