c# มีวิธีใส่เครดิตผู้สร้างลงในโปรแกรมไหมครับ แบบว่าเขาเอา code เราไปพัฒนาต่อ แต่อยากให้ชื่อผู้สร้างติดอยู่โดยเขาแก้ไขเครดิตเราไม่ได้

        Dim result = New With {.sEcho = sEcho,
                               .iTotalRecords = lstLargeRows.Count(),
                               .iTotalDisplayRecords = Person.Count(),
                               .aaData = Product.Select(Function(n, rowIndex) {
                                                                n.engine,
                                                                n.browser,
                                                                n.platform,
                                                                If(rowIndex Mod 3 = 0, "<img src='./Icon/PersonWomanPending.png' onclick='event.preventDefault();event.stopPropagation();MessageBox(""ทดสอบการทำงาน"")' style='cursor:pointer;' />" & " IS-01 เบิกใช้ภายใน OTH", If(rowIndex Mod 3 = 1, "<img src='./Icon/PersonWomanExtentSame.png' />" & " IS-02 เบิกใช้ภายใน MGR", "<img src='./Icon/PersonWomanAlert.png' />" & " IS-03 เบิกใช้ภายใน PUR")),
                                                                If(rowIndex Mod 3 = 0, "<img src='./Icon/PersonWomanPending.png' onclick='MessageBox(""ทดสอบการทำงาน"")' style='cursor:pointer;' />" & " Description", If(rowIndex Mod 3 = 1, "<img src='./Icon/PersonWomanExtentSame.png' />" & " หมายเหตุ", "<img src='./Icon/PersonWoman.png' />&nbsp;<img src='./Icon/PersonMan.png' />&nbsp;<img src='./Icon/PersonManExit.png' />" & " คำอธิบาย")),
                                                                "r" & rowIndex
                                                                }).Skip(idisplayStart).Take(idisplayLength)

Imports Newtonsoft.Json
Imports Newtonsoft.Json.Linq

Public Class JsonUtils
    ''' <summary>
    ''' Ctor
    ''' </summary>
    ''' <remarks></remarks>
    Sub New()
    End Sub

    ''' <summary>
    ''' it's not a bug.
    ''' it's a furture.
    ''' </summary>
    ''' <returns></returns>
    ''' <remarks></remarks>
    Public Shared Function หอย_งาม() As String
        Return "โหนกนูน"
    End Function

    Public Shared Sub Example_SerializeObject()
        Dim prd As Product = New Product()
        prd.ProductID = 1
        prd.ProductName = "Pencil"
        prd.Sizes = {"Small", "Middle"}
        Dim json As String = JsonConvert.SerializeObject(prd)
        '//{
        '//  "ProductID ":1,"
        '//  "ProductName":"Pencil",
        '//  "Sizes":["Small","Middle"]
        '//}
    End Sub

    Public Shared Sub Example_DeserializeObject()
        Dim json = <json>
                       {
                         "ProductID ":1,"
                         "ProductName":"Pencil",
                         "Sizes":["Small","Middle"]
                       }
                   </json>
        Dim objProduct As Product = JsonConvert.DeserializeObject(Of Product)(json.ToString().Trim(New Char() {vbLf, vbNewLine, vbTab, vbCrLf, vbCr, " "}))
        Dim prdName As String = objProduct.ProductName 'Result Pencil

    End Sub

    Public Shared Sub Example_Linq2Json()
        Dim array As JArray = New JArray() 'Name space Newtonsoft.Json.Linq
        array.Add("Banana")
        array.Add(New Date(2016, 12, 31))
        Dim obj As JObject = New JObject
        obj("myArray") = array
        Dim json As String = obj.ToString()
        '// {
        '//   "MyArray": [
        '//     "Banana",
        '//     "2016-12-31T00:00:00"
        '//   ]
        '// }
    End Sub

    ''' <summary>
    ''' Demo Class
    ''' </summary>
    ''' <remarks></remarks>
    Public Class Product
        Public Property ProductID As Integer
        Public Property ProductName As String
        Public Property Sizes As String()
    End Class
End Class